Routine: APCLSILR

Package	Total	Call Graph
Patient Care Component Reports	7	XTMP^APCLOSUT (MEDS,VACAGE)^APCLSILA $$TMP100^APCLSILI (ILIAGEP,ILIAVM,ILISEX,VACAGEP)^APCLSILT ($$ICD,$$ICDDX)^APCLSILU ($$DEMO,DEMOCHK)^APCLUTL ($$CLINIC,$$VD)^APCLV
IHS VA Utilities	3	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 EN^XBVK
VA Fileman	3	COMMA^%DTC ^DIC ^DIR
Kernel	2	($$FMADD,$$FMTE)^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
IHS Patient	1	$$AGE^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0

Package	Total	Caller Graph
Patient Care Component Reports	2	APCLSILA APCLSILT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
RESDIS	;does this H visit have severe resp diagnosis, if yes set counter
SRVD	;
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
DEMO	;
PER(N,D)	;return % of n/d
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
SUBHEAD1	;
SUBHEAD2	;
PRINT	;
ILIAVM	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
ILIV(V)	;
V1	;
EOJ	;ENTRY POINT
FAC	;
ILIAGE	;
A	;
END	;
ZIS	;
AGEGM(APCLA)	;EP - age months
ED	;get ending date
O	;
START	;
S	;taxonomy - call qman interface
AGEGY(APCLA)	; - age years
LOCV
C(X,X2,X3)	;
V	; Run by visit date
AGEG(APCLA)	;EP 0 age years
PROC1	;
ILIDX1	;
HEAD1	;
HEADER	;EP - report header
PROC	;EP - called from xbdbque
ILISEX	;

External References

