Routine: IBCESRV2

Information

IBCESRV2 ;ALB/TMP - Server based Auto-update utilities - IB EDI ;03/05/96

Package	Total	Call Graph
Integrated Billing	4	$$LAST364^IBCEF4 UPDTEST^IBCEPTM TRADEL^IBCESRV1 UPD361^IBCEST
MailMan	1	SENDMSG^XMXAPI
VA FileMan	1	(,WP)^DIE

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

Package	Total	Caller Graph
Integrated Billing	10	IB20P407 IBCEM IBCEM02 IBCEOB IBCEPTM IBCERP5 IBCESRV IBCESRV3 IBCEST ^IBE(364.3

Entry Points

Name	Comments	DBIA/ICR reference
CON837	; Confirmation of 837 batch - auto update
BILLSTAC(IBBILL,IBTYP)	;Change status of transmit bill ; IBBILL = the ien of the entry in file 364 to update ; IBTYP = code for new status (see field 364;.03 for details)
REJ837	; Rejections 837
DELMSG(IBTDA)	; ; Delete message after it successfully updates the database. ; IBTDA = the ien of the message in file 364.2
BILLSTAR(IBBILL,IBTDA)	;Change status of transmit bill and bill on rejection ; IBBILL = ien of bill (399) ; IBTDA = ien of error message
UPDMSG(IBTDA,STAT,UPD)	; Update msg with status of 'P','U' or delete message ; STAT = 'P' 'U' for pending or updating, 'R' to delete ; UPD = flag that says update the data base updated field (.12) if 1
STOREM(IBTDA,IBTEXT,IBE)	;Store message text in file 364.2 ; INPUT: ; IBTDA = ien in file 364 message field entry #IBTDA ; IBTEXT = name of the array where the message text is retrieved from ; or "@" to delete the text from the message field ; OUTPUT: ; IBE = array of errors (IBE("DIERR")) returned, pass by reference
CKRES(IBBDA,IBDEF,IBLIST)	;Chk to see if the batch file can be updated to ; completely resubmitted based on finding all bills in it ; having a status of cancelled, resubmitted, deleted or closed ; or if none of these statuses, they at least have a transmission ; record for the same bill created at a later date/time.
UPDCONF(IBBDA,IBTDA,IBTYP,IBAUTO)	; Add status msgs to STATUS file #361 ; Update data base from confirmation msg ; IBBDA = ien of batch ; IBTDA = ien of message ; IBTYP = type of message ; (0=Austin confirmation, 1=confirmation by non-payer ; 2=confirmation by payer) ; IBAUTO = flag for update mode ; 0 or null : manual 1 : auto ; ^TMP("IBCONF",$J,bill ien)="" where bill ien is the internal entry ; number of any bills in file 364 to be excluded from the ; confirmation due to reported errors
UPDREJ(IBBDA,IBTDA)	; Update data base from rejection msg ; IBBDA = ien of batch ; IBTDA = ien of message
MAILIT	; Mails the report text (bulletin) to the IB EDI SUPERVISOR mail grp;
SEND(IBOK)	; Send actual message for 1 report

External References

Name	Field # of Occurrence
^DIE	BILLSTAC+15, BILLSTAR+11, UPDMSG+11, CKRES+28, UPDCONF+29, UPDCONF+37, UPDCONF+42, UPDREJ+17
WP^DIE	STOREM+14
$$LAST364^IBCEF4	CKRES+24
UPDTEST^IBCEPTM	CON837+10, UPDREJ+10
TRADEL^IBCESRV1	DELMSG+3
UPD361^IBCEST	UPDCONF+45, UPDREJ+23
SENDMSG^XMXAPI	SEND+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBA(364 - [#364]	Classic Fileman Calls
^IBA(364.1 - [#364.1]	Classic Fileman Calls
^IBA(364.2 - [#364.2]	Classic Fileman Calls, WP^DIE
^DGCR(399 - [#399]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	BILLSTAR+7, BILLSTAR+14, UPDCONF+28
^DIC(36 - [#36]	BILLSTAR+14
^IBA(364 - [#364]	BILLSTAC+6, BILLSTAR+6, BILLSTAR+7, CKRES+22, CKRES+23, CKRES+24, UPDCONF+20, UPDCONF+23, UPDCONF+35, UPDREJ+8 , UPDREJ+20
^IBA(364.1 - [#364.1]	CON837+16, CKRES+19, UPDCONF+37, UPDCONF+39
^IBA(364.2 - [#364.2]	CON837+5, REJ837+5, BILLSTAR+6, UPDMSG+8, UPDMSG+11, UPDCONF+17, UPDREJ+8, MAILIT+5
^IBE(364.3 - [#364.3]	CON837+6
^TMP("IBCONF"	UPDCONF+21, UPDCONF+48!
^TMP("IBMSG"	MAILIT+2!, MAILIT+9, MAILIT+13, MAILIT+14, MAILIT+15, MAILIT+16, MAILIT+18, MAILIT+20!, SEND+6!
^TMP("IBMSGH"	MAILIT+2!, MAILIT+10*, SEND+3, SEND+6!
^TMP($J	MAILIT+20!

Label References

Name	Line Occurrences
BILLSTAC	UPDCONF+24, UPDCONF+36
BILLSTAR	UPDREJ+12, UPDREJ+20
DELMSG	CON837+20, UPDMSG+6, UPDCONF+31, MAILIT+19
SEND	MAILIT+9, MAILIT+18
UPDCONF	CON837+22
UPDMSG	UPDCONF+15, UPDREJ+6
UPDREJ	REJ837+5

Naked Globals

Name	Field # of Occurrence
^(	MAILIT+5
^(0	BILLSTAR+6, UPDCONF+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CON837+3~, BILLSTAC+4~, BILLSTAC+15, BILLSTAR+4~, BILLSTAR+11, UPDMSG+4~, UPDMSG+10, UPDMSG+11, CKRES+16~, CKRES+28 , UPDCONF+13~, UPDCONF+29, UPDCONF+37, UPDCONF+40, UPDREJ+4~, UPDREJ+15
DIE	CON837+3~, BILLSTAC+4~, BILLSTAC+15, BILLSTAR+4~, BILLSTAR+11, UPDMSG+4~, UPDMSG+10, CKRES+16~, CKRES+28, UPDCONF+13~ , UPDCONF+29, UPDCONF+37, UPDCONF+40, UPDREJ+4~, UPDREJ+15
DR	CON837+3~, BILLSTAC+4~, BILLSTAC+15, BILLSTAR+4~, BILLSTAR+11, UPDMSG+4~, UPDMSG+9, CKRES+16~, CKRES+28, UPDCONF+13~ , UPDCONF+27, UPDCONF+28, UPDCONF+37, UPDCONF+41, UPDREJ+4~, UPDREJ+16*
IB	CKRES+16~, CKRES+22, CKRES+23, UPDCONF+34~, UPDCONF+35, UPDCONF+37
IB0	CON837+3~, CON837+5, CON837+6, CON837+10, UPDCONF+13~, UPDCONF+17, UPDCONF+33, UPDCONF+35, UPDCONF+36, UPDCONF+41 , UPDREJ+4~, UPDREJ+8, UPDREJ+10, UPDREJ+16, MAILIT+1~, MAILIT+5, MAILIT+6, MAILIT+8, MAILIT+10, MAILIT+12 , MAILIT+16
IBAUTO	UPDCONF~
IBBDA	CON837+3~, CON837+5*, CON837+16, CON837+22, CKRES~, CKRES+19, CKRES+22, CKRES+23, CKRES+28, UPDCONF~ , UPDCONF+20, UPDCONF+23, UPDCONF+33, UPDCONF+39, UPDCONF+40, UPDREJ~, UPDREJ+14, UPDREJ+15, UPDREJ+20
IBBILL	CON837+3~, BILLSTAC~, BILLSTAC+6, BILLSTAC+15, BILLSTAR~, BILLSTAR+6, BILLSTAR+7, BILLSTAR+14, CKRES+16~, UPDCONF+13~ , UPDCONF+20, UPDCONF+21, UPDCONF+23, UPDCONF+28, UPDCONF+29, UPDREJ+4~, UPDREJ+8, UPDREJ+12, UPDREJ+14, UPDREJ+20*
IBBST	CON837+3~, CON837+16*, CON837+18
IBCBH	BILLSTAR+4~, BILLSTAR+7*, BILLSTAR+14
IBDA	BILLSTAR+4~, BILLSTAR+6*, BILLSTAR+7, BILLSTAR+11
IBDEF	CKRES~, CKRES+18*, CKRES+19, CKRES+28
IBE	STOREM~
IBE("DIERR"	STOREM+12!, STOREM+14!
IBFLAG	CON837+3~, UPDCONF+13~, UPDCONF+41
IBHD	MAILIT+1~, MAILIT+4*
IBIDA	UPDCONF+13~, UPDCONF+23*, UPDCONF+24
IBINC	CKRES+16~, CKRES+18, CKRES+25, CKRES+28
IBL	MAILIT+1~, MAILIT+4, MAILIT+13, MAILIT+14, MAILIT+15, MAILIT+16
IBLIST	CKRES~, CKRES+21!*, CKRES+22, CKRES+25, CKRES+26
IBLIST(	CKRES+26*
IBMSG	CON837+3~
IBOK	MAILIT+1~, MAILIT+4, MAILIT+9, MAILIT+18, MAILIT+19, SEND~, SEND+5
IBS	UPDCONF+13~, UPDCONF+18*, UPDCONF+24, UPDCONF+36, UPDCONF+39, UPDCONF+41
IBSTAT	BILLSTAC+4~, BILLSTAC+6, BILLSTAC+8, BILLSTAC+9, BILLSTAC+12, BILLSTAC+13, BILLSTAR+4~, BILLSTAR+7, BILLSTAR+9, BILLSTAR+11
IBTBILL	UPDREJ+4~, UPDREJ+8*
IBTDA	CON837+4, CON837+5, CON837+10, CON837+20, CON837+22, REJ837+3, REJ837+5, DELMSG~, DELMSG+3, BILLSTAR~ , BILLSTAR+6, BILLSTAR+11, UPDMSG~, UPDMSG+6, UPDMSG+8, UPDMSG+10, STOREM~, STOREM+14, UPDCONF~, UPDCONF+15 , UPDCONF+17, UPDCONF+31, UPDCONF+45, UPDREJ~, UPDREJ+6, UPDREJ+8, UPDREJ+10, UPDREJ+12, UPDREJ+16, UPDREJ+20 , UPDREJ+23, MAILIT+3, MAILIT+5, MAILIT+19
IBTEXT	STOREM~, STOREM+10, STOREM+14
IBTYP	CON837+3~, CON837+6, CON837+8, CON837+15, CON837+18, CON837+22, BILLSTAC~, BILLSTAC+8, BILLSTAC+12, BILLSTAC+13 , BILLSTAC+15, UPDCONF~, UPDCONF+18, UPDCONF+26, UPDCONF+31, UPDCONF+45
IBZ	STOREM+8~, STOREM+14, MAILIT+1~, MAILIT+4, MAILIT+5*
PRCASV	UPDCONF+13~
STAT	UPDMSG~, UPDMSG+6, UPDMSG+8, UPDMSG+9
U	CON837+5, CON837+6, CON837+10, CON837+16, BILLSTAC+6, REJ837+5, BILLSTAR+6, BILLSTAR+7, BILLSTAR+14, UPDMSG+8 , CKRES+19, UPDCONF+28, UPDCONF+33, UPDCONF+35, UPDCONF+36, UPDCONF+37, UPDCONF+39, UPDCONF+41, UPDREJ+8, UPDREJ+10 , UPDREJ+16, MAILIT+6, MAILIT+8
UPD	UPDMSG~, UPDMSG+9
X	BILLSTAC+4~, STOREM+8~
XMBODY	MAILIT+1~, SEND+2~, SEND+3*, SEND+4
XMDUZ	MAILIT+1~, SEND+2~
XMSUBJ	MAILIT+1~, SEND+2~, SEND+3*, SEND+4
XMTO	MAILIT+1~, SEND+2~, SEND+4
XMTO("I:G.IB	EDI SUPERVISOR" , SEND+3*
XMZ	MAILIT+1~, SEND+2~, SEND+4, SEND+5
Y	BILLSTAC+4~, STOREM+8~
Z	CON837+3~, CKRES+16~, CKRES+23, CKRES+24, CKRES+26, MAILIT+1~, MAILIT+13, MAILIT+15*
Z0	CKRES+16~, CKRES+24*, CKRES+25, CKRES+26
>> ZTREQ	UPDCONF+47, UPDREJ+25

Customize PDF page

Package: Integrated Billing