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

Package: Integrated Billing

Routine: IBCEM


Information

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

Source Information

Source file <IBCEM.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 7 NOTECHG^IBCECSA2  $$LAST364^IBCEF4  CTDOWN^IBCEM02  BLD^IBCEM1  STAT^IBCEMU2  (CKRES,DELMSG)^IBCESRV2  $$EXPAND^IBTRE  
VA FileMan 4 ^DIE  $$EXTERNAL^DILFD  EN1^DIP  ^DIR  
Kernel 2 (,STAT)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
List Manager 2 (FULL,PAUSE)^VALM1  EN^VALM2  
MailMan 1 SENDMSG^XMXAPI  

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

Package Total Caller Graph
Integrated Billing 21 IBCB1  IBCC  IBCE  IBCECOB2  IBCECOB4  IBCECSA1  IBCECSA2  IBCEM DELETE MESSAGE  
IBCEM FILE MESSAGE RECEIVED  IBCEM VIEW/PRINT MESSAGE  IBCEM02  IBCEM03  IBCEM3  IBCEMCA1  IBCEMCL  IBCEMQA  
IBCEOB  IBCEPTC3  IBCEPTM  IBCEST  IBCF  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
^%ZTLOAD TASK+8
STAT^%ZTLOAD UPD+15, DEL+21
^DIE UPDEDI+20, UPDEDI+34, TASK+9
$$EXTERNAL^DILFD UPDEDI+27
EN1^DIP VP+9
^DIR VP+7, DEL+13, DEL+30
NOTECHG^IBCECSA2 UPDEDI+36
$$LAST364^IBCEF4 UPDEDI+15
CTDOWN^IBCEM02 UPDEDI+25
BLD^IBCEM1 UPD+30, DEL+57
STAT^IBCEMU2 UPDEDI+41
CKRES^IBCESRV2 UPDEDI+23
DELMSG^IBCESRV2 DEL+35
$$EXPAND^IBTRE UPD+19, DEL+25, DEL+42, DEL+45
FULL^VALM1 UPD+2, VP+2, DEL+2
PAUSE^VALM1 UPD+12, UPD+16, UPD+20, UPD+24, UPD+28, VP+10, DEL+6, DEL+22, DEL+26, DEL+31
, DEL+37, DEL+55, LOCK+7
EN^VALM2 SEL+6
$$FMTE^XLFDT DEL+41, DEL+44
$$NOW^XLFDT DEL+41
SENDMSG^XMXAPI DEL+50

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
Routine Call
  • DIE
  • Line Location:
    • UPDEDI+20
    • UPDEDI+34
    • TASK+9
