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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCE837A

Package: Integrated Billing

Routine: IBCE837A


Information

IBCE837A ;ALB/TMP - OUTPUT FOR 837 TRANSMISSION - CONTINUED ;8/6/03 10:50am

Source Information

Source file <IBCE837A.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 7 BSTAT^IBCDC  $$COBN^IBCEF  ($$PAYERID,$$RECVR)^IBCEF2  ($$MRASEC,$$TXMT)^IBCEF4  RESUBUP^IBCEM02  ADDTXM^IBCEPTM  $$NEEDMRA^IBEFUNC  
VA FileMan 4 ^DIE  ^DIK  CLEAN^DILF  $$GET1^DIQ  
Kernel 3 $$NOW^XLFDT  SETUP^XQALERT  $$PROD^XUPROD  
MailMan 1 SENDMSG^XMXAPI  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IBCE837  IBCE837H  IBCE837K  

Entry Points

Name Comments DBIA/ICR reference
UPD(MSGNUM,BATCH,CNT,BILLS,DESC,IBBTYP,IBINS) ; Upd current batch + bills w/new status
PRE ; Run before processing a bill entry
POST ; Run after processing a bill entry for cleanup
MAILIT(IBQUEUE,IBBILL,IBCTM,IBDUZ,IBDESC,IBBTYP,IBINS) ; Send mail msg, update bills
MAILQ ;
CHKNEW(IBQ,IBBILL,IBCTM,IBDESC,IBBTYP,IBINS,IBSITE,IBSIZE) ;
; Determine if ok to send msg
; Check for one insurance per batch if IBINS defined
; Returns IBSIZE, IBCTM, IBBILL (pass by reference)
ERRMSG(XMBODY) ; Send bulletin for error message
CLEANUP ; Cleans up bill transmission environment
CLEANP ; Entrypoint for extract data disply
ALERT(XQAMSG,IBGRP) ; Send alert message
CHKBTCH(IBBNO) ; Delete batch whose batch # is IBBNO if no entries in file 364
; and not a resubmitted batch
TESTLIM(IBINS) ; Check for test bill limit per day has been reached
1
SETVAR(IBXIEN,IBINS,IB0,IBSEC,IBNID,IB837R,IBDIV) ;
; Set up variables needed for subscripts in sort global
; ejk added IBSEC logic for patch 296
; IBSEC=1 if primary bill, 2 if 2nd/non-MRA, 3 if 2nd/MRA

External References

