Routine: BGP3DICR

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	3	($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
IHS GPRA Information System	1	$$RPTVER^BGP3BAN
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EOP	;EP - End of page.
ZIS	;call to XBDBQUE
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEADER	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
NOQUE	;
START	;EP
USR()	;EP - Return name of current user from ^VA(200.
INTRO	;
XIT	;
PRINT	;
QUE	;
HEADER1	;

Name	Field # of Occurrence
^%ZIS	ZIS+2
HOME^%ZIS	QUE+4
^%ZISC	NOQUE+3
^%ZTLOAD	QUE+3
$$RPTVER^BGP3BAN	START+2, HEADER1+8
^DIR	INTRO+3, HEADER+2, EOP+5
$$VAL^XBDIQ1	PRINT+9, PRINT+10, PRINT+11, PRINT+13, PRINT+15, PRINT+17, PRINT+19
$$VALI^XBDIQ1	PRINT+13, PRINT+15
^XBFMK	XIT+2
EN^XBVK	XIT+1
$$FMTE^XLFDT	HEADER1+5
$$REPEAT^XLFSTR	HEADER1+10

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR("2013 ICARE DATA ITEMS",80) Line Location: START+1
Function Call: WRITE	Prompt: !,$$CTR($$RPTVER^BGP3BAN,80) Line Location: START+2
Function Call: WRITE	Prompt: !!,"This report will list all individual measures that contain iCare data" Line Location: INTRO+1
Function Call: WRITE	Prompt: !,"data elements.",! Line Location: INTRO+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+25
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2),?70,"Page ",BGPPAGE,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR("* ICARE TEXT Report *",80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+7
Function Call: WRITE	Prompt: $$CTR($$RPTVER^BGP3BAN,80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: "ORDER",?10,"MEAS ID",?21,"ICARE GROUP",?42,"ICARE CATEGORY",?63,"EXCEPT",?70,"PER DIR",! Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,X Line Location: HEADER1+10
Function Call: WRITE	Prompt: ! Line Location: HEADER1+11
Function Call: WRITE	Prompt: ! Line Location: EOP+5
Routine Call	%ZIS Line Location: QUE+4
Routine Call	DIR Line Location: INTRO+3 HEADER+2 EOP+5
Routine Call	%ZIS Line Location: ZIS+2

Name	Line Occurrences (* Changed, ! Killed)
^BGPINDHC - [#90550.02]	PRINT+7, PRINT+9, PRINT+22, PRINT+24
^BGPINDHC("AB"	PRINT+4, PRINT+5, PRINT+6
^DIC(4 - [#4]	HEADER1+6, LOC+1
^VA(200 - [#200]	HEADER1+3, HEADER1+7, USR+1

Name	Line Occurrences
$$CTR	START+1, START+2, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8
EOP	PRINT+26
HEADER	PRINT+3, PRINT+8, PRINT+12, PRINT+14, PRINT+16, PRINT+18, PRINT+20, PRINT+23
HEADER1	HEADER+1
PRINT	NOQUE+2
QUE	ZIS+3
XIT	INTRO+4, INTRO+5, NOQUE+4, QUE+5

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

Name	Field # of Occurrence
%ZIS	ZIS+2!*
>> BGPGUI	PRINT+2
>> BGPIOSL	PRINT+2*
>> BGPO	PRINT+4*, PRINT+5, PRINT+6
>> BGPON	PRINT+5*, PRINT+6, PRINT+9
>> BGPPAGE	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2, HEADER1+3
>> BGPQUIT	PRINT+1, PRINT+4, PRINT+5, PRINT+6, PRINT+8, PRINT+12, PRINT+14, PRINT+16, PRINT+18, PRINT+20 , PRINT+22, PRINT+23, HEADER+2
>> BGPX	PRINT+6*, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+13, PRINT+15, PRINT+17, PRINT+19, PRINT+22 , PRINT+24
>> BGPY	PRINT+22*, PRINT+24
DA	INTRO+3!
DFOUT	EOP+4!
DIR	INTRO+3!, HEADER+2!, EOP+3~, EOP+4!, EOP+5!
DIR("A"	INTRO+3, EOP+5
DIR("B"	INTRO+3*
DIR(0	INTRO+3, HEADER+2, EOP+5*
DIRUT	INTRO+4, EOP+4!
DLOUT	EOP+4!
DT	HEADER1+5
DTOUT	HEADER+2, EOP+4!
DUOUT	EOP+4!
DUZ	HEADER1+3, HEADER1+7, USR+1
DUZ(2	HEADER1+6, LOC+1
IO	ZIS+2*, NOQUE+1, HEADER+2
IO("Q"	ZIS+3
IO("S"	HEADER+2, EOP+2
IO(0	ZIS+2, HEADER+2
IOF	HEADER1+2
IOM	CTR+1
ION	QUE+2
IOP	ZIS+2!
IOSL	PRINT+2, PRINT+8, PRINT+12, PRINT+14, PRINT+16, PRINT+18, PRINT+20, PRINT+23
IOST	HEADER+2, EOP+1
>> IOT	EOP+2
>> POP	ZIS+2
U	PRINT+7, PRINT+9, HEADER1+3, HEADER1+6, HEADER1+7, USR+1, LOC+1
X	HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+10, CTR~, CTR+1
Y	INTRO+5, HEADER+2, CTR~, CTR+1
>> ZTDESC	QUE+2*
>> ZTDTH	QUE+2*
>> ZTIO	QUE+2*
>> ZTQUEUED	XIT+1, HEADER+2, EOP+2
>> ZTREQ	XIT+1*
>> ZTRTN	QUE+2*
ZTSAVE	QUE+1!
ZTSAVE("BGP*"	QUE+1*
ZTSK	ZIS+1!