DGPMOLD.m

DGPMOLD ;ALB/MIR - LODGER OUTPUTS ; 23 MAY 90 @12

 ;;5.3;Registration;;Aug 13, 1993

EN D Q S DGHOW=1 G CONT

EN1 D Q S DGHOW=2

CONT D ASK2^SDDIV G:Y<0 Q S VAUTNI=DGHOW D WARD^VAUTOMA I Y<0 G Q

ASK W !,"Do you want to include patients lodged at another facility" S %=2 D YN^DICN I %<0 G Q

 I '% W !?3,"Enter 'Y'es to include lodgers who stayed at another facility,",!?3,"or 'N'o to only include lodgers that stayed at your facility." G ASK

 S DGOF='(%-1) I DGHOW=1 G QUEUE

DAT S %DT(0)="-DT",%DT="AEP",%DT("A")="START DATE: " D ^%DT G Q:X["^",DAT:Y<0 S DGFR=Y-.1

 S %DT("A")="  END DATE: ",%DT(0)=DGFR,%DT="AEP" D ^%DT G Q:X["^",DAT:Y<0 S DGTO=Y_.9

QUEUE W !!,*7,"This output requires 132 columns",! S DGPGM="START^DGPMOLD",DGVARS="DGHOW^DGFR^DGOF^DGTO^VAUTD#^VAUTW#" D ZIS^DGUTQ I POP G Q

START D STORE^DGPMOLD1

Q W ! K ^UTILITY($J,"LOD"),%DT,DFN,DGEND,DGFL,DGFR,DGFROM,DGHOW,DGNOW,DGOF,DGONE,DGPG,DGPGM,DGTO,DGVARS,DGX,DIR,I,J,K,L,POP,R,VA,VAERR,VAUTD,VAUTW,W,X,Y,Z D CLOSE^DGUTQ Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGPMOLD   995     printed  Apr 09, 2024@21:46:03                                                                                                                                                                                                      Page 2

DGPMOLD   ;ALB/MIR - LODGER OUTPUTS ; 23 MAY 90 @12

 +1       ;;5.3;Registration;;Aug 13, 1993

EN         DO Q

           SET DGHOW=1

           GOTO CONT

EN1        DO Q

           SET DGHOW=2

CONT       DO ASK2^SDDIV

           if Y<0

               GOTO Q

           SET VAUTNI=DGHOW

           DO WARD^VAUTOMA

           IF Y<0

               GOTO Q

ASK        WRITE !,"Do you want to include patients lodged at another facility"

           SET %=2

           DO YN^DICN

           IF %<0

               GOTO Q

 +1        IF '%

               WRITE !?3,"Enter 'Y'es to include lodgers who stayed at another facility,",!?3,"or 'N'o to only include lodgers that stayed at your facility."

               GOTO ASK

 +2        SET DGOF='(%-1)

           IF DGHOW=1

               GOTO QUEUE

DAT        SET %DT(0)="-DT"

           SET %DT="AEP"

           SET %DT("A")="START DATE: "

           DO ^%DT

           if X["^"

               GOTO Q

           if Y<0

               GOTO DAT

           SET DGFR=Y-.1

 +1        SET %DT("A")="  END DATE: "

           SET %DT(0)=DGFR

           SET %DT="AEP"

           DO ^%DT

           if X["^"

               GOTO Q

           if Y<0

               GOTO DAT

           SET DGTO=Y_.9

QUEUE      WRITE !!,*7,"This output requires 132 columns",!

           SET DGPGM="START^DGPMOLD"

           SET DGVARS="DGHOW^DGFR^DGOF^DGTO^VAUTD#^VAUTW#"

           DO ZIS^DGUTQ

           IF POP

               GOTO Q

START      DO STORE^DGPMOLD1

Q          WRITE !

           KILL ^UTILITY($JOB,"LOD"),%DT,DFN,DGEND,DGFL,DGFR,DGFROM,DGHOW,DGNOW,DGOF,DGONE,DGPG,DGPGM,DGTO,DGVARS,DGX,DIR,I,J,K,L,POP,R,VA,VAERR,VAUTD,VAUTW,W,X,Y,Z

           DO CLOSE^DGUTQ

           QUIT