Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call