Routine: IBDFU2B

Package	Total	Call Graph
VA Fileman	2	FILE^DICN (IX,IX1)^DIK

Package	Total	Caller Graph
Automated Information Collection System	2	IBDFU2 IBDFU2A

Entry Points

Name	Comments	DBIA/ICR reference
GETPI(PI,FROMFILE,TOFILE)	;copies the package interface=PI from file=FROMFILE to file=TOFILE if it doesn't already exist
GETADE(ADE,FROMFILE,TOFILE)	;copys AICS Data Element=ADE from file=FROMFILE to file=TOFILE if it does not already exist
CPYSLCTN(SLCTN,GRP,NEWGRP,LIST,NEWLIST,FROMFILE,TOFILE)	;
LOOKUP(NAME,RTN,ENTRYPT,TOFILE,TYPE)	;return 1 if the package interface already exists in TOFILE, 0 otherwise
GETQLFR(QLFR,FROMFILE,TOFILE)	;copys qualifier=QLFR from file=FROMFILE to file=TOFILE if it does not already exist
GETMA(MA,FROMFILE,TOFILE)	;copys marking area=ma from file=FROMFILE to file=TOFILE if it does not already exist
CPYQLFRS(FROMFILE,PI,TOFILE,NEWPI)	;copy allowable qualifiers from the package interface=PI in NEWPI to the package interface=NEWPI in TOFILE

External References

