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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCB1

Package: Integrated Billing

Routine: IBCB1


Information

IBCB1 ;ALB/AAS - Process bill after enter/edited ;2-NOV-89

Source Information

Source file <IBCB1.m>

Call Graph

Call Graph

Call Graph Total: 29

Package Total Call Graph
Integrated Billing 20 $$GETMRACL^IBCAPR  EOBALL^IBCAPR2  AUTH^IBCB11  ($$ASKEDIT,$$IICM,$$IIQMED,DISP,DSPARERR,EDITS,VIEW,VIEW1)^IBCB2  GVAR^IBCBB  (ARRAY,END)^IBCBB1  DISAP^IBCBULL  CTCOPY^IBCCCB  
ONE^IBCE837  SETSUB^IBCE837I  $$RESUB^IBCECSA4  ($$COB,$$FT)^IBCEF  ($$LAST364,$$TEST,$$TXMT)^IBCEF4  UPDEDI^IBCEM  MRA^IBCEMU1  STAT^IBCEMU2  
AUTOCK^IBCEU2  (EN1,EN1X)^IBCF  ($$NEEDMRA,$$REQMRA)^IBEFUNC  FIND^IBOHCK  
VA FileMan 4 (FILE,YN)^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Accounts Receivable 3 $$STA^PRCAFN  REL^PRCASVC  ^PRCASVC6  
Kernel 1 $$PROD^XUPROD  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Integrated Billing 11 IBCB  IBCCC2  IBCE  IBCECOB2  IBCEM02  IBCEM03  IBCEMCA1  IBCEMQA  
IBCEPTC3  IBCEXTR2  IBCRTN  

Entry Points

Name Comments DBIA/ICR reference
1 ;complete bill
3 ;authorize bill/request MRA
AUTH
4 ;generate/print bill
GEN
GENTX
RPNT
END
TX1(IBX,RESUB) ; Transmit a single bill from file 364 entry # IBX
; RESUB = flag (1 = resubmitting a bill, 0 = submitting bill 1st time)
; Returns 1 if successfully extracted to mailman queue for transmission,
; 0 if extract not successful
ARONLY(IBIFN) ; Pass bill to A/R, but that's all
ARPASS(IBIFN,UPDOK) ;Pass bill to A/R as NEW BILL
ADDTBILL(IBIFN,TXST,RSUB,IBFHIR) ;Add new transmit bill rec to file 364 for bill IBIFN
TXPRTS ; Save off last print date to see if bill was reprinted without queueing
TXPRT ; Set variable if print was tasked or bill was printed (last print date changed)
ALT4(IBRESULT) ; WCJ;IB641;US3380;added an alternate tag 4 to pass in a parameter (by reference)
; to show if the request claim print actually came to a successful conclusion

External References

Name Field # of Occurrence
FILE^DICN ADDTBILL+11
YN^DICN AUTH+6, GEN+3
^DIE AUTH+8, AUTH+28
$$GET1^DIQ AUTH+25, ADDTBILL+11
^DIR 4+17
$$GETMRACL^IBCAPR GENTX+11
EOBALL^IBCAPR2 GENTX+12
AUTH^IBCB11 AUTH+2
$$ASKEDIT^IBCB2 ARPASS+17
$$IICM^IBCB2 1+3, 3+6
$$IIQMED^IBCB2 1+4, 3+7
DISP^IBCB2 4+18
DSPARERR^IBCB2 ARPASS+15
EDITS^IBCB2 1+1, 3+4
VIEW^IBCB2 4+15, 4+20
VIEW1^IBCB2 ARPASS+17
GVAR^IBCBB ARPASS+5
ARRAY^IBCBB1 ARPASS+8
END^IBCBB1 END
DISAP^IBCBULL AUTH+8
CTCOPY^IBCCCB AUTH+16, GEN+2, GEN+3, GENTXGENTX+13
ONE^IBCE837 TX1+7
SETSUB^IBCE837I AUTH+26
$$RESUB^IBCECSA4 AUTH+40, RPNT+6
$$COB^IBCEF ADDTBILL+4
$$FT^IBCEF 4+13, GEN+2
$$LAST364^IBCEF4 4+6, 4+9
$$TEST^IBCEF4 4+10, GEN
$$TXMT^IBCEF4 AUTH+5, AUTH+15, 4+5
UPDEDI^IBCEM AUTH+43
MRA^IBCEMU1 GENTX+11, RPNT+12
STAT^IBCEMU2 AUTH+12
AUTOCK^IBCEU2 AUTH+14
EN1^IBCF GENTX+6
EN1X^IBCF RPNT+8
$$NEEDMRA^IBEFUNC 4+2, 4+6, RPNTTXPRTS+1, TXPRT+1
$$REQMRA^IBEFUNC AUTH
FIND^IBOHCK AUTH+35
$$STA^PRCAFN ARPASS+4
REL^PRCASVC ARPASS+9
^PRCASVC6 ARPASS+8
^XMD ARPASS+24
$$PROD^XUPROD ADDTBILL+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You do not hold the Authorize Key.",!
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!,"Entering user can not authorize.",!
  • Line Location: 3+2
