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

Package: Accounts Receivable

Routine: RCDPEX


Information

RCDPEX ;ALB/TMK,DWA - ELECTRONIC EOB EXCEPTION PROCESSING - FILE 344.5 ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEX.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 5 $$GET1^DID  ^DIE  ^DIK  GETS^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S,STAT)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Accounts Receivable 3 DISP^RCDPESR0  SENDACK^RCDPESR5  BLD^RCDPEX1  
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: 6

Package Total Caller Graph
Accounts Receivable 5 RCDPESR0  RCDPEX DELETE MESSAGE  RCDPEX FILE EXCEPTION MESSAGE  RCDPEX VIEW/PRINT MESSAGE  RCDPEX5  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
UPD ; Update (File) ERA msgs manually from EOB exception list for file 344.5
UPDQ
VP ; View/Print ERA Messages - File 344.5
VPOUT ; Entrypoint for queued job
VPQ
SEL(RCDA,ONE) ; Select entry(s) from list
; RCDA = array returned if selections made
; RCDA(n)=ien of bill selected in file 344.5
; ONE = if set to 1, only one selection can be made at a time
DEL ; Delete messages from messages list - file 344.5
DELQ
DELMSG(RCTDA) ; Delete message from temporary message holding file 344.5
TASK(RCRTN,RCTDA) ; Schedule the task to update data base from message
; RCRTN = routine to task
; RCTDA = internal entry of message in file 344.5
LOCK(RCTDA) ; Attempt to lock message file entry RCTDA in file 344.5
; Return 1 if successful, 0 if not able to lock
HDR(RCTDA,RCPG) ;Prints report heading
; RCTDA = ien of file 344.5
; RCPG = page # last printed
ASK(RCSTOP) ; Ask to stop
; RCSTOP: passed by ref, flag to stop processing
TXT0(RCTDA,RCDIQ,RCXM1,RCCT) ; Append 0-node captioned data to array RCXM1
; See above for parameter definitions
TXTDE(RCTDA,RCDIQ,RCNODE,RCXM1,RCCT) ; Append display data to array RCXM1
; See above for parameter definitions
; RCNODE = the WP field # to return
PAYTYP(RCTDA) ;Find pay source - PRCA*4.5*298

External References

Name Field # of Occurrence
^%ZIS VP+11
HOME^%ZIS VP+17
^%ZISC VPOUT+36
^%ZTLOAD VP+15, TASK+6
$$S^%ZTLOAD VPOUT+28
STAT^%ZTLOAD UPD+15, DEL+20
$$GET1^DID TXT0+6
^DIE TASK+8
^DIK DELMSG+2
GETS^DIQ VPOUT+5, DEL+28
^DIR VP+6, DEL+13, DEL+25, DEL+40, ASK+4
DISP^RCDPESR0 VPOUT+16
SENDACK^RCDPESR5 DEL+42
BLD^RCDPEX1 UPD+26, DEL+56
FULL^VALM1 UPD+2, VP+2, DEL+2
PAUSE^VALM1 UPD+12, UPD+16, UPD+20, UPD+24, DEL+9, DEL+21, DEL+26, DEL+35, DEL+54, LOCK+7
EN^VALM2 SEL+6
$$FMTE^XLFDT DEL+45, HDR+10
$$NOW^XLFDT DEL+45
SENDMSG^XMXAPI DEL+51

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"ERA #",RCDA," is no longer in exception file"
  • Line Location: UPD+11
Function Call: WRITE
  • Prompt: *7,!,"This record has already been scheduled for update. Task # is: ",$P(RC0,U,5)
  • Line Location: UPD+16
Function Call: WRITE
  • Prompt: !,*7,"This message has an invalid 'type' - can't update"
  • Line Location: UPD+20
Function Call: WRITE
  • Prompt: !,"File update has been tasked (#",RCTSK,")"
  • Line Location: UPD+22
