Routine: IBY568PO

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

Entry Points

Name	Comments	DBIA/ICR reference
START	; CALL SECTIONS
RIDER	; add Prostihetic Insurance Rider (355.6)
PLAN	; add Prosthetics to Plan Coverage Limitations
ADDRT	; Add Rate Types (399.3)
RTQ
NEW(NAM,NUM,REC)	; create new rate type ; see if entry exists
ADDRS	; Add Rate Schedules (363) for EMERGENCY/HUMANITARIAN REIMB. & INELIGIBLE HOSP. REIMB.
RSCS(IBFN,IBVDT,IBCOPY)	; add existing Charge Sets to HR & IR ; copy the Charge Sets from the corresponding RI RS (v2)
RSCSQ
RSCSFILE(IBFN,IBCSNM,IBCSAA)	; Add Charge Set to a Rate Schedule
RSCSFQ
NEWIBER
MCCRUTL(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true
MSG(X)	;
RSDT(PRE)	;Copy the active RX charge schedule from RI to FR
NEWRT	;Rate Type
RT19	;;HUMANITARIAN REIMB. INS.;HUMANITARIAN REIMB. INS.;0;HUM REIM;1;EMERGENCY/HUMANITARIAN REIMB.;i;1;0;1;28
RT20	;;INELIGIBLE REIMB. INS.;INELIGIBLE REIMB. INS.;0;INE REIM;1;INELIGIBLE HOSP. REIMB.;i;1;0;1;28
RT21	;;DENTAL REIMB. INS.;DENTAL REIMB. INS.;0;DEN REIM;1;EMERGENCY/HUMANITARIAN REIMB.;i;1;0;1;28
RSF	;Rate Schedules (363) for EMERGENCY/HUMANITARIAN REIMB. & INELIGIBLE HOSP. REIMB.

Name	Field # of Occurrence
^DIC	NEW+4, RSCSFILE+7
FILE^DICN	RIDER+7, PLAN+10, NEW+9, ADDRS+29, NEWIBER+10
^DIE	PLAN+12, NEW+14, NEW+18, ADDRS+37, NEWIBER+17
$$FMTE^XLFDT	ADDRS+25
MES^XPDUTL	START+1, START+8, RIDER+2, RIDER+5, RIDER+10, PLAN+1, PLAN+6, PLAN+8, PLAN+14, ADDRT+4 , ADDRT+14, RTQ, NEW+5, NEW+9, ADDRS+1, ADDRS+41, ADDRS+42, NEWIBER+2, NEWIBER+8, NEWIBER+19

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

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	MCCRUTL+2
^DGCR(399.3 - [#399.3]	ADDRS+10, ADDRS+12
^IBE(350.8 - [#350.8]	NEWIBER+8
^IBE(355.31 - [#355.31]	PLAN+8
^IBE(355.6 - [#355.6]	RIDER+5, PLAN+6
^IBE(363 - [#363]	ADDRS+7, ADDRS+22, ADDRS+23, ADDRS+26, RSCS+4, RSCS+7, RSCS+8, RSCS+9, RSCSFILE+2, RSCSFILE+5 , RSDT+3, RSDT+4, RSDT+5, RSDT+6, RSDT+7
^IBE(363.1 - [#363.1]	RSCS+10, RSCSFILE+4

Name	Line Occurrences
$$MCCRUTL	ADDRS+8
$$NEW	ADDRT+12
$$RSCS	ADDRS+40
$$RSCSFILE	RSCS+10
ADDRS	START+5
ADDRT	START+4
MSG	ADDRS+11, ADDRS+12
NEWIBER	START+6
PLAN	START+3
RIDER	START+2
RSCSFQ	RSCSFILE+2, RSCSFILE+3, RSCSFILE+4, RSCSFILE+5
RSCSQ	RSCS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	ADDRT+1~, ADDRT+6*, ADDRT+10, NEW+12, NEW+16
DA	PLAN+2~, PLAN+12!, NEW+2~, NEW+8, NEW+11, NEW+15, ADDRS+2~, ADDRS+37!, RSCSFILE+1~, NEWIBER+14
DA(1	RSCSFILE+6*
DD	RIDER+1~, RIDER+7!, PLAN+2~, PLAN+10!, NEW+2~, ADDRS+2~, ADDRS+27!, RSCSFILE+1~, NEWIBER+1~, NEWIBER+10!
DIC	RIDER+1~, RIDER+7!, PLAN+2~, PLAN+10!, NEW+2~, NEW+4, ADDRS+2~, ADDRS+28, ADDRS+29!, RSCSFILE+1~ , RSCSFILE+6, NEWIBER+1~, NEWIBER+10, NEWIBER+11!
DIC("DR"	RSCSFILE+7*
DIC("P"	RSCSFILE+7*
DIC(0	RIDER+7, PLAN+10, NEW+8, NEW+15, ADDRS+28, RSCSFILE+6, NEWIBER+10*
DIE	PLAN+2~, PLAN+12!, NEW+2~, NEW+13, NEW+17, ADDRS+2~, ADDRS+37!, NEWIBER+16*
DINUM	ADDRS+29!
DLAYGO	RIDER+1~, RIDER+7, PLAN+2~, PLAN+10, NEW+2~, NEW+8, NEW+15, ADDRS+2~, ADDRS+28, ADDRS+29! , RSCSFILE+1~, RSCSFILE+6, NEWIBER+1~, NEWIBER+10*
DO	RIDER+1~, RIDER+7!, PLAN+2~, PLAN+10!, NEW+2~, NEW+7!, ADDRS+2~, ADDRS+27!, RSCSFILE+1~, NEWIBER+1~ , NEWIBER+10!
DONE	ADDRT+1~, ADDRT+12*
DR	PLAN+2~, PLAN+12!, NEW+2~, NEW+8, NEW+12, NEW+15, NEW+16, ADDRS+2~, ADDRS+32, ADDRS+33* , ADDRS+34, ADDRS+35, ADDRS+36, ADDRS+37!, RSCSFILE+1~, NEWIBER+15
FLG	ADDRT+1~, ADDRT+6, ADDRT+14, RTQ
IB02	NEWIBER+1~, NEWIBER+5*, NEWIBER+15
IB04	NEWIBER+1~, NEWIBER+6*, NEWIBER+15
IB05	NEWIBER+1~, NEWIBER+7*, NEWIBER+15
IBA	PLAN+2~, PLAN+8*, ADDRT+1~, RTQ, ADDRS+2~
IBA(	MSG+2*
IBA(1	RTQ*
IBA(999999	MSG+1
IBADJST	ADDRS+2~, ADDRS+26, ADDRS+36, RSDT+1~, RSDT+7
IBADMIN	ADDRS+2~, ADDRS+26, ADDRS+35, RSDT+1~, RSDT+6
IBARR	RIDER+1~, NEWIBER+1~
IBBS	ADDRS+2~, ADDRS+8*, ADDRS+32
IBCNT	ADDRT+1~, ADDRT+2, ADDRT+6, ADDRT+14, RTQ, ADDRS+2~, ADDRS+3, ADDRS+31, RSCS+2~, RSCS+3 , RSCS+10*, RSCSQ
IBCNTCS	ADDRS+2~, ADDRS+38, ADDRS+40, ADDRS+41
IBCOPY	RSCS~, RSCS+6, RSCS+7, RSCS+8, RSCS+9
IBCS	ADDRS+2~, RSCS+2~, RSCS+9, RSCS+10, RSDT+1~, RSDT+2, RSDT+3, RSDT+4, RSDT+5, RSDT+6 , RSDT+7
IBCS0	RSDT+1~, RSDT+5*, RSDT+8
IBCSAA	RSCS+2~, RSCSFILE~, RSCSFILE+7
IBCSFN	ADDRS+2~, RSCS+2~, RSCS+9, RSCS+10, RSCSFILE+1~, RSCSFILE+4, RSCSFILE+5
IBCSNM	RSCS+2~, RSCSFILE~, RSCSFILE+3, RSCSFILE+4, RSCSFILE+7
IBDA	RIDER+1~, RIDER+8, PLAN+2~, PLAN+10, PLAN+12, NEWIBER+1~, NEWIBER+12*
IBDISP	ADDRS+2~, ADDRS+26, ADDRS+34, RSDT+1~, RSDT+6
IBFILE	PLAN+2~, PLAN+3*, PLAN+6, PLAN+8
IBFN	ADDRS+2~, ADDRS+31*, ADDRS+37, ADDRS+40, RSCS~, RSCS+4, RSCS+10, RSCSFILE~, RSCSFILE+2, RSCSFILE+5 , RSCSFILE+6
IBI	ADDRT+1~, ADDRT+8, ADDRS+2~, ADDRS+5
IBJ	ADDRS+2~
IBLN	ADDRS+2~, ADDRS+5*, ADDRS+7, ADDRS+8, ADDRS+9, ADDRS+10, ADDRS+11, ADDRS+12, ADDRS+28, ADDRS+32
IBLNCS	ADDRS+2~
IBNAME	RIDER+1~, RIDER+4, RIDER+5, RIDER+7, RIDER+10, PLAN+2~, PLAN+5, PLAN+6, PLAN+8, PLAN+10 , ADDRS+14, ADDRS+15, ADDRS+16, ADDRS+17, ADDRS+18, ADDRS+19, ADDRS+20, ADDRS+22, ADDRS+23, ADDRS+24 , ADDRS+26, RSCS+2~, NEWIBER+1~, NEWIBER+4, NEWIBER+8, NEWIBER+10, NEWIBER+15, NEWIBER+19
IBNRS	RSCS+2~, RSCS+4*, RSCS+5
IBRDA	PLAN+2~, PLAN+6*
IBRIDER	PLAN+2~, PLAN+5*, PLAN+6
IBRN	ADDRS+2~, ADDRS+9*, ADDRS+14, ADDRS+15, ADDRS+16, ADDRS+17, ADDRS+18, ADDRS+19, ADDRS+20, ADDRS+34 , ADDRS+35, ADDRS+36
IBRS	ADDRS+2~
IBRS0	ADDRS+21~, ADDRS+23*, ADDRS+24, ADDRS+25
IBRS1	ADDRS+2~, ADDRS+23*, ADDRS+26
IBRSFN	ADDRS+21~, ADDRS+22, ADDRS+23, ADDRS+40
IBRSNM	RSCS+2~, RSCS+4*
IBRT	ADDRS+2~, ADDRS+10, ADDRS+11, ADDRS+12, ADDRS+32
IBTY	RSCS+2~, RSCS+5*, RSCS+7
IBVDT	ADDRS+2~, ADDRS+25*, ADDRS+40, RSCS~
IBX	RIDER+1~, RIDER+5, RIDER+10, PLAN+2~, PLAN+6, ADDRS+21~, RSCSFILE+1~, RSCSFILE+7, RSCSFQ, NEWIBER+1~ , NEWIBER+8, NEWIBER+19, MCCRUTL+1~, MCCRUTL+2, MSG+1~*, MSG+2
IBXFN	RSCS+2~, RSCS+8*, RSCS+9
IBY	MCCRUTL+1~, MCCRUTL+2, MCCRUTL+3
INDT	ADDRS+2~, ADDRS+25*
NAM	NEW~, NEW+3, NEW+5, NEW+8, NEW+9
NUM	NEW~, NEW+8
OUT	NEW+2~, NEW+4*, NEW+5
P	MCCRUTL~, MCCRUTL+2
PRE	RSDT~, RSDT+3, RSDT+4
REC	ADDRT+1~, ADDRT+9*, ADDRT+10, ADDRT+12, NEW~, NEW+12, NEW+16
RN	NEW+2~, NEW+10, NEW+11, NEW+15, NEWIBER+13, NEWIBER+14
RTNAM	ADDRT+1~, ADDRT+10*, ADDRT+12, ADDRT+14
RTNUM	ADDRT+1~, ADDRT+7*, ADDRT+8, ADDRT+12
U	ADDRS+7, ADDRS+8, ADDRS+9, ADDRS+10, ADDRS+11, ADDRS+12, ADDRS+24, ADDRS+25, ADDRS+26, ADDRS+28 , ADDRS+32, RSCS+7, RSCS+10, MCCRUTL+2, RSDT+6, RSDT+8
X	RIDER+1~, RIDER+7!, PLAN+2~, PLAN+10!, PLAN+12!, NEW+2~, NEW+3, NEW+8, ADDRS+2~, ADDRS+28* , ADDRS+30!, ADDRS+37!, RSCSFILE+1~, RSCSFILE+7, NEWIBER+1~, NEWIBER+10, NEWIBER+11!, MCCRUTL~, MCCRUTL+2, MSG~ , MSG+2
Y	RIDER+1~, RIDER+7!, RIDER+8, PLAN+2~, PLAN+10!, PLAN+12!, NEW+2~, NEW+4, NEW+9, NEW+10 , ADDRS+2~, ADDRS+30!, ADDRS+31, ADDRS+37!, RSCSFILE+1~, RSCSFILE+7, NEWIBER+1~, NEWIBER+11!, NEWIBER+12, NEWIBER+13

Customize PDF page

Package: Integrated Billing

Routine: IBY568PO

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(@IBI	ADDRT+9
$T(RSF+IBI	ADDRS+5