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

Package: Accounts Receivable

Routine: RCDPEX5


Information

RCDPEX5 ;ALB/TMK,DWA - ELECTRONIC EOB EXCEPTION PROCESSING - FILE 344.5 ;8 Aug 2018 21:44:13

Source Information

Source file <RCDPEX5.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 5 $$GET1^DID  ^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S,STAT)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Accounts Receivable 3 DISP^RCDPESR0  ($$PAYTYP,ASK,TXT0,TXTDE)^RCDPEX  (BLD,DIQ3445)^RCDPEX1  
List Manager 2 (FULL,PAUSE)^VALM1  EN^VALM2  
MailMan 1 SENDMSG^XMXAPI  

Entry Points

Name Comments DBIA/ICR reference
UPD ; Update (File) ERA msgs manually from DUPLICATE exception list for file 344.5
UPDQ ; fall through or GOTO from above
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 ; RCDPEX DELETE DUP MESSAGE option
; Delete messages from messages list - file 344.5
DELQ ; fall through or GOTO here
SNDMLMN(RCLKBXDA) ; send MailMan message about RCLKBXDA entry in 344.5
LKBXDEL(RCLKBXDA) ;Delete entry from AR EDI LOCKBOX MESSAGES file
TASK(RCRTN,RCLKBXDA) ;function, Schedule the task to update data base from message
; RCRTN - routine to task
; RCLKBXDA - IEN in file 344.5
; returns: TaskMan task #
LOCK(RCLKBXDA) ; Boolean function, lock entry RCLKBXDA in file 344.5
; Return 1 if successful, else zero
HDR(RCTDA,RCPG) ;Prints report heading
; RCTDA = ien of file 344.5
; RCPG = page # last printed

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+22, DEL+22
$$GET1^DID SNDMLMN+12
^DIE TASK+8
^DIK LKBXDEL+1
$$GET1^DIQ SNDMLMN+7
GETS^DIQ VPOUT+5
^DIR VP+6, DEL+12, DEL+17, DEL+27
DISP^RCDPESR0 VPOUT+16
$$PAYTYP^RCDPEX DEL+9
ASK^RCDPEX VPOUT+30, VPOUT+33
TXT0^RCDPEX HDR+7
TXTDE^RCDPEX VPOUT+6, VPOUT+10
BLD^RCDPEX1 UPD+33, DEL+35
DIQ3445^RCDPEX1 SNDMLMN+4
FULL^VALM1 UPD+2, VP+2, DEL+3
PAUSE^VALM1 UPD+10, UPD+14, UPD+19, UPD+23, UPD+27, UPD+31, DEL+23, DEL+28, DEL+32, DEL+35
EN^VALM2 SEL+6
$$FMTE^XLFDT SNDMLMN+6, HDR+10
$$NOW^XLFDT SNDMLMN+6
SENDMSG^XMXAPI SNDMLMN+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7)_"ERA #"_RCDA_" is no longer in exception file"
  • Line Location: UPD+9
Function Call: WRITE
  • Prompt: !,$C(7)_"Could not Lock ERA #"_RCDA_" to file it."
  • Line Location: UPD+13
Function Call: WRITE
  • Prompt: !,$C(7)_"ERA #"_RCDA_" is no longer in exception file"
  • Line Location: UPD+18
Function Call: WRITE
  • Prompt: !,$C(7)_"This record has already been scheduled for update. Task # is: "_$P(RC0,U,5)
  • Line Location: UPD+23
Function Call: WRITE
  • Prompt: !,$C(7)_"This message has an invalid 'type' - can't update"
  • Line Location: UPD+27
Function Call: WRITE
  • Prompt: !,"File update has been tasked (#"_RCTSK_")"
  • Line Location: UPD+29
Function Call: WRITE
  • Prompt: !,$C(7)_"File update could not be tasked. Please try again later!"
  • Line Location: UPD+30
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: !
  • Line Location: DEL+12
Function Call: WRITE
  • Prompt: !,$C(7)_"This Lockbox message is scheduled for update. Task # is: "_$P(RC0,U,11)
  • Line Location: DEL+23
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+27
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+27
Function Call: WRITE
  • Prompt: !!,"Nothing deleted"
  • Line Location: DEL+28
Function Call: WRITE
  • Prompt: !,"EDI Lockbox message not deleted - problem with deletion."
  • Line Location: DEL+32
Function Call: WRITE
  • Prompt: !,"A MailMan message has been sent to report this deletion.",!
  • Line Location: DEL+34
Function Call: WRITE
  • Prompt: !,"MailMan message #"_XMZ_" sent."
  • Line Location: SNDMLMN+16
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?15,"EDI LBOX - DUPLICATE ERA - 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
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+12
    • DEL+17
    • DEL+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^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+7, UPD+16, UPDQ+1, VPOUT+8, VPOUT+13, VPOUT+21, VPOUT+22, DEL+18, DEL+31, DELQ+1
, TASK+7, LOCK+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!, SNDMLMN+2!, SNDMLMN+6*
, SNDMLMN+7*, SNDMLMN+8*, SNDMLMN+12*, SNDMLMN+15, SNDMLMN+17!, HDR+8*, HDR+11

Label References

