Routine: IBCECSA4

Package	Total	Call Graph
Integrated Billing	11	RESUB^IBCE EN^IBCECOB (COBCOPY,COPYCLON,EDI2,PBILL1,TPJI1)^IBCECOB2 BLD^IBCECSA1 INIT^IBCECSA2 ($$STATUS,$$TXMT)^IBCEF4 PRINT1^IBCEM03 (CANCEL,EBILL)^IBCEM3 $$CHK^IBCEMU1 $$MRAWL^IBCEMU2 ($$LOCK,UNLOCK)^IBCEU0
List Manager	3	EN^VALM (FULL,PAUSE)^VALM1 EN^VALM2
VA FileMan	3	UPDATE^DIE $$GET1^DIQ ^DIR
Kernel	2	$$NOW^XLFDT $$KCHK^XUSRB

Package	Total	Caller Graph
Integrated Billing	17	IBCB1 IBCECOB2 IBCEM CSA CANCEL BILL IBCEM CSA CANCEL/CLONE BILL IBCEM CSA COB MANAGEMENT IBCEM CSA CORRECT REJECTED/DENIED BILL IBCEM CSA EDI HISTORY IBCEM CSA EDIT BILL IBCEM CSA MSG DETAIL IBCEM CSA PRINT BILL IBCEM CSA PROCESS COB IBCEM CSA RESUBMIT BILL IBCEM CSA RETRANSMIT BILL IBCEM CSA TPJI IBCEM CSA VIEW EOB IBCEMCA2 IBCEU0
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
SMSG	;select message
SMSGQ
COB	; COB management link from CSA
EDI	;History detail display
EOB	;View an EOB
TPJI	;Third Party joint Inquiry
PBILL	;Print bill - not for resubmit ; IB*320 - allow action for MRA request claims
PB1	;
CANCEL	;Cancel bill
CANCELQ
CRD	; enter here if correcting a bill
CLONE	;'Copy/cancel bill' protocol action
CLONEQ
PRO	; Copy for secondary/tertiary bill
PROQ
RES	;Resubmit bill by print
EBI	;Edit bill
EDITQ
SEL(IBDA,ONE)	; Select entry(s) from list ; IBDA = array returned if selections made ; IBDAX(n)=ien of bill selected (file 399) ; ONE = if set to 1, only one selection can be made at a time
RESUB(IBIFN,TXMT,IBFUNC,IBTBA)	; Function asks if resubmit as resolution to a ; message is the intention ; IBIFN = ien of bill in file 399 ; TXMT = flag if = 1, assume it's transmittable, don't have to check ; IBFUNC = code to say where the code is called from ; 'E'=edit/authorize 'P'=print 'PX'= print/not to resubmit 'C'=cancel ; IBTBA = transmit bill array returned to calling routine. Optional ; parameter to be passed by reference. ; IBTBA(364ptr)=""
RESUB1
RETXMT	;
RETXMTQ
MRACHK	; Restrict access to process REQUEST MRA claims
ERRWARN()	; Display the warning message when someone is about to Resubmit by Print, ; Retransmit or Print a bill that has an error or was rejected. - IB2641 ; (US3380).
LOGATMP(IBDA,USER,CURDAT,ACTION)	; Log a new entry in the "ARPN" cross-reference ; for an attempt to Resubmit by Print, Retransmit, or Print a claim after ignoring ; the warning message saying the claim has an error or was rejected.

External References

