Routine: BGP0DMT

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

Entry Points

Name	Comments	DBIA/ICR reference
CRS	;EP
HEDIS	;EP
NOQUE	;
GPRA	;EP
EOP	;EP - End of page.
PRINT	;
CMS	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
ONM	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
INTROT	;introductory text
HEADER1	;
EO	;EP
ZIS	;call to XBDBQUE
N	;GATHER UP AND DISPLAY ALL NATIONAL GPRA
HEADER	;EP
XIT	;
START	;
USR()	;EP - Return name of current user from ^VA(200.
ELDER	;EP
INTRO	;
QUE	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS+2
HOME^%ZIS	QUE+4
^%ZISC	NOQUE+3
^%ZTLOAD	QUE+3
$$RPTVER^BGP0BAN	START+6, HEADER1+6
^DIR	INTRO+5, HEADER+2, EOP+5
^XBFMK	XIT+2
EN^XBVK	XIT+1
$$FMTE^XLFDT	HEADER1+7
$$REPEAT^XLFSTR	HEADER1+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR("Medication Taxonomy Report",80) Line Location: START+5
Function Call: WRITE	Prompt: !,$$CTR($$RPTVER^BGP0BAN,80) Line Location: START+6
Function Call: WRITE	Prompt: !!,"Site populated Medication Taxonomy Report for the: ",!?5,BGPRPTN," Report",! Line Location: INTRO+1
Function Call: WRITE	Prompt: !,^BGPCTRL(BGPCTRL,44,X,0) Line Location: INTRO+4
Function Call: WRITE	Prompt: !!?3,BGPC,".",?8,BGPTNAME,!?8,"WARNING - You are missing this taxonomy in the Taxonomy file." Line Location: N+16
Function Call: WRITE	Prompt: ?17,"NONE" Line Location: N+28
Function Call: WRITE	Prompt: ?17,BGPY,") ",BGPLABS(BGPY) Line Location: N+31
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: "ZZZZZZZ",! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2),?70,"Page ",BGPPAGE,! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR("* Medication Taxonomy Report *",80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR($$RPTVER^BGP0BAN,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+9
Function Call: WRITE	Prompt: !!,$$CTR(BGPSUBH1_" TAXONOMIES",80),! Line Location: HEADER1+11
Function Call: WRITE	Prompt: !,X Line Location: HEADER1+12
Function Call: WRITE	Prompt: ! Line Location: HEADER1+13
Function Call: WRITE	Prompt: ! Line Location: EOP+5
Routine Call	%ZIS Line Location: QUE+4
Routine Call	DIR Line Location: INTRO+5 HEADER+2 EOP+5
Routine Call	%ZIS Line Location: ZIS+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	N+19
^ATXAX("B"	N+14
^BGPCTRL - [#90241.01]	INTRO+4
^BGPCTRL("B"	INTRO+3
^BGPTAXT - [#90377.08]	N+6, N+7, N+8, N+11
^BGPTAXT("B"	N+3, N+4
^DIC(4 - [#4]	HEADER1+8, LOC+1
^PSDRUG - [#50]	N+20
^VA(200 - [#200]	HEADER1+4, HEADER1+9, USR+1

Label References

Name	Line Occurrences
$$CTR	START+5, START+6, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+11
EOP	PRINT+5
HEADER	PRINT+3, N+2, N+26, N+30
HEADER1	HEADER+1
N	PRINT+4
PRINT	NOQUE+2
QUE	ZIS+3
START	CMS+3, ELDER+3, HEDIS+3, CRS+3, ONM+3, GPRA+3, EO+3
XIT	INTRO+6, INTRO+7, NOQUE+4, QUE+5, CMS+1, ELDER+1, HEDIS+1, CRS+1, ONM+1, GPRA+1 , EO+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ZIS+2!*
>> BGPC	N+1, N+15, N+16, N+27
>> BGPCTRL	INTRO+3*, INTRO+4
>> BGPGUI	START+1, START+4, CMS+1, ELDER+1, HEDIS+1, CRS+1, ONM+1, GPRA+1, EO+1, PRINT+2 , HEADER1+3
>> BGPIOSL	PRINT+2*, N+2, N+26, N+30
BGPLABS	N+18!, N+28
BGPLABS(	N+23*, N+29, N+31
>> BGPLC	N+18*
>> BGPLC1	N+18, N+23
>> BGPLTI	N+14*, N+16, N+19
>> BGPNO(	N+12
>> BGPPAGE	START+2, PRINT+1, HEADER+1, HEADER1+1*, HEADER1+2, HEADER1+3, HEADER1+4
>> BGPQUIT	PRINT+1, N+2, N+3, N+19, N+26, N+29, N+30, HEADER+2
>> BGPRPTN	START+3, INTRO+1, INTRO+2, CMS+2, ELDER+2, HEDIS+2, CRS+2, ONM+2, GPRA+2, EO+2*
>> BGPRT(	N+8
>> BGPRT(1	GPRA+2*
>> BGPRT(2	CRS+2*
>> BGPRT(3	HEDIS+2*
>> BGPRT(4	ELDER+2*
>> BGPRT(5	CMS+2*
>> BGPRT(7	ONM+2*
>> BGPRT(8	EO+2*
>> BGPSUBH	START+3, INTRO+2
>> BGPSUBH1	START+3, INTRO+2, HEADER1+11
>> BGPTIEN	N+4*, N+5, N+6, N+7, N+8, N+11
>> BGPTNAME	N+3*, N+4, N+14, N+16, N+27
>> BGPX	N+19*, N+20
>> BGPY	N+29*, N+31
DA	INTRO+5!
DFOUT	EOP+4!
DIR	INTRO+5!, HEADER+2!, EOP+3~, EOP+4!, EOP+5!
DIR("A"	INTRO+5, EOP+5
DIR("B"	INTRO+5*
DIR(0	INTRO+5, HEADER+2, EOP+5*
DIRUT	INTRO+6, EOP+4!
DLOUT	EOP+4!
DT	HEADER1+7
DTOUT	HEADER+2, EOP+4!
DUOUT	EOP+4!
DUZ	HEADER1+4, HEADER1+9, USR+1
DUZ(2	HEADER1+8, LOC+1
>> G	N+8, N+9, N+11, N+12*, N+13
IO	ZIS+2*, NOQUE+1, HEADER+2
IO("Q"	ZIS+3
IO("S"	EOP+2
IO(0	ZIS+2, HEADER+2
IOF	START+4, HEADER1+2
IOM	CTR+1
ION	QUE+2
IOP	ZIS+2!
IOSL	PRINT+2
IOST	HEADER+2, EOP+1
>> IOT	EOP+2
>> POP	ZIS+2
U	N+7, N+20, HEADER1+4, HEADER1+8, HEADER1+9, USR+1, LOC+1
X	INTRO+4, N+8, N+11, N+12, N+20, N+21, N+23, HEADER1+7, HEADER1+8, HEADER1+9* , HEADER1+12*, CTR~, CTR+1
Y	INTRO+7, 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!

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP0DMT

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: