Routine: IBCNEUT5

Package	Total	Call Graph
VA FileMan	3	$$FIND1^DIC ^DIE $$GET1^DIQ
Integrated Billing	2	SAVETQ^IBCNEUT2 ($$PYRDEACT,PAYER)^IBCNINSU
Kernel	2	($$FMADD,$$FMDIFF)^XLFDT ($$TRIM,$$UP)^XLFSTR
MailMan	1	^XMD

Package	Total	Caller Graph
Integrated Billing	56	IBCNAU1 IBCNAU2 IBCNBAR IBCNBLE1 IBCNEBF IBCNEDE IBCNEDE1 IBCNEDE2 IBCNEDE4 IBCNEDE5 IBCNEDE6 IBCNEDE7 IBCNEDEP IBCNEDEQ IBCNEDST IBCNEHL1 IBCNEHL2 IBCNEHL3 IBCNEHL4 IBCNEHL5 IBCNEHL7 IBCNEHLD IBCNEHLI IBCNEHLK IBCNEHLM IBCNEHLT IBCNEHLU IBCNEKI2 IBCNEKIT IBCNEML IBCNEPM IBCNEPY IBCNEQU IBCNEQU1 IBCNERP7 IBCNERP8 IBCNERP9 IBCNERPC IBCNERPD IBCNERPF IBCNERTQ IBCNEUT4 IBCNEUT6 IBCNEUT7 IBCNINS IBCNIUF IBCNSC01 IBJPI IBJPI2 IBY416PO IBY549PO IBY579PO IBY602PO IBY652P IBY659PO IBY737PR

Entry Points

Name	Comments	DBIA/ICR reference
MSG(MGRP,XMSUB,XMTEXT,FROMFLAG,XMY)	; Send a MailMan Message
BFEXIST(DFN,INSNAME)	; Function returns 1 if an Entered Ins Buffer File ; entry exists with the same DFN and INSNAME, otherwise it returns a 0
BFEXIT	;
MGRP()	; Get the Mail Group for the eIV Interface - IB Site Parameters (51.04)
PYRAPP(APP,PAYERIEN)	; Get the Payer Application multiple IEN ; based on the payer application name and payer ien.
PYRAPPX	;
ACTAPP(IEN)	; Active payer applications
ADDTQ(DFN,PAYER,SRVDT,FDAYS,EICDEXT)	; Function - Returns flag (0/1) ; 1 - TQ File entry can be added as the service date for the patient ; and payer >= MAX TQ service date + Freshness Days ; 0 - otherwise
ADDTQX	; ADDTQ exit pt
TQUPDSV(DFN,PAYER,SRVDT)	; Update service dates & freshness dates for TQ ; entries awaiting transmission
TQUPDSVX	; TQUPDSV exit pt
TQMAXSV(DFN,PAYER,EICDEXT)	; Returns MAX(TQ Service Date) for Patient & Payer ; Input: ; DFN - Patient DFN (2) ; PAYER - Payer IEN (365.12) ; EICDEXT - 1 OR 0 (Is this from the EICD extract?)
TQMAXSVX	; TQMAXSV exit pt
SAVFRSH(TQIEN,DTDIFF)	; Update TQ freshness date based on service date diff
EPAT(MSG)	; Check for qualified patient for EICD Identification
EPATX	; Exit
EPAYR()	; Check EICD Payer
EPAYRX	; Exit
EACTPOL()	; Check for active policy for EICD Identification
EACTPOLX	; Exit
NAINSCO	; Non-active Insurance companies
NATPLANS	; Non-active Type of Plans

