Routine: BGP8POS

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

Package

Total

Call Graph

IHS GPRA Information System

^BGP84 ^BGP85 ^BGP86 (DRUGS,LAB)^BGP8POS1 PRE^BGP8POS2

VA Fileman

(,IX)^DIC ^DIE (,IX1)^DIK

Kernel

$$CJ^XLFSTR ($$VERSION,MES)^XPDUTL

IHS VA Utilities

$$VAL^XBDIQ1

M Transfer

GUIEP^BMXPO

Entry Points

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

External References

Name	Field # of Occurrence
^BGP84	POST+1
^BGP85	POST+2
^BGP86	POST+3
DRUGS^BGP8POS1	POST+6
LAB^BGP8POS1	POST+7
PRE^BGP8POS2	PRE+2
GUIEP^BMXPO	BMXPO+5, BMXPO+6
^DIC	INSTALLD+9, INSTALLD+12, ADA+5, ADA+9, RXNORM1+5
IX^DIC	INSTALLD+6
^DIE	RNINTUSS+2, OOO+5
^DIK	S17+2, S17+4, S17+6, CLEAN+6, ADA+3
IX1^DIK	ADA+13, RXNORM1+8, RXNORM1+17
$$VAL^XBDIQ1	RXNORM1+14
$$CJ^XLFSTR	BGP8POS+9, BGP8POS+10, IMES+1, SORRY+4
$$VERSION^XPDUTL	BGP8POS+10
MES^XPDUTL	BGP8POS+9, BGP8POS+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: RNINTUSS+2 OOO+5
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12 ADA+5 ADA+9 RXNORM1+5
Routine Call	DIC Line Location: INSTALLD+6

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
^AUTTADA - [#9999999.31]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	NDC+1, NDC+2, NDC+3, NDC+4, NDC+5, ADA+7, ADA+11, RXNORM1+7, RXNORM1+10, RXNORM1+12* , RXNORM1+15, RXNORM1+16*
^ATXAX("B"	RNINTUSS+1, ADA+2, RXNORM1+3
^BGPGPDBR - [#90560.05]	S17+5
^BGPGPDCR - [#90560.03]	S17+1
^BGPGPDPR - [#90560.04]	S17+3
^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

Name	Line Occurrences
$$INSTALLD	BGP8POS+9
ADA	POST+10
BMXPO	POST+9
CLEAN	BMXPO+4
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
OOO	T+1
RNINTUSS	POST+5
RXNORM	POST+8
RXNORM1	RXNORM+2, RXNORM+3, RXNORM+4
S17	POST+11
SORRY	BGP8POS+9, BGP8POS+10

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	RNINTUSS+2, RNINTUSS+3!, 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, NDC+1, NDC+2, NDC+3, NDC+4 , NDC+5, 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	RNINTUSS+1, RNINTUSS+2, RNINTUSS+3!, OOO+2, OOO+5!, S17+2, S17+4, S17+6, 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	RNINTUSS+2, RNINTUSS+3!, OOO+3, OOO+5!
DIFQ	SORRY+1!
>> DIK	S17+2, S17+4, S17+6, CLEAN+2, ADA+3, ADA+13, RXNORM1+8, RXNORM1+17
DLAYGO	ADA+5!, ADA+9!, RXNORM1+5!
DQ	ADA+9!
DR	RNINTUSS+2, RNINTUSS+3!, 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	NDC+2, NDC+3, NDC+4, NDC+5, ADA+7, ADA+9, ADA+11, RXNORM1+7, RXNORM1+12, RXNORM1+16
X	BGP8POS+8, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3, ADA+5, ADA+9 , RXNORM1+5*
>> XPDDIQ(	BGP8POS+8*
>> XPDDIQ("XPZ1"	BGP8POS+7*
>> XPDDIQ("XPZ2"	BGP8POS+7*
>> XPDENV	BGP8POS+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: BGP8POS

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: