Routine: BGP21POS

Package	Total	Call Graph
IHS GPRA Information System	14	^BGP20 ^BGP23 ^BGP24 ^BGP25 ^BGP26 ^BGP27 ^BGP28 ^BGP29 DRUGS^BGP2POS1 PRE^BGP2POS2 ^BGP2T ^BGP2V ^BGP2W ^BGP2Y
Kernel	2	$$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
VA Fileman	2	(,IX)^DIC (,IX1)^DIK

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP
IMES	;
NS(T,L)	;
SETTAX	;
SETTAXF	;
SORRY(X)	;
ADA	;
SETP
POST	;EP - called from kids build
RO(T)	;
INSTALLD(BGPSTAL)	;EP - Determine if patch BGPSTAL was installed, where ; BGPSTAL is the name of the INSTALL. E.g "AG6.011".

Name	Field # of Occurrence
^BGP20	POST+10
^BGP23	POST+3
^BGP24	POST+4
^BGP25	POST+5
^BGP26	POST+6
^BGP27	POST+7
^BGP28	POST+8
^BGP29	POST+9
DRUGS^BGP2POS1	POST+15
PRE^BGP2POS2	PRE+1
^BGP2T	POST+14
^BGP2V	POST+13
^BGP2W	POST+12
^BGP2Y	POST+11
^DIC	INSTALLD+9, INSTALLD+12, ADA+5, ADA+9, SETP+6
IX^DIC	INSTALLD+6
^DIK	ADA+3
IX1^DIK	ADA+13
$$CJ^XLFSTR	BGP21POS+9, IMES+1, SORRY+4
$$VERSION^XPDUTL	BGP21POS+9
MES^XPDUTL	BGP21POS+9, IMES+1

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
Function Call: WRITE	Prompt: !,"updating package multiple for ",BGPPP," entry ",$P(^ATXAX(BGPDA,0),U)," failed" Line Location: SETP+7
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12 ADA+5 ADA+9 SETP+6
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ADA+7, ADA+11, SETTAX+5, SETTAX+6, SETTAX+7, SETTAX+8*, SETP+4, SETP+7
^ATXAX("B"	ADA+2, SETTAX+1, SETTAX+2
^ATXLAB - [#9002228]	SETTAXF+1, SETTAXF+2, SETTAXF+3*
^DD(9002226	SETP+5
^DIC(9.4 - [#9.4]	SETP+2

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

Name	Field # of Occurrence
>> ATXFLG	ADA+1*
>> BGPDA	ADA+2*, ADA+3, SETP+7
>> BGPPI	SETP+2*, SETP+3, SETP+4, SETP+5
>> BGPPP	SETP+7
BGPSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> BGPTDA	SETTAX+2*, SETTAX+3, SETTAX+5, SETTAX+6, SETTAX+7, SETTAX+8, SETP+4, SETP+5
>> BGPTFI	SETTAX+1*, SETTAX+2, SETTAX+4, SETTAX+8
>> BGPTX	ADA+7*, ADA+11, ADA+13
>> BGPX	ADA+8, ADA+10, ADA+11
BGPY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
D0	ADA+9!
D1	ADA+9!
DA	ADA+3, ADA+5!, ADA+9!, ADA+13, SETP+1!, SETP+8!
DA(1	SETP+5*
DI	ADA+9!
DIADD	ADA+5*!, ADA+9!
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11, ADA+5!, ADA+9!, SETP+1!, SETP+5, SETP+8!
DIC("P"	SETP+5*
DIC(0	INSTALLD+5, ADA+5, ADA+9, SETP+5
DIFQ	SORRY+1!
>> DIK	ADA+3, ADA+13
DLAYGO	ADA+5*!, ADA+9!
DQ	ADA+9!
DR	ADA+9!, SETP+1!
DT	ADA+7
DUZ	ADA+7
>> F	SETTAX+6*, SETTAX+7
I	ADA+5!
IOM	IMES+1, SORRY+4
L	NS~
T	RO~, RO+1, RO+2, RO+3, RO+4, RO+5, RO+6, NS~, NS+1, NS+2
U	ADA+7, ADA+9, ADA+11, SETTAXF+2, SETTAXF+3, SETTAX+5, SETTAX+6, SETTAX+7, SETTAX+8, SETP+5 , SETP+7
X	BGP21POS+8, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3, ADA+5, ADA+9 , SETTAXF+1, SETTAXF+2, SETTAXF+3, SETP+5, SETP+8!
>> XPDDIQ(	BGP21POS+8*
>> XPDDIQ("XPZ1"	BGP21POS+7*
>> XPDDIQ("XPZ2"	BGP21POS+7*
>> XPDENV	BGP21POS+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, SETP+7, SETP+8!