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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call