14 lines
982 B
Mathematica
14 lines
982 B
Mathematica
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
|