Name Line Occurrences
$$LOCK UPD+12, DEL+14
$$TASK UPD+28
DELQ DEL+7, DEL+13, DEL+14, DEL+20, DEL+28, DEL+31
HDR VPOUT+31
LKBXDEL DEL+30
SEL UPD+3, VP+2, DEL+5
SNDMLMN DEL+30
UPDQ UPD+5, UPD+8, UPD+12, UPD+17, UPD+20, UPD+27
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 LKBXDEL+1~*, TASK+4~, TASK+8*
DHD VP+1~
DIC VP+1~, LKBXDEL+1~
DIE TASK+4~, TASK+8*
DIK LKBXDEL+1~*
>> DILOCKTM LOCK+3
DIR VP+1~, VP+6!, DEL+2~, DEL+12!, DEL+15!, DEL+27!
DIR("A" VP+6*, DEL+10*, DEL+11*, DEL+16*, DEL+17*, DEL+25*, DEL+26*
DIR("B" VP+6*, DEL+11*, DEL+26*
DIR(0 VP+6*, DEL+10*, DEL+16*, DEL+25*
DR SNDMLMN+3*, SNDMLMN+4, TASK+4~, TASK+8*
DT HDR+10
>> DTOUT VP+7
>> DUOUT VP+7
DUZ SNDMLMN+7, SNDMLMN+14, SNDMLMN+15
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 SNDMLMN+16, HDR+4
J SNDMLMN+1~, SNDMLMN+10*, SNDMLMN+11, SNDMLMN+12
L VP+1~
LCK LOCK+3~*, LOCK+4
LN SNDMLMN+1~, SNDMLMN+6*, SNDMLMN+7*, SNDMLMN+8*, SNDMLMN+12*
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+7*, UPD+8, UPD+16*, UPD+17, UPD+20, UPD+22, UPD+23, UPD+25, DEL+2~
DEL+18*, DEL+20, DEL+22, DEL+23
RCDA UPD+1~, UPD+3, UPD+4*, UPD+5, UPD+6, UPD+9, UPD+13, UPD+18, VP+1~, VP+2
VP+3*, VP+4, VP+5, SEL~, SEL+5!, SEL+7*, DEL+2~, DEL+5, DEL+6*, DEL+7
DEL+8
RCDA( UPD+6, VP+5, SEL+7*, DEL+8
RCDA("" UPD+4, VP+3, DEL+6
RCDIQ DEL+2~
RCDPDATA SNDMLMN+1~
RCDPDATA( SNDMLMN+11
RCE DEL+2~
RCLKBXDA UPD+1~, UPD+6*, UPD+7, UPD+12, UPD+16, UPD+26, UPD+28, UPDQ+1, DEL+2~, DEL+4*
DEL+8*, DEL+9, DEL+14, DEL+18, DEL+30, DEL+31, DELQ+1, SNDMLMN~, SNDMLMN+4, SNDMLMN+11
, LKBXDEL~, LKBXDEL+1, TASK~, TASK+7, TASK+8, LOCK~, LOCK+2, LOCK+3
RCLKBXDA("iens" DEL+8*
RCOK UPD+1~, UPD+9*, UPD+13*, UPD+18*, UPD+20*, UPD+23*, DEL+2~, DEL+20*, DEL+23*
RCPAYTP DEL+2~, 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
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
RCT DEL+2~
RCTDA VP+1~, VP+5*, VPOUT+3, VPOUT+6, VPOUT+8, VPOUT+10, VPOUT+13, VPOUT+21, VPOUT+22, VPOUT+31
, HDR~, HDR+7
RCTDAC VPOUT+1~, VPOUT+3*, VPOUT+5
RCTSK UPD+1~, UPD+28*, UPD+29, UPD+30
RCTYP UPD+1~, UPD+25*, UPD+26, DEL+2~
RCU UPD+1~, UPD+26*, UPD+27, UPD+28, DEL+2~
RCV5 VPOUT+1~, VPOUT+3*, VPOUT+14*
RCX DEL+2~, HDR+6~, HDR+7
RCX( HDR+8
RCXM VPOUT+1~, VPOUT+6, VPOUT+10
RCXM( VPOUT+9*, VPOUT+25
RCXM1 VPOUT+1~
RCZ VPOUT+1~, VPOUT+6, VPOUT+10, HDR+6~, HDR+7
TO VP+1~
U UPD+20, UPD+22, UPD+23, UPD+25, VPOUT+14, VPOUT+15, SEL+7, DEL+20, DEL+22, DEL+23
>> VALMBCK UPDQ+2*, VPQ+1*, DELQ+2*
>> VALMY( SEL+7
X SNDMLMN+1~, SNDMLMN+11*, SNDMLMN+12, LKBXDEL+1~
XMINSTR SNDMLMN+1~, SNDMLMN+15
XMINSTR("FLAGS" SNDMLMN+14*
XMTO SNDMLMN+1~, SNDMLMN+15
XMTO( SNDMLMN+14*
XMTO("G.RCDPE PAYMENTS MGMT" , SNDMLMN+14*
XMZ SNDMLMN+1~, SNDMLMN+15, SNDMLMN+16
>> XQORNOD(0 SEL+6
Y VP+1~, VP+8, DEL+13, DEL+28, SNDMLMN+1~, LKBXDEL+1~
Z VPOUT+1~, VPOUT+15*, VPOUT+21*, VPOUT+22, VPOUT+24*, VPOUT+25*, VPOUT+26*, VPOUT+27*, VPOUT+32, DEL+2~
, HDR+3~, HDR+8*, HDR+11*
Z0 VPOUT+1~, VPOUT+22*
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+21~, UPD+22*, VP+16, VP+17!, DEL+21~, DEL+22*, SNDMLMN+16, TASK+4~, TASK+7
, TASK+8, TASK+9
ZTSK(0 UPD+22, DEL+22
ZTSK(1 UPD+23, DEL+23
>> ZTSTOP VPOUT+28*
Info |  Source |  Call 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