Routine: IB20P839

Package	Total	Call Graph
Kernel	2	$$FMADD^XLFDT MES^XPDUTL
Integrated Billing	1	ENT^IB3PSOU

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Backup 363 RATE SCHEDULE File
POST	; Update pharmacy administrative fee for CY 2026 in Rate Schedule file
RXUPD	; Rate Schedule
RSEXIST(IBEFFDT,IBRSIN)	; return RS IFN if Rate Schedule exists for Effective Date
MSG(IBA)	;
GLBBKUP	; XTMP Backup of file(s)
RSF	; 23 Rate types^dispensing fee^adjustment

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.3 - [#399.3]	RXUPD+7, RXUPD+10, RXUPD+11
^IBE(	GLBBKUP+4
^IBE(363 - [#363]	RSEXIST+2, RSEXIST+3
^XTMP("IB839P"	GLBBKUP+3, GLBBKUP+4

Name	Line Occurrences
$$RSEXIST	RXUPD+12, RXUPD+18
GLBBKUP	EN+7
MSG	POST+2, POST+4, RXUPD+2, RXUPD+3, RXUPD+8, RXUPD+11, RXUPD+12, RXUPD+18, RXUPD+19, RXUPD+20 , RXUPD+21, RXUPD+22
POST	EN+10
RXUPD	POST+3

Name	Field # of Occurrence
DT	GLBBKUP+3
I839FILE	EN+1~, EN+2, EN+6, GLBBKUP+4
I839FILES	EN+1~, EN+3*, EN+5, EN+6
IBA	POST+1~, MSG~, MSG+1
IBADFE	RXUPD+1~, RXUPD+4*, RXUPD+16
IBADJUST	RXUPD+1~, RXUPD+14*, RXUPD+16
IBBKNDE	GLBBKUP+1~, GLBBKUP+2*, GLBBKUP+3
IBCNT	EN+1~, EN+4, EN+5, EN+6
IBCT	RXUPD+1~, RXUPD+4, RXUPD+19, RXUPD+21
IBDISP	RXUPD+1~, RXUPD+13*, RXUPD+16
IBEFFDT	RXUPD+1~, RXUPD+4*, RXUPD+12, RXUPD+16, RXUPD+18, RSEXIST~, RSEXIST+4
IBI	RXUPD+1~
IBRATY	RXUPD+1~, RXUPD+6*, RXUPD+7, RXUPD+8, RXUPD+10, RXUPD+11, RXUPD+12, RXUPD+16, RXUPD+18, RXUPD+19
IBRS	RXUPD+1~
IBRS0	RSEXIST+1~, RSEXIST+3*, RSEXIST+4
IBRSFN	RSEXIST+1~, RSEXIST+2*, RSEXIST+3, RSEXIST+4
IBRSIN	RXUPD+1~, RXUPD+7, RXUPD+8, RXUPD+10, RXUPD+11, RXUPD+12, RXUPD+18, RSEXIST~, RSEXIST+4
IBT	RXUPD+1~, RXUPD+5*, RXUPD+6, RXUPD+13, RXUPD+14
IBX	RXUPD+1~, RXUPD+5, RSEXIST+1~, RSEXIST+2, RSEXIST+4*, RSEXIST+5
U	POST+1~*, RXUPD+6, RXUPD+11, RXUPD+13, RXUPD+14, RSEXIST+4

Name	Field # of Occurrence
$T(RSF+IBX	RXUPD+5