Function Call: WRITE
  • Prompt: !,"Already Approved, Can't change"
  • Line Location: 3+3
Function Call: WRITE
  • Prompt: !!,"THIS BILL WILL "_$P("NOT ^",U,$$TXMT^IBCEF4(IBIFN)+1)_"BE TRANSMITTED ELECTRONICALLY"
  • Line Location: AUTH+5
Function Call: WRITE
  • Prompt: !?4,"YES - If finished entering bill information and to allow bill to be printed or transmitted",!?4,"No - To take no action"
  • Line Location: AUTH+7
Function Call: WRITE
  • Prompt: $S($P(Y,U,3):" Bill will be submitted electronically",1:" Error loading into transmit file - bill can not be transmitted.")
  • Line Location: AUTH+21
Function Call: WRITE
  • Prompt: !,"Passing completed Bill to Accounts Receivable. Bill is no longer editable."
  • Line Location: AUTH+32
Function Call: WRITE
  • Prompt: !,"Completed Bill Successfully sent to Accounts Receivable."
  • Line Location: AUTH+35
Function Call: WRITE
  • Prompt: !!,*7,"Not Authorized, Can Not Print!"
  • Line Location: 4+3
Function Call: WRITE
  • Prompt: !!,*7,"Not Ready For MRA Submission, Can Not Print!"
  • Line Location: 4+4
Function Call: WRITE
  • Prompt: !!,*7,"MRA Submission not yet confirmed by Austin, Can Not Print!"
  • Line Location: 4+6
Function Call: WRITE
  • Prompt: !!,*7,"This Bill Can Not Be Printed"
  • Line Location: 4+13
Function Call: WRITE
  • Prompt: !!,*7,"This Bill Can Not Be Printed Until Transmit Confirmed"
  • Line Location: 4+14
Function Call: WRITE
  • Prompt: !!,"This Bill Has Already Been Transmitted"
  • Line Location: 4+16
Function Call: WRITE
  • Prompt: " (to request an MRA)"
  • Condition for execution: IBMRA
  • Line Location: 4+16
Function Call: WRITE
  • Prompt: !!,"THIS BILL IS BEING USED AS A TRANSMISSION TEST BILL"
  • Line Location: GEN+0
Function Call: WRITE
  • Prompt: !!,"WANT TO ",$S(IBPNT]"":"RE-",1:""),"PRINT BILL AT THIS TIME"
  • Line Location: GEN+3
Function Call: WRITE
  • Prompt: !?4,"YES - to print the bill now",!?4,"NO - To take no action"
  • Line Location: GEN+4
Function Call: WRITE
  • Prompt: !!,*7,"Dental Claims can not be printed."
  • Line Location: GEN+7
Function Call: READ
  • Timeout: DTIME
  • Line Location: RPNT+1
Function Call: WRITE
  • Prompt: !?5,"Enter 'O' to reprint the original bill or",!?5,"Enter 'C' to reprint the bill as a duplicate copy or",!?5,"Enter '2' or '3' to print 2nd or 3rd follow-up notices."
  • Line Location: RPNT+2
