SDPARM1.m

SDPARM1 ;ALB/CAW - Build Display for Division(s) ; 3/10/92

 ;;5.3;Scheduling;**27,1015**;08/13/93;Build 21

 ;

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)

SDPARM1   ;ALB/CAW - Build Display for Division(s) ; 3/10/92

 +1       ;;5.3;Scheduling;**27,1015**;08/13/93;Build 21

 +2       ;

CONT      ;

 +1        SET SDDLN=0

 +2        FOR SDDIV=0:0

               SET SDDIV=$ORDER(SDPARM(40.8,SDDIV))

               IF 'SDDIV

                   QUIT 

               SET SDDLN=SDDLN+1

               DO DIV

               SET SDDLN(SDDIV)=SDDLN

 +3        QUIT 

DIV       ;

 +1       ;

11        ;

 +1        DO SET^SDPARM($$SETSTR^VALM1("Division: "_SDPARM(40.8,SDDIV,.01,"E"),"",1,79))

 +2        DO CNTRL^VALM10(SDLN,10,25,IOINHI,IOINORM,0)

 +3       ;

12         SET X=""

 +1        SET X=$$SETSTR^VALM1("Address Loc. on Letters:",X,1,24)

 +2        SET X=$$SETSTR^VALM1(SDPARM(40.8,SDDIV,30.01,"E"),X,26,6)

 +3        SET X=$$SETSTR^VALM1("OP Lab Test Start Time:",X,37,23)

 +4        SET X=$$SETSTR^VALM1($$TIME(SDPARM(40.8,SDDIV,30.02,"E")),X,SDSCOL,5)

 +5        DO SET^SDPARM(X)

 +6       ;

13         SET X=""

 +1        SET X=$$SETSTR^VALM1("OP EKG Start Time:",X,42,18)

 +2        SET X=$$SETSTR^VALM1($$TIME(SDPARM(40.8,SDDIV,30.03,"E")),X,SDSCOL,5)

 +3        DO SET^SDPARM(X)

 +4       ;

14         SET X=""

 +1        SET X=$$SETSTR^VALM1("OP X-ray Start Time:",X,40,20)

 +2        SET X=$$SETSTR^VALM1($$TIME(SDPARM(40.8,SDDIV,30.04,"E")),X,SDSCOL,5)

 +3        DO SET^SDPARM(X)

 +4       ;

 +5        DO SET^SDPARM("")

 +6        QUIT 

TIME(X)   ; -- format time only :=   hr:min

 +1        IF X=""

               QUIT X

 +2        QUIT $EXTRACT(X_"0000",1,2)_":"_$EXTRACT(X_"0000",3,4)