Routine Call
  • DIR
  • Line Location:
    • VP+7
    • DEL+13
    • DEL+30

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(364 - [#364] UPDEDI+12, UPDEDI+15
^IBA(364.1 - [#364.1] DEL+45
^IBA(364.2 - [#364.2] UPD+8, UPDQ, VP+6, DEL+17, DEL+34, DEL+36, DELQ, TASK+9, LOCK+5
^IBE(364.3 - [#364.3] UPD+22, DEL+43
^IBM(361 - [#361] UPDEDI+33
^TMP("IBCEM-837DX" SEL+7
^TMP("IBMSG" DEL+33!, DEL+34*, DEL+44, DEL+48, DEL+52!
^VA(200 - [#200] DEL+41
^XUSEC("IB SUPERVISOR" DEL+4

Label References

Name Line Occurrences
$$LOCK UPD+7, DEL+16
$$TASK UPD+25
DELQ DEL+4, DEL+9, DEL+14, DEL+16, DEL+19, DEL+24, DEL+31, DEL+36
SEL UPD+3, VP+2, DEL+7
UPDQ UPD+5, UPD+7, UPD+10, UPD+13, UPD+18, UPD+24
VPQ VP+4

Naked Globals

Name Field # of Occurrence
^( DEL+48
^(0 VP+6, UPDEDI+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BY VP+1~, VP+9*
DA UPDEDI+11~, UPDEDI+20*, UPDEDI+34*, TASK+6~, TASK+9*
DHD VP+1~, VP+9*
DIC VP+1~, VP+9*
DIE UPDEDI+11~, UPDEDI+20*, UPDEDI+34*, TASK+6~, TASK+9*
>> DIQUIET LOCK+7
DIR VP+1~, VP+7!, DEL+1~, DEL+13!, DEL+30!
DIR("A" VP+7*, DEL+11*, DEL+12*, DEL+28*, DEL+29*
DIR("B" VP+7*, DEL+12*, DEL+29*
DIR(0 VP+7*, DEL+11*, DEL+28*
DR UPDEDI+11~, UPDEDI+19*, UPDEDI+34*, TASK+6~, TASK+9*
DUZ UPDEDI+27, DEL+4, DEL+41
FLDS VP+1~, VP+9*
FR VP+1~, VP+9*
FUNC UPDEDI~, UPDEDI+15, UPDEDI+19, UPDEDI+25, UPDEDI+28, UPDEDI+34, UPDEDI+35, UPDEDI+41
IB SEL+4~, SEL+7*
IB0 UPD+1~, UPD+8*, UPD+10, UPD+13, UPD+15, UPD+16, UPD+18, UPD+19, UPD+22, UPD+25
, UPDEDI+11~, UPDEDI+12*, UPDEDI+13, UPDEDI+15, UPDEDI+17, DEL+1~, DEL+17*, DEL+19, DEL+21, DEL+22
, DEL+24, DEL+25, DEL+39, DEL+42, DEL+43, DEL+44, DEL+45
IBBA UPDEDI+11~, UPDEDI+12*, UPDEDI+15, UPDEDI+23, UPDEDI+25
IBBDA UPDEDI+11~, TASK~
IBBILLS VP+1~, VP+5*, VP+8*, VP+9
IBCT UPDEDI+11~
IBDA UPD+1~, UPD+3, UPD+4*, UPD+5, UPD+6, UPD+11, VP+1~, VP+2, VP+3*, VP+4
, VP+5, VP+9, SEL~, SEL+5!, SEL+7*, UPDEDI~, UPDEDI+12, UPDEDI+20, UPDEDI+33, DEL+1~
, DEL+7, DEL+8*, DEL+9, DEL+15, LOCK+8*
IBDA( UPD+6, VP+5, VP+9, SEL+7*, DEL+15
IBDA("" UPD+4, VP+3, DEL+8
IBE DEL+1~, DEL+47*, DEL+48*
IBIFN UPDEDI+11~, UPDEDI+13*, UPDEDI+41
IBM UPDEDI+11~
IBNEW UPDEDI+11~, UPDEDI+15*, UPDEDI+19, UPDEDI+25
IBOK UPD+1~, UPD+11*, UPD+13*, UPD+16*, DEL+1~, DEL+19*, DEL+22*
IBRTN TASK~, TASK+7
IBSTAT UPDEDI+11~, UPDEDI+17*, UPDEDI+18
IBT DEL+1~
IBT( DEL+48*
IBT(1 DEL+39*
IBT(2 DEL+40*
IBT(3 DEL+41*
IBT(4 DEL+43*
IBT(5 DEL+44*
IBT(6 DEL+45*
IBT(7 DEL+46*
IBT(8 DEL+47*
IBTDA UPD+1~, UPD+6*, UPD+7, UPD+8, UPD+25, UPDQ, VP+1~, VP+5*, VP+6, UPDEDI+11~
, DEL+1~, DEL+3*, DEL+15*, DEL+16, DEL+17, DEL+34, DEL+35, DEL+36, DELQ, TASK~
, TASK+9, LOCK~, LOCK+5
IBTEXT UPDEDI+11~, UPDEDI+30*, UPDEDI+36
IBTEXT(1 UPDEDI+27*
IBTEXT(2 UPDEDI+28*, UPDEDI+29*
IBTSK UPD+1~, UPD+25*, UPD+26, UPD+27
IBTYP UPD+1~, UPD+22*, UPD+23, DEL+1~, TASK~
IBU UPD+1~, UPD+23*, UPD+24, UPD+25, DEL+1~
IBU1 UPD+1~, UPD+23*, UPD+25, DEL+1~
IBZ UPDEDI+11~, UPDEDI+33*, UPDEDI+34, UPDEDI+36
L VP+1~, VP+9*
MSCN UPDEDI~, UPDEDI+41
NOCT UPDEDI~, UPDEDI+25
OK LOCK+3~, LOCK+4*, LOCK+8*, LOCK+9
ONE SEL~, SEL+6
TO VP+1~, VP+9*
U UPD+13, UPD+15, UPD+16, UPD+18, UPD+19, UPD+22, UPD+25, VP+6, SEL+7, UPDEDI+12
, UPDEDI+15, UPDEDI+17, UPDEDI+33, DEL+19, DEL+21, DEL+22, DEL+24, DEL+25, DEL+39, DEL+41
, DEL+42, DEL+43, DEL+44, DEL+45
>> VALMBCK UPDQ+1*, VPQ*, DELQ+1*
>> VALMY( SEL+7
X DEL+1~
XMBODY DEL+1~, DEL+49*, DEL+50
XMDUZ DEL+1~, DEL+49*, DEL+50
XMSUBJ DEL+1~, DEL+49*, DEL+50
XMTO DEL+1~, DEL+50
XMTO("I:G.IB EDI" , DEL+49*
>> XMZ DEL+50
>> XQORNOD(0 SEL+6
Y VP+1~, VP+8, DEL+1~, DEL+14, DEL+31
Z UPDEDI+11~, DEL+1~, DEL+42*, DEL+43, DEL+48*
ZTDESC TASK+6~, TASK+7*
ZTDTH TASK+6~, TASK+7*
ZTIO TASK+6~, TASK+7*
>> ZTRTN TASK+7*
ZTSAVE TASK+6~
ZTSAVE("IB*" TASK+7*
ZTSK UPD+1~, UPD+14~, UPD+15*, DEL+20~, DEL+21*, TASK+6~, TASK+9, TASK+10
ZTSK(0 UPD+15, DEL+21
ZTSK(1 UPD+16, DEL+22
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