Routine: BGP8P181

Package	Total	Call Graph
VA Fileman	3	(,IX)^DIC ^DIE (,IX1)^DIK
Kernel	2	$$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
IHS GPRA Information System	1	(DRUGS,LAB)^BGP8POS1
IHS VA Utilities	1	$$VAL^XBDIQ1
M Transfer	1	GUIEP^BMXPO

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP
IMES	;
RXNORM1	;
CLEAN(APP)	;-- clean out the RPC multiple first
OOO	;
S17	;WIPE OUT ALL 18.0 FILES SO START CLEAN WITH 18.1 FILES
RXNORM	;
SORRY(X)	;
T	;OOO OPTIONS
ADA	;
POST	;EP - called from kids build
BMXPO	;-- update the RPC file
INSTALLD(BGPSTAL)	;EP - Determine if patch BGPSTAL was installed, where ; BGPSTAL is the name of the INSTALL. E.g "AG6.011".

External References

Name	Field # of Occurrence
DRUGS^BGP8POS1	POST+1
LAB^BGP8POS1	POST+2
GUIEP^BMXPO	BMXPO+5, BMXPO+6
^DIC	INSTALLD+9, INSTALLD+12, ADA+5, ADA+9, RXNORM1+5
IX^DIC	INSTALLD+6
^DIE	OOO+5
^DIK	S17+2, S17+4, S17+6, S17+8, S17+10, S17+12, S17+14, S17+16, S17+18, CLEAN+6 , ADA+3
IX1^DIK	ADA+13, RXNORM1+8, RXNORM1+17
$$VAL^XBDIQ1	RXNORM1+14
$$CJ^XLFSTR	BGP8P181+10, IMES+1, SORRY+4
$$VERSION^XPDUTL	BGP8P181+10
MES^XPDUTL	BGP8P181+10, IMES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Function Call: WRITE	Prompt: !,"Creating/Updating BGP IPC BMI ADA Codes Taxonomy..." Line Location: ADA+4
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING BGP IPC BMI ADA CODES TAX" Line Location: ADA+6
Function Call: WRITE	Prompt: !,BGPRXN Line Location: RXNORM1+1
Function Call: WRITE	Prompt: !,"Creating ",BGPX," Taxonomy..." Line Location: RXNORM1+2
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING ",BGPX," TAX" Line Location: RXNORM1+6
Routine Call	DIE Line Location: OOO+5
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12 ADA+5 ADA+9 RXNORM1+5
Routine Call	DIC Line Location: INSTALLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^ATXAX - [#9002226]	Classic Fileman Calls
^BGPGPDCR - [#90560.03]	Classic Fileman Calls
^BGPGPDPR - [#90560.04]	Classic Fileman Calls
^BGPGPDBR - [#90560.05]	Classic Fileman Calls
^BGPPEDCR - [#90560.12]	Classic Fileman Calls
^BGPPEDPR - [#90560.13]	Classic Fileman Calls
^BGPPEDBR - [#90560.14]	Classic Fileman Calls
^BGPEDLCR - [#90561.03]	Classic Fileman Calls
^BGPEDLPR - [#90561.04]	Classic Fileman Calls
^BGPEDLBR - [#90561.05]	Classic Fileman Calls
^AUTTADA - [#9999999.31]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ADA+7, ADA+11, RXNORM1+7, RXNORM1+10, RXNORM1+12, RXNORM1+15, RXNORM1+16*
^ATXAX("B"	ADA+2, RXNORM1+3
^BGPEDLBR - [#90561.05]	S17+11
^BGPEDLCR - [#90561.03]	S17+7
^BGPEDLPR - [#90561.04]	S17+9
^BGPGPDBR - [#90560.05]	S17+5
^BGPGPDCR - [#90560.03]	S17+1
^BGPGPDPR - [#90560.04]	S17+3
^BGPPEDBR - [#90560.14]	S17+17
^BGPPEDCR - [#90560.12]	S17+13
^BGPPEDPR - [#90560.13]	S17+15
^BGPSNOMR - [#90560.21]	RXNORM1+14
^BGPSNOMR("B"	RXNORM1+13
^DIC(19 - [#19]	OOO+1, OOO+2, BMXPO+2, CLEAN+4, CLEAN+7!
^PSDRUG - [#50]	RXNORM1+14

Label References

Name	Line Occurrences
CLEAN	BMXPO+4
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
OOO	T+1
RXNORM	POST+3
RXNORM1	RXNORM+2, RXNORM+3, RXNORM+4
S17	POST+4
SORRY	BGP8P181+10

Naked Globals

Name	Field # of Occurrence
^(0	ADA+7, ADA+11, RXNORM1+7*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	RXNORM1+10*
APP	CLEAN~, CLEAN+1, CLEAN+4, CLEAN+7
>> ATXFLG	ADA+1, RXNORM+1
>> B	RXNORM1+10*, RXNORM1+11, RXNORM1+12
>> BGPC	RXNORM1+11, RXNORM1+16
BGPDA	CLEAN+3~, CLEAN+4, CLEAN+5, ADA+2, ADA+3
>> BGPN	OOO+1*, OOO+2
BGPRPC	BMXPO+1~, BMXPO+2*, BMXPO+3, BMXPO+4, BMXPO+5, BMXPO+6
>> BGPRXN	RXNORM+2, RXNORM+3, RXNORM+4*, RXNORM1+1, RXNORM1+9, RXNORM1+13
BGPSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> BGPTX	ADA+7, ADA+11, ADA+13, RXNORM1+3, RXNORM1+4, RXNORM1+7*, RXNORM1+8, RXNORM1+10, RXNORM1+12, RXNORM1+15 , RXNORM1+16, RXNORM1+17
>> BGPX	S17+1, S17+2, S17+3, S17+4, S17+5, S17+6, S17+7, S17+8, S17+9, S17+10 , S17+11, S17+12, S17+13, S17+14, S17+15, S17+16, S17+17, S17+18, ADA+8, ADA+10* , ADA+11, RXNORM+2, RXNORM+3, RXNORM+4*, RXNORM1+2, RXNORM1+3, RXNORM1+5, RXNORM1+6, RXNORM1+7
BGPY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> C	RXNORM1+14*
>> D	INSTALLD+5*
D0	ADA+9!
D1	ADA+9!
DA	OOO+2, OOO+5!, S17+2, S17+4, S17+6, S17+8, S17+10, S17+12, S17+14, S17+16* , S17+18, CLEAN+5, ADA+3, ADA+5!, ADA+9!, ADA+13, RXNORM1+5!, RXNORM1+8, RXNORM1+17
DA(1	CLEAN+1*, CLEAN+2
DI	ADA+9!
DIADD	ADA+5!, ADA+9!, RXNORM1+5!
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11, ADA+5!, ADA+9!, RXNORM1+5!
DIC(0	INSTALLD+5, ADA+5, ADA+9, RXNORM1+5
DIE	OOO+3*, OOO+5!
DIFQ	SORRY+1!
>> DIK	S17+2, S17+4, S17+6, S17+8, S17+10, S17+12, S17+14, S17+16, S17+18, CLEAN+2 , ADA+3, ADA+13, RXNORM1+8, RXNORM1+17
DLAYGO	ADA+5!, ADA+9!, RXNORM1+5!
DQ	ADA+9!
DR	OOO+4*, OOO+5!, ADA+9!
DT	ADA+7, RXNORM1+7
DUZ	ADA+7
I	ADA+5!, RXNORM1+5!
IOM	IMES+1, SORRY+4
>> J	RXNORM1+14*, RXNORM1+15, RXNORM1+16
>> RETVAL	BMXPO+5, BMXPO+6
U	ADA+7, ADA+9, ADA+11, RXNORM1+7, RXNORM1+12, RXNORM1+16
X	BGP8P181+8, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3, ADA+5, ADA+9 , RXNORM1+5*
>> XPDDIQ(	BGP8P181+8*
>> XPDDIQ("XPZ1"	BGP8P181+7*
>> XPDDIQ("XPZ2"	BGP8P181+7*
>> XPDENV	BGP8P181+7
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1, ADA+6, ADA+7, ADA+9 , ADA+11, RXNORM1+4, RXNORM1+6, RXNORM1+7
>> Z	RXNORM1+13*, RXNORM1+14

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8P181

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: