APCLSILR ;IHS/CMI/LAB - AGGREGATE ILI REPORT;
;;3.0;IHS PCC REPORTS;**24,26,27,28,29,30**;FEB 05, 1997;Build 27
;
START ;
W:$D(IOF) @IOF
W !,"********** AGGREGATE ILI Surveillance Report **********",!
D EN^XBVK("APCL")
BD ;get beginning date
W ! S DIR(0)="D^:DT:EP",DIR("A")="Enter beginning date for search" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
I $D(DIRUT) D EOJ Q
S APCLBD=Y
ED ;get ending date
W ! S DIR(0)="DA^"_APCLBD_":DT:EP",DIR("A")="Enter ending date for search: " D ^DIR K DIR S:$D(DUOUT) DIRUT=1
I $D(DIRUT) G BD
S APCLED=Y
FAC ;
K APCLQUIT
S APCLLOCT=""
K DIR S DIR(0)="S^O:ONE Facility;A:All Facilities;S:Selected set of Facilities or Taxonomy of Faclities"
S DIR("A")="Enter a code indicating what FACILITIES/LOCATIONS are of interest",DIR("B")="O" K DA D ^DIR K DIR,DA
G:$D(DIRUT) BD
S APCLLOCT=Y
K APCLLOCS
D @APCLLOCT
G:$D(APCLQUIT) FAC
;
ZIS ;
DEMO ;
D DEMOCHK^APCLUTL(.APCLDEMO)
I APCLDEMO=-1 G FAC
S XBRP="PRINT^APCLSILR",XBRC="PROC^APCLSILR",XBRX="EOJ^APCLSILR",XBNS="APCL"
D ^XBDBQUE
;
EOJ ;ENTRY POINT
D EN^XBVK("APCL")
Q
O ;
W ! S DIC("A")="Which Facility: ",DIC="^AUTTLOC(",DIC(0)="AEMQ" D ^DIC K DIC,DA I Y<0 S APCLQUIT=1 Q
S APCLLOCS(+Y)=""
Q
A ;
K APCLLOCS
Q
S ;taxonomy - call qman interface
K APCLLOCS
S X="ENCOUNTER LOCATION",DIC="^AMQQ(5,",DIC(0)="FM",DIC("S")="I $P(^(0),U,14)" D ^DIC K DIC,DA I Y=-1 W "OOPS - QMAN NOT CURRENT - QUITTING" S APCLQUIT=1 Q
D PEP^AMQQGTX0(+Y,"APCLLOCS(")
I '$D(APCLLOCS) S APCLQUIT=1 Q
I $D(APCLLOCS("*")) K APCLLOC,APCLLOCS W !!,$C(7),$C(7),"ALL locations is NOT an option with this report",! G S
Q
PROC ;EP - called from xbdbque
S APCLJ=$J,APCLH=$H
D XTMP^APCLOSUT("APCLSILR","ILI SURV REPORT")
K APCLVTOT,APCLSRDH,APCLSRDP,APCLILIS,APCLILIP,APCLMEDS,APCLMEDP,APCLAGEG,APCLIMMG,APCLSEXL,APCLIMML,APCLTAB5,APCLTAB8,APCLPTOT,APCLALLF,APCLTAB7
K ^XTMP("APCLSILR",APCLJ,APCLH)
V ; Run by visit date
S APCLSD=$$FMADD^XLFDT(APCLBD,-1)
K APCLVTOT
S APCLVTOT=0,APCLPTOT=0
S APCLODAT=APCLSD_".9999" F S APCLODAT=$O(^AUPNVSIT("B",APCLODAT)) Q:APCLODAT=""!((APCLODAT\1)>APCLED) D V1
;
END ;
Q
V1 ;
;
S APCLVDFN="" F S APCLVDFN=$O(^AUPNVSIT("B",APCLODAT,APCLVDFN)) Q:APCLVDFN'=+APCLVDFN I $D(^AUPNVSIT(APCLVDFN,0)),$P(^(0),U,9),'$P(^(0),U,11) S APCLVREC=^(0) D PROC1
Q
PROC1 ;
Q:'$D(^AUPNVSIT(APCLVDFN,0))
Q:$$DEMO^APCLUTL($P(APCLVREC,U,5),$G(APCLDEMO))
S DFN=$P(APCLVREC,U,5)
Q:'$D(^AUPNPAT(DFN,0))
Q:'$D(^DPT(DFN,0))
Q:$P(^DPT(DFN,0),U)["DEMO,PATIENT"
S APCLVLOC=$P(APCLVREC,U,6) Q:APCLVLOC=""
I $D(APCLLOCS) Q:'$D(APCLLOCS(APCLVLOC)) ;not a location they want
S APCLLOCN=$P(^DIC(4,APCLVLOC,0),U)
I "AORSIH"[$P(APCLVREC,U,7) D
.Q:$D(^XTMP("APCLSILR",APCLJ,APCLH,"TOTPAT",DFN))
.S APCLPTOT=APCLPTOT+1
.S ^XTMP("APCLSILR",APCLJ,APCLH,"TOTPAT",DFN)=""
I "AORSIH"[$P(APCLVREC,U,7) D
.Q:$D(^XTMP("APCLSILR",APCLJ,APCLH,"TOTPATLOC",DFN,APCLVLOC))
.S APCLPTOT(APCLVLOC)=$G(APCLPTOT(APCLVLOC))+1
.S ^XTMP("APCLSILR",APCLJ,APCLH,"TOTPATLOC",DFN,APCLVLOC)=""
S APCLCLIN=$P(APCLVREC,U,8)
S APCLILIV=$$ILIV(APCLVDFN) ;if this is an ILI visit: 1^A,C,H^term to use in facilty visit count^HAD ILI OR H1N1 DX
I APCLILIV D
.;set total # of visits and # by loc
.S $P(APCLVTOT,U,1)=$P(APCLVTOT,U,1)+1
.S $P(APCLVTOT(APCLLOCN),U,1)=$P($G(APCLVTOT(APCLLOCN)),U,1)+1
.S $P(APCLVTOT(APCLLOCN,$P(APCLILIV,U,2),$P(APCLILIV,U,3)),U,1)=$P($G(APCLVTOT(APCLLOCN,$P(APCLILIV,U,2),$P(APCLILIV,U,3))),U,1)+1
.S $P(APCLALLF($P(APCLILIV,U,2),$P(APCLILIV,U,3)),U,1)=$P($G(APCLALLF($P(APCLILIV,U,2),$P(APCLILIV,U,3))),U,1)+1
.Q:'$P(APCLILIV,U,4)
.S $P(APCLVTOT,U,2)=$P(APCLVTOT,U,2)+1
.S $P(APCLVTOT(APCLLOCN),U,2)=$P($G(APCLVTOT(APCLLOCN)),U,2)+1
.S $P(APCLVTOT(APCLLOCN,$P(APCLILIV,U,2),$P(APCLILIV,U,3)),U,2)=$P($G(APCLVTOT(APCLLOCN,$P(APCLILIV,U,2),$P(APCLILIV,U,3))),U,2)+1
.S $P(APCLALLF($P(APCLILIV,U,2),$P(APCLILIV,U,3)),U,2)=$P($G(APCLALLF($P(APCLILIV,U,2),$P(APCLILIV,U,3))),U,2)+1
.D ILIAGE
.;W !,APCLVDFN," ",$P(APCLVREC,U,5)
.S S=$$VAL^XBDIQ1(2,$P(APCLVREC,U,5),.02)
.S $P(APCLILIS(S),U,1)=$P($G(APCLILIS(S)),U,1)+1
.S $P(APCLSEXL(APCLLOCN,S),U,1)=$P($G(APCLSEXL(APCLLOCN,S)),U,1)+1
.;Q:$D(APCLILIP($P(APCLVREC,U,5)))
.I '$D(^XTMP("APCLSILR",APCLJ,APCLH,"APCLILIP",$P(APCLVREC,U,5))) D
..S $P(APCLILIS(S),U,2)=$P($G(APCLILIS(S)),U,2)+1
..;S APCLILIP($P(APCLVREC,U,5))=""
..S ^XTMP("APCLSILR",APCLJ,APCLH,"APCLILIP",$P(APCLVREC,U,5))=""
.I '$D(^XTMP("APCLSILR",APCLJ,APCLH,"APCLSEXL",APCLLOCN,$P(APCLVREC,U,5))) D
..S $P(APCLSEXL(APCLLOCN,S),U,2)=$P($G(APCLSEXL(APCLLOCN,S)),U,2)+1
..S ^XTMP("APCLSILR",APCLJ,APCLH,"APCLSEXL",APCLLOCN,$P(APCLVREC,U,5))=""
;I $P(^AUPNVSIT(APCLVDFN,0),U,7)="H" D RESDIS
D MEDS^APCLSILA
D VACAGE^APCLSILA
Q
;
ILIAGE ;
NEW H,I,S1,S2,X,T,APCLA,A
S (H,I,S1,S2)=""
Q:'APCLILIV
I $P(^AUPNVSIT(APCLVDFN,0),U,7)="H" S S2="H"
I $P(^AUPNVSIT(APCLVDFN,0),U,7)'="H" S S2="A"
S APCLAY=$$AGE^AUPNPAT($P(APCLVREC,U,5),$$VD^APCLV(APCLVDFN))
;S APCLAY=$$AGE^APCLSILU($P(APCLVREC,U,5),1,$$VD^APCLV(APCLVDFN))
;I APCLAY["<"!(APCLAY<5) D Q
;.S APCLAY=$$AGE^APCLSILU($P(APCLVREC,U,5),2,$$VD^APCLV(APCLVDFN))
;.I APCLAY<6 Q
;.S A=$$AGEGM(APCLAY)
;.I I S APCLAGEG("I",S2,A)=$G(APCLAGEG("I",S2,A))+1,APCLAGEG("I",S2,"TOTAL")=$G(APCLAGEG("I",S2,"TOTAL"))+1
;.I H S APCLAGEG("H",S2,A)=$G(APCLAGEG("H",S2,A))+1,APCLAGEG("H",S2,"TOTAL")=$G(APCLAGEG("H",S2,"TOTAL"))+1
;S A=$$AGEG(APCLAY)
S A=$$AGEGY(APCLAY)
S APCLAGEG("I",S2,A)=$G(APCLAGEG("I",S2,A))+1,APCLAGEG("I",S2,"TOTAL")=$G(APCLAGEG("I",S2,"TOTAL"))+1
;I H S APCLAGEG("H",S2,A)=$G(APCLAGEG("H",S2,A))+1,APCLAGEG("H",S2,"TOTAL")=$G(APCLAGEG("H",S2,"TOTAL"))+1
Q
AGEGM(APCLA) ;EP - age months
I APCLA<24 Q "6-23m"
I APCLA>23,APCLA<60 Q "24-59m"
Q ""
AGEGY(APCLA) ; - age years
I APCLA<5 Q "0-4y"
I APCLA>4,APCLA<25 Q "5-24y" ;FIX LORI
I APCLA>24,APCLA<50 Q "25-49y"
I APCLA>49,APCLA<65 Q "50-64y" ;FIX LORI
I APCLA>64 Q "65y+"
Q ""
AGEG(APCLA) ;EP 0 age years
I APCLA>4,APCLA<19 Q "60m-18y"
I APCLA>18,APCLA<25 Q "19-24y"
I APCLA>24,APCLA<50 Q "25-49y"
I APCLA>49,APCLA<65 Q "50-64y"
I APCLA>64 Q "65+y"
Q ""
;
RESDIS ;does this H visit have severe resp diagnosis, if yes set counter
NEW X,Y,D,I
S X=0 F S X=$O(^AUPNVPOV("AD",APCLVDFN,X)) Q:X'=+X D
.S D=$P($G(^AUPNVPOV(X,0)),U,1)
.I D="" Q
.I '$$ICD^APCLSILU(D,$O(^ATXAX("B","SURVEILLANCE SEV RESP DIS DXS",0)),9) Q
.S I=$$ICDDX^APCLSILU(D,$$VD^APCLV($P(^AUPNVPOV(X,0),U,3))),I=$P(I,U,4)
.S $P(APCLSRDH(APCLVLOC,I),U,1)=$P($G(APCLSRDH(APCLVLOC,I)),U,1)+1
.I $D(APCLSRDP(APCLVLOC,I,$P(^AUPNVPOV(X,0),U,2))) Q
.S $P(APCLSRDH(APCLVLOC,I),U,2)=$P($G(APCLSRDH(APCLVLOC,I)),U,2)+1
.S APCLSRDP(APCLVLOC,I,$P(^AUPNVPOV(X,0),U,2))=""
.Q
Q
ILIV(V) ;
NEW C,P,APCLCLIN,X,Z,G,Y,VAL,T,APCLCTAX
S APCLCTAX=$O(^ATXAX("B","SURVEILLANCE ILI CLINICS",0))
I '$G(V) Q ""
I '$D(^AUPNVSIT(V)) Q ""
I "AORSH"'[$P(^AUPNVSIT(V,0),U,7) Q ""
S APCLCLIN=$$CLINIC^APCLV(V,"I") ;get clinic code
;is there a PHN
S X=0,P=0 F S X=$O(^AUPNVPRV("AD",V,X)) Q:X'=+X!(P) D
.Q:'$D(^AUPNVPRV(X,0))
.S Y=$P(^AUPNVPRV(X,0),U)
.S Z=$$VALI^XBDIQ1(200,Y,53.5)
.Q:'Z
.I $P($G(^DIC(7,Z,9999999)),U,1)=13 S P=1
I P G ILIDX1
I $P(^AUPNVSIT(V,0),U,7)'="H" I APCLCLIN="" Q ""
I $P(^AUPNVSIT(V,0),U,7)'="H" I '$D(^ATXAX(APCLCTAX,21,"B",APCLCLIN)) Q "" ;not in clinic taxonomy
ILIDX1 ;
S C=0
K G,Y S G=""
S X=0 F S X=$O(^AUPNVPOV("AD",V,X)) Q:X'=+X D
.S T=$P(^AUPNVPOV(X,0),U)
.I $$ICD^APCLSILU(T,$O(^ATXAX("B","SURVEILLANCE ILI NO TMP NEEDED",0)),9) S C=C+1,Y(C)=$$VAL^XBDIQ1(9000010.07,X,.01)
.I $$ICD^APCLSILU(T,$O(^ATXAX("B","SURVEILLANCE ILI",0)),9),$$TMP100^APCLSILI(V) S C=C+1,Y(C)=$$VAL^XBDIQ1(9000010.07,X,.01)
S VAL=""
I $P(^AUPNVSIT(V,0),U,7)="H" S VAL="H^Hospitalizations"
I P S VAL="C^Provider Code: 13 PHN"
I VAL="" S VAL="A^"_$$VAL^XBDIQ1(9000010,V,.08)
Q 1_U_VAL_U_$S($D(Y):1,1:"")
;
PER(N,D) ;return % of n/d
I 'D Q "0%"
NEW Z
S Z=N/D,Z=Z*100,Z=$J(Z,3,0)
Q $$STRIP^XLFSTR(Z," ")_"%"
;----------
C(X,X2,X3) ;
D COMMA^%DTC
Q X
PAD(D,L) ; -- SUBRTN to pad length of data
; -- D=data L=length
S L=L-$L(D)
Q $E($$REPEAT^XLFSTR(" ",L),1,L)_D
;
PRINT ;
S APCLPG=0
D HEADER
;PATIENT COUNT
W "TOTAL PATIENTS"
W !,"These counts represent the total number of patients seen for any ambulatory "
W !,"visit or hospital stay during the report period. A count by facility is "
W !,"also provided."
W !!,"Total Number of Patients seen at any facility: ",?65,$$C(APCLPTOT,0,7),!
S APCLL=0 F S APCLL=$O(APCLPTOT(APCLL)) Q:APCLL'=+APCLL!($D(APCLQUIT)) D
.I $Y>(IOSL-3) D HEADER Q:$D(APCLQUIT)
.W !,"Total Number of Patients seen at ",$P(^DIC(4,APCLL,0),U),": ",?65,$$C(APCLPTOT(APCLL),0,7)
.Q
Q:$D(APCLQUIT)
I $Y>(IOSL-22) D HEADER Q:$D(APCLQUIT)
W !!,"TOTAL FACILITY VISITS"
W !,"These counts represent the total number of visits defined as 'surveillance' "
W !,"visits. The definition of these visits is the following:"
W !," - a Hospitalization"
W !," - a visit to a PHN"
W !," - an Ambulatory visit (service categories A, O, R, S) to one of the following"
W !," clinics: 01 GENERAL, 06 DIABETIC, 10 GYN, 12 IMMUNIZATION,"
W !," 13 INTERNAL MEDICINE, 20 PEDIATRICS, 24 WELL CHILD CARE, "
W !," 28 FAMILY PRACTICE, 30 EMERGENCY ROOM, 57 EPSDT, "
W !," 70 WOMEN'S HEALTH, 80 URGENT CARE, 89 EVENING"
W !!,"Table 1: ILI / H1N1 Visits"
W !,"This table displays the total number of visits defined above and displays the"
W !,"total count of those visits on which there was an ILI diagnosis. An ILI"
W !,"diagnosis is defined as a visit with an diagnosis contained in the "
W !,"SURVEILLANCE ILI NO TMP NEEDED taxonomy."
W !," OR"
W !,"a temperature of >=100 AND one of the ICD diagnosis in the SURVEILLANCE ILI"
W !,"taxonomy."
I $Y>(IOSL-3) D HEADER Q:$D(APCLQUIT)
W !,"The data is broken down by location of encounter and clinic.",!
W "Note that some patients may have been seen in multiple clinics",!
W !?40,"Total # Visits",?56,"Total # Visits",?72,"% w/ILI"
W !?40,"w/ILI",?72,"Diagnosis"
W !,"FACILITY",?40,"Diagnosis" ;,?71,"Diagnosis"
I APCLLOCT="O" G LOCV
W !,"ALL FACILITITES COMBINED"
S APCLCLNT="" F S APCLCLNT=$O(APCLALLF(APCLCLNT)) Q:APCLCLNT=""!($D(APCLQUIT)) D
.I $Y>(IOSL-4) D HEADER Q:$D(APCLQUIT) D SUBHEAD1
.I APCLCLNT="A" W !?2,"Ambulatory Clinics",!
.I APCLCLNT'="A" W !
.S APCLCLN="" F S APCLCLN=$O(APCLALLF(APCLCLNT,APCLCLN)) Q:APCLCLN=""!($D(APCLQUIT)) D
..I $Y>(IOSL-4) D HEADER Q:$D(APCLQUIT) D SUBHEAD1
..W ?3,APCLCLN,?40,$$C($P(APCLALLF(APCLCLNT,APCLCLN),U,2),0,7)
..W ?56,$$C($P(APCLALLF(APCLCLNT,APCLCLN),U,1),0,7)
..W ?72,$$PER($P(APCLALLF(APCLCLNT,APCLCLN),U,2),$P(APCLALLF(APCLCLNT,APCLCLN),U,1)),!
.Q
Q:$D(APCLQUIT)
W $$REPEAT^XLFSTR("-",79),!
LOCV S APCLLOC="" F S APCLLOC=$O(APCLVTOT(APCLLOC)) Q:APCLLOC=""!($D(APCLQUIT)) D
.I $Y>(IOSL-3) D HEADER Q:$D(APCLQUIT) D SUBHEAD1
.W !,APCLLOC,?40,$$C($P(APCLVTOT(APCLLOC),U,2),0,7),?56,$$C($P(APCLVTOT(APCLLOC),U,1),0,7),?72,$$PER($P(APCLVTOT(APCLLOC),U,2),$P(APCLVTOT(APCLLOC),U,1)),!
.S APCLCLNT="" F S APCLCLNT=$O(APCLVTOT(APCLLOC,APCLCLNT)) Q:APCLCLNT=""!($D(APCLQUIT)) D
..I $Y>(IOSL-3) D HEADER Q:$D(APCLQUIT) D SUBHEAD1
..I APCLCLNT="A" W !?2,"Ambulatory Clinics",!
..I APCLCLNT'="A" W !
..S APCLCLN="" F S APCLCLN=$O(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN)) Q:APCLCLN=""!($D(APCLQUIT)) D
...I $Y>(IOSL-3) D HEADER Q:$D(APCLQUIT) D SUBHEAD1
...W ?3,APCLCLN,?40,$$C($P(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN),U,2),0,7)
...W ?56,$$C($P(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN),U,1),0,7)
...W ?72,$$PER($P(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN),U,2),$P(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN),U,1)),!
.W $$REPEAT^XLFSTR("-",79),!
.Q
Q:$D(APCLQUIT)
SRVD ;
ILISEX ;
D ILISEX^APCLSILT
Q:$D(APCLQUIT)
ILIAVM ;
D ILIAVM^APCLSILT
Q:$D(APCLQUIT)
D ILIAGEP^APCLSILT
Q:$D(APCLQUIT)
D VACAGEP^APCLSILT
Q
SUBHEAD2 ;
W "Table 2: Hospitalizations for Severe Respiratory Disease",!
W !?40,"# of Hospitalizations",?68,"# patients"
W !,?40,"w/Severe Respiratory",!?40,"Disease Diagnosis",!
Q
;
SUBHEAD1 ;
W !,"Table 1: ILI Visits"
W !?40,"Total # Visits",?56,"Total # Visits",?72,"% w/ILI"
W !?40,"w/ILI",?72," "
W !,"FACILITY",?40,"Diagnosis",?71,"Diagnosis"
W !
Q
I 'APCLPG G HEAD1
I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S APCLQUIT="" Q
HEAD1 ;
I APCLPG W:$D(IOF) @IOF
S APCLPG=APCLPG+1
W ?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,!
W !,$$CTR("*** Aggregate ILI Surveillance Report ***",80),!
S X="Visit Dates: "_$$FMTE^XLFDT(APCLBD)_" through "_$$FMTE^XLFDT(APCLED) W $$CTR(X,80),!
W $$REPEAT^XLFSTR("-",79),!!
Q
;
CTR(X,Y) ;EP - Center X in a field Y wide.
Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
;----------
EOP ;EP - End of page.
Q:$E(IOST)'="C"
Q:$D(ZTQUEUED)!'(IOT["TRM")!$D(IO("S"))
NEW DIR
K DIRUT,DFOUT,DLOUT,DTOUT,DUOUT
S DIR(0)="E" D ^DIR
Q
;----------
USR() ;EP - Return name of current user from ^VA(200.
Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
;----------
LOC() ;EP - Return location name from file 4 based on DUZ(2).
Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
;----------
APCLSILR ;IHS/CMI/LAB - AGGREGATE ILI REPORT;
+1 ;;3.0;IHS PCC REPORTS;**24,26,27,28,29,30**;FEB 05, 1997;Build 27
+2 ;
START ;
+1 IF $DATA(IOF)
WRITE @IOF
+2 WRITE !,"********** AGGREGATE ILI Surveillance Report **********",!
+3 DO EN^XBVK("APCL")
BD ;get beginning date
+1 WRITE !
SET DIR(0)="D^:DT:EP"
SET DIR("A")="Enter beginning date for search"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+2 IF $DATA(DIRUT)
DO EOJ
QUIT
+3 SET APCLBD=Y
ED ;get ending date
+1 WRITE !
SET DIR(0)="DA^"_APCLBD_":DT:EP"
SET DIR("A")="Enter ending date for search: "
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+2 IF $DATA(DIRUT)
GOTO BD
+3 SET APCLED=Y
FAC ;
+1 KILL APCLQUIT
+2 SET APCLLOCT=""
+3 KILL DIR
SET DIR(0)="S^O:ONE Facility;A:All Facilities;S:Selected set of Facilities or Taxonomy of Faclities"
+4 SET DIR("A")="Enter a code indicating what FACILITIES/LOCATIONS are of interest"
SET DIR("B")="O"
KILL DA
DO ^DIR
KILL DIR,DA
+5 IF $DATA(DIRUT)
GOTO BD
+6 SET APCLLOCT=Y
+7 KILL APCLLOCS
+8 DO @APCLLOCT
+9 IF $DATA(APCLQUIT)
GOTO FAC
+10 ;
ZIS ;
DEMO ;
+1 DO DEMOCHK^APCLUTL(.APCLDEMO)
+2 IF APCLDEMO=-1
GOTO FAC
+3 SET XBRP="PRINT^APCLSILR"
SET XBRC="PROC^APCLSILR"
SET XBRX="EOJ^APCLSILR"
SET XBNS="APCL"
+4 DO ^XBDBQUE
+5 ;
EOJ ;ENTRY POINT
+1 DO EN^XBVK("APCL")
+2 QUIT
O ;
+1 WRITE !
SET DIC("A")="Which Facility: "
SET DIC="^AUTTLOC("
SET DIC(0)="AEMQ"
DO ^DIC
KILL DIC,DA
IF Y<0
SET APCLQUIT=1
QUIT
+2 SET APCLLOCS(+Y)=""
+3 QUIT
A ;
+1 KILL APCLLOCS
+2 QUIT
S ;taxonomy - call qman interface
+1 KILL APCLLOCS
+2 SET X="ENCOUNTER LOCATION"
SET DIC="^AMQQ(5,"
SET DIC(0)="FM"
SET DIC("S")="I $P(^(0),U,14)"
DO ^DIC
KILL DIC,DA
IF Y=-1
WRITE "OOPS - QMAN NOT CURRENT - QUITTING"
SET APCLQUIT=1
QUIT
+3 DO PEP^AMQQGTX0(+Y,"APCLLOCS(")
+4 IF '$DATA(APCLLOCS)
SET APCLQUIT=1
QUIT
+5 IF $DATA(APCLLOCS("*"))
KILL APCLLOC,APCLLOCS
WRITE !!,$CHAR(7),$CHAR(7),"ALL locations is NOT an option with this report",!
GOTO S
+6 QUIT
PROC ;EP - called from xbdbque
+1 SET APCLJ=$JOB
SET APCLH=$HOROLOG
+2 DO XTMP^APCLOSUT("APCLSILR","ILI SURV REPORT")
+3 KILL APCLVTOT,APCLSRDH,APCLSRDP,APCLILIS,APCLILIP,APCLMEDS,APCLMEDP,APCLAGEG,APCLIMMG,APCLSEXL,APCLIMML,APCLTAB5,APCLTAB8,APCLPTOT,APCLALLF,APCLTAB7
+4 KILL ^XTMP("APCLSILR",APCLJ,APCLH)
V ; Run by visit date
+1 SET APCLSD=$$FMADD^XLFDT(APCLBD,-1)
+2 KILL APCLVTOT
+3 SET APCLVTOT=0
SET APCLPTOT=0
+4 SET APCLODAT=APCLSD_".9999"
FOR
SET APCLODAT=$ORDER(^AUPNVSIT("B",APCLODAT))
IF APCLODAT=""!((APCLODAT\1)>APCLED)
QUIT
DO V1
+5 ;
END ;
+1 QUIT
V1 ;
+1 ;
+2 SET APCLVDFN=""
FOR
SET APCLVDFN=$ORDER(^AUPNVSIT("B",APCLODAT,APCLVDFN))
IF APCLVDFN'=+APCLVDFN
QUIT
IF $DATA(^AUPNVSIT(APCLVDFN,0))
IF $PIECE(^(0),U,9)
IF '$PIECE(^(0),U,11)
SET APCLVREC=^(0)
DO PROC1
+3 QUIT
PROC1 ;
+1 IF '$DATA(^AUPNVSIT(APCLVDFN,0))
QUIT
+2 IF $$DEMO^APCLUTL($PIECE(APCLVREC,U,5),$GET(APCLDEMO))
QUIT
+3 SET DFN=$PIECE(APCLVREC,U,5)
+4 IF '$DATA(^AUPNPAT(DFN,0))
QUIT
+5 IF '$DATA(^DPT(DFN,0))
QUIT
+6 IF $PIECE(^DPT(DFN,0),U)["DEMO,PATIENT"
QUIT
+7 SET APCLVLOC=$PIECE(APCLVREC,U,6)
IF APCLVLOC=""
QUIT
+8 ;not a location they want
IF $DATA(APCLLOCS)
IF '$DATA(APCLLOCS(APCLVLOC))
QUIT
+9 SET APCLLOCN=$PIECE(^DIC(4,APCLVLOC,0),U)
+10 IF "AORSIH"[$PIECE(APCLVREC,U,7)
Begin DoDot:1
+11 IF $DATA(^XTMP("APCLSILR",APCLJ,APCLH,"TOTPAT",DFN))
QUIT
+12 SET APCLPTOT=APCLPTOT+1
+13 SET ^XTMP("APCLSILR",APCLJ,APCLH,"TOTPAT",DFN)=""
End DoDot:1
+14 IF "AORSIH"[$PIECE(APCLVREC,U,7)
Begin DoDot:1
+15 IF $DATA(^XTMP("APCLSILR",APCLJ,APCLH,"TOTPATLOC",DFN,APCLVLOC))
QUIT
+16 SET APCLPTOT(APCLVLOC)=$GET(APCLPTOT(APCLVLOC))+1
+17 SET ^XTMP("APCLSILR",APCLJ,APCLH,"TOTPATLOC",DFN,APCLVLOC)=""
End DoDot:1
+18 SET APCLCLIN=$PIECE(APCLVREC,U,8)
+19 ;if this is an ILI visit: 1^A,C,H^term to use in facilty visit count^HAD ILI OR H1N1 DX
SET APCLILIV=$$ILIV(APCLVDFN)
+20 IF APCLILIV
Begin DoDot:1
+21 ;set total # of visits and # by loc
+22 SET $PIECE(APCLVTOT,U,1)=$PIECE(APCLVTOT,U,1)+1
+23 SET $PIECE(APCLVTOT(APCLLOCN),U,1)=$PIECE($GET(APCLVTOT(APCLLOCN)),U,1)+1
+24 SET $PIECE(APCLVTOT(APCLLOCN,$PIECE(APCLILIV,U,2),$PIECE(APCLILIV,U,3)),U,1)=$PIECE($GET(APCLVTOT(APCLLOCN,$PIECE(APCLILIV,U,2),$PIECE(APCLILIV,U,3))),U,1)+1
+25 SET $PIECE(APCLALLF($PIECE(APCLILIV,U,2),$PIECE(APCLILIV,U,3)),U,1)=$PIECE($GET(APCLALLF($PIECE(APCLILIV,U,2),$PIECE(APCLILIV,U,3))),U,1)+1
+26 IF '$PIECE(APCLILIV,U,4)
QUIT
+27 SET $PIECE(APCLVTOT,U,2)=$PIECE(APCLVTOT,U,2)+1
+28 SET $PIECE(APCLVTOT(APCLLOCN),U,2)=$PIECE($GET(APCLVTOT(APCLLOCN)),U,2)+1
+29 SET $PIECE(APCLVTOT(APCLLOCN,$PIECE(APCLILIV,U,2),$PIECE(APCLILIV,U,3)),U,2)=$PIECE($GET(APCLVTOT(APCLLOCN,$PIECE(APCLILIV,U,2),$PIECE(APCLILIV,U,3))),U,2)+1
+30 SET $PIECE(APCLALLF($PIECE(APCLILIV,U,2),$PIECE(APCLILIV,U,3)),U,2)=$PIECE($GET(APCLALLF($PIECE(APCLILIV,U,2),$PIECE(APCLILIV,U,3))),U,2)+1
+31 DO ILIAGE
+32 ;W !,APCLVDFN," ",$P(APCLVREC,U,5)
+33 SET S=$$VAL^XBDIQ1(2,$PIECE(APCLVREC,U,5),.02)
+34 SET $PIECE(APCLILIS(S),U,1)=$PIECE($GET(APCLILIS(S)),U,1)+1
+35 SET $PIECE(APCLSEXL(APCLLOCN,S),U,1)=$PIECE($GET(APCLSEXL(APCLLOCN,S)),U,1)+1
+36 ;Q:$D(APCLILIP($P(APCLVREC,U,5)))
+37 IF '$DATA(^XTMP("APCLSILR",APCLJ,APCLH,"APCLILIP",$PIECE(APCLVREC,U,5)))
Begin DoDot:2
+38 SET $PIECE(APCLILIS(S),U,2)=$PIECE($GET(APCLILIS(S)),U,2)+1
+39 ;S APCLILIP($P(APCLVREC,U,5))=""
+40 SET ^XTMP("APCLSILR",APCLJ,APCLH,"APCLILIP",$PIECE(APCLVREC,U,5))=""
End DoDot:2
+41 IF '$DATA(^XTMP("APCLSILR",APCLJ,APCLH,"APCLSEXL",APCLLOCN,$PIECE(APCLVREC,U,5)))
Begin DoDot:2
+42 SET $PIECE(APCLSEXL(APCLLOCN,S),U,2)=$PIECE($GET(APCLSEXL(APCLLOCN,S)),U,2)+1
+43 SET ^XTMP("APCLSILR",APCLJ,APCLH,"APCLSEXL",APCLLOCN,$PIECE(APCLVREC,U,5))=""
End DoDot:2
End DoDot:1
+44 ;I $P(^AUPNVSIT(APCLVDFN,0),U,7)="H" D RESDIS
+45 DO MEDS^APCLSILA
+46 DO VACAGE^APCLSILA
+47 QUIT
+48 ;
ILIAGE ;
+1 NEW H,I,S1,S2,X,T,APCLA,A
+2 SET (H,I,S1,S2)=""
+3 IF 'APCLILIV
QUIT
+4 IF $PIECE(^AUPNVSIT(APCLVDFN,0),U,7)="H"
SET S2="H"
+5 IF $PIECE(^AUPNVSIT(APCLVDFN,0),U,7)'="H"
SET S2="A"
+6 SET APCLAY=$$AGE^AUPNPAT($PIECE(APCLVREC,U,5),$$VD^APCLV(APCLVDFN))
+7 ;S APCLAY=$$AGE^APCLSILU($P(APCLVREC,U,5),1,$$VD^APCLV(APCLVDFN))
+8 ;I APCLAY["<"!(APCLAY<5) D Q
+9 ;.S APCLAY=$$AGE^APCLSILU($P(APCLVREC,U,5),2,$$VD^APCLV(APCLVDFN))
+10 ;.I APCLAY<6 Q
+11 ;.S A=$$AGEGM(APCLAY)
+12 ;.I I S APCLAGEG("I",S2,A)=$G(APCLAGEG("I",S2,A))+1,APCLAGEG("I",S2,"TOTAL")=$G(APCLAGEG("I",S2,"TOTAL"))+1
+13 ;.I H S APCLAGEG("H",S2,A)=$G(APCLAGEG("H",S2,A))+1,APCLAGEG("H",S2,"TOTAL")=$G(APCLAGEG("H",S2,"TOTAL"))+1
+14 ;S A=$$AGEG(APCLAY)
+15 SET A=$$AGEGY(APCLAY)
+16 SET APCLAGEG("I",S2,A)=$GET(APCLAGEG("I",S2,A))+1
SET APCLAGEG("I",S2,"TOTAL")=$GET(APCLAGEG("I",S2,"TOTAL"))+1
+17 ;I H S APCLAGEG("H",S2,A)=$G(APCLAGEG("H",S2,A))+1,APCLAGEG("H",S2,"TOTAL")=$G(APCLAGEG("H",S2,"TOTAL"))+1
+18 QUIT
AGEGM(APCLA) ;EP - age months
+1 IF APCLA<24
QUIT "6-23m"
+2 IF APCLA>23
IF APCLA<60
QUIT "24-59m"
+3 QUIT ""
AGEGY(APCLA) ; - age years
+1 IF APCLA<5
QUIT "0-4y"
+2 ;FIX LORI
IF APCLA>4
IF APCLA<25
QUIT "5-24y"
+3 IF APCLA>24
IF APCLA<50
QUIT "25-49y"
+4 ;FIX LORI
IF APCLA>49
IF APCLA<65
QUIT "50-64y"
+5 IF APCLA>64
QUIT "65y+"
+6 QUIT ""
AGEG(APCLA) ;EP 0 age years
+1 IF APCLA>4
IF APCLA<19
QUIT "60m-18y"
+2 IF APCLA>18
IF APCLA<25
QUIT "19-24y"
+3 IF APCLA>24
IF APCLA<50
QUIT "25-49y"
+4 IF APCLA>49
IF APCLA<65
QUIT "50-64y"
+5 IF APCLA>64
QUIT "65+y"
+6 QUIT ""
+7 ;
RESDIS ;does this H visit have severe resp diagnosis, if yes set counter
+1 NEW X,Y,D,I
+2 SET X=0
FOR
SET X=$ORDER(^AUPNVPOV("AD",APCLVDFN,X))
IF X'=+X
QUIT
Begin DoDot:1
+3 SET D=$PIECE($GET(^AUPNVPOV(X,0)),U,1)
+4 IF D=""
QUIT
+5 IF '$$ICD^APCLSILU(D,$ORDER(^ATXAX("B","SURVEILLANCE SEV RESP DIS DXS",0)),9)
QUIT
+6 SET I=$$ICDDX^APCLSILU(D,$$VD^APCLV($PIECE(^AUPNVPOV(X,0),U,3)))
SET I=$PIECE(I,U,4)
+7 SET $PIECE(APCLSRDH(APCLVLOC,I),U,1)=$PIECE($GET(APCLSRDH(APCLVLOC,I)),U,1)+1
+8 IF $DATA(APCLSRDP(APCLVLOC,I,$PIECE(^AUPNVPOV(X,0),U,2)))
QUIT
+9 SET $PIECE(APCLSRDH(APCLVLOC,I),U,2)=$PIECE($GET(APCLSRDH(APCLVLOC,I)),U,2)+1
+10 SET APCLSRDP(APCLVLOC,I,$PIECE(^AUPNVPOV(X,0),U,2))=""
+11 QUIT
End DoDot:1
+12 QUIT
ILIV(V) ;
+1 NEW C,P,APCLCLIN,X,Z,G,Y,VAL,T,APCLCTAX
+2 SET APCLCTAX=$ORDER(^ATXAX("B","SURVEILLANCE ILI CLINICS",0))
+3 IF '$GET(V)
QUIT ""
+4 IF '$DATA(^AUPNVSIT(V))
QUIT ""
+5 IF "AORSH"'[$PIECE(^AUPNVSIT(V,0),U,7)
QUIT ""
+6 ;get clinic code
SET APCLCLIN=$$CLINIC^APCLV(V,"I")
+7 ;is there a PHN
+8 SET X=0
SET P=0
FOR
SET X=$ORDER(^AUPNVPRV("AD",V,X))
IF X'=+X!(P)
QUIT
Begin DoDot:1
+9 IF '$DATA(^AUPNVPRV(X,0))
QUIT
+10 SET Y=$PIECE(^AUPNVPRV(X,0),U)
+11 SET Z=$$VALI^XBDIQ1(200,Y,53.5)
+12 IF 'Z
QUIT
+13 IF $PIECE($GET(^DIC(7,Z,9999999)),U,1)=13
SET P=1
End DoDot:1
+14 IF P
GOTO ILIDX1
+15 IF $PIECE(^AUPNVSIT(V,0),U,7)'="H"
IF APCLCLIN=""
QUIT ""
+16 ;not in clinic taxonomy
IF $PIECE(^AUPNVSIT(V,0),U,7)'="H"
IF '$DATA(^ATXAX(APCLCTAX,21,"B",APCLCLIN))
QUIT ""
ILIDX1 ;
+1 SET C=0
+2 KILL G,Y
SET G=""
+3 SET X=0
FOR
SET X=$ORDER(^AUPNVPOV("AD",V,X))
IF X'=+X
QUIT
Begin DoDot:1
+4 SET T=$PIECE(^AUPNVPOV(X,0),U)
+5 IF $$ICD^APCLSILU(T,$ORDER(^ATXAX("B","SURVEILLANCE ILI NO TMP NEEDED",0)),9)
SET C=C+1
SET Y(C)=$$VAL^XBDIQ1(9000010.07,X,.01)
+6 IF $$ICD^APCLSILU(T,$ORDER(^ATXAX("B","SURVEILLANCE ILI",0)),9)
IF $$TMP100^APCLSILI(V)
SET C=C+1
SET Y(C)=$$VAL^XBDIQ1(9000010.07,X,.01)
End DoDot:1
+7 SET VAL=""
+8 IF $PIECE(^AUPNVSIT(V,0),U,7)="H"
SET VAL="H^Hospitalizations"
+9 IF P
SET VAL="C^Provider Code: 13 PHN"
+10 IF VAL=""
SET VAL="A^"_$$VAL^XBDIQ1(9000010,V,.08)
+11 QUIT 1_U_VAL_U_$SELECT($DATA(Y):1,1:"")
+12 ;
PER(N,D) ;return % of n/d
+1 IF 'D
QUIT "0%"
+2 NEW Z
+3 SET Z=N/D
SET Z=Z*100
SET Z=$JUSTIFY(Z,3,0)
+4 QUIT $$STRIP^XLFSTR(Z," ")_"%"
+5 ;----------
C(X,X2,X3) ;
+1 DO COMMA^%DTC
+2 QUIT X
PAD(D,L) ; -- SUBRTN to pad length of data
+1 ; -- D=data L=length
+2 SET L=L-$LENGTH(D)
+3 QUIT $EXTRACT($$REPEAT^XLFSTR(" ",L),1,L)_D
+4 ;
PRINT ;
+1 SET APCLPG=0
+2 DO HEADER
+3 ;PATIENT COUNT
+4 WRITE "TOTAL PATIENTS"
+5 WRITE !,"These counts represent the total number of patients seen for any ambulatory "
+6 WRITE !,"visit or hospital stay during the report period. A count by facility is "
+7 WRITE !,"also provided."
+8 WRITE !!,"Total Number of Patients seen at any facility: ",?65,$$C(APCLPTOT,0,7),!
+9 SET APCLL=0
FOR
SET APCLL=$ORDER(APCLPTOT(APCLL))
IF APCLL'=+APCLL!($DATA(APCLQUIT))
QUIT
Begin DoDot:1
+10 IF $Y>(IOSL-3)
DO HEADER
IF $DATA(APCLQUIT)
QUIT
+11 WRITE !,"Total Number of Patients seen at ",$PIECE(^DIC(4,APCLL,0),U),": ",?65,$$C(APCLPTOT(APCLL),0,7)
+12 QUIT
End DoDot:1
+13 IF $DATA(APCLQUIT)
QUIT
+14 IF $Y>(IOSL-22)
DO HEADER
IF $DATA(APCLQUIT)
QUIT
+15 WRITE !!,"TOTAL FACILITY VISITS"
+16 WRITE !,"These counts represent the total number of visits defined as 'surveillance' "
+17 WRITE !,"visits. The definition of these visits is the following:"
+18 WRITE !," - a Hospitalization"
+19 WRITE !," - a visit to a PHN"
+20 WRITE !," - an Ambulatory visit (service categories A, O, R, S) to one of the following"
+21 WRITE !," clinics: 01 GENERAL, 06 DIABETIC, 10 GYN, 12 IMMUNIZATION,"
+22 WRITE !," 13 INTERNAL MEDICINE, 20 PEDIATRICS, 24 WELL CHILD CARE, "
+23 WRITE !," 28 FAMILY PRACTICE, 30 EMERGENCY ROOM, 57 EPSDT, "
+24 WRITE !," 70 WOMEN'S HEALTH, 80 URGENT CARE, 89 EVENING"
+25 WRITE !!,"Table 1: ILI / H1N1 Visits"
+26 WRITE !,"This table displays the total number of visits defined above and displays the"
+27 WRITE !,"total count of those visits on which there was an ILI diagnosis. An ILI"
+28 WRITE !,"diagnosis is defined as a visit with an diagnosis contained in the "
+29 WRITE !,"SURVEILLANCE ILI NO TMP NEEDED taxonomy."
+30 WRITE !," OR"
+31 WRITE !,"a temperature of >=100 AND one of the ICD diagnosis in the SURVEILLANCE ILI"
+32 WRITE !,"taxonomy."
+33 IF $Y>(IOSL-3)
DO HEADER
IF $DATA(APCLQUIT)
QUIT
+34 WRITE !,"The data is broken down by location of encounter and clinic.",!
+35 WRITE "Note that some patients may have been seen in multiple clinics",!
+36 WRITE !?40,"Total # Visits",?56,"Total # Visits",?72,"% w/ILI"
+37 WRITE !?40,"w/ILI",?72,"Diagnosis"
+38 ;,?71,"Diagnosis"
WRITE !,"FACILITY",?40,"Diagnosis"
+39 IF APCLLOCT="O"
GOTO LOCV
+40 WRITE !,"ALL FACILITITES COMBINED"
+41 SET APCLCLNT=""
FOR
SET APCLCLNT=$ORDER(APCLALLF(APCLCLNT))
IF APCLCLNT=""!($DATA(APCLQUIT))
QUIT
Begin DoDot:1
+42 IF $Y>(IOSL-4)
DO HEADER
IF $DATA(APCLQUIT)
QUIT
DO SUBHEAD1
+43 IF APCLCLNT="A"
WRITE !?2,"Ambulatory Clinics",!
+44 IF APCLCLNT'="A"
WRITE !
+45 SET APCLCLN=""
FOR
SET APCLCLN=$ORDER(APCLALLF(APCLCLNT,APCLCLN))
IF APCLCLN=""!($DATA(APCLQUIT))
QUIT
Begin DoDot:2
+46 IF $Y>(IOSL-4)
DO HEADER
IF $DATA(APCLQUIT)
QUIT
DO SUBHEAD1
+47 WRITE ?3,APCLCLN,?40,$$C($PIECE(APCLALLF(APCLCLNT,APCLCLN),U,2),0,7)
+48 WRITE ?56,$$C($PIECE(APCLALLF(APCLCLNT,APCLCLN),U,1),0,7)
+49 WRITE ?72,$$PER($PIECE(APCLALLF(APCLCLNT,APCLCLN),U,2),$PIECE(APCLALLF(APCLCLNT,APCLCLN),U,1)),!
End DoDot:2
+50 QUIT
End DoDot:1
+51 IF $DATA(APCLQUIT)
QUIT
+52 WRITE $$REPEAT^XLFSTR("-",79),!
LOCV SET APCLLOC=""
FOR
SET APCLLOC=$ORDER(APCLVTOT(APCLLOC))
IF APCLLOC=""!($DATA(APCLQUIT))
QUIT
Begin DoDot:1
+1 IF $Y>(IOSL-3)
DO HEADER
IF $DATA(APCLQUIT)
QUIT
DO SUBHEAD1
+2 WRITE !,APCLLOC,?40,$$C($PIECE(APCLVTOT(APCLLOC),U,2),0,7),?56,$$C($PIECE(APCLVTOT(APCLLOC),U,1),0,7),?72,$$PER($PIECE(APCLVTOT(APCLLOC),U,2),$PIECE(APCLVTOT(APCLLOC),U,1)),!
+3 SET APCLCLNT=""
FOR
SET APCLCLNT=$ORDER(APCLVTOT(APCLLOC,APCLCLNT))
IF APCLCLNT=""!($DATA(APCLQUIT))
QUIT
Begin DoDot:2
+4 IF $Y>(IOSL-3)
DO HEADER
IF $DATA(APCLQUIT)
QUIT
DO SUBHEAD1
+5 IF APCLCLNT="A"
WRITE !?2,"Ambulatory Clinics",!
+6 IF APCLCLNT'="A"
WRITE !
+7 SET APCLCLN=""
FOR
SET APCLCLN=$ORDER(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN))
IF APCLCLN=""!($DATA(APCLQUIT))
QUIT
Begin DoDot:3
+8 IF $Y>(IOSL-3)
DO HEADER
IF $DATA(APCLQUIT)
QUIT
DO SUBHEAD1
+9 WRITE ?3,APCLCLN,?40,$$C($PIECE(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN),U,2),0,7)
+10 WRITE ?56,$$C($PIECE(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN),U,1),0,7)
+11 WRITE ?72,$$PER($PIECE(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN),U,2),$PIECE(APCLVTOT(APCLLOC,APCLCLNT,APCLCLN),U,1)),!
End DoDot:3
End DoDot:2
+12 WRITE $$REPEAT^XLFSTR("-",79),!
+13 QUIT
End DoDot:1
+14 IF $DATA(APCLQUIT)
QUIT
SRVD ;
ILISEX ;
+1 DO ILISEX^APCLSILT
+2 IF $DATA(APCLQUIT)
QUIT
ILIAVM ;
+1 DO ILIAVM^APCLSILT
+2 IF $DATA(APCLQUIT)
QUIT
+3 DO ILIAGEP^APCLSILT
+4 IF $DATA(APCLQUIT)
QUIT
+5 DO VACAGEP^APCLSILT
+6 QUIT
SUBHEAD2 ;
+1 WRITE "Table 2: Hospitalizations for Severe Respiratory Disease",!
+2 WRITE !?40,"# of Hospitalizations",?68,"# patients"
+3 WRITE !,?40,"w/Severe Respiratory",!?40,"Disease Diagnosis",!
+4 QUIT
+5 ;
SUBHEAD1 ;
+1 WRITE !,"Table 1: ILI Visits"
+2 WRITE !?40,"Total # Visits",?56,"Total # Visits",?72,"% w/ILI"
+3 WRITE !?40,"w/ILI",?72," "
+4 WRITE !,"FACILITY",?40,"Diagnosis",?71,"Diagnosis"
+5 WRITE !
+6 QUIT
+1 IF 'APCLPG
GOTO HEAD1
+2 IF $EXTRACT(IOST)="C"
IF IO=IO(0)
WRITE !
SET DIR(0)="EO"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET APCLQUIT=""
QUIT
HEAD1 ;
+1 IF APCLPG
IF $DATA(IOF)
WRITE @IOF
+2 SET APCLPG=APCLPG+1
+3 WRITE ?3,$PIECE(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,!
+4 WRITE !,$$CTR("*** Aggregate ILI Surveillance Report ***",80),!
+5 SET X="Visit Dates: "_$$FMTE^XLFDT(APCLBD)_" through "_$$FMTE^XLFDT(APCLED)
WRITE $$CTR(X,80),!
+6 WRITE $$REPEAT^XLFSTR("-",79),!!
+7 QUIT
+8 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
+1 QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X
+2 ;----------
EOP ;EP - End of page.
+1 IF $EXTRACT(IOST)'="C"
QUIT
+2 IF $DATA(ZTQUEUED)!'(IOT["TRM")!$DATA(IO("S"))
QUIT
+3 NEW DIR
+4 KILL DIRUT,DFOUT,DLOUT,DTOUT,DUOUT
+5 SET DIR(0)="E"
DO ^DIR
+6 QUIT
+7 ;----------
USR() ;EP - Return name of current user from ^VA(200.
+1 QUIT $SELECT($GET(DUZ):$SELECT($DATA(^VA(200,DUZ,0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
+2 ;----------
LOC() ;EP - Return location name from file 4 based on DUZ(2).
+1 QUIT $SELECT($GET(DUZ(2)):$SELECT($DATA(^DIC(4,DUZ(2),0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
+2 ;----------
