Routine: APCLPRT

Information

APCLPRT ; IHS/CMI/LAB - PRINTS REPORTS USING REPORT TEMPLATE FILE ;

Package	Total	Call Graph
Patient Care Component Reports	1	$$START1^APCLDF
VA Fileman	1	^DIR

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLASK

Name	Comments	DBIA/ICR reference
SET	; Set Value and or Date from PCC SCRIPT
APCLWRTE	; Write line
PCT	; Determine APCL
CODE	; Get date or value from data fetcher
X2
X1
PAGE	; Page Control
EN(APCLDFN,APCLROOT,APCLPD)	;PEP - create report

Name	Field # of Occurrence
$$START1^APCLDF	CODE+10
^DIR	PAGE+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Global root not indicated!" Line Location: EN+1
Function Call: WRITE	Prompt: @IOF Line Location: EN+2
Function Call: WRITE	Prompt: @IOF Line Location: EN+13
Function Call: WRITE	Prompt: @IOF Line Location: APCLWRTE+2
Function Call: WRITE	Prompt: !,APCLWRTE(APCLX) Line Location: APCLWRTE+3
Function Call: WRITE	Prompt: ! Line Location: PAGE+1
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+5
Routine Call	DIR Line Location: PAGE+2

Name	Line Occurrences (* Changed, ! Killed)
^APCLRPT - [#9001200]	EN+5, EN+6, CODE+3

Name	Field # of Occurrence
^(	EN+5
^(21	CODE+3

Name	Field # of Occurrence
>> APCLASK	EN+15
APCLBRK	EN+2*, EN+12, EN+14!, APCLWRTE+1, APCLWRTE+3
APCLCNT	EN+5, EN+14!, APCLWRTE+2, APCLWRTE+3, PAGE+3
APCLCODE	EN+6!, EN+7, CODE+3, CODE+4, CODE+5, CODE+6, CODE+7, CODE+8, CODE+9*, CODE+10
>> APCLDATE	CODE+5, CODE+9
APCLDF	CODE+13!, CODE+16!, CODE+19!
APCLDF(	CODE+14, CODE+17, SET+3
APCLDFN	EN~, EN+5, EN+6, CODE+3
APCLDIS	CODE+1~, CODE+6*, CODE+8, CODE+14, CODE+16, SET+3
APCLENDR	EN+3, EN+4, EN+14!
APCLER	CODE+2!, CODE+10*, CODE+11!, CODE+12!
APCLI	EN+14!, CODE+1~, CODE+14, CODE+17, SET+3
APCLL	EN+5, EN+7, EN+9, EN+11, EN+14!, APCLWRTE+3
APCLLINE	EN+5, EN+6, EN+7, EN+9, EN+10, EN+11, EN+14!
APCLN	EN+6*, EN+14!, CODE+3
APCLOOP	EN+5*, EN+14!
APCLPCE	CODE+19!
APCLPD	EN~, CODE+3, CODE+10
APCLROOT	EN~, EN+1, EN+3, EN+4, EN+6
APCLSTP	EN+5, EN+12, EN+15!, CODE+1~, CODE+14, CODE+15, CODE+17, CODE+18, APCLWRTE+3, PAGE+4
APCLTMP	EN+6, EN+7, EN+8, EN+9, EN+10, EN+14!
APCLV	EN+6, EN+7, EN+8, EN+14!, CODE+4, CODE+5, CODE+11, CODE+13, CODE+15, CODE+17* , CODE+18, SET+3, PCT+1, PCT+2*
APCLWRTE	EN+14!, X2!
APCLWRTE(	EN+7, EN+9, EN+11*, APCLWRTE+3
APCLWRTE(1	APCLWRTE+1, APCLWRTE+2
APCLX	EN+14!, CODE+10!, APCLWRTE+3
APCLY	CODE+10*!
DIR	PAGE+2!
DIR(0	PAGE+2*
>> I	EN+6*
IOF	EN+2, EN+13, APCLWRTE+2, PAGE+5
IOM	EN+7, EN+9
IOSL	APCLWRTE+3
IOST	EN+2
U	EN+6, CODE+17, SET+3
>> Y	SET+3*, PAGE+3
>> ZTQUEUED	EN+2