Routine: IBY528PA

Information

IBY528PA ;ALB/SS - Pre and post install routine for patch 528 ;12-OCT-15

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	(UPDATE,WP)^DIE ^DIR
Kernel	1	($$PATCH,BMES,MES)^XPDUTL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IBY528PO

Entry Points

Name	Comments	DBIA/ICR reference
PREINST	;
ADSRCINF	; to add new source of information to to #355.12
ADTYPPLN	; to add type of plans to #355.1
CHCKEXWR()	;
ADD3551(IBSTRIEN)	;
ADD35511()	;
ADD35512(IBSTRIEN)	;
MESS1	;
MESS2(IBIENLST)	;
MESS3	;
MESS4	;
MESS5	;
YESNO(IBQSTR,IBDFL)	; Default - YES
INSREC(IBFILE,IBEIEN,IBZFDA,IBRECNO,IBFLGS,IBLCKGL,IBLCKTM,IBNEWRE)	;*/
DAT3551	;entries to add to #355.1 (top level)
DAT35511	;
DAT35512	;entries to add to #355.12 (top level)

External References

Name	Field # of Occurrence
UPDATE^DIE	INSREC+10
WP^DIE	ADD35511+13
^DIR	YESNO+5
$$PATCH^XPDUTL	PREINST+10, PREINST+21, ADSRCINF+3, ADTYPPLN+3
BMES^XPDUTL	PREINST+5, PREINST+16, ADSRCINF+1, ADTYPPLN+1, MESS1+1, MESS2+1, MESS3+1, MESS4+1, MESS5+1
MES^XPDUTL	PREINST+13, PREINST+22, ADSRCINF+3, ADTYPPLN+3, ADTYPPLN+14, ADD3551+14, ADD3551+19, ADD3551+20, ADD35511+8, ADD35511+9 , ADD35511+14, ADD35511+15, ADD35512+6, ADD35512+10, ADD35512+11, MESS1+2, MESS1+3, MESS1+4, MESS2+2, MESS2+3 , MESS3+2, MESS4+2, MESS4+3, MESS4+4, MESS4+5, MESS5+2, MESS5+3, MESS5+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Aborting installation!" Line Location: PREINST+25
Function Call: WRITE	Prompt: $$INSREC^IBDUTIL1(357.6,"",.ZZ,"") Line Location: YESNO+28
Routine Call	DIE Line Location: INSREC+10
Routine Call	DIE Line Location: ADD35511+13
Routine Call	DIR Line Location: YESNO+5

