source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDPARM1.m@ 1590

Last change on this file since 1590 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1SDPARM1 ;ALB/CAW - Build Display for Division(s) ; 3/10/92
2 ;;5.3;Scheduling;**27**;08/13/93
3 ;
4CONT ;
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
8DIV ;
9 ;
1011 ;
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 ;
1412 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 ;
2113 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 ;
2614 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
33TIME(X) ; -- format time only := hr:min
34 I X="" Q X
35 Q $E(X_"0000",1,2)_":"_$E(X_"0000",3,4)
Note: See TracBrowser for help on using the repository browser.