Name	Field # of Occurrence
$$FIND1^DIC	PYRAPP+5, EACTPOL+9
^DIE	SAVFRSH+8
$$GET1^DIQ	MGRP+1, TQMAXSV+28, TQMAXSV+30, TQMAXSV+31, EPAT+6, EPAT+7, EPAT+8, EPAT+9, EPAT+10, EPAYR+5 , EACTPOL+17, EACTPOL+18, EACTPOL+21, EACTPOL+26, EACTPOL+27
SAVETQ^IBCNEUT2	TQUPDSV+42, TQUPDSV+49, TQUPDSV+52
$$PYRDEACT^IBCNINSU	ACTAPP+15
PAYER^IBCNINSU	EPAYR+8
$$FMADD^XLFDT	ADDTQ+22, SAVFRSH+6
$$FMDIFF^XLFDT	TQUPDSV+42, TQUPDSV+46, TQUPDSV+49, TQUPDSV+52
$$TRIM^XLFSTR	BFEXIST+8, BFEXIST+18
$$UP^XLFSTR	BFEXIST+8, BFEXIST+19, TQMAXSV+31
^XMD	MSG+30, MSG+46

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.312	GET1^DIQ
^IBE(350.9 - [#350.9]	GET1^DIQ
^IBE(355.1 - [#355.1]	FIND1^DIC
^IBA(355.3 - [#355.3]	GET1^DIQ
^IBCN(365 - [#365]	GET1^DIQ
^IBCN(365.1 - [#365.1]	Classic Fileman Calls, GET1^DIQ
^IBE(365.13 - [#365.13]	FIND1^DIC
365.16	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EACTPOL+15
^IBA(355.33 - [#355.33]	BFEXIST+12, BFEXIST+14, BFEXIST+18
^IBCN(365 - [#365]	TQUPDSV+31
^IBCN(365.1 - [#365.1]	TQUPDSV+10, TQUPDSV+12, TQUPDSV+14, TQUPDSV+27, TQUPDSV+29, TQUPDSV+35, TQMAXSV+23, TQMAXSV+25, SAVFRSH+4
^IBE(365.018 - [#365.018]	TQUPDSV+32
^IBE(365.12 - [#365.12]	PYRAPP+8

Name	Line Occurrences
$$TQMAXSV	ADDTQ+19
ADDTQX	ADDTQ+15, ADDTQ+16, ADDTQ+20
BFEXIT	BFEXIST+9
EPATX	EPAT+6, EPAT+7, EPAT+8, EPAT+9, EPAT+10
EPAYRX	EPAYR+6, EPAYR+9, EPAYR+10, EPAYR+11
PYRAPPX	PYRAPP+6, PYRAPP+7
SAVFRSH	TQUPDSV+42, TQUPDSV+49, TQUPDSV+52
TQMAXSVX	TQMAXSV+15
TQUPDSVX	TQUPDSV+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDTQ	ADDTQ+12~, ADDTQ+14, ADDTQ+15, ADDTQ+16, ADDTQ+22, ADDTQX+1
APP	PYRAPP~, PYRAPP+5
APPIEN	PYRAPP+3~, PYRAPP+5*, PYRAPP+6, PYRAPP+8
BUFFNAME	BFEXIST+6~, BFEXIST+18*, BFEXIST+19
CSPAN	TQUPDSV+3~, TQUPDSV+46, TQUPDSV+47, TQUPDSV+49
CSRVDT	TQUPDSV+3~, TQUPDSV+35*, TQUPDSV+37, TQUPDSV+40, TQUPDSV+42, TQUPDSV+45, TQUPDSV+46, TQUPDSV+49, TQUPDSV+52
D	SAVFRSH+2~
D0	MSG+18~, SAVFRSH+2~
D1	MSG+18~
D2	MSG+18~
DA	TQUPDSV+3~, TQUPDSV+11, TQUPDSV+12, TQUPDSV+14, TQUPDSV+27, TQUPDSV+29, TQUPDSV+35, TQUPDSV+42, TQUPDSV+49, TQUPDSV+52 , SAVFRSH+2~, SAVFRSH+7*
DFN	BFEXIST~, BFEXIST+9, BFEXIST+12, ADDTQ~, ADDTQ+15, ADDTQ+19, TQUPDSV~, TQUPDSV+5, TQUPDSV+10, TQUPDSV+12 , TQMAXSV~, TQMAXSV+15, TQMAXSV+23, TQMAXSV+25, EPAT+6, EPAT+7, EPAT+8, EPAT+9, EPAT+10, EACTPOL+15 , EACTPOL+16
DG	MSG+18~
DI	SAVFRSH+2~
DIC	MSG+18~, SAVFRSH+2~
DICR	MSG+18~
DIE	SAVFRSH+2~, SAVFRSH+7*
DIFROM	MSG+17~
DISYS	MSG+18~, PYRAPP+3~
DIW	MSG+18~
DQ	SAVFRSH+2~
DR	SAVFRSH+2~, SAVFRSH+7*
DT	TQUPDSV+37, TQUPDSV+40, TQUPDSV+42, TQUPDSV+45, TQUPDSV+46, EACTPOL+18
DTDIFF	SAVFRSH~, SAVFRSH+6
DUZ	MSG+21, MSG+26
EICDEXT	ADDTQ~, ADDTQ+16, ADDTQ+19, TQMAXSV~, TQMAXSV+27
EINS	EACTPOL+1~, EACTPOL+16*, EACTPOL+17, EACTPOL+18, EACTPOL+21, EACTPOL+26
ERACT	TQUPDSV+3~, TQUPDSV+25, TQUPDSV+31, TQUPDSV+32*
ERTXT	TQMAXSV+17~, TQMAXSV+31*
EXIST	BFEXIST+6~, BFEXIST+7, BFEXIST+12, BFEXIST+21, BFEXIT+1
FDAYS	ADDTQ~, ADDTQ+15, ADDTQ+22
FDT	SAVFRSH+2~, SAVFRSH+4, SAVFRSH+6, SAVFRSH+7
>> FRESHDT	EPAT+7
FROMFLAG	MSG~, MSG+21
HL7IEN	TQUPDSV+3~, TQUPDSV+27*, TQUPDSV+29
IBACTV	EACTPOL+1~, EACTPOL+13, EACTPOL+15, EACTPOL+31, EACTPOLX+1
IBEFF	EACTPOL+1~, EACTPOL+17*
IBEXP	EACTPOL+1~, EACTPOL+18*
IBIDX	EACTPOL+1~, EACTPOL+5, EACTPOL+8, EACTPOL+14, EACTPOL+15, EACTPOL+16
IBINCO	EACTPOL+1~, EACTPOL+5*
IBINSNM	EACTPOL+1~
IBINSNM(	EACTPOL+5*, EACTPOL+23
IBPLAN	EACTPOL+1~, EACTPOL+8, EACTPOL+9, EACTPOL+26, EACTPOL+27
IBSKIP	TQMAXSV+17~, TQMAXSV+26, TQMAXSV+27, TQMAXSV+31
IBTOP	EACTPOL+1~, EACTPOL+9, EACTPOL+10, EACTPOL+27, EACTPOL+28
IBTOPIEN	EACTPOL+1~
IBTOPIEN(	EACTPOL+10*, EACTPOL+28
IBTQS	TQMAXSV+17~, TQMAXSV+28*, TQMAXSV+29
IBWK1	EACTPOL+1~
IBWK2	EACTPOL+1~
IEN	BFEXIST+6~, BFEXIST+11, BFEXIST+12, BFEXIST+14, BFEXIST+18, ACTAPP~, ACTAPP+15
IENS	TQMAXSV+17~, TQMAXSV+30, EPAYR+2~, EPAYR+9, EPAYR+10, EPAYR+11
INSNAME	BFEXIST~, BFEXIST+8*, BFEXIST+9, BFEXIST+19
>> INSNM	EACTPOL+21*, EACTPOL+22, EACTPOL+23
LASTBYP	TQMAXSV+17~, TQMAXSV+22, TQMAXSV+23, TQMAXSV+25, TQMAXSV+32
MAXDT	ADDTQ+12~, ADDTQ+19*, ADDTQ+20, ADDTQ+22
MGRP	MSG~, MSG+23
MIEN	PYRAPP+3~, PYRAPP+4, PYRAPP+8, PYRAPPX+1
MSG	EPAT~, EPAT+7*
OK	EPAT+4~, EPAT+5, EPAT+12, EPATX+1, EPAYR+2~, EPAYR+3, EPAYR+13, EPAYRX+1
PAYER	ADDTQ~, ADDTQ+16, ADDTQ+19, TQUPDSV~, TQUPDSV+5, TQUPDSV+10, TQUPDSV+12, TQMAXSV~, TQMAXSV+15, TQMAXSV+23 , TQMAXSV+25, EPAYR+2~, EPAYR+8
PAYER(	EPAYR+9, EPAYR+10, EPAYR+11
PAYERIEN	PYRAPP~, PYRAPP+7, PYRAPP+8
PIEN	EPAYR+2~, EPAYR+5*, EPAYR+6, EPAYR+8, EPAYR+13
RIEN	TQUPDSV+3~, TQUPDSV+29, TQUPDSV+31, TQMAXSV+30, TQMAXSV+31
SPAN	TQUPDSV+3~, TQUPDSV+46, TQUPDSV+48, TQUPDSV+49
SRVDT	ADDTQ~, ADDTQ+15, ADDTQ+22, TQUPDSV~, TQUPDSV+5, TQUPDSV+40, TQUPDSV+42, TQUPDSV+45, TQUPDSV+46, TQUPDSV+49 , TQUPDSV+52
STATLIST	TQMAXSV+17~, TQMAXSV+20*, TQMAXSV+29
STS	TQUPDSV+3~, TQUPDSV+14*, TQUPDSV+22, TQUPDSV+25
SVDT	TQUPDSV+3~, TQUPDSV+9, TQUPDSV+10, TQUPDSV+12
TMPSUB	MSG+19~, MSG+28*, MSG+44
TMPTEXT	MSG+19~, MSG+28*, MSG+39
TMPY	MSG+19~, MSG+29*
TMPY(	MSG+37
TQIEN	TQMAXSV+17~, TQMAXSV+24, TQMAXSV+25, TQMAXSV+28, TQMAXSV+30, SAVFRSH~, SAVFRSH+3, SAVFRSH+4, SAVFRSH+7
TQMAXSV	TQMAXSV+12~, TQMAXSV+13, TQMAXSV+32, TQMAXSVX+1
U	BFEXIST+14, BFEXIST+18, TQUPDSV+14, TQUPDSV+29, TQUPDSV+31, TQUPDSV+32, TQUPDSV+35, SAVFRSH+4
X	SAVFRSH+2~
XMDUN	MSG+17~
XMDUZ	MSG+17~, MSG+21, MSG+22
XMMG	MSG+17~, MSG+37, MSG+43
XMROU	MSG+17~
XMSTRIP	MSG+17~
XMSUB	MSG~, MSG+28, MSG+39*
XMTEXT	MSG~, MSG+28, MSG+39*, MSG+42, MSG+43, MSG+44, MSG+45
XMY	MSG~, MSG+25, MSG+29
XMY(	MSG+25, MSG+26, MSG+38*
XMY("G."	MSG+23*
XMYBLOB	MSG+17~
XMZ	MSG+17~
XX	MSG+19~, MSG+41, MSG+42

Customize PDF page

Package: Integrated Billing

Routine: IBCNEUT5

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 56

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(NAINSCO+IBIDX	EACTPOL+5
$T(NATPLANS+IBIDX	EACTPOL+8