FileNo	Call Tags
^IBE(355.1 - [#355.1]	WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(355.1	ADD3551+8
^IBE(355.1 - [#355.1]	PREINST+6, ADTYPPLN+5, CHCKEXWR+6, ADD3551+14, ADD35511+8, ADD35511+9
^IBE(355.12 - [#355.12]	PREINST+17, ADSRCINF+5, ADD35512+6

Label References

Name	Line Occurrences
$$CHCKEXWR	PREINST+12
$$INSREC	ADD3551+18, ADD35512+9
$$YESNO	PREINST+25
ADD3551	ADTYPPLN+12
ADD35511	ADTYPPLN+15
ADD35512	ADSRCINF+11
MESS1	PREINST+10
MESS2	PREINST+12
MESS3	PREINST+25
MESS4	PREINST+21
MESS5	PREINST+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	YESNO+1~
DIR("A"	YESNO+3*
DIR("B"	YESNO+4*
DIR(0	YESNO+2*
DUOUT	YESNO+1~, YESNO+6
I	ADD3551+7~, ADD3551+9*
IB01	ADD35511+1~, ADD35511+7*, ADD35511+8, ADD35511+9, ADD35511+14, ADD35511+15
IB10IEN	ADD35511+1~
IB1STDON	ADD3551+2~, ADD3551+15, ADD3551+21, ADD35512+2~, ADD35512+7, ADD35512+12
IBA	ADD3551+7~, ADD3551+8*, ADD3551+9
IBARR	ADD35511+1~, ADD35511+6!
IBARR(	ADD35511+16*
IBASK	PREINST+1~, PREINST+3, PREINST+10, PREINST+12, PREINST+13, PREINST+21, PREINST+22, PREINST+25
IBB	ADD3551+7~, ADD3551+8*, ADD3551+9
IBC	ADD3551+7~
IBC(	ADD3551+9*, ADD3551+17
IBDERR	INSREC+3~, INSREC+12
IBDFDA	INSREC+3~
IBDFDA(	INSREC+8*
IBDFL	YESNO~, YESNO+4
IBDLOCK	INSREC+4~, INSREC+9, INSREC+11
IBDSSI	INSREC+3~
IBDSSI(1	INSREC+6, INSREC+7, INSREC+13
IBEIEN	INSREC~, INSREC+2, INSREC+6, INSREC+7
IBERR	ADD35511+12!
IBERR("DIERR"	ADD35511+14
IBFILE	INSREC~, INSREC+1, INSREC+8
IBFLD	CHCKEXWR+1~, ADD3551+1~, ADD3551+18, ADD35511+1~, ADD35512+1~, ADD35512+9
IBFLD(	CHCKEXWR+5, CHCKEXWR+6, ADD3551+13, ADD3551+14, ADD3551+16, ADD3551+17, ADD3551+19, ADD3551+20, ADD35512+4, ADD35512+5 , ADD35512+6, ADD35512+8*, ADD35512+10, ADD35512+11
IBFLGS	INSREC~, INSREC+10
IBIEN	CHCKEXWR+1~, CHCKEXWR+6*
IBIENLST	MESS2~, MESS2+3
IBIENS	INSREC+3~, INSREC+6, INSREC+7, INSREC+8
IBLCKGL	INSREC~, INSREC+9, INSREC+11
IBLCKTM	INSREC~, INSREC+9
IBLSTIEN	PREINST+1~, PREINST+6, PREINST+10, PREINST+17, PREINST+21
IBNEWIEN	ADSRCINF+5, ADSRCINF+7, ADSRCINF+9, ADSRCINF+11, ADTYPPLN+5, ADTYPPLN+7, ADTYPPLN+9, ADTYPPLN+12, ADD3551+1~, ADD3551+15* , ADD3551+18, ADD35512+1~, ADD35512+7*, ADD35512+9
IBNEWRE	INSREC~, INSREC+2
IBQSTR	YESNO~, YESNO+3
IBRECNO	INSREC~, INSREC+2, INSREC+5~*, INSREC+6, INSREC+7
IBRET	PREINST+1~, PREINST+12, CHCKEXWR+1~, CHCKEXWR+3, CHCKEXWR+6, CHCKEXWR+7, ADD3551+1~, ADD3551+18, ADD3551+19, ADD35512+1~ , ADD35512+9*, ADD35512+10
IBSKIPST	ADD35511+1~, ADD35511+2, ADD35511+5, ADD35511+8, ADD35511+9, ADD35511+10
IBSTR	CHCKEXWR+1~, CHCKEXWR+4, CHCKEXWR+5, ADD3551+1~, ADD3551+12, ADD3551+13, ADD3551+16, ADD3551+17, ADD35511+1~, ADD35511+3* , ADD35511+4, ADD35511+7, ADD35511+11, ADD35511+16, ADD35512+1~, ADD35512+3*, ADD35512+4, ADD35512+5, ADD35512+8
IBSTRIEN	ADD3551~, ADD3551+15, ADD35512~, ADD35512+7
IBTOPIEN	ADD35511+1~, ADD35511+8*, ADD35511+9, ADD35511+13
IBWRNG	CHCKEXWR+1~, CHCKEXWR+2, CHCKEXWR+6, CHCKEXWR+7
IBZ	CHCKEXWR+1~, CHCKEXWR+4, ADD3551+1~, ADD3551+12, ADD35511+1~, ADD35511+3, ADD35512+1~, ADD35512+3
IBZFDA	INSREC~, INSREC+8
U	PREINST+12, CHCKEXWR+5, CHCKEXWR+7, ADD3551+8, ADD3551+13, ADD3551+16, ADD3551+17, ADD35511+4, ADD35511+7, ADD35511+11 , ADD35511+16, ADD35512+4, ADD35512+5, ADD35512+8
>> XPDABORT	PREINST+25*
Y	YESNO+1~, YESNO+6

Marked Items

Name	Field # of Occurrence
$T(DAT3551+IBZ	CHCKEXWR+4, ADD3551+12
$T(DAT35511+IBZ	ADD35511+3
$T(DAT35512+IBZ	ADD35512+3

Customize PDF page

Package: Integrated Billing