SDAMO0.m

SDAMO0 ;ALB/MJK - AM Mgt Reports ; 12/1/91

 ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 ;

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

SDAMO0    ;ALB/MJK - AM Mgt Reports ; 12/1/91

 +1       ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 +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