Name	Field # of Occurrence
UPDATE^DIE	LOGATMP+19
$$GET1^DIQ	LOGATMP+11
^DIR	RESUB+31
RESUB^IBCE	RETXMT+14
EN^IBCECOB	COB+4
COBCOPY^IBCECOB2	PRO+17
COPYCLON^IBCECOB2	CLONE+20
EDI2^IBCECOB2	EDI+4
PBILL1^IBCECOB2	PBILL+21
TPJI1^IBCECOB2	TPJI+4
BLD^IBCECSA1	SMSGQ+2
INIT^IBCECSA2	RES+12
$$STATUS^IBCEF4	RESUB+21
$$TXMT^IBCEF4	RESUB+18
PRINT1^IBCEM03	PBILL+20, RES+11
CANCEL^IBCEM3	CANCEL+13
EBILL^IBCEM3	EBI+13
$$CHK^IBCEMU1	PRO+12
$$MRAWL^IBCEMU2	MRACHK+3
$$LOCK^IBCEU0	SMSG+7
UNLOCK^IBCEU0	SMSG+9
EN^VALM	SMSG+8, EOB+4
FULL^VALM1	COB+3, EDI+2, EOB+2, TPJI+2, PBILL+5, CANCEL+3, CLONE+3, PRO+2, RES+3, EBI+3 , RETXMT+3
PAUSE^VALM1	PBILL+11, PBILL+16, CANCEL+9, CLONE+16, PRO+14, RES+12, EBI+7, MRACHK+3, ERRWARN+6
EN^VALM2	SEL+6
$$NOW^XLFDT	PB1+4, RES+13, RETXMT+17
$$KCHK^XUSRB	CANCEL+6, CLONE+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Bill status must be REQUEST MRA, AUTHORIZED or PRNT/TX to print the bill." Line Location: PBILL+11
Function Call: WRITE	Prompt: !,*7,"This is not a transmittable bill or review not needed" Line Location: PBILL+16
Function Call: WRITE	Prompt: !!?5,"You don't hold the proper security key to access this function." Line Location: CANCEL+7
Function Call: WRITE	Prompt: !?5,"The necessary key is IB AUTHORIZE. Please see your manager." Line Location: CANCEL+8
Function Call: WRITE	Prompt: !!?5,"You must hold the "_IBKEY_" security key to access this function." Line Location: CLONE+14
Function Call: WRITE	Prompt: !?5,"Please see your manager." Line Location: CLONE+15
Function Call: WRITE	Prompt: !!?4,"This bill is in a status of REQUEST MRA." Line Location: PRO+11
Function Call: WRITE	Prompt: !?4,"MRA EOBs must be processed from the MRA management worklist." Line Location: PRO+12
Function Call: WRITE	Prompt: !?4,"There are no MRA EOBs on file." Line Location: PRO+13
Function Call: WRITE	Prompt: !,*7,"An authorized bill can not be edited." Line Location: EBI+8
Function Call: WRITE	Prompt: !,*7,"You are not authorized to edit a bill" Line Location: EBI+9
Function Call: WRITE	Prompt: !,"The review status of this message will be updated to 'REVIEW COMPLETE'",!," based on this action" Line Location: RESUB+35
Function Call: WRITE	Prompt: !,?4,"This bill is in a status of REQUEST MRA and it does appear on" Line Location: MRACHK+4
Function Call: WRITE	Prompt: !,?4,"the MRA Management Worklist. Please use the MRA Management Menu" Line Location: MRACHK+5
Function Call: WRITE	Prompt: !,?4,"options for all processing related to this bill." Line Location: MRACHK+6
Function Call: WRITE	Prompt: !,?4,"You are about to Resubmit by Print, Retransmit or Print a bill" Line Location: ERRWARN+3
Function Call: WRITE	Prompt: !,?4,"that has an error or was rejected without making any changes to" Line Location: ERRWARN+4
Function Call: WRITE	Prompt: !,?4,"the claim. Please check before continuing." Line Location: ERRWARN+5
Routine Call	DIE Line Location: LOGATMP+19
Routine Call	DIR Line Location: RESUB+31
Routine Call	VALM Line Location: SMSG+8 EOB+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBM(361 - [#361]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	PBILL+11, PBILL+14, PRO+10, EBI+8, MRACHK+3
^IBM(361 - [#361]	LOGATMP+10
^TMP("IBCECSA"	SEL+8
^TMP("IBCECSB"	SMSG+5, PRO+6
^TMP($J	EBI+2!
^XUSEC("IB EDIT"	EBI+9

Label References

Name	Line Occurrences
$$ERRWARN	PBILL+8, RES+9, RETXMT+11
$$RESUB	PBILL+15
CANCELQ	CANCEL+6, CANCEL+11
CLONEQ	CLONE+5, CLONE+11, CLONE+18
EDITQ	EBI+5, EBI+7
LOGATMP	PB1+4, RES+13, RETXMT+17
MRACHK	CANCEL+11, CLONE+18, RETXMT+8
PB1	PBILL+8, PBILL+11, PBILL+16, PBILL+17
PROQ	PRO+5, PRO+8, PRO+10
RESUB1	RESUB+18, RESUB+22
RETXMTQ	RETXMT+7, RETXMT+8, RETXMT+11
SEL	SMSG+2
SMSGQ	SMSG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	LOGATMP~, LOGATMP+18
ADDARY	LOGATMP+12~
ADDARY(	LOGATMP+16, LOGATMP+17, LOGATMP+18*
CURDAT	LOGATMP~, LOGATMP+16
DIR	RESUB+16~, RESUB+31!
DIR("?"	RESUB+28, RESUB+29, RESUB+30*
DIR("A"	RESUB+27*
DIR("B"	RESUB+27*
DIR(0	RESUB+27*
DIROUT	RESUB+16~
DIRUT	RESUB+16~
DTOUT	RESUB+16~, RESUB+32
DUOUT	RESUB+16~, RESUB+32
DUZ	PB1+4, RES+13, EBI+9, RETXMT+17
IB	SEL+4~
IB361	PBILL+3~, PB1+3, PB1+4, RES+2~, RES+7, RES+13, RETXMT+2~, RETXMT+5*, RETXMT+7, RETXMT+17
IB364	PBILL+18~, PBILL+19, PBILL+20, CANCEL+1~, CANCEL+12, CANCEL+13, CLONE+1~, CLONE+19, CLONE+20, PRO+1~ , PRO+7, PRO+17, RES+2~, RES+6, RES+11, EBI+1~, EBI+12, EBI+13, RETXMT+2~, RETXMT+5* , RETXMT+7, RETXMT+14
IBA	SMSG+1~, SMSG+4, SMSG+5, SMSG+7, SMSG+9, COB+1~, EDI+1~, EOB+1~, TPJI+1~, PBILL+3~ , CANCEL+1~, CLONE+1~, PRO+1~, PRO+4, PRO+5, PRO+6, PRO+7, PRO+17, RES+2~, EBI+1~
IBCAN	PRO+1~
IBCBASK	PRO+1~
IBCBCOPY	PRO+1~
IBCNCRD	CRD+4~, CRD+5*
IBCNCSA	CRD+4~, CRD+5*
IBCOM	SMSG+1~
IBDA	SEL~, SEL+5!, SEL+7*, SEL+8, LOGATMP~, LOGATMP+10, LOGATMP+11, LOGATMP+15
IBDA(	SEL+8*
IBDAX	SMSG+1~, SMSG+2, SMSG+4, SMSGQ+1!, EDI+3, EOB+3, TPJI+3, PBILL+10, PBILL+19, PBILL+20 , PB1+2, PB1+3, CANCEL+4, CANCEL+12, CANCEL+13, CLONE+4, CLONE+5, CLONE+19, CLONE+20, PRO+4 , RES+4, RES+5, RES+6, RES+7, RES+11, EBI+4, EBI+5, EBI+6, EBI+7, EBI+11 , EBI+12, EBI+13, RETXMT+5*
IBDAX(	SMSG+4, EDI+3, EOB+3, TPJI+3, PBILL+10, PBILL+19, PB1+3, CANCEL+4, CANCEL+12, CLONE+4 , CLONE+19, CLONE+20, PRO+4, RES+4, RES+5, RES+6, RES+7, RES+14*, EBI+6, EBI+11 , EBI+12, RETXMT+5
IBDAX(""	SMSG+3, CLONE+4, EBI+4
IBDAX(0	SMSG+4, SMSGQ+2, EDI+3, EOB+3, TPJI+3, PBILL+10, CANCEL+4, RES+4, RETXMT+5
IBFASTXT	SMSGQ+1, COB+5!
IBFLG	EBI+1~, EBI+7, EBI+10
IBFUNC	RESUB~, RESUB+26, RESUB+28
IBIFN	EDI+1~, EDI+3, EDI+4, EOB+1~, EOB+3, TPJI+1~, TPJI+3, TPJI+4, PBILL+3~, PBILL+10 , PBILL+11, PBILL+14, PBILL+15, PBILL+20, PBILL+21, CANCEL+1~, CANCEL+4, CANCEL+13, CLONE+1~, CLONE+4 , PRO+1~, PRO+6, PRO+8, PRO+10, PRO+12, PRO+17, RES+2~, RES+5, RES+9, RES+11 , EBI+1~, EBI+6, EBI+8, EBI+11, EBI+13, RESUB~, RESUB+18, RESUB+21, RETXMT+2~, RETXMT+5* , RETXMT+7, MRACHK+3
IBIFNH	PRO+1~
IBKEY	CLONE+1~, CLONE+9*, CLONE+11, CLONE+14
IBRES	RETXMT+2~, RETXMT+14, RETXMT+17
IBRESUB	PBILL+3~, PBILL+14, PBILL+15, PBILL+16, PBILL+17
IBRESULT	PBILL+3~, PBILL+4*, PBILL+20, PBILL+21, PB1+1, RES+10~, RES+11, RES+13
IBTBA	RESUB~, RESUB+17!
IBTBA(	RESUB+23, RESUB+24
IBTMP	RES+2~, RES+4*, RES+14
IBTMP(	RES+4*, RES+14
IBX	SMSG+1~, SMSG+5, SMSG+6, COB+1~, EDI+1~, EOB+1~, TPJI+1~, PBILL+3~, CANCEL+1~, CLONE+1~ , PRO+1~, PRO+6, RES+2~, EBI+1~
IENS	LOGATMP+12~, LOGATMP+15*, LOGATMP+16, LOGATMP+17, LOGATMP+18
MRACHK	CANCEL+1~, CANCEL+11, CLONE+1~, CLONE+18, RETXMT+8, MRACHK+1, MRACHK+3
ONE	SEL~, SEL+6
RETURN	LOGATMP+12~
STAT	RESUB+16~, RESUB+21*, RESUB+22, RESUB+23, RESUB+24
TXMT	RESUB~, RESUB+18
U	SMSG+5, SMSG+7, SMSG+9, PBILL+11, PBILL+14, PBILL+19, PB1+3, CANCEL+12, CLONE+4, CLONE+19 , PRO+6, PRO+7, PRO+10, PRO+17, RES+5, RES+6, RES+7, EBI+6, EBI+8, EBI+12 , SEL+8, RESUB+22, RESUB+23, RESUB+24, RETXMT+5, MRACHK+3
USER	LOGATMP~, LOGATMP+17
>> VALMBCK	SMSGQ, SMSGQ+1, COB+6, EDI+5, TPJI+5, PB1+6, CANCELQ, CLONEQ, PROQ, RES+15 , EDITQ, RETXMTQ
>> VALMY(	SEL+7
X	RESUB+16~
>> XQORNOD(0	SEL+6
Y	RESUB+16~, RESUB+18, RESUB+22, RESUB+32, RESUB+33, RESUB+36*, RESUB1, ERRWARN+7
Z	PRO+1~

Customize PDF page

Package: Integrated Billing

Routine: IBCECSA4

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 18

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: