Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLSILR

Package: Patient Care Component Reports

Routine: APCLSILR


Information

APCLSILR ;IHS/CMI/LAB - AGGREGATE ILI REPORT;

Source Information

Source file <APCLSILR.m>

Call Graph

Call Graph Total: 17

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  

Caller Graph

Caller Graph Total: 2

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All