Routine: APCLSIL3

Information

APCLSIL3 ; IHS/CMI/LAB - ili surveillance ;

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Patient Care Component Reports	6	($$DATE,$$JDATE,$$TMP100)^APCLSILI $$ICD^APCLSILU ^APCLSTMV $$DEMO^APCLUTL $$CLINIC^APCLV PAUSE^APCLVL01
IHS VA Utilities	4	^XBDBQUE $$VALI^XBDIQ1 ^XBFMK EN^XBVK
Kernel	3	($$DEL,$$LIST)^%ZISH ($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
Patient Care Component Surveillance	2	APCSCERT APCSSLAB
Patient Care Component Reports	1	APCLSILI

Entry Points

Name	Comments	DBIA/ICR reference
LOC()	;EP - Return location name from file 4 based on DUZ(2).
DATES
SET	;
HEADER	;
ZIS	;call to XBDBQUE
HEAD1	;
P
CTR(X,Y)	;EP - Center X in a field Y wide.
STMP	;
PURGE	;EP - CALLED TO PURGE
INFORM	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
EXIT	;clean up and exit
PRINT	;EP - called from xbdbque
STOPD	;EP
PROC1	;
PURGEPOP	;

External References

Name	Field # of Occurrence
$$DEL^%ZISH	PURGE+13, PURGEPOP+6
$$LIST^%ZISH	PURGE+9, PURGEPOP+2
$$DATE^APCLSILI	PURGE+8
$$JDATE^APCLSILI	P+7
$$TMP100^APCLSILI	P+12
$$ICD^APCLSILU	P+11, P+12
^APCLSTMV	STMP+2
$$DEMO^APCLUTL	P+4
$$CLINIC^APCLV	PROC1+21
PAUSE^APCLVL01	STOPD+15
^DIE	STOPD+12
^DIR	DATES+2, DATES+4, HEADER+2, EOP+5
^XBDBQUE	ZIS+2
$$VALI^XBDIQ1	PROC1+17
^XBFMK	EXIT+2
EN^XBVK	EXIT+1
$$FMADD^XLFDT	DATES+8, PURGE+7
$$FMTE^XLFDT	HEAD1+5
$$REPEAT^XLFSTR	HEAD1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will create a search template of visits that meet the " Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"Surveillance ILI criteria. You will be asked the provide the date" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"range of visits, a name for the visit search template to be created, and" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"the device to which the cover page/summary will be printed.",! Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"The visits must meet the following criteria:" Line Location: INFORM+8
Function Call: WRITE	Prompt: !?5," - must be in the date range selected by the user" Line Location: INFORM+9
Function Call: WRITE	Prompt: !?5," - must have a service category of H OR A, O, R or S (outpatient)" Line Location: INFORM+10
Function Call: WRITE	Prompt: !?5," - must have at least one diagnosis that is contained in the " Line Location: INFORM+11
Function Call: WRITE	Prompt: !?8,"SURVEILLANCE ILI taxonomy with a temperature recorded on the visit" Line Location: INFORM+12
Function Call: WRITE	Prompt: !?8,"with a value >=100 OR there must be at least one diagnosis in the" Line Location: INFORM+13
Function Call: WRITE	Prompt: !?8,"SURVEILLANCE ILI NO TMP NEEDED taxonomy." Line Location: INFORM+14
Function Call: WRITE	Prompt: !?5," - if ambulatory, must be to a clinic in the SURVEILLANCE ILI CLINICS taxonomy" Line Location: INFORM+15
Function Call: WRITE	Prompt: !?8,"or the provider must be a PHN" Line Location: INFORM+16
Function Call: WRITE	Prompt: !?5," - the patient's name must not contain 'DEMO,PATIENT' (demo patients" Line Location: INFORM+17
Function Call: WRITE	Prompt: !?8,"skipped)" Line Location: INFORM+18
Function Call: WRITE	Prompt: ! Line Location: INFORM+19
Function Call: WRITE	Prompt: !!,"SURVEILLANCE ILI ICD taxonomy missing...cannot continue." Line Location: INFORM+24
Function Call: WRITE	Prompt: !!,"SURVEILLANCE ILI CLINICS taxonomy missing...cannot continue." Line Location: INFORM+25
Function Call: WRITE	Prompt: !!,"SURVEILLANCE ILI NO TMP NEEDED taxonomy missing...cannot continue." Line Location: INFORM+26
Function Call: WRITE	Prompt: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+7
Function Call: WRITE	Prompt: !!,"Search Template Created: ",$P(^DIBT(APCLSTMP,0),U) Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"Total # of visits meeting criteria and placed in the template: ",APCLVTOT Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"Total # of patients for these visits: ",APCLPTOT,! Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2),?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$$CTR("SURVEILLANCE ILI VISIT SEARCH"),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$$CTR("DATE RANGE: "_$$FMTE^XLFDT(APCLBD)_"-"_$$FMTE^XLFDT(APCLED),80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !!,"This option is used to set a stop date for sending ILI surveillance" Line Location: STOPD+1
Function Call: WRITE	Prompt: !,"visit data to IHS/CDC. Currently the stop date is preset for " Line Location: STOPD+2
Function Call: WRITE	Prompt: !,"September 1, 2009." Line Location: STOPD+3
Function Call: WRITE	Prompt: !!,"When the nightly export runs, it will check this date. If the stop " Line Location: STOPD+4
Function Call: WRITE	Prompt: !,"date is less than the export date, no data will be exported." Line Location: STOPD+5
Function Call: WRITE	Prompt: !!,"For example, if you want to have the export of data stop on " Line Location: STOPD+6
Function Call: WRITE	Prompt: !,"August 1, 2009, then enter that date here. If you want to continue" Line Location: STOPD+7
Function Call: WRITE	Prompt: !,"the export indefinitely, select a date in the future.",! Line Location: STOPD+8
Function Call: WRITE	Prompt: !!,"ILI CONTROL FILE ENTRY MISSING. NOTIFY PROGRAMMER." Line Location: STOPD+10
Function Call: WRITE	Prompt: !! Line Location: STOPD+14
Routine Call	DIE Line Location: STOPD+12
Routine Call	DIR Line Location: DATES+2 DATES+4 HEADER+2 EOP+5

FileNo	Call Tags
^APCLCNTL - [#9001003]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLCNTL("B"	STOPD+9
^ATXAX - [#9002226]	PROC1+23
^ATXAX("B"	INFORM+21, INFORM+22, INFORM+23, PROC1+2, PROC1+3
^AUPNVPOV - [#9000010.07]	P+10
^AUPNVPOV("AD"	P+9
^AUPNVPRV - [#9000010.06]	PROC1+15, PROC1+16
^AUPNVPRV("AD"	PROC1+14
^AUPNVSIT - [#9000010]	PROC1+11, PROC1+12, PROC1+13, PROC1+22, PROC1+23, PROC1+24, PROC1+25, P
^AUPNVSIT("B"	PROC1+9, PROC1+10
^AUTTLOC - [#9999999.06]	P+5, PURGE+6
^AUTTSITE(1	PURGE+3, PURGE+6
^DIBT(	PRINT+3, SET+2*
^DIC(4 - [#4]	HEAD1+3, LOC+1
^DIC(7 - [#7]	PROC1+19
^DPT - [#2]	P+2, P+3
^TMP($J	P+7*
^VA(200 - [#200]	HEAD1+2, USR+1
^XTMP("APCLSILI"	P+18!, SET+3, SET+5*
^XTV(8989.3 - [#8989.3]	PURGE+4

Label References

Name	Line Occurrences
$$CTR	INFORM+2, INFORM+3, HEAD1+4, HEAD1+5
$$LOC	INFORM+2
$$USR	INFORM+3
DATES	DATES+6, STMP+3
EOP	PRINT+6
EXIT	INFORM+20, INFORM+24, INFORM+25, INFORM+26, DATES+2, DATES+4, ZIS+3, PROC1+4, PROC1+5, PROC1+6
HEAD1	HEADER+1
HEADER	PRINT+2
P	PROC1+20
SET	P+15

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLASU	PURGE+6*, PURGE+9, PURGEPOP+2
>> APCLASUF	P+5*, P+6, P+7
APCLBD	DATES!, DATES+2*, DATES+6, DATES+8, HEAD1+5
>> APCLCLIN	PROC1+21*, PROC1+22, PROC1+23
>> APCLCTAX	INFORM+21, INFORM+25, PROC1+2, PROC1+4, PROC1+23
>> APCLDATE	PROC1+25*, P+7
APCLDIR	PURGE+2!, PURGE+3, PURGE+4, PURGE+5, PURGE+9, PURGE+13, PURGEPOP+2, PURGEPOP+6
>> APCLDT	PURGE+7, PURGE+8, PURGE+13, PURGEPOP+6
>> APCLDTAX	INFORM+22, INFORM+24, PROC1+3, PROC1+5, P+12
APCLED	DATES!, DATES+4*, DATES+6, PROC1+9, HEAD1+5
APCLFILE	PURGE+2!, PURGE+9, PURGEPOP+1!, PURGEPOP+2
APCLFILE(	PURGE+11, PURGE+12, PURGE+13, PURGEPOP+4, PURGEPOP+5, PURGEPOP+6
APCLFILE(""	PURGE+10, PURGEPOP+3
>> APCLFLST	PURGE+9, PURGEPOP+2
>> APCLH	PROC1+1*, P+18, SET+3, SET+5
>> APCLJ	PROC1+1*, P+18, SET+3, SET+5
>> APCLLOC	PROC1+24*, P+5
>> APCLM	PURGE+13, PURGEPOP+6
>> APCLPG	PRINT+1, HEADER+1, HEAD1+1, HEAD1+2
>> APCLPTOT	PROC1+8, PRINT+5, SET+4
>> APCLQ	HEADER+2*
>> APCLSD	DATES+8, PROC1+9, PROC1+10
>> APCLSTMP	STMP+1*, STMP+3, PRINT+3, SET+2
>> APCLTTAX	INFORM+23*, INFORM+26, PROC1+6, P+11
>> APCLV	PROC1+10*, PROC1+11, PROC1+12, PROC1+13, PROC1+14, PROC1+21, PROC1+22, PROC1+23, PROC1+24, PROC1+25 , P, P+9, P+12, SET+2
>> APCLVTOT	PROC1+8, PRINT+4, SET+1
>> APCLX	PURGE+11, PURGE+12, PURGE+13, PURGEPOP+4, PURGEPOP+5, PURGEPOP+6
>> D	PURGE+12, PURGE+13, PURGEPOP+5, PURGEPOP+6
DA	STOPD+9*, STOPD+10!, STOPD+13!
>> DFN	P*, P+1, P+2, P+3, P+4, SET+3, SET+5
DFOUT	EOP+4!
DIE	STOPD+11*, STOPD+13!
DIR	DATES+1!, DATES+3!, HEADER+2!, EOP+3~
DIR("A"	DATES+1, DATES+3
DIR(0	DATES+1, DATES+3, HEADER+2, EOP+5
DIRUT	EOP+4!
DLOUT	EOP+4!
>> DR	STOPD+11*
DT	PURGE+7
DTOUT	HEADER+2, EOP+4!
DUOUT	EOP+4!
DUZ	HEAD1+2, USR+1
DUZ(2	HEAD1+3, LOC+1
>> G	P+8, P+11, P+12*, P+13
IO	HEADER+2
IO("S"	EOP+2
IO(0	HEADER+2
IOF	INFORM+1, HEAD1+1
IOM	CTR+1
IOST	HEADER+2, EOP+1
>> IOT	EOP+2
>> N	PURGE+13, PURGEPOP+6
>> P	PROC1+14, PROC1+19, PROC1+20
>> T	P+10*, P+11, P+12
U	PROC1+12, PROC1+13, PROC1+16, PROC1+19, PROC1+22, PROC1+23, PROC1+24, PROC1+25, P, P+3 , P+5, P+10, PRINT+3, HEAD1+2, HEAD1+3, USR+1, LOC+1, PURGE+6
X	PROC1+14, PROC1+15, PROC1+16, P+9, P+10, CTR~, CTR+1
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	DATES+2, DATES+4, PROC1+16*, PROC1+17, HEADER+2, CTR~, CTR+1
>> Z	PROC1+17*, PROC1+18, PROC1+19
>> ZTQUEUED	EOP+2, PURGE+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLSIL3

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: