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 |  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: 7

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

Caller Graph

Caller Graph Total: 48

Package Total Caller Graph
Integrated Billing 48 IBCNBLE1  IBCNEBF  IBCNEDE  IBCNEDE1  IBCNEDE2  IBCNEDE3  IBCNEDE4  IBCNEDE5  
IBCNEDE6  IBCNEDE7  IBCNEDEP  IBCNEDEQ  IBCNEDST  IBCNEHL1  IBCNEHL2  IBCNEHL3  
IBCNEHL4  IBCNEHL7  IBCNEHLD  IBCNEHLI  IBCNEHLK  IBCNEHLM  IBCNEHLT  IBCNEHLU  
IBCNEKI2  IBCNEKIT  IBCNEML  IBCNEPM  IBCNEPY  IBCNERP0  IBCNERP4  IBCNERP5  
IBCNERP7  IBCNERP8  IBCNERP9  IBCNERPC  IBCNERPF  IBCNERTQ  IBCNEUT4  IBCNEUT6  
IBCNEUT7  IBCNVRD1  IBJPI  IBJPI3  IBY416PO  IBY549PO  IBY579PO  IBY602PO  

Entry Points

Name Comments DBIA/ICR reference
MGRP() ; Get the Mail Group for the eIV Interface - IB Site Parameters (51.04)
TQMAXSVX ; TQMAXSV exit pt
PYRAPP(APP,PAYERIEN) ; Get the Payer Application multiple IEN
; based on the payer application name and payer ien.
PYRAPPX ;
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
SAVFRSH(TQIEN,DTDIFF) ; Update TQ freshness date based on service date diff
TQMAXSV(DFN,PAYER,EICDEXT) ; Returns MAX(TQ Service Date) for Patient & Payer
; Input:
; DFN - Patient DFN (2)
; PAYER - Payer IEN (365.12) (If no PAYER passed in, check them all)
; EICDEXT - 1 OR 0 (Is this from the EICD extract?)
ADDTQX ; ADDTQ exit pt
ACTAPP(IEN) ; Active payer applications
; This function will return 1 if any of the payer applications for
; this payer (being passed in by the payer IEN) are NOT deactivated.
; This should not be confused with the other payer application fields
; such as national active or local active. The deactivated field is
; the .11 field in the payer application multiple.
BFEXIT ;
MSG(MGRP,XMSUB,XMTEXT,FROMFLAG,XMY) ; Send a MailMan Message
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
TQUPDSV(DFN,PAYER,SRVDT) ; Update service dates & freshness dates for TQ
; entries awaiting transmission
TQUPDSVX ; TQUPDSV exit pt

External References

Name Field # of Occurrence
$$FIND1^DIC PYRAPP+5
^DIE SAVFRSH+8
$$GET1^DIQ MGRP+1, TQMAXSV+27, TQMAXSV+29, TQMAXSV+30
SAVETQ^IBCNEUT2 TQUPDSV+42, TQUPDSV+49, TQUPDSV+52
$$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+30
^XMD MSG+30, MSG+46

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.9 - [#350.9] 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)
^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+22, TQMAXSV+24, SAVFRSH+4
^IBE(365.018 - [#365.018] TQUPDSV+32
^IBE(365.12 - [#365.12] PYRAPP+8, ACTAPP+12, ACTAPP+13

Label References

Name Line Occurrences
$$TQMAXSV ADDTQ+19
ADDTQX ADDTQ+15, ADDTQ+16, ADDTQ+20
BFEXIT BFEXIST+9
PYRAPPX PYRAPP+6, PYRAPP+7
SAVFRSH TQUPDSV+42, TQUPDSV+49, TQUPDSV+52
TQMAXSVX TQMAXSV+14
TQUPDSVX TQUPDSV+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTAPP ACTAPP+10~, ACTAPP+11*, ACTAPP+12, ACTAPP+16*, ACTAPP+18
ADDTQ ADDTQ+12~, ADDTQ+14*, ADDTQ+15*, ADDTQ+16*, ADDTQ+22*, ADDTQX+1
APP PYRAPP~, PYRAPP+5
APPDATA ACTAPP+10~, ACTAPP+13*, ACTAPP+14, ACTAPP+15
APPIEN PYRAPP+3~, PYRAPP+5*, PYRAPP+6, PYRAPP+8, ACTAPP+10~, ACTAPP+11*, ACTAPP+12*, ACTAPP+13
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+14, TQMAXSV+22, TQMAXSV+24
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
DTDIFF SAVFRSH~, SAVFRSH+6
DUZ MSG+21, MSG+26
EICDEXT ADDTQ~, ADDTQ+16, ADDTQ+19, TQMAXSV~, TQMAXSV+26
ERACT TQUPDSV+3~, TQUPDSV+25*, TQUPDSV+31*, TQUPDSV+32*
ERTXT TQMAXSV+16~, TQMAXSV+30*
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
FROMFLAG MSG~, MSG+21
HL7IEN TQUPDSV+3~, TQUPDSV+27*, TQUPDSV+29
IBSKIP TQMAXSV+16~, TQMAXSV+25*, TQMAXSV+26, TQMAXSV+30*
IBTQS TQMAXSV+16~, TQMAXSV+27*, TQMAXSV+28
IEN BFEXIST+6~, BFEXIST+11*, BFEXIST+12*, BFEXIST+14, BFEXIST+18, ACTAPP~, ACTAPP+11*, ACTAPP+12, ACTAPP+13
IENS TQMAXSV+16~, TQMAXSV+29*
INSNAME BFEXIST~, BFEXIST+8*, BFEXIST+9, BFEXIST+19
LASTBYP TQMAXSV+16~, TQMAXSV+21*, TQMAXSV+22*, TQMAXSV+24, TQMAXSV+31
MAXDT ADDTQ+12~, ADDTQ+19*, ADDTQ+20, ADDTQ+22
MGRP MSG~, MSG+23
MIEN PYRAPP+3~, PYRAPP+4*, PYRAPP+8*, PYRAPPX+1
PAYER ADDTQ~, ADDTQ+16, ADDTQ+19, TQUPDSV~, TQUPDSV+5, TQUPDSV+10, TQUPDSV+12, TQMAXSV~, TQMAXSV+22, TQMAXSV+24
PAYERIEN PYRAPP~, PYRAPP+7, PYRAPP+8
RIEN TQUPDSV+3~, TQUPDSV+29*, TQUPDSV+31, TQMAXSV+29*, TQMAXSV+30
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+16~, TQMAXSV+19*, TQMAXSV+28
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+16~, TQMAXSV+23*, TQMAXSV+24*, TQMAXSV+27, TQMAXSV+29, SAVFRSH~, SAVFRSH+3, SAVFRSH+4, SAVFRSH+7
TQMAXSV TQMAXSV+12~, TQMAXSV+13*, TQMAXSV+31*, TQMAXSVX+1
U BFEXIST+14, BFEXIST+18, ACTAPP+14, ACTAPP+15, 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*
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 |  All