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

Package: Integrated Billing

Routine: IBCEM


Information

IBCEM ;ALB/TMP - 837 EDI RETURN MESSAGE PROCESSING ;17-APR-96

Source Information

Source file <IBCEM.m>

Entry Points

Name Comments DBIA/ICR reference
UPD ; Update messages manually from messages list
UPDQ
VP ; View/Print Return Messages
VPQ
SEL(IBDA,ONE) ; Select entry(s) from list
; IBDA = array returned if selections made
; IBDA(n)=ien of bill selected in file 399
; ONE = if set to 1, only one selection can be made at a time
UPDEDI(IBDA,FUNC,NOCT,MSCN) ; Update EDI files - cancel/resubmit/print as
; resolution to message
; IBDA = transmit bill ien # for bill
; FUNC = "E" for edit/resubmit, "C" for cancel, "R" for resubmit not
; from edit, "P" for print, "Z" for COB processed , "N" for no
; further action needed-close record
; NOCT = 1 if not necessary to update batch count, 0 if update needed
; MSCN = 2 if this call came from CLONE and the cloned claim is a secondary and its primary was an MRA
; (secondaries created from MRA primaries share the same claim#. Do not want to cancel MRA
; associated with the primary, only any EOBs associated with the cloned secondary claim).
DEL ; Delete messages from messages list - locked with IB SUPERVISOR key
DELQ
TASK(IBRTN,IBBDA,IBTDA,IBTYP) ; Schedule the task to update data base from message
; IBRTN = routine to task
; IBBDA = batch # associated with the message (OPTIONAL)
; IBTDA = internal entry of message
; IBTYP = the number that is the last digit in the message type
LOCK(IBTDA) ; Attempt to lock message file entry IBTDA
; Return 1 if successful, 0 if not able to lock

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"Message ",IBDA," is no longer in return message file"
  • Line Location: UPD+11
Function Call: WRITE
  • Prompt: *7,!,"This message has already been scheduled for update. Task # is: ",$P(IB0,U,11)
  • Line Location: UPD+16
Function Call: WRITE
  • Prompt: !,*7,"Message status ("_$$EXPAND^IBTRE(364.2,.06,$P(IB0,U,6))_") is not appropriate for this action"
  • Line Location: UPD+19
Function Call: WRITE
  • Prompt: !,*7,"This message has an invalid message type - can't update"
  • Line Location: UPD+24
Function Call: WRITE
  • Prompt: !,"Update has been tasked (#",IBTSK,")"
  • Line Location: UPD+26
Function Call: WRITE
  • Prompt: !,*7,"Update could not be tasked. Please try again later!!!"
  • Line Location: UPD+27
Function Call: WRITE
  • Prompt: !,"You don't have authority to use this action. See your supervisr for assistance"
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+10
Function Call: WRITE
  • Prompt: *7,!,"This message is currently scheduled for update. Task # is: ",$P(IB0,U,11)
  • Line Location: DEL+22
Function Call: WRITE
  • Prompt: !,*7,"Message status ("_$$EXPAND^IBTRE(364.2,.06,$P(IB0,U,6))_") is not appropriate for this action"
  • Line Location: DEL+25
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+30
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+30
Function Call: WRITE
  • Prompt: !!,"Nothing deleted"
  • Line Location: DEL+31
Function Call: WRITE
  • Prompt: !,"Message not deleted - problem with delete"
  • Line Location: DEL+37
Function Call: WRITE
  • Prompt: !,"A bulletin has been sent to report this deletion",!
  • Line Location: DEL+54
Function Call: WRITE
  • Prompt: !,*7,"Another user is editing this entry ... try again later"
  • Line Location: LOCK+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBM(361 - [#361] Classic Fileman Calls
361.02 EXTERNAL^DILFD
^IBA(364 - [#364] Classic Fileman Calls
^IBA(364.2 - [#364.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call