Function Call: WRITE
  • Prompt: " (",$S("cC"[IBPNT:"COPY","oO"[IBPNT:"ORIGINAL",IBPNT=2:"2nd NOTICE",IBPNT=3:"3rd NOTICE",1:""),")"
  • Line Location: RPNT+3
Routine Call
  • DIE
  • Line Location:
    • AUTH+8
    • AUTH+28
Routine Call
  • DIR
  • Line Location:
    • 4+17

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] 3+2, 3+3, AUTH+9, AUTH+40, 4+3, 4+4, 4+21, ARPASS+7, ARPASS+21, TXPRTS+1
TXPRT+1
^IBA(364 - [#364] 4+6, 4+7, 4+11, TX1+9
^IBE(350.9 - [#350.9] 3+2
^TMP("IBONE" TX1+5!, TX1+6*, TX1+10!
^TMP("IBRESUBMIT" TX1+5!
^TMP("IBXDATA" END+3!
^TMP("IBXEDIT" END+3!
^UTILITY($J IBCB1+10!
^XUSEC("IB AUTHORIZE" 3+1

Label References

Name Line Occurrences
$$ADDTBILL AUTH+20
4 ALT4+3
@( IBCB1+10
ARPASS AUTH+33, ARONLY+1
AUTH AUTH+7
END 1+1, 1+3, 1+4, 3+1, 3+2, 3+3, 3+4, 3+6, 3+7, AUTH+2
AUTH+6, AUTH+9, AUTH+16, AUTH+34, 4+1, 4+3, 4+4, 4+20, GEN+2, GEN+3
GENTXGENTX+4, GENTX+13, RPNTRPNT+1, RPNT+9
GEN GEN+4
GENTX 4+7
RPNT RPNT+2
TXPRT GENTX+9, RPNT+11
TXPRTS GENTX+5, RPNT+5

Naked Globals

Name Field # of Occurrence
^($J TX1+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AUTH+6*, AUTH+7, 4+7*, GEN+3*, GEN+4, GENTX
%DT END+1!
COB ADDTBILL+3~, ADDTBILL+4*, ADDTBILL+11
DA AUTH+8*, AUTH+27~, AUTH+28*
DD ADDTBILL+3~
DDH END+2!
>> DFN AUTH+35
DGBIL1 END+2!
DGBILLBS END!
DGBS END+1!
DGCNT END+1!
DGDA END+1!
DGFIL END!
DGII END!
DGINPT END+1!
DGLCNT END+1!
DGLL END+1!
DGPAG END+1!
DGRA2 END!
DGREVC END+1!
DGRSPAC END+1!
DGRV END+1!
DGSM END+1!
DGTE END!
DGTEXT END+1!
DGTEXT1 END+1!
DGTOTPAG END+1!
DGU END+2!
DGVISCNT END!
DGXRF1 END!
DI END+1!
DIC AUTH+8*!, END+1!, ADDTBILL+3~, ADDTBILL+11*
DIC("DR" ADDTBILL+11*
DIC(0 ADDTBILL+11*
DIE AUTH+8*!, AUTH+27~, AUTH+28*, END+1!
DIR 4+17!
DIR("A" 4+17*
DIR("B" 4+17*
DIR(0 4+17*
DLAYGO ADDTBILL+3~, ADDTBILL+11*
DO ADDTBILL+3~
DR AUTH+8*, AUTH+27~, AUTH+28*
DTIME RPNT+1
>> DTOUT 4+17
>> DUOUT 4+17
DUZ 3+1, 3+2
I END+1!
IB END!
IB364 AUTH+23~, AUTH+24*, AUTH+26
IBA1 END+2!
IBABORT GENTX+2~, GENTX+6, GENTX+7, RPNT+8, RPNT+9
>> IBAC IBCB1+10, 3+4, 3+6, 3+7, GEN+2, GEN+3, GENTXGENTX+13, ARPASS+17
IBBT END!
IBCH END!
IBCHG END+2!
IBCIERR END+4!
IBCISNT END+4!
IBCISTAT END+4!
>> IBCNCOPY AUTH+40, AUTH+43
IBCPTN END+1!
IBDA AUTH+42~*, AUTH+43*
IBDFN END+1!
IBDISP END!
IBDSDT END+1!
IBEND AUTH+1*, AUTH+2, END!
IBER END!, END+1!
IBFHIR ADDTBILL~
IBFL END+1!
IBIFN 1+3, 1+4, 3+1, 3+2, 3+3, 3+6, 3+7, AUTHAUTH+5, AUTH+8
AUTH+9, AUTH+12, AUTH+14, AUTH+15, AUTH+16, AUTH+20, AUTH+25, AUTH+28, AUTH+33, AUTH+35
AUTH+40, 4+1, 4+2, 4+3, 4+4, 4+5, 4+6, 4+7, 4+9, 4+10
4+13, 4+21, GENGEN+2, GEN+3, GENTXGENTX+11, GENTX+12, GENTX+13, RPNT
RPNT+6, RPNT+12, ARONLY~, ARONLY+1, ARPASS~, ARPASS+4, ARPASS+7, ARPASS+21, ADDTBILL~, ADDTBILL+4
, ADDTBILL+11, TXPRTS+1, TXPRT+1
IBINS END+2!
IBJ END+1!
IBMA END+1!
IBMRA AUTH*, AUTH+2, AUTH+6, AUTH+8, AUTH+9, AUTH+16, AUTH+18, AUTH+19, 4+2*, 4+3
4+4, 4+6, 4+15, 4+16, END!
>> IBMRANOT GENTX+12
IBNDI1 END+1!
>> IBNDMP ARPASS+7
IBNDS END!
IBNOFIX END!
IBOA END!
IBOPV END+1!
IBOPV1 END+2!
IBOPV2 END+2!
IBPNT 4+21*, GEN+3, GENTX+4, RPNT+1*, RPNT+2*, RPNT+3, RPNT+6, RPNT+7*, END+1!
IBPROC END+2!
IBQUIT 1+1, 3+4, 4+19*, 4+20, END!, ARPASS+11~, ARPASS+12*, ARPASS+14, ARPASS+16, ARPASS+18*
IBQUIT1 ARPASS+11~
IBRESUB AUTH+40*, AUTH+41, RPNT+6*, END+2!
IBRESULT GENTX+8*, RPNT+10*, ALT4~, ALT4+2*
IBREV END!
IBST END!
IBT ARPASS+19~
IBT(1 ARPASS+21*
IBT(2 ARPASS+22*
IBT(3 ARPASS+23*
IBTST 4+8~, 4+9*, 4+10*, 4+11
IBTXBARR AUTH+39~, AUTH+40
IBTXBARR( AUTH+43
IBTXOK 4+7*, 4+10*, 4+17*, END!, TX1+4~, TX1+9*, TX1+11
IBTXPRT AUTH+46!, GENTX+5, GENTX+9, RPNT+4, RPNT+11, TXPRT+1*
IBTXPRT("PRT" TXPRTS+1*, TXPRT+1
IBTXSTAT AUTH+15*, AUTH+16, AUTH+18, AUTH+19, AUTH+20, AUTH+40, 4+5*, 4+6, 4+7, END!
IBVIEW 4+15, 4+20, END!
IBVVSAVE TX1+4~
IBVVSAVE("IBX" TX1+6*, TX1+8
IBX 4+8~, 4+9*, 4+11, END!, TX1~, TX1+6, TX1+8*, TX1+9
IBX3 AUTH+8, END!
IBXDT END+1!
IBYY AUTH+8*!
IBZZ END+1!
J END+1!
PRCAERCD END!
PRCAERR END!
PRCAORA END!
PRCAPAYR END+1!
PRCARI END+2!
PRCASV END+2!
PRCASV("NOTICE" END+2
PRCASV("OKAY" AUTH+34, ARPASS+9, ARPASS+10
PRCASVC END!
PRCAT END!
RESUB TX1~, TX1+6
RSUB ADDTBILL~, ADDTBILL+11
TXST ADDTBILL~, ADDTBILL+4*, ADDTBILL+6*, ADDTBILL+11
U AUTH+5, AUTH+9, AUTH+21, AUTH+24, AUTH+40, 4+6, 4+11, TX1+9, ARPASS+7, ARPASS+21
TXPRTS+1, TXPRT+1
UPDOK ARPASS~, ARPASS+13
VA END+1!
X AUTH+27~, END+1!, ADDTBILL+3~, ADDTBILL+11*
XMDUZ ARPASS+19~, ARPASS+20*
XMSUB ARPASS+19~, ARPASS+20*
XMTEXT ARPASS+19~, ARPASS+20*
XMY ARPASS+19~, ARPASS+20*
Y AUTH+20*, AUTH+21, AUTH+24, AUTH+27~, 4+17, END+1!, ADDTBILL+12
Y1 END+1!
Y2 END+1!
>> ZTSK TXPRT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All