Routine: BGP80P1

Package	Total	Call Graph
VA Fileman	3	(,IX)^DIC (,UPDATE)^DIE ^DIK
Kernel	2	$$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
IHS GPRA Information System	1	^BGP80TX
IHS VA Utilities	1	EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP
IMES	;
SETTAXL	;
PRVS	;
CLINICS	;
SETTAX	;
PREPROV	;;
SORRY(X)	;
LP	;EP - loop through file entries
SEC	;set security on selected dd's
POST	;EP - called from kids build
TXT	;file entries start here
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
^BGP80TX	POST+20
^DIC	SETTAX+19, SETTAXL+19, INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
^DIE	POST+14, POST+16
UPDATE^DIE	POST+10
^DIK	PRE+1, PRE+2, PRE+3
EN^XBVK	POST+18, POST+24
$$CJ^XLFSTR	IMES+1, SORRY+4
$$VERSION^XPDUTL	BGP80P1+9
MES^XPDUTL	IMES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Error install BMX ADO SCHEMA, CMI VIEW HOSPITAL LOCATION" Line Location: POST+11
Function Call: WRITE	Prompt: !,"updating package multiple for ",BGPPP," entry ",$P(^ATXAX(BGPDA,0),U)," failed" Line Location: SETTAX+20
Function Call: WRITE	Prompt: !,"updating package multiple for ",BGPPP," entry ",$P(^ATXAX(BGPDA,0),U)," failed" Line Location: SETTAXL+20
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: POST+10
Routine Call	DIE Line Location: POST+14 POST+16
Routine Call	DIC Line Location: SETTAX+19 SETTAXL+19 INSTALLD+9 INSTALLD+12
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
^BGPCTRL - [#90241.01]	Classic Fileman Calls
^BGPINDE - [#90533.01]	Classic Fileman Calls
^BGPELIE - [#90535.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	POST+22, SETTAX+10, SETTAX+11, SETTAX+12, SETTAX+17, SETTAX+20, SETTAXL+20
^ATXAX("B"	SETTAX+7
^ATXLAB - [#9002228]	POST+23, SETTAXL+10, SETTAXL+11, SETTAXL+12, SETTAXL+17
^ATXLAB("B"	SETTAXL+7
^BGPCTRL - [#90241.01]	PRE+1
^BGPELIE - [#90535.06]	PRE+3
^BGPINDE - [#90533.01]	PRE+2
^BGPTAXE - [#90533.08]	SETTAX+5, SETTAX+6, SETTAX+9, SETTAXL+5, SETTAXL+6, SETTAXL+9
^BGPTAXE("B"	SETTAX+2, SETTAX+3, SETTAXL+2, SETTAXL+3
^BMXADO("B"	POST+1
^DD(9002226	SETTAX+1, SETTAX+18
^DD(9002228	SETTAXL+1, SETTAXL+18
^DIC(19 - [#19]	POST+13, POST+15
^DIC(9.4 - [#9.4]	SETTAX+15, SETTAXL+15
^TMP("ATX"	POST+19!

Label References

Name	Line Occurrences
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
SEC	POST+27
SETTAX	POST+25
SETTAXL	POST+26
SORRY	BGP80P1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ATXFLG	POST+17*, POST+21!
>> BGP(	LP+4*
>> BGP(2	LP+6
>> BGP(3	LP+5*, LP+6
>> BGP(4	LP+7
>> BGPDA	SETTAX+20, SETTAXL+20
>> BGPE	SETTAX+9, SETTAX+10, SETTAX+11, SETTAXL+9, SETTAXL+10, SETTAXL+11
BGPERR	POST+2~, POST+11
BGPFDA	POST+2~
BGPFDA(	POST+4, POST+5, POST+6, POST+7, POST+8, POST+9
BGPIENS	POST+2~, POST+3*
>> BGPPI	SETTAX+15, SETTAX+16, SETTAX+17, SETTAX+18, SETTAXL+15, SETTAXL+16, SETTAXL+17, SETTAXL+18
>> BGPPP	SETTAX+20, SETTAXL+20
>> BGPREF	LP+6*, LP+7
BGPSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> BGPTDA	SETTAX+7, SETTAX+8, SETTAX+10, SETTAX+11, SETTAX+12, SETTAX+17, SETTAX+18, SETTAXL+7, SETTAXL+8, SETTAXL+10 , SETTAXL+11, SETTAXL+12, SETTAXL+17, SETTAXL+18
>> BGPTFI	SETTAX+2, SETTAX+3, SETTAX+7, SETTAXL+2, SETTAXL+3, SETTAXL+7
>> BGPTFIEN	SETTAX+3, SETTAX+4, SETTAX+5, SETTAX+6, SETTAX+9, SETTAXL+3, SETTAXL+4, SETTAXL+5, SETTAXL+6, SETTAXL+9
>> BGPTXT	LP+1, LP+2*, LP+3, LP+4
>> BGPX	PRE+1, PRE+2, PRE+3*
BGPY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
DA	PRE+1, PRE+2, PRE+3, POST+13, POST+14!, POST+15*, POST+16!, SETTAX+14!, SETTAX+21!, SETTAXL+14! , SETTAXL+21!
DA(1	SETTAX+18, SETTAXL+18
DIC	SETTAX+14!, SETTAX+18, SETTAX+21!, SETTAXL+14!, SETTAXL+18, SETTAXL+21!, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC("P"	SETTAX+18, SETTAXL+18
DIC(0	SETTAX+18, SETTAXL+18, INSTALLD+5*
DIE	POST+14!, POST+16!
DIFQ	SORRY+1!
>> DIK	PRE+1, PRE+2, PRE+3*
DR	POST+14, POST+16, SETTAX+14!, SETTAXL+14!
>> I	LP+1*
IOM	IMES+1, SORRY+4
>> J	LP+4*
U	POST+22, POST+23, SETTAX+6, SETTAX+9, SETTAX+10, SETTAX+11, SETTAX+12, SETTAX+18, SETTAX+20, SETTAXL+6 , SETTAXL+9, SETTAXL+10, SETTAXL+11, SETTAXL+12, SETTAXL+18, SETTAXL+20
X	BGP80P1+8, POST+22, POST+23, SETTAX+18, SETTAX+21!, SETTAXL+18, SETTAXL+21!, INSTALLD+3~, INSTALLD+4, INSTALLD+8* , INSTALLD+11*, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	BGP80P1+8*
>> XPDDIQ("XPZ1"	BGP80P1+7*
>> XPDDIQ("XPZ2"	BGP80P1+7*
>> XPDENV	BGP80P1+7
>> XPDQUIT	SORRY+2, SORRY+3
Y	SETTAX+20, SETTAX+21!, SETTAXL+20, SETTAXL+21!, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13 , IMES+1

Marked Items

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP80P1

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items