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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RCDPESPA

Package: Accounts Receivable

Routine: RCDPESPA


Information

RCDPESPA ;OICO/hrubovcak - ePayment Lockbox Parameter Audit Report ;29 Jan 2019 18:00:14

Source Information

Source file <RCDPESPA.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 LIST^DIC  $$GET1^DID  $$GET1^DIQ  ^DIR  
Accounts Receivable 3 ($$ENDORPRT,ASK)^RCDPEARL  $$DISPTY^RCDPEM3  INFO^RCDPEM6  
Kernel 3 ^%ZIS  ^%ZISC  ($$FMTE,$$NOW)^XLFDT  

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

Package Total Caller Graph
Accounts Receivable 2 RCDPESP2  RCDPESP5  

Entry Points

Name Comments DBIA/ICR reference
AUDPARM ;EP from RCDPESP2
; EDI Lockbox Parameters Audit Report [RCDPE PARAMETER AUDIT REPORT]
; Report logic moved from RCDPESP2, 11 October 2018
; Report displays the RCDPE PARAMETER AUDIT file (#344.7)
; and changes to the RCDPE PARAMETER file (#344.61)
RPTEND ; end of report
HDRLPR(RCRPRT,RCSTOP) ; Report header Lockbox Parameter Report
; Input: RCRPRT("eXcel") - If true output for Excel
; RCRPRT("hdrPg#") - Current Page count
; RCSTOP - Report exit flag
; RCRPRT("dtRange") - Selected Date Range
; RCRPRT("typRprt") - Type of report to run
; Output: RCRPRT("hdrPg#") - Updated Page count
GETPAYER() ; GET THE PAYER NAME + PAYER ID
CNTR(TXT) ; center TXT
DTRNG() ; function, returns date range for the report
DATES(BDATE,EDATE) ; Get a date range, both values passed by ref.
RTYPE(DEF) ; EP from RCDPESP2, RCDPESP1
; Type of information to display
; Input: DEF - default value
; Returns:
; ; *future build*, add Tricare, change 'Both' to 'All'
; M - Medical, P - Pharmacy, T - Tricare, A - All, -1 - ^ or timed out
TYPMTCH(RCRPRT,RCPARAM) ; function, print changed parameter?
; Input passed by ref:
; RCRPRT("typRprt") - Report filter
; RCPARAM - values for the changed parameter
; Returns: 1 if valid to print, 0 otherwise
PAD(A,N) ; pad A with N spaces
YESNO(RCPARAM,Y) ; Yes/No text, RCPARAM passed by ref., Y=RCTMP

External References

Name Field # of Occurrence
^%ZIS AUDPARM+64
^%ZISC RPTEND+6
LIST^DIC AUDPARM+73
$$GET1^DID AUDPARM+98
$$GET1^DIQ AUDPARM+82, AUDPARM+83, AUDPARM+84, GETPAYER+4
^DIR RPTEND+10, DATES+4, DATES+9, RTYPE+11
$$ENDORPRT^RCDPEARL RPTEND+5
ASK^RCDPEARL AUDPARM+76, HDRLPR+13
$$DISPTY^RCDPEM3 AUDPARM+60
INFO^RCDPEM6 AUDPARM+62
$$FMTE^XLFDT AUDPARM+68, AUDPARM+69, AUDPARM+108, DATES+8
$$NOW^XLFDT AUDPARM+68

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"EDI Lockbox Parameters Audit Report",!
  • Line Location: AUDPARM+39
Function Call: WRITE
  • Prompt: !!,"FileMan error when collecting report data."
  • Line Location: AUDPARM+75
Function Call: WRITE
  • Prompt: !,RCPARAM_U_RCPARAM("dt&tm")_U_RCPARAM("oldVal")_U_RCPARAM("newVal")_U_RCPARAM("usr")
  • Line Location: AUDPARM+128
Function Call: WRITE
  • Prompt: !,$E(Y,1,IOM)
  • Line Location: AUDPARM+131
Function Call: WRITE
  • Prompt: !," * No PARAMETER AUDIT entries to report. *",!
  • Line Location: RPTEND+3
Function Call: WRITE
  • Prompt: !!,$$ENDORPRT^RCDPEARL,!
  • Line Location: RPTEND+5
Function Call: WRITE
  • Prompt: !,"PARAMETER^DATE/TIME EDITED^OLD VALUE^NEW VALUE^USER"
  • Line Location: HDRLPR+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRLPR+14
Function Call: WRITE
  • Prompt: $$CNTR("EDI Lockbox Parameter Audit Report"),?IOM-8,"Page: "_RCRPRT("hdrPg#")
  • Line Location: HDRLPR+16
Function Call: WRITE
  • Prompt: !,$$CNTR("RUN DATE: "_RCRPRT("hdrDate"))
  • Line Location: HDRLPR+17
Function Call: WRITE
  • Prompt: !,$$CNTR("DATE RANGE: "_RCRPRT("dtRange"))
  • Line Location: HDRLPR+18
Function Call: WRITE
  • Prompt: !,$$CNTR("REPORT TYPE: "_RCRPRT("hdrTyp"))
  • Line Location: HDRLPR+19
Function Call: WRITE
  • Prompt: !!,"LOCKBOX PARAMETER UPDATES"
  • Line Location: HDRLPR+20
Function Call: WRITE
  • Prompt: !,"-------------------------- Values"
  • Line Location: HDRLPR+21
Function Call: WRITE
  • Prompt: !,"Parameter Date/Time Edited Old New User"
  • Line Location: HDRLPR+22
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM-1)," ","=")
  • Line Location: HDRLPR+23
