Routine: BDMPRT

Information

BDMPRT ; 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
Diabetes Registry	1	BDMASK

Name	Comments	DBIA/ICR reference
SET	; Set Value and or Date from PCC SCRIPT
EN(BDMDFN,BDMROOT,BDMPD)	;PEP - create report
BDMWRTE	; Write line
CODE	; Get date or value from data fetcher
PCT	; Determine BDM
X2
X1
PAGE	; Page Control

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: BDMWRTE+2
Function Call: WRITE	Prompt: !,BDMWRTE(BDMX) Line Location: BDMWRTE+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
>> BDMASK	EN+15
BDMBRK	EN+2*, EN+12, EN+14!, BDMWRTE+1, BDMWRTE+3
BDMCNT	EN+5, EN+14!, BDMWRTE+2, BDMWRTE+3, PAGE+3
BDMCODE	EN+6!, EN+7, CODE+3, CODE+4, CODE+5, CODE+6, CODE+7, CODE+8, CODE+9*, CODE+10
>> BDMDATE	CODE+5, CODE+9
BDMDF	CODE+13!, CODE+16!, CODE+19!
BDMDF(	CODE+14, CODE+17, SET+3
BDMDFN	EN~, EN+5, EN+6, CODE+3
BDMDIS	CODE+1~, CODE+6*, CODE+8, CODE+14, CODE+16, SET+3
BDMENDR	EN+3, EN+4, EN+14!
BDMER	CODE+2!, CODE+10*, CODE+11!, CODE+12!
BDMI	EN+14!, CODE+1~, CODE+14, CODE+17, SET+3
BDML	EN+5, EN+7, EN+9, EN+11, EN+14!, BDMWRTE+3
BDMLINE	EN+5, EN+6, EN+7, EN+9, EN+10, EN+11, EN+14!
BDMN	EN+6*, EN+14!, CODE+3
BDMOOP	EN+5*, EN+14!
BDMPCE	CODE+19!
BDMPD	EN~, CODE+3, CODE+10
BDMROOT	EN~, EN+1, EN+3, EN+4, EN+6
BDMSTP	EN+5, EN+12, EN+15!, CODE+1~, CODE+14, CODE+15, CODE+17, CODE+18, BDMWRTE+3, PAGE+4
BDMTMP	EN+6, EN+7, EN+8, EN+9, EN+10, EN+14!
BDMV	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*
BDMWRTE	EN+14!, X2!
BDMWRTE(	EN+7, EN+9, EN+11*, BDMWRTE+3
BDMWRTE(1	BDMWRTE+1, BDMWRTE+2
BDMX	EN+14!, CODE+10!, BDMWRTE+3
BDMY	CODE+10*!
DIR	PAGE+2!
DIR(0	PAGE+2*
>> I	EN+6*
IOF	EN+2, EN+13, BDMWRTE+2, PAGE+5
IOM	EN+7, EN+9
IOSL	BDMWRTE+3
IOST	EN+2
U	EN+6, CODE+17, SET+3
>> Y	SET+3*, PAGE+3
>> ZTQUEUED	EN+2