Function Call: WRITE
  • Prompt: !,*7,"File update could not be tasked. Please try again later!!!"
  • Line Location: UPD+23
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number"_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: VP+16
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: VPOUT+28
Function Call: WRITE
  • Prompt: !,$G(^TMP($J,"RCOUT",Z))
  • Line Location: VPOUT+32
Function Call: WRITE
  • Prompt: !!,"Deletion is not allowed. The ERA has a payment method of ACH."
  • Line Location: DEL+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+10
Function Call: WRITE
  • Prompt: *7,!,"This message is currently scheduled for update. Task # is: ",$P(RC0,U,11)
  • Line Location: DEL+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+25
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+25
Function Call: WRITE
  • Prompt: !!,"Nothing deleted"
  • Line Location: DEL+26
Function Call: WRITE
  • Prompt: !,"Message not deleted - problem with delete"
  • Line Location: DEL+35
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+40
Function Call: WRITE
  • Prompt: !,"A bulletin has been sent to report this deletion",!
  • Line Location: DEL+53
Function Call: WRITE
  • Prompt: !,*7,"Another user is editing this entry ... please try again later"
  • Line Location: LOCK+7
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?15,"EDI LBOX - EEOB EXCEPTIONS - EEOB DETAIL",?55,$$FMTE^XLFDT(DT,2),?70,"Page: ",RCPG,!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,$G(^(Z))
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Routine Call
  • %ZIS
  • Line Location:
    • VP+11
Routine Call
  • %ZIS
  • Line Location:
    • VP+17
Routine Call
  • DIE
  • Line Location:
    • TASK+8
