Routine: BGP31POS

Package	Total	Call Graph
Kernel	2	$$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
VA Fileman	2	(,IX)^DIC (,IX1)^DIK

Package

Total

Call Graph

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

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

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
^DIC	INSTALLD+9, INSTALLD+12, ADA+5, ADA+9, SETP+6
IX^DIC	INSTALLD+6
^DIK	ADA+3
IX1^DIK	ADA+13
$$CJ^XLFSTR	BGP31POS+9, IMES+1, SORRY+4
$$VERSION^XPDUTL	BGP31POS+9
MES^XPDUTL	BGP31POS+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	BGP31POS+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(	BGP31POS+8*
>> XPDDIQ("XPZ1"	BGP31POS+7*
>> XPDDIQ("XPZ2"	BGP31POS+7*
>> XPDENV	BGP31POS+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!

Information