Routine: APCLSILO

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
VA Fileman	2	$$GET1^DIQ ^DIR
Kernel	1	$$FMADD^XLFDT
Patient Care Component Reports	1	PAUSE^APCLVL01

Package

Total

Call Graph

IHS VA Utilities

^XBDBQUE ^XBFMK EN^XBVK

VA Fileman

$$GET1^DIQ ^DIR

Kernel

$$FMADD^XLFDT

Patient Care Component Reports

PAUSE^APCLVL01

Name	Comments	DBIA/ICR reference
START	;
GETDATES	;
EXIT	;clean up and exit
ZIS	;call to XBDBQUE
TP	;

External References

Name	Field # of Occurrence
PAUSE^APCLVL01	START+9, START+10, START+11, START+23, START+24, START+25, TP+16
$$GET1^DIQ	START+9
^DIR	START+6, START+13, TP+1, TP+12, GETDATES+4
^XBDBQUE	ZIS+4
^XBFMK	EXIT+2
EN^XBVK	EXIT+1
$$FMADD^XLFDT	TP+4, TP+7, GETDATES+10, GETDATES+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option can be used to send an ILI Surveillance (""FLU"") file or a FLU POP" Line Location: START+3
Function Call: WRITE	Prompt: !,"file to the IHS EPI program. This should only be done if the EPI program" Line Location: START+4
Function Call: WRITE	Prompt: !,"has requested that you do so because previous exports have failed.",! Line Location: START+5
Function Call: WRITE	Prompt: !!,"You must be logged into the main facility to do this export.",!,"Your main facility is: ",$$GET1^DIQ(9999999.39,1,.01),! Line Location: START+9
Function Call: WRITE	Prompt: !!,"Your CRS Site Parameters are not setup for this facility: ",!,$P(^DIC(4,DUZ(2),0),U,1)," can not continue.",! Line Location: START+10
Function Call: WRITE	Prompt: !!,"Your DBID is missing, cannot continue.",! Line Location: START+11
Function Call: WRITE	Prompt: !!,$P(^ATXAX(APCLCTAX,0),U,1)," is missing." Line Location: START+23
Function Call: WRITE	Prompt: !!,$P(^ATXAX(APCLDTAX,0),U,1)," is missing." Line Location: START+24
Function Call: WRITE	Prompt: !!,$P(^ATXAX(APCLTTAX,0),U,1)," is missing." Line Location: START+25
Function Call: WRITE	Prompt: !,"Dates not entered." Line Location: TP+16
Function Call: WRITE	Prompt: !!,"You will supply the beginning date, the ending date will be yesterday.",! Line Location: GETDATES+1
Function Call: WRITE	Prompt: ! Line Location: GETDATES+3
Function Call: WRITE	Prompt: !!,"Future dates not allowed." Line Location: GETDATES+7
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: GETDATES+14
Routine Call	DIR Line Location: START+6 START+13 TP+1 TP+12 GETDATES+4

FileNo	Call Tags
^AUTTSITE - [#9999999.39]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLDATA($J	START+19!
^APCLILIC(1	TP+5*
^ATXAX - [#9002226]	START+23, START+24, START+25
^ATXAX("B"	START+20, START+21, START+22
^AUTTLOC - [#9999999.06]	START+11
^AUTTSITE(1	START+9
^BGPSITE - [#90241.02]	START+10
^DIC(4 - [#4]	START+10

Name	Line Occurrences
EXIT	START+2, START+7, START+8, START+9, START+10, START+11, START+14, START+23, START+24, START+25 , ZIS+5
GETDATES	TP+15, GETDATES+7, GETDATES+13
START	TP+2, TP+8, TP+16
ZIS	START+26

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL1ST	START+16, START+17
APCLALL1	START+18!
APCLALLT	START+18!
>> APCLBDAT	TP+4, TP+5, GETDATES+2, GETDATES+8, GETDATES+11, GETDATES+13
>> APCLCTAX	START+20*, START+23
>> APCLDTAX	START+21*, START+24
>> APCLED	TP+7, TP+16, GETDATES+2, GETDATES+10*, GETDATES+13
>> APCLFLF	TP+5*
>> APCLFLFN	TP+5, TP+6
APCLHTOT	START+18!
APCLLOCT	START+18!
>> APCLQ	TP+8, TP+11, TP+13, TP+14*
>> APCLSD	TP+4, TP+5, TP+16, GETDATES+2, GETDATES+11
>> APCLTTAX	START+22*, START+25
>> APCLWEXP	START+12, START+15, START+16, START+17, START+26
>> APCLY	TP+3*, TP+4, TP+5, TP+6, TP+7, TP+8, TP+15
>> APCLZHSD	ZIS+2*
DA	START+6!, START+13!, TP+1!, TP+12!
DIR	START+6!, START+13!, TP+1!, TP+12!, GETDATES+3!
DIR("A"	START+6, START+13, TP+1, TP+12, GETDATES+3*
DIR("B"	START+6, START+13, TP+1, TP+12
DIR(0	START+6, START+13, TP+1, TP+12, GETDATES+3*
>> DIRUT	START+7, START+14, TP+2, TP+13, GETDATES+5
DT	TP+4, TP+7, ZIS+2, GETDATES+7, GETDATES+10
DUZ(2	START+9, START+10, START+11
IOF	START+1
U	START+9, START+10, START+11, START+23, START+24, START+25, TP+5
>> XBNS	ZIS+3*
>> XBRC	ZIS+3*
>> XBRP	ZIS+3*
>> XBRX	ZIS+3*
>> Y	START+8, START+15, TP+3, TP+14, GETDATES+6, GETDATES+7, GETDATES+8

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLSILO

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: