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

Package: Integrated Billing

Routine: IBCEM03


Information

IBCEM03 ;ALB/TMP - 837 EDI RESUBMIT INDIVIDUAL BILL PROCESSING ;17-SEP-96

Source Information

Source file <IBCEM03.m>

Entry Points

Name Comments DBIA/ICR reference
BILL2 ; Resubmit a transmitted bill with a new batch #
ASK
PRINT1(IBIFN,IBDA,IB364,IBRESUB,IBRESULT) ; Print bill, submit manually as resolution ;WCJ;IB641;US3380; added IBRESULT
; for a returned message
; IBIFN = ien of bill in file 399
; IBDA = array returned from selection of message
; IB364 = ien of transmit bill entry in file 364
; IBRESUB = flag to indicate if bill is being resubmitted via print
; IBRESULT = flag to see if print was successful
PRINT1Q
SUB1 ; Select bills in ready for extract status to transmit individually
SUB1Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Bill does not exist in BILL TRANSMISSION file"
  • Line Location: ASK+17
Function Call: WRITE
  • Prompt: !,"Bill already selected for test transmission"
  • Line Location: ASK+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+21
Function Call: WRITE
  • Prompt: !,"Bill is currently awaiting extract - will be submitted with next batch run"
  • Line Location: ASK+24
Function Call: WRITE
  • Prompt: *7,!,"Cannot resubmit this bill.",!,"This bill's current batch is already ",$S("2"[ZTSK(1):"being resubmitted",1:"scheduled for resubmission")," - Task # is: ",IB,!
  • Line Location: ASK+30
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+32
Function Call: WRITE
  • Prompt: !,*7,"An error has occurred ... bill NOT re-submitted!!"
  • Line Location: ASK+52
Function Call: WRITE
  • Prompt: !,"Bill # ",$P($G(^DGCR(399,+IB0,0)),U)," was re-submitted in batch # ",$P($G(^IBA(364.1,+IBNEW,0)),U)
  • Line Location: ASK+61
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !,*7,"Bill status must be AUTHORIZED or PRNT/TX to print the bill"
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: !,*7,"This bill was last printed today. You must wait at least 1 day from the last",!,"print date to print this bill using this function."
  • Line Location: PRINT1+15
Function Call: WRITE
  • Prompt: !,"Bill was not printed"
  • Line Location: PRINT1+23
Function Call: WRITE
  • Prompt: !,$S(Z:"MRA",1:"EDI")_" TRANSMISSION PARAMETER HAS BEEN TURNED OFF",!!,"BILL CANNOT BE SELECTED"
  • Line Location: SUB1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+26
Function Call: WRITE
  • Prompt: !,"BILL NOT SELECTED"
  • Line Location: SUB1+27
Function Call: WRITE
  • Prompt: !,"Bills to be transmitted: "
  • Line Location: SUB1+33
Function Call: WRITE
  • Prompt: !,?8,$P($G(^DGCR(399,+$G(^IBA(364,Z,0)),0)),U)
  • Line Location: SUB1+34
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+35
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+38
Function Call: WRITE
  • Prompt: !,"BILL(s) placed onto 837 FHIR Transaction list. They will be submitted shortly..."
  • Line Location: SUB1+43
Function Call: WRITE
  • Prompt: !,"BILL(s) TRANSMITTED ... BATCH #(s): "
  • Line Location: SUB1+44
Function Call: WRITE
  • Prompt: Z,$S($O(^(Z)):", ",1:"")
  • Line Location: SUB1+45
Function Call: WRITE
  • Prompt: !,"NO BILL(S) TRANSMITTED - CHECK ALERTS/MAIL FOR DETAILS"
  • Line Location: SUB1+46

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