Routine: BGP7POS

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

Package

Total

Call Graph

^BGP73 (DRUGS,LAB)^BGP7POS1 PRE^BGP7POS2

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

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

GUIEP^BMXPO

Name	Comments	DBIA/ICR reference
PRE	;EP
IMES	;
CLEAN(APP)	;-- clean out the RPC multiple first
NDC	;
S17	;WIPE OUT ALL 17.0 FILES SO START CLEAN WITH 17.1 FILES
SORRY(X)	;
T
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".

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Function Call: WRITE	Prompt: !,"Creating/Updating DENTAL EXAM ADA Codes Taxonomy..." Line Location: ADA+4
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING DENTAL EXAM ADA CODES TAX" Line Location: ADA+6
Routine Call	DIE Line Location: T+3
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12 ADA+5 ADA+9
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	T+1, NDC+1, NDC+2, NDC+3, NDC+4, NDC+5, ADA+7, ADA+11
^ATXAX("B"	T, T+2, ADA+2
^BGPGPDBG - [#90558.05]	S17+5
^BGPGPDCG - [#90558.03]	S17+1
^BGPGPDPG - [#90558.04]	S17+3
^DIC(19 - [#19]	BMXPO+2, CLEAN+4, CLEAN+7!

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

Name	Field # of Occurrence
APP	CLEAN~, CLEAN+1, CLEAN+4, CLEAN+7
>> ATXFLG	T+3, ADA+1
BGPDA	CLEAN+3~, CLEAN+4, CLEAN+5, ADA+2, ADA+3
BGPRPC	BMXPO+1~, BMXPO+2*, BMXPO+3, BMXPO+4, BMXPO+5, BMXPO+6
BGPSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> BGPTX	ADA+7*, ADA+11, ADA+13
>> 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
BGPY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
D0	ADA+9!
D1	ADA+9!
DA	T, T+1, T+2, T+3, S17+2, S17+4, S17+6, CLEAN+5, ADA+3, ADA+5! , ADA+9!, ADA+13
DA(1	CLEAN+1*, CLEAN+2
DI	ADA+9!
DIADD	ADA+5*!, ADA+9!
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11, ADA+5!, ADA+9*!
DIC(0	INSTALLD+5, ADA+5, ADA+9*
>> DIE	T+3*
DIFQ	SORRY+1!
>> DIK	S17+2, S17+4, S17+6, CLEAN+2, ADA+3, ADA+13
DLAYGO	ADA+5*!, ADA+9!
DQ	ADA+9!
DR	T+3*, ADA+9!
DT	ADA+7
DUZ	ADA+7
I	ADA+5!
IOM	IMES+1, SORRY+4
>> RETVAL	BMXPO+5, BMXPO+6
U	T+1, NDC+2, NDC+3, NDC+4, NDC+5, ADA+7, ADA+9, ADA+11
X	BGP7POS+8, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3, ADA+5, ADA+9
>> XPDDIQ(	BGP7POS+8*
>> XPDDIQ("XPZ1"	BGP7POS+7*
>> XPDDIQ("XPZ2"	BGP7POS+7*
>> XPDENV	BGP7POS+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

Information