Routine Call
  • %ZIS
  • Line Location:
    • AUDPARM+64
Routine Call
  • DIC
  • Line Location:
    • AUDPARM+73
Routine Call
  • DIR
  • Line Location:
    • RPTEND+10
    • DATES+4
    • DATES+9
    • RTYPE+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.6 - [#344.6] GET1^DIQ
^RCY(344.61 - [#344.61] GET1^DIQ
^RCY(344.7 - [#344.7] LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.6 - [#344.6] GETPAYER+3
^RCY(344.62 - [#344.62] AUDPARM+118
^TMP( AUDPARM+42
^TMP($J AUDPARM+43!, AUDPARM+97, AUDPARM+99*, AUDPARM+101, RPTEND+12!

Label References

Name Line Occurrences
$$CNTR HDRLPR+16, HDRLPR+17, HDRLPR+18, HDRLPR+19
$$DTRNG AUDPARM+54
$$PAD AUDPARM+130
$$RTYPE AUDPARM+48
$$TYPMTCH AUDPARM+102
DATES DTRNG+2
HDRLPR AUDPARM+88, AUDPARM+132, RPTEND+2
RPTEND AUDPARM+79
YESNO AUDPARM+121, AUDPARM+122, AUDPARM+124

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS AUDPARM+38~, AUDPARM+63*
A PAD~, PAD+1*, PAD+2, PAD+3
BDATE DATES~, DATES+2*, DATES+5*, DATES+6*, DATES+8, DATES+10*
DA RTYPE+6~
DEF RTYPE~, RTYPE+10
DIR RPTEND+8~, DATES+1~, DATES+4!, DATES+6!, DATES+9!, RTYPE+6~, RTYPE+12!
DIR("?" DATES+3*, DATES+7*, RTYPE+7*
DIR("A" RPTEND+9*, DATES+4*, DATES+8*, RTYPE+9*
DIR("B" DATES+8*, RTYPE+10*
DIR(0 RPTEND+10*, DATES+4*, DATES+8*, RTYPE+8*
DIROUT RPTEND+8~, RTYPE+6~
DIRUT RPTEND+8~, RTYPE+6~
DT DATES+4, DATES+8
DTOUT RPTEND+8~, DATES+1~, DATES+5, DATES+10, RTYPE+6~, RTYPE+13
DUOUT RPTEND+8~, DATES+1~, DATES+5, DATES+10, RTYPE+6~, RTYPE+13
EDATE DATES~, DATES+2*, DATES+11*
F AUDPARM+116~*
IO AUDPARM+66
IO(0 RPTEND+6
IOF HDRLPR+14
IOM AUDPARM+131, HDRLPR+16, HDRLPR+23, CNTR+1
IOSL AUDPARM+132
IOST RPTEND+7
J AUDPARM+116~*, AUDPARM+117
N PAD~, PAD+2, PAD+3
OK2PRNT TYPMTCH+5~*, TYPMTCH+7*, TYPMTCH+8*, TYPMTCH+11*, TYPMTCH+12*, TYPMTCH+14*, TYPMTCH+15
POP AUDPARM+38~, AUDPARM+65
RCDIERR AUDPARM+38~, AUDPARM+74
RCDIGET AUDPARM+38~, AUDPARM+42*, AUDPARM+43, AUDPARM+73, AUDPARM+79, AUDPARM+86, AUDPARM+92, RPTEND+12
RCEND DTRNG+1~, DTRNG+2, DTRNG+4
RCFLDS AUDPARM+38~, AUDPARM+72*, AUDPARM+73
RCIEN AUDPARM+38~, AUDPARM+86*, AUDPARM+92, GETPAYER+1~, GETPAYER+2*, GETPAYER+3, GETPAYER+4
RCPARAM AUDPARM+38~, AUDPARM+91!, AUDPARM+101*, AUDPARM+102, AUDPARM+105*, AUDPARM+106*, AUDPARM+114, AUDPARM+115, AUDPARM+116, AUDPARM+117*
, AUDPARM+119*, AUDPARM+121, AUDPARM+122, AUDPARM+124, AUDPARM+128, AUDPARM+130, TYPMTCH~, TYPMTCH+7, TYPMTCH+11, TYPMTCH+14
, YESNO~
RCPARAM( AUDPARM+126*
RCPARAM("dt&tm" AUDPARM+108*, AUDPARM+128, AUDPARM+130
RCPARAM("file" AUDPARM+93*, AUDPARM+94, AUDPARM+97, AUDPARM+98, AUDPARM+99, AUDPARM+101, AUDPARM+105, AUDPARM+106, AUDPARM+112, AUDPARM+121
, AUDPARM+122, AUDPARM+124, TYPMTCH+8, TYPMTCH+12
RCPARAM("fld" AUDPARM+95*, AUDPARM+97, AUDPARM+98, AUDPARM+99, AUDPARM+101, AUDPARM+105, AUDPARM+106, AUDPARM+113, AUDPARM+114, AUDPARM+121
, AUDPARM+122, AUDPARM+124, TYPMTCH+8, TYPMTCH+12
RCPARAM("newVal" AUDPARM+111*, AUDPARM+128, AUDPARM+130, YESNO+2*
RCPARAM("oldParam" AUDPARM+117*
RCPARAM("oldVal" AUDPARM+110*, AUDPARM+128, AUDPARM+130, YESNO+1*
RCPARAM("usr" AUDPARM+109*, AUDPARM+128, AUDPARM+130
RCPAYR GETPAYER+1~, GETPAYER+4*, GETPAYER+5
RCRPRT AUDPARM+38~, AUDPARM+88, AUDPARM+102, AUDPARM+132, RPTEND+2, HDRLPR~, TYPMTCH~
RCRPRT("begDate" AUDPARM+57*, AUDPARM+69, AUDPARM+71
RCRPRT("cntr" AUDPARM+46*, AUDPARM+103*, RPTEND+1
RCRPRT("dtRange" AUDPARM+69*, HDRLPR+18
RCRPRT("eXcel" AUDPARM+46*, AUDPARM+60*, AUDPARM+61, AUDPARM+62, AUDPARM+108, AUDPARM+127, HDRLPR+7, HDRLPR+12
RCRPRT("endDate" AUDPARM+58*, AUDPARM+69, AUDPARM+70*, AUDPARM+71
RCRPRT("hdrDate" AUDPARM+68*, HDRLPR+17
RCRPRT("hdrPg#" AUDPARM+46*, AUDPARM+87, HDRLPR+8, HDRLPR+10*, HDRLPR+13, HDRLPR+15*, HDRLPR+16
RCRPRT("hdrTyp" AUDPARM+53*, HDRLPR+19
RCRPRT("medAuto" AUDPARM+82*
RCRPRT("pgLns" AUDPARM+46*, AUDPARM+89*, AUDPARM+131*, AUDPARM+132*
RCRPRT("rxAuto" AUDPARM+83*
RCRPRT("triAuto" AUDPARM+84*
RCRPRT("typRprt" AUDPARM+48*, AUDPARM+49, AUDPARM+52, AUDPARM+102, TYPMTCH+6, TYPMTCH+10, TYPMTCH+14
RCSCR AUDPARM+38~, AUDPARM+71*, AUDPARM+73
RCSTART DTRNG+1~, DTRNG+2, DTRNG+3, DTRNG+4, DTRNG+5
RCSTOP AUDPARM+38~, AUDPARM+46*, AUDPARM+86, AUDPARM+88, AUDPARM+90, AUDPARM+132, RPTEND+1, RPTEND+2, RPTEND+5, RPTEND+7
, HDRLPR~, HDRLPR+13
RCTMP AUDPARM+38~, AUDPARM+92*, AUDPARM+93, AUDPARM+95, AUDPARM+107, AUDPARM+109, AUDPARM+110, AUDPARM+111, AUDPARM+118, AUDPARM+121
, AUDPARM+122, AUDPARM+124, GETPAYER+2
TXT CNTR~, CNTR+1
U AUDPARM+57, AUDPARM+58, AUDPARM+92, AUDPARM+93, AUDPARM+95, AUDPARM+107, AUDPARM+109, AUDPARM+110, AUDPARM+111, AUDPARM+118
, AUDPARM+121, AUDPARM+122, AUDPARM+124, AUDPARM+128, GETPAYER+2, YESNO+1, YESNO+2
X AUDPARM+38~, AUDPARM+98*, AUDPARM+99, AUDPARM+107*, AUDPARM+108, AUDPARM+118*, AUDPARM+119, RPTEND+8~, DATES+1~, DATES+6!
, RTYPE+6~
XX AUDPARM+38~, AUDPARM+52*, AUDPARM+53
Y AUDPARM+38~, AUDPARM+59!, AUDPARM+113*, AUDPARM+117*, AUDPARM+119, AUDPARM+126*, AUDPARM+130*, AUDPARM+131, RPTEND+8~, DATES+1~
, DATES+5, DATES+6!, DATES+10, DATES+11, RTYPE+6~, RTYPE+14*, RTYPE+15, YESNO~, YESNO+1, YESNO+2
Y("dtRange" AUDPARM+54*, AUDPARM+55, AUDPARM+57, AUDPARM+58
>> ZTSK RPTEND+7

Marked Items

Name Field # of Occurrence
$T( AUDPARM+42
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 |  Local Variables |  Marked Items  | All