Routine: APCLASK

Information

APCLASK ; IHS/CMI/LAB -GET PATIENT OR COHORT ;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$LOW^XLFSTR
VA Fileman	3	(,DD)^%DT ^DIC ^DIR
Patient Care Component Reports	2	($$REC,WRITEF)^APCLDM EN^APCLPRT
IHS VA Utilities	1	^XBKVAR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Patient Care Component Reports	2	APCLDM APCLRPT

Entry Points

Name	Comments	DBIA/ICR reference
AGIN
EOJ	;
ASKBD
TASK	; Task?
EPIREC	;create epi info record in ^TMP("APCLEPI",$J,n)
1	; Fiscal Year
GETTIME
2	; Date Range
X2
X3
X1
ZTM	;PEP - CALLED FROM BDM - ENTRY POINT - for taskman
FLAT	;
START2	;PEP PUBLISHED ENTRY POINT - called to create a report template
START
CLEAN	;
X
ASKED
ASK	; Get patient name or cohort
QUE
TIME	;PEP - CALLED FROM BDM Get fiscal year or time frame
START1(APCLDFN,APCLCUML)	;EP

External References

Name	Field # of Occurrence
^%DT	ASKBD, ASKED
DD^%DT	TIME+1, 1+8, 1+9, X3+2, X3+3
^%ZIS	TASK+1
HOME^%ZIS	QUE+4
^%ZISC	ZTM+14, EOJ+1
^%ZTLOAD	QUE+3
$$REC^APCLDM	EPIREC+1, EPIREC+2, EPIREC+3
WRITEF^APCLDM	ZTM+11
EN^APCLPRT	ZTM+8, ZTM+10
^DIC	ASK+10
^DIR	START+3, TIME+2, 1+1, FLAT+2, FLAT+12
^XBKVAR	START2+5
$$LOW^XLFSTR	FLAT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Report template entry not indicated!" Line Location: START2+1
Function Call: WRITE	Prompt: !,*7,"Indicated patient/cohort report template entry does not exist!" Line Location: START2+2
Function Call: WRITE	Prompt: !,*7,"Indicated cumulative report entry does not exist!" Line Location: START2+4
Function Call: WRITE	Prompt: ! Line Location: TIME+3
Function Call: WRITE	Prompt: !,"Beginning and ending dates must be prior to today, and beginning date",!,"must precede ending date.",! Line Location: ASKED+1
Function Call: WRITE	Prompt: @IOF Line Location: QUE+6
Function Call: WRITE	Prompt: ! Line Location: QUE+7
Function Call: WRITE	Prompt: !!,"Invalid format, must be letters and numbers",! Line Location: FLAT+4
Function Call: WRITE	Prompt: !!,"I am going to create a file called ",APCLFILE," which will reside in ",!,"the ",$S($P(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")," directory.",! Line Location: FLAT+6
Function Call: WRITE	Prompt: "Actually, the file will be placed in the same directory that the data export" Line Location: FLAT+7
Function Call: WRITE	Prompt: !,"globals are placed. See your site manager for assistance in finding the file",!,"after it is created. PLEASE jot down and remember the following file name:",!?15,"******** ",APCLFILE," ********",! Line Location: FLAT+8
Function Call: WRITE	Prompt: "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",! Line Location: FLAT+9
Function Call: WRITE	Prompt: !,"The records that are generated and placed in file ",APCLFILE Line Location: FLAT+10
Function Call: WRITE	Prompt: !,"are in a format readable by EPI INFO. For a definition of the format",!,"please see your user manual.",! Line Location: FLAT+11
Routine Call	%ZIS Line Location: QUE+4
Routine Call	DIC Line Location: ASK+10
Routine Call	DIR Line Location: START+3 TIME+2 1+1 FLAT+2 FLAT+12
Routine Call	%ZIS Line Location: TASK+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLRPT - [#9001200]	START2+2, START2+4, ZTM+7, ZTM+10, QUE+2
^AUTTSITE(1	FLAT+6
^DIBT(	ASK+13
^TMP("APCL"	ZTM+4!, ZTM+6!
^TMP("APCLCUML"	ZTM+4!, ZTM+10, ZTM+12!
^TMP("APCLEPI"	ZTM+4!, ZTM+12!, EPIREC+1, EPIREC+2, EPIREC+3*
^TMP("APCLPTS"	START!, START+1, ASK+12, ASK+13, ZTM+6, ZTM+12!, CLEAN+1!, EOJ+2!

Label References

Name	Line Occurrences
@(	TIME+3, ZTM+7, ZTM+10
AGIN	START+7
ASK	START, ASK+11
ASKBD	ASKBD, ASKED+1
ASKED	ASKED
CLEAN	START+1, AGIN
EOJ	X, ZTM+13
EPIREC	ZTM+9
FLAT	START+6, FLAT+4
GETTIME	START+1
QUE	START+7
START	START+4, AGIN
START2	APCLASK+6
TASK	START+7
TIME	GETTIME
X	GETTIME
X1	ASK+6
X3	ASKBD, ASKED
ZTM	START+8

Naked Globals

Name	Field # of Occurrence
^(0	ZTM+7, ZTM+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUE+1~*
>> %DT	ASKBD, ASKED
>> %DT("A"	ASKBD, ASKED
%ZIS	TASK+1!*
APCLASK	ZTM+3*, EOJ+2!
APCLBD	EOJ+2!
APCLBDT	START+1!, 1+6, 1+8, 1+10, ASKBD, ASKED+1, X3, X3+2, X3+4, EOJ+2!
APCLCUML	START1~, START2+3*, START2+4, ZTM+10
APCLDATE	START+1!, 1+10, X3+4, EOJ+2!
APCLDFN	START1~, START2+1, START2+2, ZTM+7, ZTM+8, QUE+2, EOJ+2!
APCLDTE	EOJ+2!
APCLED	1+9, X3+3, EOJ+2!
APCLEDT	START+1!, 1+6, 1+9, 1+10, ASKED, ASKED+1, X3, X3+3, X3+4, EOJ+2!
APCLEPIN	ZTM+2, EPIREC+1, EPIREC+2, EPIREC+3, CLEAN+1!, EOJ+2!
>> APCLFILE	FLAT+1, FLAT+5, FLAT+6, FLAT+8, FLAT+10
APCLFISC	START+1!, 1+2, 1+11, EOJ+2!
APCLHTKI	EOJ+3!
APCLMAM	EOJ+2!
APCLPD	ASK+13, ZTM+6, ZTM+8, EPIREC+1, EPIREC+2, EPIREC+3, CLEAN+1!, EOJ+2!
APCLPREP	START+5*, START+6, ZTM+8, ZTM+9, ZTM+10, ZTM+11, CLEAN+1!, EOJ+2!
APCLPT	ASK+2!, ASK+7*, ASK+9, ASK+10, ASK+12, ASK+14!, CLEAN+1!, EOJ+2!
APCLPTS	ASK+3, ASK+4, ASK+12*, CLEAN+1!
APCLROOT	ZTM+5, ZTM+8, ZTM+10, EOJ+2!
APCLRXC1	EOJ+3!
APCLSTP	GETTIME, START, START+2, START+6, START+8, AGIN, TIME+4, 1+12, X3, ASK+6 , ZTM+2, ZTM+6, ZTM+10, FLAT+3, FLAT+13, FLAT+14, EOJ+2!
APCLTDTE	TIME+1*, EOJ+2!
APCLUED	EOJ+2!
AUPNDAYS	EOJ+2!
AUPNDOB	EOJ+2!
AUPNDOD	EOJ+2!
AUPNPAT	EOJ+2!
AUPNSEX	EOJ+2!
DA	FLAT+2!, FLAT+12!
DIC	ASK+10*!
DIC("S"	ASK+9*
DIC(0	ASK+10*
DIR	START+3!, TIME+2!, 1+1!, FLAT+2!, FLAT+12!
DIR("A"	START+3, TIME+2, 1+1, FLAT+2, FLAT+12*
DIR("B"	START+3, FLAT+12
DIR(0	START+3, TIME+2, 1+1, FLAT+2, FLAT+12*
>> DIROUT	TIME+3, 1+2
>> DIRUT	START+3*, START+4, TIME+3, 1+2, FLAT+3, FLAT+13
DT	TIME+1, ASKED+1
DTIME	START2+5, ASK+3, ASK+4
>> DTOUT	TIME+3, 1+2
>> DUOUT	START+3
IO	ZTM+1, TASK+1*, EOJ+1
IO("Q"	START+7!
IO(0	TASK+1, EOJ+1
>> IOCPU	QUE+2
IOF	QUE+6
ION	QUE+2
IOP	TASK+1!
>> POP	START+8, TASK+1
U	ASKBD, ASKED, X3, ZTM+7, ZTM+10, QUE+2, FLAT+6
>> X	START+1, ASKBD, ASKED, X3, ASK+3, ASK+4, ASK+6, ASK+7, ASK+8, EPIREC+1 , EPIREC+2, EPIREC+3, FLAT+4
>> Y	START+5, TIME+1, TIME+3, 1+2, 1+6, 1+8, 1+9, ASKBD, ASKED, X3+2 , X3+3*, ASK+11, ASK+12, ASK+13, FLAT+5, FLAT+14
ZTCPU	QUE+2*, QUE+5!, EOJ+2!
ZTDESC	QUE+2*, QUE+5!
ZTDTH	QUE+2*, QUE+5!
>> ZTIO	QUE+2*
>> ZTQUEUED	ZTM+13, ZTM+14
>> ZTREQ	ZTM+13*
ZTRTN	QUE+2*, QUE+5!
ZTSAVE	QUE!, QUE+5!
ZTSAVE(	QUE+1*
ZTSK	QUE!, QUE+5!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLASK

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: