SDAMO0 ;ALB/MJK - AM Mgt Reports ; 12/1/91
;;5.3;Scheduling;;Aug 13, 1993
;
CLINIC ; -- select clinics
; -- call generic clinic screen, correct division
;
S DIC("S")="I $$CLINIC^SDAMU(Y),$S(VAUTD:1,$D(VAUTD(+$P(^SC(Y,0),U,15))):1,'+$P(^(0),U,15)&$D(VAUTD(+$O(^DG(40.8,0)))):1,1:0)"
S DIC="^SC(",VAUTSTR="clinic",VAUTVB="VAUTC",VAUTNI=2
D FIRST^VAUTOMA
Q
;
DISP() ; -- display selection choices
; input: all selection variables
; output: none
; return: displayed w/o mishap [ 1|yes 0|no]
;
D HOME^%ZIS W @IOF,*13
W $$LINE^SDAMO("Report Specifications")
W !!," Encounter Dates: ",$$FDATE^VALM1(SDBEG)," to ",$$FDATE^VALM1(SDEND)
W !," Encounter Status: ",$P($T(SELECT+SDSEL^SDAMO2),";;",2)
W:$D(SDSORT) !," Sorted By: ",$P($T(SORT+SDSORT^SDAMO2),";;",2)
W !!?15,"Divisions",?55,$S(SDSORT=1!(SDSORT=2)!(SDSORT=5):"Clinics",1:"Stop Codes")
W !?15,"---------",?55,"----------"
S (D,C)=0
I VAUTD!VAUTC S D=$S(VAUTD:"All",1:$O(VAUTD(0))),C=$S(VAUTC:"All",1:$O(VAUTC(0))) W !?15,$S(D:VAUTD(D),1:D),?55,$S(C:VAUTC(C),1:C)
S D=+D,C=+C
F I=1:1 S:D'="" D=$O(VAUTD(D)) S:C'="" C=$O(VAUTC(C)) Q:'D&('C) W ! W:D ?15,VAUTD(D) W:C ?55,VAUTC(C) I I>9 S I=0 D PAUSE^VALM1 I 'Y G DISPQ
W !,$$LINE^SDAMO("")
S Y=1
DISPQ Q Y
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDAMO0 1278 printed Nov 22, 2024@17:57:46 Page 2
SDAMO0 ;ALB/MJK - AM Mgt Reports ; 12/1/91
+1 ;;5.3;Scheduling;;Aug 13, 1993
+2 ;
CLINIC ; -- select clinics
+1 ; -- call generic clinic screen, correct division
+2 ;
+3 SET DIC("S")="I $$CLINIC^SDAMU(Y),$S(VAUTD:1,$D(VAUTD(+$P(^SC(Y,0),U,15))):1,'+$P(^(0),U,15)&$D(VAUTD(+$O(^DG(40.8,0)))):1,1:0)"
+4 SET DIC="^SC("
SET VAUTSTR="clinic"
SET VAUTVB="VAUTC"
SET VAUTNI=2
+5 DO FIRST^VAUTOMA
+6 QUIT
+7 ;
DISP() ; -- display selection choices
+1 ; input: all selection variables
+2 ; output: none
+3 ; return: displayed w/o mishap [ 1|yes 0|no]
+4 ;
+5 DO HOME^%ZIS
WRITE @IOF,*13
+6 WRITE $$LINE^SDAMO("Report Specifications")
+7 WRITE !!," Encounter Dates: ",$$FDATE^VALM1(SDBEG)," to ",$$FDATE^VALM1(SDEND)
+8 WRITE !," Encounter Status: ",$PIECE($TEXT(SELECT+SDSEL^SDAMO2),";;",2)
+9 if $DATA(SDSORT)
WRITE !," Sorted By: ",$PIECE($TEXT(SORT+SDSORT^SDAMO2),";;",2)
+10 WRITE !!?15,"Divisions",?55,$SELECT(SDSORT=1!(SDSORT=2)!(SDSORT=5):"Clinics",1:"Stop Codes")
+11 WRITE !?15,"---------",?55,"----------"
+12 SET (D,C)=0
+13 IF VAUTD!VAUTC
SET D=$SELECT(VAUTD:"All",1:$ORDER(VAUTD(0)))
SET C=$SELECT(VAUTC:"All",1:$ORDER(VAUTC(0)))
WRITE !?15,$SELECT(D:VAUTD(D),1:D),?55,$SELECT(C:VAUTC(C),1:C)
+14 SET D=+D
SET C=+C
+15 FOR I=1:1
if D'=""
SET D=$ORDER(VAUTD(D))
if C'=""
SET C=$ORDER(VAUTC(C))
if 'D&('C)
QUIT
WRITE !
if D
WRITE ?15,VAUTD(D)
if C
WRITE ?55,VAUTC(C)
IF I>9
SET I=0
DO PAUSE^VALM1
IF 'Y
GOTO DISPQ
+16 WRITE !,$$LINE^SDAMO("")
+17 SET Y=1
DISPQ QUIT Y
