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

Package: Accounts Receivable

Routine: RCDPENRU


Information

RCDPENRU ;ALB/SAB - AR DM DATA EXTRACTION (MENU OPTIONS/TRANSMIT E-MAIL) ;15-JUL-15

Source Information

Source file <RCDPENRU.m>

Entry Points

Name Comments DBIA/ICR reference
AUTO(RCMRUN,RCMAN) ;
VPE ; - View/print entries in RCDPE DM REPORT ARCHIVE file (#344.91) for a given report date.
VPE1 ;
; Display the selected report.
GETDT() ;
GETRPT(RCIEN,RCHDR,RCDATA) ;
; Input - RCIEN - IEN for the report
; Output - RCHDR - Header information for the report
; RCDATA - Body of data for the report.
DER ; - Disable/enable report(s) or extraction process.
UPDSTAT(RCSTAT,RCIEN) ;
MAN1 ; - Manually start AR DM extraction process.
MAN2 ; - Manually transmit DM extract file.
MAN2A ; Ask for the date and report to retransmit
MSG ;
MSG1(RCDT,RCDT1) ;
MSQ ;
MSH(RCDT1) ; - DM extract reports message header.
CHK ; - Check file #344.91 for completed and/or transmitted DM extracts
; (shown when DM Extract Menu is called up).
XM(RCDMIEN,RCBEGDT,RCENDDT,XMSUB) ; - Create/transmit DM extract file message.
ENQ
ENQ1
SEND ; Calls ^XMD to send the mail message with the data extracted
; Obs: By NEWing DUZ, ^XMD will assume DUZ=.5 (Sender=POSTMASTER)
GETPAY(RCPAY) ; Get payer information
GPO ;
GETRANG(RTNARR,TYPE) ;
GETPAYER(RCPYRLST) ;
GETANS(RCIDX) ;
PYRARY(RCSTART,RCEND,RCSWITCH) ;
INSCHK(RCINSIEN) ;
INSLKUP(RCSTART,RCEND) ;
INSLP ;
INSQT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $S(RCMRUN="E":"THE EFT/ERA TRENDING REPORT HAS ",RCMRUN="V":"THE VOLUME STATISTICS REPORT HAS ",1:"ALL REPORTS HAVE "),"BEEN STARTED.",!
  • Line Location: AUTO+43
Function Call: WRITE
  • Prompt: !!,"There are no entries available.",*7
  • Line Location: VPE+5
Function Call: WRITE
  • Prompt: !!,"Task number "_ZTSK_" has been queued."
  • Line Location: VPE+20
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: VPE+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DER+8
Function Call: WRITE
  • Prompt: !!,"There are no entries available to retransmit.",*7
  • Line Location: MAN2+6
Function Call: WRITE
  • Prompt: " Done."
  • Line Location: MAN2A+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,"The "_RCNAME_" DM extract process for ",RCDT1," was initiated on "
  • Line Location: MSG+9
Function Call: WRITE
  • Prompt: $$M1^RCDPENR4($P(RCN,U,4),3),!,"but it hasn't run yet.",!
  • Line Location: MSG+10
Function Call: WRITE
  • Prompt: !,"The "_RCNAME_" DM report data for ",IBDT1," has been successfully"
  • Line Location: MSG+14
Function Call: WRITE
  • Prompt: !,"extracted on ",$$M1^RCDPENR4($P(RCN,U,5),3),". This data has been"
  • Line Location: MSG+15
Function Call: WRITE
  • Prompt: !,"sent to the Central Collections mail group in FORUM.",*7
  • Line Location: MSG+16
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG1+6
Function Call: WRITE
  • Prompt: RCDT1,?12,RCNAME,?35,RCSTAT,!
  • Line Location: MSG1+14
Function Call: WRITE
  • Prompt: !,"If you want, you can restart the DM extract process"
  • Line Location: MSQ+1
Function Call: WRITE
  • Prompt: !,"by using the ""Manually Start DM Extraction"" option in"
  • Line Location: MSQ+2
Function Call: WRITE
  • Prompt: !,"the Diagnostic Measures Extract Menu."
  • Line Location: MSQ+3
Function Call: WRITE
  • Prompt: !,"Data for the following DM reports have not been extracted"
  • Line Location: MSH+1
Function Call: WRITE
  • Prompt: !," for ",RCDT1,":",!!,*7
  • Line Location: MSH+2
Function Call: WRITE
  • Prompt: "Done"
  • Line Location: CHK+43
Function Call: WRITE
  • Prompt: !!,"The "_RCQ_" data has NOT been fully extracted for these months:",!,*7
  • Line Location: CHK+50
Function Call: WRITE
  • Prompt: " ",$$M1^RCDPENR4(RC0,3)
  • Line Location: CHK+51
Function Call: WRITE
  • Prompt: !,"If you want, you can start the DM extract process for these"
  • Line Location: CHK+52
Function Call: WRITE
  • Prompt: !,"months by using the ""Manually Start DM Extraction"" option."
  • Line Location: CHK+53
Function Call: WRITE
  • Prompt: !!,"The "_RCQ_" data has NOT been transmitted for these months:",!,*7
  • Line Location: CHK+58
Function Call: WRITE
  • Prompt: " ",$$M1^RCDPENR4(RC0,3)
  • Line Location: CHK+59
Function Call: WRITE
  • Prompt: !,"If you want, you can re-transmit the DM extract data for these"
  • Line Location: CHK+60
Function Call: WRITE
  • Prompt: !,"months by using the ""Manually Transmit DM Extract"" option."
  • Line Location: CHK+61
Function Call: WRITE
  • Prompt: !!,"The "_RCQ_" data has NOT stored an email message for these months:",!,*7
  • Line Location: CHK+66
Function Call: WRITE
  • Prompt: " ",$$M1^RCDPENR4(RC0,3)
  • Line Location: CHK+67
Function Call: WRITE
  • Prompt: !,"If you want, you can re-transmit the DM extract data for these"
  • Line Location: CHK+68
Function Call: WRITE
  • Prompt: !,"months by using the ""Manually Transmit DM Extract"" option."
  • Line Location: CHK+69

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCDM(344.9 - [#344.9] Classic Fileman Calls
^RCDM(344.91 - [#344.91] Classic Fileman Calls,  GET1^DIQ
^DIC(36 - [#36] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call