Name	Field # of Occurrence
FILE^DICN	CPYSLCTN+11, GETMA+13, GETPI+14, GETQLFR+15, GETADE+13
IX^DIK	CPYSLCTN+7
IX1^DIK	CPYSLCTN+45, GETMA+18, GETPI+42, GETQLFR+20, GETADE+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBD(	GETQLFR+8, GETQLFR+12, GETQLFR+18*
^IBE(	CPYSLCTN+6, CPYSLCTN+14, CPYSLCTN+24, CPYSLCTN+30, CPYSLCTN+32, CPYSLCTN+33, CPYSLCTN+37, CPYSLCTN+38, CPYSLCTN+39, CPYSLCTN+40 , GETMA+8, GETMA+11, GETMA+16, GETPI+8, GETPI+25, GETPI+27, GETPI+28, GETPI+29, GETPI+35, GETPI+36 , GETPI+37, CPYQLFRS+3!, CPYQLFRS+4, CPYQLFRS+5, LOOKUP+3, GETADE+8, GETADE+11, GETADE+16, GETADE+19

Label References

Name	Line Occurrences
$$GETADE	GETPI+32, GETPI+34, CPYQLFRS+6
$$GETPI	GETPI+26
$$GETQLFR	CPYQLFRS+7
$$LOOKUP	GETPI+10
CPYQLFRS	GETPI+39

Naked Globals

Name	Field # of Occurrence
^(0	CPYSLCTN+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADE	GETADE~, GETADE+4, GETADE+5, GETADE+8, GETADE+19
CNT	CPYSLCTN+4~, CPYSLCTN+22, CPYSLCTN+24, CPYSLCTN+30
DA	CPYSLCTN+7!, CPYSLCTN+11!, CPYSLCTN+44!, CPYSLCTN+46!, GETMA+13!, GETMA+17!, GETMA+18!, GETPI+14!, GETPI+41!, GETPI+42! , GETQLFR+15!, GETQLFR+19!, GETQLFR+20!, GETADE+13!, GETADE+20!, GETADE+21!
DD	CPYSLCTN+10!, GETMA+12!, GETPI+12!, GETQLFR+14!, GETADE+12!
DIC	CPYSLCTN+10!, CPYSLCTN+11!, GETMA+12!, GETMA+13!, GETPI+12!, GETPI+14!, GETQLFR+14!, GETQLFR+15!, GETADE+12!*, GETADE+13!
DIC(0	CPYSLCTN+10, GETMA+12, GETPI+12, GETQLFR+14, GETADE+12*
DIE	CPYSLCTN+11!, GETMA+13!, GETPI+14!, GETQLFR+15!, GETADE+13!
DIK	CPYSLCTN+7!, CPYSLCTN+44!, CPYSLCTN+46!, GETMA+17!, GETMA+18!, GETPI+41!, GETPI+42!, GETQLFR+19!, GETQLFR+20!, GETADE+20! , GETADE+21!
DINUM	CPYSLCTN+10!, GETMA+12!, GETPI+12!, GETQLFR+14!, GETADE+12!
DO	CPYSLCTN+10!, GETMA+12!, GETPI+12!, GETQLFR+14!, GETADE+12!
ENTRYPT	GETPI+6~, GETPI+9*, GETPI+10, GETPI+22, GETPI+23, LOOKUP~, LOOKUP+4
FROMFILE	CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+2, CPYSLCTN+6, CPYSLCTN+7, CPYSLCTN+24, CPYSLCTN+32, CPYSLCTN+37, CPYSLCTN+38, CPYSLCTN+39 , CPYSLCTN+40, GETMA~, GETMA+2, GETMA+5, GETMA+8, GETPI~, GETPI+2, GETPI+5, GETPI+8, GETPI+26 , GETPI+28, GETPI+29, GETPI+32, GETPI+34, GETPI+36, GETPI+37, GETPI+39, CPYQLFRS~, CPYQLFRS+4, CPYQLFRS+5 , CPYQLFRS+6, CPYQLFRS+7, GETQLFR~, GETQLFR+2, GETQLFR+5, GETQLFR+8, GETADE~, GETADE+2, GETADE+5, GETADE+8 , GETADE+19
GRP	CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+7
I	CPYSLCTN+4~, CPYSLCTN+39*, CPYSLCTN+40
>> IBDFCPYF	CPYSLCTN+24
IBDFI	CPYSLCTN+25~, CPYSLCTN+26*, CPYSLCTN+27, CPYSLCTN+28
>> IBDFNEW(	CPYSLCTN+27, CPYSLCTN+28
>> IBDFOLD(	CPYSLCTN+27, CPYSLCTN+28
K	CPYSLCTN+25~, CPYSLCTN+26, CPYSLCTN+28
>> LAST	CPYSLCTN+22, CPYSLCTN+24, CPYSLCTN+30
LIST	CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+7
LOOKNODE	LOOKUP+1~, LOOKUP+3*, LOOKUP+4
MA	GETMA~, GETMA+4, GETMA+5, GETMA+8
NAME	CPYSLCTN+4~, CPYSLCTN+8, CPYSLCTN+9, CPYSLCTN+10, GETMA+6~, GETMA+9, GETMA+10, GETMA+11, GETMA+12, GETPI+9* , GETPI+10, LOOKUP~, LOOKUP+2, LOOKUP+3, LOOKUP+4, GETQLFR+6~, GETQLFR+9, GETQLFR+10, GETQLFR+12, GETQLFR+14 , GETADE+6~, GETADE+9, GETADE+10, GETADE+11, GETADE+12
NEWADE	GETADE+6~, GETADE+7, GETADE+11, GETADE+14*, GETADE+15, GETADE+16, GETADE+19, GETADE+20, GETADE+22
NEWGRP	CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+8
NEWLIST	CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+8
NEWMA	GETMA+6~, GETMA+7, GETMA+11, GETMA+14*, GETMA+15, GETMA+16, GETMA+17, GETMA+19
NEWPI	GETPI+6~, GETPI+7, GETPI+10, GETPI+11, GETPI+15*, GETPI+16, GETPI+25, GETPI+27, GETPI+28, GETPI+35 , GETPI+37, GETPI+39, GETPI+41, GETPI+43, CPYQLFRS~, CPYQLFRS+3, CPYQLFRS+4, CPYQLFRS+5
NEWQLFR	GETQLFR+6~, GETQLFR+7, GETQLFR+12, GETQLFR+13, GETQLFR+16*, GETQLFR+17, GETQLFR+18, GETQLFR+19, GETQLFR+21
NEWSLCTN	CPYSLCTN+4~, CPYSLCTN+5, CPYSLCTN+12, CPYSLCTN+13, CPYSLCTN+14, CPYSLCTN+24, CPYSLCTN+30, CPYSLCTN+33, CPYSLCTN+38, CPYSLCTN+40 , CPYSLCTN+44
NODE	CPYSLCTN+4~, CPYSLCTN+6, CPYSLCTN+7, CPYSLCTN+8, CPYSLCTN+14, CPYSLCTN+24, CPYSLCTN+26, CPYSLCTN+28, CPYSLCTN+32, CPYSLCTN+33 , GETMA+6~, GETMA+8, GETMA+9, GETMA+16, GETPI+6~, GETPI+8, GETPI+9, GETPI+12, GETPI+20, GETPI+22* , GETPI+23, GETPI+25, GETPI+26, GETPI+27, GETPI+28, GETPI+29, GETPI+31, GETPI+32, GETPI+33, GETPI+34 , GETPI+35, GETPI+36, GETPI+37, CPYQLFRS+2~, CPYQLFRS+4, CPYQLFRS+5, GETQLFR+6~, GETQLFR+8, GETQLFR+9, GETQLFR+18 , GETADE+6~, GETADE+8, GETADE+9, GETADE+16, GETADE+19*
PI	GETPI~, GETPI+4, GETPI+5, GETPI+8, GETPI+28, GETPI+29, GETPI+36, GETPI+37, GETPI+39, CPYQLFRS~ , CPYQLFRS+4, CPYQLFRS+5, LOOKUP+1~, LOOKUP+3*, LOOKUP+5
QLFR	GETQLFR~, GETQLFR+4, GETQLFR+5, GETQLFR+8
QUIT	LOOKUP+1~, LOOKUP+3, LOOKUP+4
RTN	GETPI+6~, GETPI+9*, GETPI+10, GETPI+20, GETPI+21, LOOKUP~, LOOKUP+4
SC	CPYSLCTN+4~, CPYSLCTN+22, CPYSLCTN+24
SLCTN	CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+6, CPYSLCTN+7, CPYSLCTN+24, CPYSLCTN+32, CPYSLCTN+37, CPYSLCTN+38, CPYSLCTN+39, CPYSLCTN+40
SUB	CPYQLFRS+2~, CPYQLFRS+4, CPYQLFRS+5, GETADE+6~, GETADE+19
SUB1	GETPI+6~, GETPI+28, GETPI+36, GETPI+37
SUB2	GETPI+6~, GETPI+37*
TOFILE	CPYSLCTN~, CPYSLCTN+1, CPYSLCTN+3, CPYSLCTN+10, CPYSLCTN+14, CPYSLCTN+24, CPYSLCTN+30, CPYSLCTN+33, CPYSLCTN+38, CPYSLCTN+40 , CPYSLCTN+44, GETMA~, GETMA+3, GETMA+5, GETMA+11, GETMA+12, GETMA+16, GETMA+17, GETPI~, GETPI+3 , GETPI+5, GETPI+10, GETPI+12, GETPI+25, GETPI+26, GETPI+27, GETPI+28, GETPI+32, GETPI+34, GETPI+35 , GETPI+37, GETPI+39, GETPI+41, CPYQLFRS~, CPYQLFRS+3, CPYQLFRS+4, CPYQLFRS+5, CPYQLFRS+6, CPYQLFRS+7, LOOKUP~ , LOOKUP+3, GETQLFR~, GETQLFR+3, GETQLFR+5, GETQLFR+12, GETQLFR+14, GETQLFR+18, GETQLFR+19, GETADE~, GETADE+3 , GETADE+5, GETADE+11, GETADE+12, GETADE+16, GETADE+19, GETADE+20
TYPE	GETPI+6~, GETPI+9*, GETPI+10, GETPI+19, LOOKUP~, LOOKUP+4
TYPEDATA	GETPI+30~, GETPI+31, GETPI+32, GETPI+33, GETPI+34
VARPTR	CPYQLFRS+2~, CPYQLFRS+5, CPYQLFRS+6, CPYQLFRS+7*
>> X	CPYSLCTN+10, GETMA+12, GETPI+12, GETPI+13, GETQLFR+14, GETADE+12*
>> Y	CPYSLCTN+12, GETMA+14, GETPI+15, GETQLFR+16, GETADE+14

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFU2B

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(@ENTRYPT^@RTN	GETPI+22
$T(^@RTN	GETPI+23