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