Name	Field # of Occurrence
COMMA^%DTC	C+1
PEP^AMQQGTX0	S+3
XTMP^APCLOSUT	PROC+2
MEDS^APCLSILA	PROC1+45
VACAGE^APCLSILA	PROC1+46
$$TMP100^APCLSILI	ILIDX1+6
ILIAGEP^APCLSILT	ILIAVM+3
ILIAVM^APCLSILT	ILIAVM+1
ILISEX^APCLSILT	ILISEX+1
VACAGEP^APCLSILT	ILIAVM+5
$$ICD^APCLSILU	RESDIS+5, ILIDX1+5, ILIDX1+6
$$ICDDX^APCLSILU	RESDIS+6
$$DEMO^APCLUTL	PROC1+2
DEMOCHK^APCLUTL	DEMO+1
$$CLINIC^APCLV	ILIV+6
$$VD^APCLV	ILIAGE+6, RESDIS+6
$$AGE^AUPNPAT	ILIAGE+6
^DIC	O+1, S+2
^DIR	BD+1, ED+1, FAC+4, HEADER+2, EOP+5
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	PROC1+33, ILIDX1+5, ILIDX1+6, ILIDX1+10
$$VALI^XBDIQ1	ILIV+11
EN^XBVK	START+3, EOJ+1
$$FMADD^XLFDT	V+1
$$FMTE^XLFDT	HEAD1+3, HEAD1+5
$$REPEAT^XLFSTR	PAD+3, PRINT+52, LOCV+12, HEAD1+6
$$STRIP^XLFSTR	PER+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"******** AGGREGATE ILI Surveillance Report ********",! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: O+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: S+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"ALL locations is NOT an option with this report",! Line Location: S+5
Function Call: WRITE	Prompt: "TOTAL PATIENTS" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"These counts represent the total number of patients seen for any ambulatory " Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"visit or hospital stay during the report period. A count by facility is " Line Location: PRINT+6
Function Call: WRITE	Prompt: !,"also provided." Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,"Total Number of Patients seen at any facility: ",?65,$$C(APCLPTOT,0,7),! Line Location: PRINT+8
Function Call: WRITE	Prompt: !!,"TOTAL FACILITY VISITS" Line Location: PRINT+15
Function Call: WRITE	Prompt: !,"These counts represent the total number of visits defined as 'surveillance' " Line Location: PRINT+16
Function Call: WRITE	Prompt: !,"visits. The definition of these visits is the following:" Line Location: PRINT+17
Function Call: WRITE	Prompt: !," - a Hospitalization" Line Location: PRINT+18
Function Call: WRITE	Prompt: !," - a visit to a PHN" Line Location: PRINT+19
Function Call: WRITE	Prompt: !," - an Ambulatory visit (service categories A, O, R, S) to one of the following" Line Location: PRINT+20
Function Call: WRITE	Prompt: !," clinics: 01 GENERAL, 06 DIABETIC, 10 GYN, 12 IMMUNIZATION," Line Location: PRINT+21
Function Call: WRITE	Prompt: !," 13 INTERNAL MEDICINE, 20 PEDIATRICS, 24 WELL CHILD CARE, " Line Location: PRINT+22
Function Call: WRITE	Prompt: !," 28 FAMILY PRACTICE, 30 EMERGENCY ROOM, 57 EPSDT, " Line Location: PRINT+23
Function Call: WRITE	Prompt: !," 70 WOMEN'S HEALTH, 80 URGENT CARE, 89 EVENING" Line Location: PRINT+24
Function Call: WRITE	Prompt: !!,"Table 1: ILI / H1N1 Visits" Line Location: PRINT+25
Function Call: WRITE	Prompt: !,"This table displays the total number of visits defined above and displays the" Line Location: PRINT+26
Function Call: WRITE	Prompt: !,"total count of those visits on which there was an ILI diagnosis. An ILI" Line Location: PRINT+27
Function Call: WRITE	Prompt: !,"diagnosis is defined as a visit with an diagnosis contained in the " Line Location: PRINT+28
Function Call: WRITE	Prompt: !,"SURVEILLANCE ILI NO TMP NEEDED taxonomy." Line Location: PRINT+29
Function Call: WRITE	Prompt: !," OR" Line Location: PRINT+30
Function Call: WRITE	Prompt: !,"a temperature of >=100 AND one of the ICD diagnosis in the SURVEILLANCE ILI" Line Location: PRINT+31
Function Call: WRITE	Prompt: !,"taxonomy." Line Location: PRINT+32
Function Call: WRITE	Prompt: !,"The data is broken down by location of encounter and clinic.",! Line Location: PRINT+34
Function Call: WRITE	Prompt: "Note that some patients may have been seen in multiple clinics",! Line Location: PRINT+35
Function Call: WRITE	Prompt: !?40,"Total # Visits",?56,"Total # Visits",?72,"% w/ILI" Line Location: PRINT+36
Function Call: WRITE	Prompt: !?40,"w/ILI",?72,"Diagnosis" Line Location: PRINT+37
Function Call: WRITE	Prompt: !,"FACILITY",?40,"Diagnosis" Line Location: PRINT+38
Function Call: WRITE	Prompt: !,"ALL FACILITITES COMBINED" Line Location: PRINT+40
Function Call: WRITE	Prompt: !?2,"Ambulatory Clinics",! Line Location: PRINT+43
Function Call: WRITE	Prompt: ! Line Location: PRINT+44
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",79),! Line Location: PRINT+52
Function Call: WRITE	Prompt: !?2,"Ambulatory Clinics",! Line Location: LOCV+5
Function Call: WRITE	Prompt: ! Line Location: LOCV+6
Function Call: WRITE	Prompt: "Table 2: Hospitalizations for Severe Respiratory Disease",! Line Location: SUBHEAD2+1
Function Call: WRITE	Prompt: !?40,"# of Hospitalizations",?68,"# patients" Line Location: SUBHEAD2+2
Function Call: WRITE	Prompt: !,?40,"w/Severe Respiratory",!?40,"Disease Diagnosis",! Line Location: SUBHEAD2+3
Function Call: WRITE	Prompt: !,"Table 1: ILI Visits" Line Location: SUBHEAD1+1
Function Call: WRITE	Prompt: !?40,"Total # Visits",?56,"Total # Visits",?72,"% w/ILI" Line Location: SUBHEAD1+2
Function Call: WRITE	Prompt: !?40,"w/ILI",?72," " Line Location: SUBHEAD1+3
Function Call: WRITE	Prompt: !,"FACILITY",?40,"Diagnosis",?71,"Diagnosis" Line Location: SUBHEAD1+4
Function Call: WRITE	Prompt: ! Line Location: SUBHEAD1+5
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: ?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$$CTR("* Aggregate ILI Surveillance Report *",80),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",79),!! Line Location: HEAD1+6
Routine Call	DIC Line Location: O+1 S+2
Routine Call	DIR Line Location: BD+1 ED+1 FAC+4 HEADER+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ILIV+16
^ATXAX("B"	RESDIS+5, ILIV+2, ILIDX1+5, ILIDX1+6
^AUPNPAT - [#9000001]	PROC1+4
^AUPNVPOV - [#9000010.07]	RESDIS+3, RESDIS+6, RESDIS+8, RESDIS+10, ILIDX1+4
^AUPNVPOV("AD"	RESDIS+2, ILIDX1+3
^AUPNVPRV - [#9000010.06]	ILIV+9, ILIV+10
^AUPNVPRV("AD"	ILIV+8
^AUPNVSIT - [#9000010]	V1+2, PROC1+1, ILIAGE+4, ILIAGE+5, ILIV+4, ILIV+5, ILIV+15, ILIV+16, ILIDX1+8
^AUPNVSIT("B"	V+4, V1+2
^DIC(4 - [#4]	PROC1+9, PRINT+11, HEAD1+3, LOC+1
^DIC(7 - [#7]	ILIV+13
^DPT - [#2]	PROC1+5, PROC1+6
^VA(200 - [#200]	USR+1
^XTMP("APCLSILR"	PROC+4!, PROC1+11, PROC1+13, PROC1+15, PROC1+17, PROC1+37, PROC1+40, PROC1+41, PROC1+43

Label References

Name	Line Occurrences
$$AGEGY	ILIAGE+15
$$C	PRINT+8, PRINT+11, PRINT+47, PRINT+48, LOCV+2, LOCV+9, LOCV+10
$$CTR	HEAD1+4, HEAD1+5
$$ILIV	PROC1+19
$$PER	PRINT+49, LOCV+2, LOCV+11
@(	FAC+8
BD	ED+2, FAC+5
EOJ	BD+2
FAC	FAC+9, DEMO+2
HEAD1	HEADER+1
HEADER	PRINT+2, PRINT+10, PRINT+14, PRINT+33, PRINT+42, PRINT+46, LOCV+1, LOCV+4, LOCV+8
ILIAGE	PROC1+31
ILIDX1	ILIV+14
LOCV	PRINT+39
PROC1	V1+2
S	S+5
SUBHEAD1	PRINT+42, PRINT+46, LOCV+1, LOCV+4, LOCV+8
V1	V+4

Naked Globals

Name	Field # of Occurrence
^(0	V1+2, USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	ILIAGE+1~, ILIAGE+15*, ILIAGE+16
APCLA	ILIAGE+1~, AGEGM~, AGEGM+1, AGEGM+2, AGEGY~, AGEGY+1, AGEGY+2, AGEGY+3, AGEGY+4, AGEGY+5 , AGEG~, AGEG+1, AGEG+2, AGEG+3, AGEG+4, AGEG+5
APCLAGEG	PROC+3!
APCLAGEG("I"	ILIAGE+16*
APCLALLF	PROC+3!
APCLALLF(	PROC1+25, PROC1+30, PRINT+41, PRINT+45, PRINT+47, PRINT+48, PRINT+49
>> APCLAY	ILIAGE+6*, ILIAGE+15
>> APCLBD	BD+3*, ED+1, V+1, HEAD1+5
APCLCLIN	PROC1+18, ILIV+1~, ILIV+6, ILIV+15, ILIV+16
>> APCLCLN	PRINT+45, PRINT+47, PRINT+48, PRINT+49, LOCV+7, LOCV+9, LOCV+10, LOCV+11
>> APCLCLNT	PRINT+41, PRINT+43, PRINT+44, PRINT+45, PRINT+47, PRINT+48, PRINT+49, LOCV+3, LOCV+5, LOCV+6 , LOCV+7, LOCV+9, LOCV+10, LOCV+11
APCLCTAX	ILIV+1~, ILIV+2*, ILIV+16
>> APCLDEMO	DEMO+1, DEMO+2, PROC1+2
>> APCLED	ED+3*, V+4, HEAD1+5
>> APCLH	PROC+1*, PROC+4, PROC1+11, PROC1+13, PROC1+15, PROC1+17, PROC1+37, PROC1+40, PROC1+41, PROC1+43
APCLILIP	PROC+3!
APCLILIS	PROC+3!
APCLILIS(	PROC1+34, PROC1+38
>> APCLILIV	PROC1+19*, PROC1+20, PROC1+24, PROC1+25, PROC1+26, PROC1+29, PROC1+30, ILIAGE+3
APCLIMMG	PROC+3!
APCLIMML	PROC+3!
>> APCLJ	PROC+1*, PROC+4, PROC1+11, PROC1+13, PROC1+15, PROC1+17, PROC1+37, PROC1+40, PROC1+41, PROC1+43
>> APCLL	PRINT+9*, PRINT+11
APCLLOC	S+5!, LOCV*, LOCV+2, LOCV+3, LOCV+7, LOCV+9, LOCV+10, LOCV+11
>> APCLLOCN	PROC1+9*, PROC1+23, PROC1+24, PROC1+28, PROC1+29, PROC1+35, PROC1+41, PROC1+42, PROC1+43
APCLLOCS	FAC+7!, A+1!, S+1!, S+4, S+5!, PROC1+8
APCLLOCS(	O+2*, PROC1+8
APCLLOCS("*"	S+5
>> APCLLOCT	FAC+2, FAC+6, FAC+8, PRINT+39
APCLMEDP	PROC+3!
APCLMEDS	PROC+3!
>> APCLODAT	V+4*, V1+2
>> APCLPG	PRINT+1, HEADER+1, HEAD1+1, HEAD1+2, HEAD1+3
APCLPTOT	PROC+3!, V+3, PROC1+12, PRINT+8
APCLPTOT(	PROC1+16*, PRINT+9, PRINT+11
APCLQUIT	FAC+1!, FAC+9, O+1, S+2, S+4, PRINT+9, PRINT+10, PRINT+13, PRINT+14, PRINT+33 , PRINT+41, PRINT+42, PRINT+45, PRINT+46, PRINT+51, LOCV, LOCV+1, LOCV+3, LOCV+4, LOCV+7 , LOCV+8, LOCV+14, ILISEX+2, ILIAVM+2, ILIAVM+4, HEADER+2
>> APCLSD	V+1*, V+4
APCLSEXL	PROC+3!
APCLSEXL(	PROC1+35, PROC1+42
APCLSRDH	PROC+3!
APCLSRDH(	RESDIS+7, RESDIS+9
APCLSRDP	PROC+3!
APCLSRDP(	RESDIS+8, RESDIS+10*
APCLTAB5	PROC+3!
APCLTAB7	PROC+3!
APCLTAB8	PROC+3!
>> APCLVDFN	V1+2*, PROC1+1, PROC1+19, ILIAGE+4, ILIAGE+5, ILIAGE+6, RESDIS+2
>> APCLVLOC	PROC1+7*, PROC1+8, PROC1+9, PROC1+15, PROC1+16, PROC1+17, RESDIS+7, RESDIS+8, RESDIS+9, RESDIS+10
>> APCLVREC	V1+2*, PROC1+2, PROC1+3, PROC1+7, PROC1+10, PROC1+14, PROC1+18, PROC1+33, PROC1+37, PROC1+40 , PROC1+41, PROC1+43, ILIAGE+6
APCLVTOT	PROC+3!, V+2!, V+3, PROC1+22, PROC1+27*
APCLVTOT(	PROC1+23, PROC1+24, PROC1+28, PROC1+29, LOCV, LOCV+2, LOCV+3, LOCV+7, LOCV+9, LOCV+10 , LOCV+11
C	ILIV+1~, ILIDX1+1, ILIDX1+5, ILIDX1+6*
D	RESDIS+1~, RESDIS+3*, RESDIS+4, RESDIS+5, RESDIS+6, PER~, PER+1, PER+3, PAD~, PAD+2 , PAD+3
DA	FAC+4!, O+1!, S+2!
>> DFN	PROC1+3*, PROC1+4, PROC1+5, PROC1+6, PROC1+11, PROC1+13, PROC1+15, PROC1+17
DFOUT	EOP+4!
DIC	O+1!, S+2!
DIC("A"	O+1*
DIC("S"	S+2*
DIC(0	O+1, S+2
DIR	BD+1!, ED+1!, FAC+3!, FAC+4!, HEADER+2!, EOP+3~
DIR("A"	BD+1, ED+1, FAC+4*
DIR("B"	FAC+4*
DIR(0	BD+1, ED+1, FAC+3, HEADER+2, EOP+5*
DIRUT	BD+1, BD+2, ED+1, ED+2, FAC+5, EOP+4!
DLOUT	EOP+4!
DT	HEAD1+3
DTOUT	HEADER+2, EOP+4!
DUOUT	BD+1, ED+1, EOP+4!
DUZ	USR+1
DUZ(2	HEAD1+3, LOC+1
G	ILIV+1~, ILIDX1+2!*
H	ILIAGE+1~, ILIAGE+2*
I	ILIAGE+1~, ILIAGE+2, RESDIS+1~, RESDIS+6, RESDIS+7, RESDIS+8, RESDIS+9, RESDIS+10
IO	HEADER+2
IO("S"	EOP+2
IO(0	HEADER+2
IOF	START+1, HEAD1+1
IOM	CTR+1
IOSL	PRINT+10, PRINT+14, PRINT+33, PRINT+42, PRINT+46, LOCV+1, LOCV+4, LOCV+8
IOST	HEADER+2, EOP+1
>> IOT	EOP+2
L	PAD~, PAD+2*, PAD+3
N	PER~, PER+3
P	ILIV+1~, ILIV+8, ILIV+13, ILIV+14, ILIDX1+9
>> S	PROC1+33*, PROC1+34, PROC1+35, PROC1+38, PROC1+42
S1	ILIAGE+1~, ILIAGE+2*
S2	ILIAGE+1~, ILIAGE+2, ILIAGE+4, ILIAGE+5*, ILIAGE+16
T	ILIAGE+1~, ILIV+1~, ILIDX1+4*, ILIDX1+5, ILIDX1+6
U	V1+2, PROC1+2, PROC1+3, PROC1+6, PROC1+7, PROC1+9, PROC1+10, PROC1+14, PROC1+18, PROC1+22 , PROC1+23, PROC1+24, PROC1+25, PROC1+26, PROC1+27, PROC1+28, PROC1+29, PROC1+30, PROC1+33, PROC1+34 , PROC1+35, PROC1+37, PROC1+38, PROC1+40, PROC1+41, PROC1+42, PROC1+43, ILIAGE+4, ILIAGE+5, ILIAGE+6 , RESDIS+3, RESDIS+6, RESDIS+7, RESDIS+8, RESDIS+9, RESDIS+10, ILIV+5, ILIV+10, ILIV+13, ILIV+15 , ILIV+16, ILIDX1+4, ILIDX1+8, ILIDX1+11, PRINT+11, PRINT+47, PRINT+48, PRINT+49, LOCV+2, LOCV+9 , LOCV+10, LOCV+11, HEAD1+3, USR+1, LOC+1
V	ILIV~, ILIV+3, ILIV+4, ILIV+5, ILIV+6, ILIV+8, ILIV+15, ILIV+16, ILIDX1+3, ILIDX1+6 , ILIDX1+8, ILIDX1+10
VAL	ILIV+1~, ILIDX1+7, ILIDX1+8, ILIDX1+9, ILIDX1+10, ILIDX1+11
X	S+2, ILIAGE+1~, RESDIS+1~, RESDIS+2, RESDIS+3, RESDIS+6, RESDIS+8, RESDIS+10, ILIV+1~, ILIV+8* , ILIV+9, ILIV+10, ILIDX1+3, ILIDX1+4, ILIDX1+5, ILIDX1+6, C~, C+2, HEAD1+5, CTR~ , CTR+1
X2	C~
X3	C~
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	BD+3, ED+3, FAC+6, O+1, O+2, S+2, S+3, RESDIS+1~, ILIV+1~, ILIV+10* , ILIV+11, ILIDX1+2!, ILIDX1+11, HEADER+2, CTR~, CTR+1
Y(	ILIDX1+5, ILIDX1+6
Z	ILIV+1~, ILIV+11, ILIV+12, ILIV+13, PER+2~, PER+3, PER+4
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLSILR

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: