A1B2OSR ;ALB/AAS - ODS SUMMARY REPORT ; 11-JAN-91
;;Version 1.55 (local for MAS v5 sites);;
;
; - Description of Utility Array
; - ^Utility($j,"ods-fac",fac)= facility indicator
; - ^Utility($j,"ods-adm",facility)=total admissions for facility
; ,"ods-adm-nat") =national count
; ,"ods-pt-adm",dfn,fac)="" for tracking uniques
; ,"ods-pt-adm-bos",bos,dfn,fac)="" Branch of Service
; ,"ods-pt-adm-spc",spc,dfn,fac)="" admitting specialty
; ,"ods-unq-adm",fac)=count unique admissions
; ,"ods-unq-adm-nat")=count unique adms. nationally
; ,"ods-unq-adm-bos",fac,bos)=unique admissions by branch of service
; ,"ods-unq-adm-bos-nat",bos)=national "
; ,"ods-unq-adm-spc",fac,spc)=unique admissions by admitting specialty
; ,"ods-unq-adm-spc-nat",spc)=national "
;
; ,"ods-dis",fac)=count total discharges
; ,"ods-dis-nat")=national totol discharges
; ,"ods-trf-nva",fac)= ods patients transfered to non-va care
; ,"ods-trf-nva-nat")= national ""
; ,"ods-ptrm",fac) = patients remaining
; ,"ods-ptrm-nat) = national patients remaining
; ,"ods-dis-nva",fac) = va patients displaced to non va care
; ,"ods-dis-nva-nat") = national ""
; ,"ods-dis-va",fac) = va patients displaced to va care
;
% S U="^" D HOME^%ZIS
W @IOF,?28,"OPERATION DESERT SHIELD",!?26,"STATISTICAL SUMMARY REPORT",!!
;
BDT ;Get beginning date of report
S %DT="AEPX",%DT("A")="Start with DATE: " D ^%DT G END:Y<0 S A1B2BDT=Y
;
EDT ;Get ending date of report
S %DT="EX" R !,"Go to DATE: ",X:DTIME S:X=" " X=A1B2BDT G END:(X="")!(X["^") D ^%DT G BDT:Y<0 S A1B2EDT=Y I Y<A1B2BDT W *7," ??",!,"ENDING DATE must follow BEGINNING DATE." G BDT
;
NSR S A1B2NSR=0 ;K DIR S DIR(0)="Y",DIR("A")="Print Multi-divisional Summary Only",DIR("B")="NO" D ^DIR S A1B2NSR=Y K DIR
;
DEV ;Get device for output.
S %IS="QMP" D ^%ZIS G:POP END
I $D(IO("Q")) S ZTSAVE("A1B2*")="",ZTDESC="ODS SUMMARY REPORT",ZTRTN="DQ^A1B2OSR" D ^%ZTLOAD W !,"Request ",$S('$D(ZTSK):"not",1:"")," Queued" G:$D(ZTSK) END K ZTSK
;
U IO
;
DQ D ^A1B2OSR1,^A1B2OSR2
END X:'$D(ZTQUEUED) ^%ZIS("C") K A1B2BDT,A1B2EDT,%DT
K ^UTILITY($J)
K A1B2BDT,A1B2EDT,A1B2NSR,A1B2QUIT,CNTF,A,D,P,T,I,J,FAC,BOS,SPC,SUBS,X,X1,Y,Y1,M,N,TAB,A1B2X,A1B2Y,A1B2DATE,PAGE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HA1B2OSR 2532 printed Nov 22, 2024@17:31:20 Page 2
A1B2OSR ;ALB/AAS - ODS SUMMARY REPORT ; 11-JAN-91
+1 ;;Version 1.55 (local for MAS v5 sites);;
+2 ;
+3 ; - Description of Utility Array
+4 ; - ^Utility($j,"ods-fac",fac)= facility indicator
+5 ; - ^Utility($j,"ods-adm",facility)=total admissions for facility
+6 ; ,"ods-adm-nat") =national count
+7 ; ,"ods-pt-adm",dfn,fac)="" for tracking uniques
+8 ; ,"ods-pt-adm-bos",bos,dfn,fac)="" Branch of Service
+9 ; ,"ods-pt-adm-spc",spc,dfn,fac)="" admitting specialty
+10 ; ,"ods-unq-adm",fac)=count unique admissions
+11 ; ,"ods-unq-adm-nat")=count unique adms. nationally
+12 ; ,"ods-unq-adm-bos",fac,bos)=unique admissions by branch of service
+13 ; ,"ods-unq-adm-bos-nat",bos)=national "
+14 ; ,"ods-unq-adm-spc",fac,spc)=unique admissions by admitting specialty
+15 ; ,"ods-unq-adm-spc-nat",spc)=national "
+16 ;
+17 ; ,"ods-dis",fac)=count total discharges
+18 ; ,"ods-dis-nat")=national totol discharges
+19 ; ,"ods-trf-nva",fac)= ods patients transfered to non-va care
+20 ; ,"ods-trf-nva-nat")= national ""
+21 ; ,"ods-ptrm",fac) = patients remaining
+22 ; ,"ods-ptrm-nat) = national patients remaining
+23 ; ,"ods-dis-nva",fac) = va patients displaced to non va care
+24 ; ,"ods-dis-nva-nat") = national ""
+25 ; ,"ods-dis-va",fac) = va patients displaced to va care
+26 ;
% SET U="^"
DO HOME^%ZIS
+1 WRITE @IOF,?28,"OPERATION DESERT SHIELD",!?26,"STATISTICAL SUMMARY REPORT",!!
+2 ;
BDT ;Get beginning date of report
+1 SET %DT="AEPX"
SET %DT("A")="Start with DATE: "
DO ^%DT
if Y<0
GOTO END
SET A1B2BDT=Y
+2 ;
EDT ;Get ending date of report
+1 SET %DT="EX"
READ !,"Go to DATE: ",X:DTIME
if X=" "
SET X=A1B2BDT
if (X="")!(X["^")
GOTO END
DO ^%DT
if Y<0
GOTO BDT
SET A1B2EDT=Y
IF Y<A1B2BDT
WRITE *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
GOTO BDT
+2 ;
NSR ;K DIR S DIR(0)="Y",DIR("A")="Print Multi-divisional Summary Only",DIR("B")="NO" D ^DIR S A1B2NSR=Y K DIR
SET A1B2NSR=0
+1 ;
DEV ;Get device for output.
+1 SET %IS="QMP"
DO ^%ZIS
if POP
GOTO END
+2 IF $DATA(IO("Q"))
SET ZTSAVE("A1B2*")=""
SET ZTDESC="ODS SUMMARY REPORT"
SET ZTRTN="DQ^A1B2OSR"
DO ^%ZTLOAD
WRITE !,"Request ",$SELECT('$DATA(ZTSK):"not",1:"")," Queued"
if $DATA(ZTSK)
GOTO END
KILL ZTSK
+3 ;
+4 USE IO
+5 ;
DQ DO ^A1B2OSR1
DO ^A1B2OSR2
END if '$DATA(ZTQUEUED)
XECUTE ^%ZIS("C")
KILL A1B2BDT,A1B2EDT,%DT
+1 KILL ^UTILITY($JOB)
+2 KILL A1B2BDT,A1B2EDT,A1B2NSR,A1B2QUIT,CNTF,A,D,P,T,I,J,FAC,BOS,SPC,SUBS,X,X1,Y,Y1,M,N,TAB,A1B2X,A1B2Y,A1B2DATE,PAGE
+3 QUIT
