| [613] | 1 | DGPMOLD ;ALB/MIR - LODGER OUTPUTS ; 23 MAY 90 @12
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | EN D Q S DGHOW=1 G CONT
|
|---|
| 4 | EN1 D Q S DGHOW=2
|
|---|
| 5 | CONT D ASK2^SDDIV G:Y<0 Q S VAUTNI=DGHOW D WARD^VAUTOMA I Y<0 G Q
|
|---|
| 6 | ASK W !,"Do you want to include patients lodged at another facility" S %=2 D YN^DICN I %<0 G Q
|
|---|
| 7 | 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
|
|---|
| 8 | S DGOF='(%-1) I DGHOW=1 G QUEUE
|
|---|
| 9 | DAT S %DT(0)="-DT",%DT="AEP",%DT("A")="START DATE: " D ^%DT G Q:X["^",DAT:Y<0 S DGFR=Y-.1
|
|---|
| 10 | S %DT("A")=" END DATE: ",%DT(0)=DGFR,%DT="AEP" D ^%DT G Q:X["^",DAT:Y<0 S DGTO=Y_.9
|
|---|
| 11 | 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
|
|---|
| 12 | START D STORE^DGPMOLD1
|
|---|
| 13 | 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
|
|---|
