Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBCNEUT5

Package: Integrated Billing

Routine: IBCNEUT5


Information

IBCNEUT5 ;DAOU/ALA - eIV MISC. UTILITIES ; 20-JUN-2002

Source Information

Source file <IBCNEUT5.m>

Call Graph

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 57

Package Total Caller Graph
Integrated Billing 57 IBCNAU1  IBCNAU2  IBCNBAR  IBCNBLE1  IBCNEBF  IBCNEDE  IBCNEDE1  IBCNEDE2  
IBCNEDE3  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  IBJPI3  IBY416PO  IBY549PO  IBY579PO  IBY602PO  IBY652P  
IBY659PO  

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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*

Marked Items

Name Field # of Occurrence
$T(NAINSCO+IBIDX EACTPOL+5
$T(NATPLANS+IBIDX EACTPOL+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All