Routine: IB20P618

Package	Total	Call Graph
VA FileMan	3	^DIC FILE^DICN (,UPDATE)^DIE
Integrated Billing	2	(ADDACT,IBUPD)^IBP618A (ADDACTCH,UPDACT)^IBP618B
Kernel	1	(BMES,MES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
POSTINIT	;Post Install for IB2.0618
RTADD	;Add New rate types to the Rate type File
RTDATA	; New RATE TYPE data. (Internal data format
RTUPD	; Update the FEE REIMB INS entry in the Rate Type File (399.3) to inactivate
ADDRS	; Add Rate Schedules (363) for FEE REIMB INS
RSCS(IBFN,IBCPNM,RXDT)	; add existing Charge Sets to FR ; copy the Charge Sets from the corresponding RI RS (v2) ; IBFN - Rate Schedule IEN ; IBCPNM - Charge Set to copy ; RXDT - last effective date of charge set being copied.
RSCSQ
RSCSFILE(IBFN,IBCSNM,IBCSAA)	; Add Charge Set to a Rate Schedule
RSCSFQ
RSEXISTS(IBVDT,IBNAME)	; return RS IFN if Rate Schedule exists for Effective Date
MSG(X)	;
MCCRUTL(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true
RXDT(IBCPNM,IBEDT)	;Copy the active charge schedule from charge set being copied. ; update Fee information if Pharmacy.
RSF	;Rate Schedules (363) for the new Community Care Rate Types.

External References

Name	Field # of Occurrence
^DIC	RSCSFILE+8
FILE^DICN	ADDRS+14
^DIE	RTUPD+9, ADDRS+24
UPDATE^DIE	RTADD+31
ADDACT^IBP618A	POSTINIT+7
IBUPD^IBP618A	POSTINIT+6
ADDACTCH^IBP618B	POSTINIT+9
UPDACT^IBP618B	POSTINIT+8
BMES^XPDUTL	POSTINIT+1, POSTINIT+10
MES^XPDUTL	RTADD+4, RTADD+33, RTUPD+3, ADDRS+1, ADDRS+30, ADDRS+31

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(363 - [#363]	Classic Fileman Calls
^DGCR(399.3 - [#399.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	MCCRUTL+2
^DGCR(399.3 - [#399.3]	RTADD+11, RTUPD+4, ADDRS+8, ADDRS+10
^IBE(363 - [#363]	RSCS+7, RSCS+13, RSCS+14, RSCS+15, RSCSFILE+2, RSCSFILE+5, RSEXISTS+2, RSEXISTS+3, RXDT+6, RXDT+11 , RXDT+12, RXDT+15, RXDT+16
^IBE(363.1 - [#363.1]	RSCS+16, RSCSFILE+4
^PRCA(430.2 - [#430.2]	RTADD+20
^PRCA(430.6 - [#430.6]	RTADD+27

Label References

Name	Line Occurrences
$$MCCRUTL	ADDRS+7
$$RSCS	ADDRS+29
$$RSCSFILE	RSCS+16
$$RSEXISTS	RSCS+11
$$RXDT	ADDRS+18
ADDRS	POSTINIT+5
MSG	ADDRS+9, ADDRS+10, ADDRS+27
RSCSFQ	RSCSFILE+2, RSCSFILE+3, RSCSFILE+4, RSCSFILE+5
RSCSQ	RSCS+12
RTADD	POSTINIT+3
RTUPD	POSTINIT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARCAT	RTADD+2~, RTADD+19, RTADD+20, RTADD+21
BRF	RTADD+2~, RTADD+26, RTADD+27, RTADD+28
CHK	RTADD+2~, RTADD+10, RTADD+11, RTADD+12
DA	RTUPD+1~, RTUPD+8, ADDRS+3~, ADDRS+24!, RSCSFILE+1~
DA(1	RSCSFILE+6*
DATA	RTADD+2~, RTADD+6*, RTADD+11, RTADD+14, RTADD+15, RTADD+16, RTADD+17, RTADD+18, RTADD+19, RTADD+22 , RTADD+23, RTADD+24, RTADD+25, RTADD+26, RTADD+29, RTUPD+1~
DD	ADDRS+2~, ADDRS+12!, RSCSFILE+1~
DIC	ADDRS+3~, ADDRS+13, ADDRS+14!, RSCSFILE+1~, RSCSFILE+6
DIC("DR"	RSCSFILE+7*
DIC("P"	RSCSFILE+7*
DIC(0	ADDRS+13, RSCSFILE+6
DIE	RTUPD+1~, RTUPD+8, ADDRS+3~, ADDRS+24!
DINUM	ADDRS+14!
DLAYGO	ADDRS+3~, ADDRS+13, ADDRS+14!, RSCSFILE+1~, RSCSFILE+6
DO	ADDRS+2~, ADDRS+12!, RSCSFILE+1~
DR	RTUPD+1~, RTUPD+7, ADDRS+3~, ADDRS+19, ADDRS+20, ADDRS+21, ADDRS+22, ADDRS+23, ADDRS+24!, RSCSFILE+1~
DTOUT	RTUPD+1~
FDA	RTADD+2~, RTADD+8!
FDA(	RTADD+14, RTADD+15, RTADD+16, RTADD+17, RTADD+18, RTADD+21, RTADD+22, RTADD+23, RTADD+24, RTADD+25 , RTADD+28, RTADD+29
FDAIEN	RTADD+2~, RTADD+32*
FDAIEN(1	RTADD+32!
IBA	ADDRS+2~
IBA(	MSG+2*
IBA(999999	MSG+1
IBADMIN	ADDRS+2~, ADDRS+23, RXDT+16*
IBBS	ADDRS+2~, ADDRS+7*, ADDRS+19
IBCNT	ADDRS+2~, ADDRS+4, ADDRS+16, RSCS+5~, RSCS+6, RSCS+16, RSCSQ
IBCNTCS	ADDRS+2~, ADDRS+25, ADDRS+29, ADDRS+30
IBCOPY	RSCS+5~, RSCS+6, RSCS+11, RSCS+12, RSCS+13, RSCS+14, RSCS+15
IBCPNM	ADDRS+3~, ADDRS+17*, ADDRS+18, ADDRS+29, RSCS~, RSCS+11, RXDT~, RXDT+6, RXDT+11, RXDT+16
IBCS	ADDRS+2~, RSCS+5~, RSCS+15, RSCS+16, RXDT+4, RXDT+6, RXDT+11, RXDT+12, RXDT+14, RXDT+15 , RXDT+16
IBCS0	RSCS+5~, RXDT+15*, RXDT+17
IBCSAA	RSCS+5~, RSCSFILE~, RSCSFILE+7
IBCSFN	ADDRS+2~, RSCS+5~, RSCS+15, RSCS+16, RSCSFILE+1~, RSCSFILE+4, RSCSFILE+5
IBCSNM	RSCS+5~, RSCSFILE~, RSCSFILE+3, RSCSFILE+4, RSCSFILE+7
IBD	RXDT+2~, RXDT+12*, RXDT+13
IBDISP	ADDRS+2~, ADDRS+22, RXDT+16*
IBEDT	ADDRS+3~, ADDRS+17, ADDRS+18, RXDT~, RXDT+3, RXDT+6, RXDT+9, RXDT+13
IBEFLG	RXDT+2~, RXDT+10, RXDT+11, RXDT+13
IBFN	ADDRS+2~, ADDRS+16*, ADDRS+29, RSCS~, RSCS+7, RSCS+16, RSCSFILE~, RSCSFILE+2, RSCSFILE+5, RSCSFILE+6
IBI	ADDRS+2~, ADDRS+5*
IBJ	ADDRS+2~
IBLN	ADDRS+2~, ADDRS+5*, ADDRS+7, ADDRS+8, ADDRS+9, ADDRS+10, ADDRS+13, ADDRS+17, ADDRS+19, ADDRS+22 , ADDRS+23, ADDRS+27, ADDRS+30
IBLNCS	ADDRS+2~
IBNAME	RSCS+5~, RSEXISTS~, RSEXISTS+4
IBNRS	RSCS+5~, RSCS+7*, RSCS+8
IBRS0	RSEXISTS+1~, RSEXISTS+3*, RSEXISTS+4
IBRSFN	RSEXISTS+1~, RSEXISTS+2*, RSEXISTS+3, RSEXISTS+4
IBRSNM	RSCS+5~, RSCS+7*
IBRT	ADDRS+2~, ADDRS+8, ADDRS+9, ADDRS+10, ADDRS+19, ADDRS+27
IBTY	RSCS+5~, RSCS+8*, RSCS+13
IBVDT	RSCS+5~, RSCS+9*, RSCS+10, RSCS+11, RSEXISTS~, RSEXISTS+4
IBX	RSCSFILE+1~, RSCSFILE+8, RSCSFQ, RSEXISTS+1~, RSEXISTS+2, RSEXISTS+4, RSEXISTS+5, MSG+1~, MSG+2, MCCRUTL+1~ , MCCRUTL+2
IBXFN	RSCS+5~, RSCS+14*, RSCS+15
IBY	MCCRUTL+1~, MCCRUTL+2, MCCRUTL+3
LIEN	RTUPD+1~, RTUPD+4*, RTUPD+5, RTUPD+8
LOOP	RTADD+2~, RTADD+6*
P	MCCRUTL~, MCCRUTL+2
RXDT	ADDRS+3~, ADDRS+18*, ADDRS+20, ADDRS+21, ADDRS+29, RSCS~, RSCS+9
U	ADDRS+7, ADDRS+8, ADDRS+9, ADDRS+10, ADDRS+13, ADDRS+17, ADDRS+19, ADDRS+20, ADDRS+21, ADDRS+22 , ADDRS+23, ADDRS+27, ADDRS+29, ADDRS+30, RSCS+13, RSCS+16, RSEXISTS+4, MCCRUTL+2, RXDT+13, RXDT+16 , RXDT+17
X	RTUPD+1~, ADDRS+3~, ADDRS+13, ADDRS+15!, ADDRS+24!, RSCSFILE+1~, RSCSFILE+7, MSG~, MSG+2, MCCRUTL~ , MCCRUTL+2
Y	RTUPD+1~, ADDRS+3~, ADDRS+15!, ADDRS+16, ADDRS+24!, RSCSFILE+1~, RSCSFILE+8

Marked Items

Name	Field # of Occurrence
$T(RSF+IBI	ADDRS+5
$T(RTDATA+LOOP	RTADD+6

Customize PDF page

Package: Integrated Billing

Routine: IB20P618

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items