- DGPMOLD ;ALB/MIR - LODGER OUTPUTS ; 23 MAY 90 @12
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- 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
- DGPMOLD ;ALB/MIR - LODGER OUTPUTS ; 23 MAY 90 @12
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- 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