Routine Call
  • DIR
  • Line Location:
    • VP+6
    • DEL+13
    • DEL+25
    • DEL+40
    • ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.5 - [#344.5] Classic Fileman Calls,  GET1^DID,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.5 - [#344.5] UPD+8, UPDQ, VPOUT+8, VPOUT+13, VPOUT+21, VPOUT+22, DEL+16, DEL+34, DELQ, TASK+7
, LOCK+5, PAYTYP+3
^TMP("RCDPEX-EOBDX" SEL+7
^TMP("RCSAVE" VPOUT+12!, VPOUT+13*, VPOUT+14, VPOUT+15, VPOUT+17!
^TMP($J VPOUT+2!, VPOUT+19*, VPOUT+20*, VPOUT+22*, VPOUT+25*, VPOUT+27, VPOUT+32, VPQ!, HDR+8*, HDR+11
^VA(200 - [#200] DEL+45

Label References

Name Line Occurrences
$$LOCK UPD+7, DEL+15
$$PAYTYP DEL+8
$$TASK UPD+21
ASK VPOUT+30, VPOUT+33
DELMSG DEL+33
DELQ DEL+6, DEL+14, DEL+15, DEL+18, DEL+26, DEL+34
HDR VPOUT+31
SEL UPD+3, VP+2, DEL+4
TXT0 HDR+7
TXTDE VPOUT+6, VPOUT+10, DEL+30, DEL+32
UPDQ UPD+5, UPD+7, UPD+10, UPD+13, UPD+20
VPQ VP+4, VP+7, VP+11, VP+12

Naked Globals

Name Field # of Occurrence
^( VPOUT+15, HDR+11
^(0 VPOUT+15!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS VP+10~, VP+11*
BY VP+1~
DA DELMSG+2~*, TASK+4~, TASK+8*
DAT TXT0+3~, TXT0+7*, TXT0+8, TXT0+10, TXT0+11, TXT0+12
DHD VP+1~
DIC VP+1~
DIE TASK+4~, TASK+8*
DIK DELMSG+2~*
>> DIQUIET LOCK+7
DIR VP+1~, VP+6!, DEL+1~, DEL+13!, DEL+25!, DEL+40!, ASK+3~
DIR("?" DEL+39*
DIR("A" VP+6*, DEL+11*, DEL+12*, DEL+23*, DEL+24*, DEL+39*
DIR("B" VP+6*, DEL+12*, DEL+24*, DEL+39*
DIR(0 VP+6*, DEL+11*, DEL+23*, DEL+38*, ASK+4*
DIROUT ASK+3~
DIRUT ASK+3~, ASK+5
DR TASK+4~, TASK+8*
DT HDR+10
DTOUT VP+7, ASK+3~
DUOUT VP+7, ASK+3~, ASK+5
DUZ DEL+45, DEL+50~*
DUZ(0 DEL+50*
FLDS VP+1~
FR VP+1~
IO VP+18
IO("Q" VP+12, VP+17!
IOF HDR+4
IOM HDR+12
IOSL VPOUT+29
IOST HDR+4, ASK+2
L VP+1~
LINE TXT0+3~, TXT0+4*, TXT0+8*, TXT0+9, TXT0+10*, TXT0+11*, TXT0+12*, TXT0+13, TXTDE+4~, TXTDE+5*
OK LOCK+3~, LOCK+4*, LOCK+8*, LOCK+9
ONE SEL~, SEL+6
POP VP+1~, VP+11
RC VPOUT+1~, VPOUT+6, VPOUT+9*, VPOUT+10, VPOUT+19*, VPOUT+20*, VPOUT+22*, SEL+4~, SEL+7*
RC0 UPD+1~, UPD+8*, UPD+10, UPD+13, UPD+15, UPD+16, UPD+18, DEL+1~, DEL+16*, DEL+18
, DEL+20, DEL+21, DEL+37, DEL+43
RCCT TXT0~, TXT0+4*, TXT0+8*, TXT0+10*, TXT0+11*, TXT0+13*, TXT0+14*, TXTDE~, TXTDE+5*, TXTDE+8*
, TXTDE+9*
RCCT1 TXTDE+4~, TXTDE+5*, TXTDE+9
RCDA UPD+1~, UPD+3, UPD+4*, UPD+5, UPD+6, UPD+11, VP+1~, VP+2, VP+3*, VP+4
, VP+5, SEL~, SEL+5!, SEL+7*, DEL+1~, DEL+4, DEL+5*, DEL+6, DEL+7
RCDA( UPD+6, VP+5, SEL+7*, DEL+7
RCDA("" UPD+4, VP+3, DEL+5
RCDIQ DEL+1~, DEL+30, DEL+32, TXT0~, TXTDE~
RCDIQ( TXT0+5, TXT0+7, TXTDE+7, TXTDE+8
RCE DEL+1~, DEL+29*, DEL+30, DEL+31*, DEL+32, DEL+46*, DEL+47*, DEL+48*
RCNODE TXTDE~, TXTDE+7, TXTDE+8
RCOK UPD+1~, UPD+11*, UPD+13*, UPD+16*, DEL+1~, DEL+18*, DEL+21*
>> RCPAYTP DEL+8*, DEL+9
RCPG VPOUT+1~, VPOUT+24*, VPOUT+28, VPOUT+29, VPOUT+30, VPOUT+31, VPOUT+33, HDR~, HDR+4, HDR+5
, HDR+9*, HDR+10
RCPT PAYTYP+1~, PAYTYP+2*, PAYTYP+4*, PAYTYP+5
RCRAW VP+1~, VP+8*, VPOUT+18
RCRTN TASK~, TASK+5
RCSTOP VPOUT+1~, VPOUT+24*, VPOUT+27, VPOUT+28*, VPOUT+29, VPOUT+30, VPOUT+33, ASK~, ASK+5*
RCT DEL+1~
RCT( DEL+47*, DEL+48*
RCT("" DEL+46
RCT(1 DEL+43*
RCT(2 DEL+44*
RCT(3 DEL+45*
RCT(4 DEL+46*
RCTDA UPD+1~, UPD+6*, UPD+7, UPD+8, UPD+19, UPD+21, UPDQ, VP+1~, VP+5*, VPOUT+3
, VPOUT+6, VPOUT+8, VPOUT+10, VPOUT+13, VPOUT+21, VPOUT+22, VPOUT+31, DEL+1~, DEL+3*, DEL+7*
, DEL+8, DEL+15, DEL+16, DEL+30, DEL+32, DEL+33, DEL+34, DEL+42, DELQ, DELMSG~
, DELMSG+2, TASK~, TASK+7, TASK+8, LOCK~, LOCK+5, HDR~, HDR+7, TXT0~, TXT0+4
, TXTDE~, TXTDE+6, PAYTYP~, PAYTYP+3
RCTDAC VPOUT+1~, VPOUT+3*, VPOUT+5, DEL+1~, DEL+7*, DEL+28, TXT0+3~, TXT0+4*, TXT0+5, TXT0+7
, TXTDE+4~, TXTDE+6*, TXTDE+7, TXTDE+8
RCTSK UPD+1~, UPD+21*, UPD+22, UPD+23
RCTYP UPD+1~, UPD+18*, UPD+19, DEL+1~
RCU UPD+1~, UPD+19*, UPD+20, UPD+21, DEL+1~
RCV5 VPOUT+1~, VPOUT+3*, VPOUT+14*
RCX DEL+1~, DEL+30, DEL+32, HDR+6~, HDR+7
RCX( DEL+31*, DEL+47, HDR+8
RCXM VPOUT+1~, VPOUT+6, VPOUT+10
RCXM( VPOUT+9*, VPOUT+25
RCXM1 VPOUT+1~, TXT0~, TXTDE~
RCXM1( TXT0+8*, TXT0+10*, TXT0+11*, TXT0+13*, TXT0+14*, TXTDE+8*, TXTDE+9*
RCZ VPOUT+1~, VPOUT+6, VPOUT+10, HDR+6~, HDR+7, TXT0+3~
TO VP+1~
U UPD+13, UPD+15, UPD+16, UPD+18, VPOUT+14, VPOUT+15, SEL+7, DEL+18, DEL+20, DEL+21
, DEL+37, DEL+43, DEL+45, PAYTYP+4
>> VALMBCK UPDQ+1*, VPQ+1*, DELQ+1*
>> VALMY( SEL+7
X DEL+1~, PAYTYP+1~, PAYTYP+3*, PAYTYP+4
XMBODY DEL+1~, DEL+49*, DEL+51
XMDUZ DEL+1~, DEL+49*
XMSUBJ DEL+1~, DEL+49*, DEL+51
XMTO DEL+1~, DEL+51
XMTO("G.RCDPE PAYMENTS" , DEL+49*
XMZ DEL+1~, DEL+51
>> XQORNOD(0 SEL+6
Y VP+1~, VP+8, DEL+1~, DEL+14, DEL+26, DEL+41, DELMSG+2~
Z VPOUT+1~, VPOUT+15*, VPOUT+21*, VPOUT+22, VPOUT+24*, VPOUT+25*, VPOUT+26*, VPOUT+27*, VPOUT+32, DEL+1~
, DEL+47*, HDR+3~, HDR+8*, HDR+11*, TXT0+3~, TXT0+5*, TXT0+6, TXT0+7, TXTDE+4~, TXTDE+7*
, TXTDE+8
Z0 VPOUT+1~, VPOUT+22*, TXT0+3~, TXT0+6*, TXT0+7
ZTDESC VP+10~, VP+13*, TASK+4~, TASK+5*
ZTDTH TASK+4~, TASK+5*
ZTIO TASK+4~, TASK+5*
>> ZTQUEUED VPOUT+28, VPOUT+35, VPOUT+36
ZTREQ VPOUT+28!, VPOUT+35*
ZTRTN VP+10~, VP+13*, TASK+5*
ZTSAVE VP+10~, TASK+4~
ZTSAVE("RC*" TASK+5*
ZTSAVE("RCRAW" VP+14*
ZTSAVE("RCTDA" VP+14*
ZTSK UPD+1~, UPD+14~, UPD+15*, VP+16, VP+17!, DEL+19~, DEL+20*, TASK+4~, TASK+7, TASK+8
, TASK+9
ZTSK(0 UPD+15, DEL+20
ZTSK(1 UPD+16, DEL+21
>> ZTSTOP VPOUT+28*
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