Routine: BGP8DLT

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^BGP8BAN
VA Fileman	1	^DIR

Entry Points

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

External References

Name	Field # of Occurrence
^%ZIS	ZIS+2
HOME^%ZIS	QUE+4
^%ZISC	NOQUE+3
^%ZTLOAD	QUE+3
$$RPTVER^BGP8BAN	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("Lab Taxonomy Report",80) Line Location: START+5
Function Call: WRITE	Prompt: !,$$CTR($$RPTVER^BGP8BAN,80) Line Location: START+6
Function Call: WRITE	Prompt: !!,"Site populated Lab Taxonomy Report for the: ",!?5,BGPRPTN," Report",! Line Location: INTRO+1
Function Call: WRITE	Prompt: !,^BGPCTRL(BGPCTRL,43,X,0) Line Location: INTRO+4
Function Call: WRITE	Prompt: !!?3,BGPC,".",?8,BGPTNAME,!?8,"WARNING - You are missing this taxonomy in the Lab Taxonomy file." Line Location: N+17
Function Call: WRITE	Prompt: ?17,"NONE" Line Location: N+29
Function Call: WRITE	Prompt: ?17,BGPY,") ",BGPLABS(BGPY) Line Location: N+32
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("* Lab Taxonomy Report *",80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR($$RPTVER^BGP8BAN,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)
^ATXLAB - [#9002228]	N+20
^ATXLAB("B"	N+15
^BGPCTRL - [#90241.01]	INTRO+4
^BGPCTRL("B"	INTRO+3
^BGPTAXR - [#90560.08]	N+6, N+7, N+8, N+12
^BGPTAXR("B"	N+3, N+4
^DIC(4 - [#4]	HEADER1+8, LOC+1
^LAB(60 - [#60]	N+21
^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+27, N+31
HEADER1	HEADER+1
N	PRINT+4
PRINT	NOQUE+2
QUE	ZIS+3
START	ELDER+3, CRS+3, ONM+3, GPRA+3, IPC+3
XIT	INTRO+6, INTRO+7, NOQUE+4, QUE+5, ELDER+1, CRS+1, ONM+1, GPRA+1, IPC+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+16, N+17, N+28
>> BGPCTRL	INTRO+3*, INTRO+4
>> BGPGUI	START+1, START+4, ELDER+1, CRS+1, ONM+1, GPRA+1, IPC+1, PRINT+2, HEADER1+3
>> BGPIOSL	PRINT+2*, N+2, N+27, N+31
BGPLABS	N+19!, N+29
BGPLABS(	N+24*, N+30, N+32
>> BGPLC	N+19*
>> BGPLC1	N+19, N+24
>> BGPLTI	N+15*, N+17, N+20
>> BGPNO(	N+13
>> BGPPAGE	START+2, PRINT+1, HEADER+1, HEADER1+1*, HEADER1+2, HEADER1+3, HEADER1+4
>> BGPQUIT	PRINT+1, N+2, N+3, N+20, N+27, N+30, N+31, HEADER+2
>> BGPRPTN	START+3, INTRO+1, INTRO+2, ELDER+2, CRS+2, ONM+2, GPRA+2, IPC+2*
>> BGPRT(	N+9
>> BGPRT(1	GPRA+2*
>> BGPRT(2	CRS+2*
>> BGPRT(4	ELDER+2*
>> BGPRT(7	ONM+2*
>> BGPRT(8	IPC+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+12
>> BGPTNAME	N+3*, N+4, N+15, N+17, N+28
>> BGPX	N+20*, N+21
>> BGPY	N+30*, N+32
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+10, N+12, N+13, N+14
IO	ZIS+2*, NOQUE+1, HEADER+2
IO("Q"	ZIS+3
IO("S"	HEADER+2, 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+21, HEADER1+4, HEADER1+8, HEADER1+9, USR+1, LOC+1
X	INTRO+4, N+8, N+9, N+12, N+13, N+21, N+22, N+24, 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: BGP8DLT

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: