36 lines
1.0 KiB
Mathematica
36 lines
1.0 KiB
Mathematica
SDPARM1 ;ALB/CAW - Build Display for Division(s) ; 3/10/92
|
|
;;5.3;Scheduling;**27**;08/13/93
|
|
;
|
|
CONT ;
|
|
S SDDLN=0
|
|
F SDDIV=0:0 S SDDIV=$O(SDPARM(40.8,SDDIV)) Q:'SDDIV S SDDLN=SDDLN+1 D DIV S SDDLN(SDDIV)=SDDLN
|
|
Q
|
|
DIV ;
|
|
;
|
|
11 ;
|
|
D SET^SDPARM($$SETSTR^VALM1("Division: "_SDPARM(40.8,SDDIV,.01,"E"),"",1,79))
|
|
D CNTRL^VALM10(SDLN,10,25,IOINHI,IOINORM,0)
|
|
;
|
|
12 S X=""
|
|
S X=$$SETSTR^VALM1("Address Loc. on Letters:",X,1,24)
|
|
S X=$$SETSTR^VALM1(SDPARM(40.8,SDDIV,30.01,"E"),X,26,6)
|
|
S X=$$SETSTR^VALM1("OP Lab Test Start Time:",X,37,23)
|
|
S X=$$SETSTR^VALM1($$TIME(SDPARM(40.8,SDDIV,30.02,"E")),X,SDSCOL,5)
|
|
D SET^SDPARM(X)
|
|
;
|
|
13 S X=""
|
|
S X=$$SETSTR^VALM1("OP EKG Start Time:",X,42,18)
|
|
S X=$$SETSTR^VALM1($$TIME(SDPARM(40.8,SDDIV,30.03,"E")),X,SDSCOL,5)
|
|
D SET^SDPARM(X)
|
|
;
|
|
14 S X=""
|
|
S X=$$SETSTR^VALM1("OP X-ray Start Time:",X,40,20)
|
|
S X=$$SETSTR^VALM1($$TIME(SDPARM(40.8,SDDIV,30.04,"E")),X,SDSCOL,5)
|
|
D SET^SDPARM(X)
|
|
;
|
|
D SET^SDPARM("")
|
|
Q
|
|
TIME(X) ; -- format time only := hr:min
|
|
I X="" Q X
|
|
Q $E(X_"0000",1,2)_":"_$E(X_"0000",3,4)
|