Name Field # of Occurrence
^DIE UPD+21, UPD+28, UPD+37, UPD+44
^DIK CHKBTCH+4, TESTLIM+8
CLEAN^DILF POST+12, CLEANP+4
$$GET1^DIQ MAILIT+17, MAILQ+3
BSTAT^IBCDC UPD+45
$$COBN^IBCEF SETVAR+4
$$PAYERID^IBCEF2 SETVAR+5
$$RECVR^IBCEF2 SETVAR+6
$$MRASEC^IBCEF4 SETVAR+4
$$TXMT^IBCEF4 UPD+40
RESUBUP^IBCEM02 CLEANUP+14
ADDTXM^IBCEPTM UPD+23
$$NEEDMRA^IBEFUNC UPD+41
$$SITE^VASITE SETVAR+7
$$NOW^XLFDT UPD+23
SENDMSG^XMXAPI MAILIT+27, ERRMSG+4, CLEANUP+11
SETUP^XQALERT ALERT+3
$$PROD^XUPROD MAILIT+22, TESTLIM+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.9 - [#350.9] GET1^DIQ
^IBA(364 - [#364] Classic Fileman Calls
^IBA(364.1 - [#364.1] Classic Fileman Calls
^DGCR(399 - [#399] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] UPD+40, UPD+42
^DIC(36 - [#36] TESTLIM+2
^IBA(364 - [#364] UPD+27, UPD+29, UPD+32, UPD+34, UPD+36, UPD+44, POST+8, CLEANUP+4, CHKBTCH+4
^IBA(364.1 - [#364.1] UPD+12, POST+8, MAILIT+12, CHKBTCH+3, CHKBTCH+4
^IBE(350.9 - [#350.9] UPD+14, MAILIT+13
^TMP("DIERR" PRE+1!
^TMP("IBCE-BATCH" MAILIT+30*, CLEANUP+15!
^TMP("IBEDI_TEST_BATCH" POST+5, MAILIT+18, CLEANUP+3, CLEANP+2!
^TMP("IBHDR" MAILIT+12, MAILIT+29, MAILQ+3, MAILQ+4!, CLEANUP+17, CLEANP+2!
^TMP("IBHDR1" POST+4!, MAILQ+4!
^TMP("IBICT" TESTLIM+6, 1*
^TMP("IBNOT" POST+9*, CLEANP+2!
^TMP("IBONE" CLEANUP+5, CLEANUP+7, CLEANUP+10, CLEANUP+12!, CLEANP+2!
^TMP("IBRESUB" CLEANP+2!
^TMP("IBRESUBMIT" UPD+18, UPD+19, UPD+40, POST+5, POST+7, MAILIT+30, CLEANUP+5, CLEANUP+7, CLEANUP+12!, CLEANUP+14
CLEANP+2!
^TMP("IBSELX" CLEANUP+5, CLEANUP+15
^TMP("IBTX" CLEANP+2!
^TMP("IBTXMT" CLEANP+1!
^TMP("IBXDATA" POST+3!
^TMP("IBXERR" POST+3*, CLEANUP+16!
^TMP("IBXINS" CLEANP+1!
^TMP("IBXMSG" MAILQ+4!
^TMP("IBXSAVE" PRE+1!, POST+10!
^TMP($J PRE+1!, POST+10!
^UTILITY( POST+11!
^UTILITY("VADM" CLEANP+3!
^UTILITY("VAPA" PRE+1!

Label References

Name Line Occurrences
1 TESTLIM+5
ALERT ERRMSG+5
CHKBTCH MAILQ+3, CLEANUP+17
MAILIT CHKNEW+18
UPD MAILIT+29

Naked Globals

Name Field # of Occurrence
^( POST+11
^($J UPD+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BATCH UPD~, UPD+12
BILLS UPD~, UPD+23
BILLS( UPD+24
CNT UPD~, UPD+16
DA UPD+11~, UPD+16*, UPD+26*, UPD+27, UPD+37*, UPD+44*, MAILIT+10~, CHKBTCH+2~, CHKBTCH+4*, TESTLIM+1~
, TESTLIM+8*
DESC UPD~, UPD+16
DIC UPD+11~, UPD+44*
DIE UPD+11~, UPD+16*, UPD+26*, UPD+37*, UPD+44*
DIK MAILIT+10~, CHKBTCH+2~, CHKBTCH+4*, TESTLIM+1~, TESTLIM+8*
DR UPD+11~, UPD+16*, UPD+18*, UPD+19*, UPD+21*, UPD+26*, UPD+27*, UPD+37*, UPD+44*
DT TESTLIM+3, SETVAR+7
IB0 SETVAR~, SETVAR+7, SETVAR+10
IB3 TESTLIM+1~, TESTLIM+2*, TESTLIM+3*, TESTLIM+6
IB837R SETVAR~, SETVAR+6*
IBBATCH UPD+11~, UPD+12*, UPD+16, UPD+23, UPD+26, UPD+37
IBBDA MAILIT+10~, MAILIT+12*, MAILIT+30
IBBILL MAILIT~, MAILIT+29, MAILQ+4!, CHKNEW~, CHKNEW+18
IBBNO MAILIT+10~, MAILIT+12*, MAILIT+25, MAILIT+30, CHKBTCH~, CHKBTCH+3
IBBTYP UPD~, UPD+13, UPD+21, MAILIT~, MAILIT+25, MAILIT+29, CHKNEW~, CHKNEW+18
IBCTM MAILIT~, MAILIT+15, MAILIT+29, MAILIT+30, MAILQ+1*, CHKNEW~, CHKNEW+18
IBDESC MAILIT~, MAILIT+29, CHKNEW~, CHKNEW+18
IBDIV SETVAR~, SETVAR+7*
IBDUZ MAILIT~, MAILIT+25
IBFUNC CLEANUP+6~, CLEANUP+7*, CLEANUP+8, CLEANUP+9, CLEANUP+10
IBGRP ALERT~, ALERT+2
IBIEN UPD+11~, UPD+24*, UPD+26, UPD+29, UPD+32, UPD+36, UPD+40, UPD+44
IBIFN UPD+11~, UPD+29*, UPD+32, UPD+40, UPD+41, UPD+42, UPD+43, UPD+45
IBINS UPD~, UPD+14*, UPD+16, MAILIT~, MAILIT+13*, MAILIT+29, CHKNEW~, CHKNEW+15, CHKNEW+18, TESTLIM~
, TESTLIM+2, TESTLIM+6, TESTLIM+7*, 1, SETVAR~, SETVAR+8, SETVAR+9
IBMRA UPD+11~, UPD+41*, UPD+42*, UPD+44
IBNID SETVAR~, SETVAR+5*, SETVAR+8*, SETVAR+9*, SETVAR+10*
IBQ CHKNEW~, CHKNEW+18
IBQUEUE MAILIT~, MAILIT+18*, MAILIT+19, MAILIT+24, MAILIT+25
IBSEC SETVAR~, SETVAR+4*
IBSITE CHKNEW~, CHKNEW+15
IBSIZE CHKNEW~, CHKNEW+18*
IBTEST CLEANUP+2~, CLEANUP+3*, CLEANUP+7, CLEANUP+10, CLEANUP+14, CLEANUP+17
IBTXTEST UPD+11~, UPD+13*, UPD+21, UPD+23, UPD+24
>> IBX TESTLIM+8
IBXERR PRE+1!, POST+2, POST+3, CLEANUP+16!
IBXIEN POST+3, POST+8, POST+9, SETVAR~, SETVAR+4, SETVAR+5, SETVAR+6
IBXNOREQ POST+10!
IBXSAVE PRE+1!, POST+10!
IBYY UPD+11~, UPD+44*
IBZ CHKBTCH+2~, CHKBTCH+3*, CHKBTCH+4
MSGNUM UPD~, UPD+16
PRVTXD UPD+31~, UPD+34*, UPD+35, UPD+36
PRVTXI UPD+31~, UPD+32*, UPD+33, UPD+34, UPD+37
Q POST+1~, POST+11*
U UPD+14, UPD+18, UPD+19, UPD+35, UPD+36, UPD+40, UPD+42, UPD+44, POST+7, MAILIT+12
, MAILIT+13, MAILIT+25, MAILIT+29, MAILIT+30, CHKNEW+15, CLEANUP+10, CHKBTCH+4, TESTLIM+3, TESTLIM+6, SETVAR+7
, SETVAR+10
XMBODY MAILIT+10~, MAILIT+25*, MAILIT+27, ERRMSG~, ERRMSG+4, CLEANUP+6~, CLEANUP+9*, CLEANUP+11
XMDUZ MAILIT+10~, MAILIT+25*, MAILIT+27, CLEANUP+6~, CLEANUP+9*, CLEANUP+11
XMSUBJ MAILIT+10~, MAILIT+25*, MAILIT+27, ERRMSG+1~, ERRMSG+2*, ERRMSG+4, CLEANUP+6~, CLEANUP+10*, CLEANUP+11
XMTO MAILIT+10~, MAILIT+27, ERRMSG+1~, ERRMSG+4, CLEANUP+6~, CLEANUP+11
XMTO( MAILIT+24*
XMTO("G.CLAIMS4US" MAILIT+22*
XMTO("I:G.IB EDI" , ERRMSG+2*, CLEANUP+9*
XMTO("XXX@Q-" MAILIT+19*
XMZ MAILIT+10~, MAILIT+26!, MAILIT+27, MAILIT+28, MAILIT+29, CLEANUP+6~, CLEANUP+11
XQA ALERT+1~
XQA( ALERT+2*
XQAMSG ALERT~
Z POST+6~, POST+8*, POST+9
Z0 POST+6~, POST+7*, POST+8
ZTREQ CLEANP+5!*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All