Routine: IB20P563

Package	Total	Call Graph
VA FileMan	3	FILE^DICN ^DIE ^DIK
Kernel	2	$$FMTE^XLFDT BMES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
PREINT	; - pre-install
POSTINT	; - post-install
OLDCH	; - populate old action type charges
NEWCH	; - populate new action type charges
NEWCAP	; - populate new copayment cap data ; eff date^pg^amount^basis
DATA3502	; - data for the new 350.2 entries ; format key^eff date^action type (350.1)^unit charge^tier
DATA3547	; - data for the new 354.75 entries ; format eff date^pg^amount^basis

Name	Field # of Occurrence
FILE^DICN	NEWCH+14, NEWCAP+11
^DIE	OLDCH+10
^DIK	PREINT+6, PREINT+9
$$FMTE^XLFDT	NEWCAP+13
BMES^XPDUTL	PREINT+3, PREINT+7, PREINT+10, POSTINT+1, POSTINT+5, OLDCH+2, OLDCH+12, NEWCH+2, NEWCH+9, NEWCH+16 , NEWCH+18, NEWCAP+2, NEWCAP+13, NEWCAP+15

Name	Line Occurrences (* Changed, ! Killed)
^IBAM(354.75 - [#354.75]	NEWCAP+7
^IBE(350.1 - [#350.1]	NEWCH+7
^IBE(350.2 - [#350.2]	OLDCH+6, OLDCH+7, NEWCH+10

Name	Field # of Occurrence
DA	PREINT+4~, PREINT+5, PREINT+8, OLDCH+5~, OLDCH+10*
DA(1	PREINT+5, PREINT+8
DIC	NEWCH+3~, NEWCH+12, NEWCAP+3~, NEWCAP+9
DIC("DR"	NEWCH+13, NEWCAP+10
DIC(0	NEWCH+12, NEWCAP+9
DIE	OLDCH+5~, OLDCH+10*
DIK	PREINT+4~, PREINT+5, PREINT+8
DO	NEWCH+3~
DR	OLDCH+5~, OLDCH+10*
IBATYPE	NEWCH+3~, NEWCH+7*, NEWCH+8, NEWCH+10
IBBAS	NEWCAP+3~, NEWCAP+6*
IBC	OLDCH+5~, OLDCH+6, OLDCH+11, OLDCH+12, NEWCH+3~, NEWCH+4, NEWCH+17, NEWCH+18, NEWCAP+3~, NEWCAP+4* , NEWCAP+14*, NEWCAP+15
IBCAP	NEWCAP+3~, NEWCAP+6*
IBCHRG	NEWCH+3~, NEWCH+6*
IBDT	NEWCH+3~, NEWCH+6, NEWCH+10, NEWCAP+3~, NEWCAP+6, NEWCAP+7, NEWCAP+9, NEWCAP+13
IBI	NEWCH+3~, NEWCH+5, NEWCAP+3~, NEWCAP+5
IBPG	NEWCAP+3~, NEWCAP+6*, NEWCAP+7, NEWCAP+13
IBTIER	NEWCH+3~, NEWCH+6*, NEWCH+10, NEWCH+16
IBX	OLDCH+5~, OLDCH+6, OLDCH+7, OLDCH+10, NEWCH+3~, NEWCH+5, NEWCH+6, NEWCH+7, NEWCH+9, NEWCH+12 , NEWCH+16, NEWCAP+3~, NEWCAP+5*, NEWCAP+6
IBZ	OLDCH+5~, OLDCH+7*, OLDCH+8, OLDCH+9
X	NEWCH+3~, NEWCH+12, NEWCAP+3~, NEWCAP+9
Y	NEWCH+3~, NEWCH+15, NEWCAP+3~, NEWCAP+12

Name	Field # of Occurrence
$T(DATA3502+IBI	NEWCH+5
$T(DATA3547+IBI	NEWCAP+5