Routine: IBCE837A

Information

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

Package	Total	Call Graph
Integrated Billing	8	BSTAT^IBCDC POST^IBCE837P $$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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Integrated Billing	4	IBCE837 IBCE837H IBCE837K ^IBE(353

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+22, UPD+30, UPD+39, UPD+46
^DIK	CHKBTCH+4, TESTLIM+8
CLEAN^DILF	POST+14, CLEANP+4
$$GET1^DIQ	UPD+17, UPD+28, MAILIT+17, MAILQ+3
BSTAT^IBCDC	UPD+47
POST^IBCE837P	POST+12
$$COBN^IBCEF	SETVAR+4
$$PAYERID^IBCEF2	SETVAR+5
$$RECVR^IBCEF2	SETVAR+6
$$MRASEC^IBCEF4	SETVAR+4
$$TXMT^IBCEF4	UPD+42
RESUBUP^IBCEM02	CLEANUP+14
ADDTXM^IBCEPTM	UPD+24
$$NEEDMRA^IBEFUNC	UPD+43
$$SITE^VASITE	SETVAR+7
$$NOW^XLFDT	UPD+24
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+42, UPD+44
^DIC(36 - [#36]	TESTLIM+2
^IBA(364 - [#364]	UPD+29, UPD+31, UPD+34, UPD+36, UPD+38, UPD+46, 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+19, UPD+20, UPD+42, 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+13!
^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+13
^($J	UPD+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BATCH	UPD~, UPD+12
BILLS	UPD~, UPD+24
BILLS(	UPD+25
CNT	UPD~, UPD+17
DA	UPD+11~, UPD+17, UPD+28, UPD+29, UPD+39, UPD+46, MAILIT+10~, CHKBTCH+2~, CHKBTCH+4, TESTLIM+1~ , TESTLIM+8
DESC	UPD~, UPD+17
DIC	UPD+11~, UPD+46*
DIE	UPD+11~, UPD+17, UPD+28, UPD+39, UPD+46
DIK	MAILIT+10~, CHKBTCH+2~, CHKBTCH+4, TESTLIM+1~, TESTLIM+8
DR	UPD+11~, UPD+17, UPD+19, UPD+20, UPD+22, UPD+28, UPD+29, UPD+39, UPD+46
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+17, UPD+24, UPD+28, UPD+39
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+22, 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+25*, UPD+28, UPD+31, UPD+34, UPD+38, UPD+42, UPD+46
IBIFN	UPD+11~, UPD+31*, UPD+34, UPD+42, UPD+43, UPD+44, UPD+45, UPD+47
IBINS	UPD~, UPD+14, UPD+17, 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+43, UPD+44, UPD+46
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+22, UPD+24, UPD+25
>> 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+46*
IBZ	CHKBTCH+2~, CHKBTCH+3*, CHKBTCH+4
MSGNUM	UPD~, UPD+17
PRVTXD	UPD+33~, UPD+36*, UPD+37, UPD+38
PRVTXI	UPD+33~, UPD+34*, UPD+35, UPD+36, UPD+39
Q	POST+1~, POST+13*
U	UPD+14, UPD+19, UPD+20, UPD+37, UPD+38, UPD+42, UPD+44, UPD+46, 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!*

Customize PDF page

Package: Integrated Billing