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

Package: Integrated Billing

Routine: IBCEM02


Information

IBCEM02 ;ALB/TMP - 837 EDI RESUBMIT BATCH PROCESSING ;12-SEP-96

Source Information

Source file <IBCEM02.m>

Entry Points

Name Comments DBIA/ICR reference
BATCH2 ; Resubmit a batch of bills not necessarily in error
BATCH(IBBDA) ;
BATCHQ
RESUB(IBBDA,IBOLD) ; Resubmit a batch entry # IBBDA in file 364.1
RESUBQ
RESUBUP ; Update old entries in file 364 for resubmitted bills, send bulletin
; for bills not resubmitted in batch, if any, update new batch(s) with
; old batch reference
CTDOWN(IBBA,IBCT) ; Upd the count, incomplete resubmit status on the batch
CKINC(IBBA) ;Check to see if batch resubmit is incomplete
; IBBA = internal file 364.1 entry # of batch to check
LOCK(FILE,IBBDA) ; Lock file # FILE entry # IBBDA

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BATCH2+10
Function Call: WRITE
  • Prompt: !
  • Line Location: BATCH2+10
Function Call: WRITE
  • Prompt: *7,!,"Cannot resubmit this batch.",!,"This batch is currently ",$S("2"[ZTSK(1):"being resubmitted",1:"scheduled for resubmission")," - Task # is: ",$P(IB0,U,9),!
  • Line Location: BATCH+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BATCH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: BATCH+35
Function Call: WRITE
  • Prompt: !
  • Line Location: BATCH+43
Function Call: WRITE
  • Prompt: !,*7,"There are no bill(s) in this batch in a valid status to be resubmitted"
  • Line Location: RESUB+19
Function Call: WRITE
  • Prompt: !,IBEXCT," bill(s) in this batch have been specifically excluded"
  • Condition for execution: IBEXCT
  • Line Location: RESUB+19
Function Call: WRITE
  • Prompt: !,*7,IBE(Z)," bill(s) in this batch have been ",$S(Z="C":"cancelled",Z="R":"resubmitted",1:"deleted from batch")," previously"
  • Line Location: RESUB+20
Function Call: WRITE
  • Prompt: !,*7,IBE," bill(s) in this batch are not in a valid status to be re-submitted"
  • Line Location: RESUB+21
Function Call: WRITE
  • Prompt: !
  • Line Location: RESUB+24
Function Call: WRITE
  • Prompt: !,*7,"Batch NOT resubmitted"
  • Line Location: RESUB+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(364 - [#364] Classic Fileman Calls
^IBA(364.1 - [#364.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call