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 ; 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) ;updated PRCA*4.5*345
; 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+61
^%ZISC RPTEND+6
LIST^DIC AUDPARM+70
$$GET1^DID AUDPARM+87
$$GET1^DIQ GETPAYER+4
^DIR RPTEND+10, DATES+4, DATES+9, RTYPE+11
$$ENDORPRT^RCDPEARL RPTEND+5
ASK^RCDPEARL AUDPARM+72, HDRLPR+13
$$DISPTY^RCDPEM3 AUDPARM+58
INFO^RCDPEM6 AUDPARM+60
$$FMTE^XLFDT AUDPARM+65, AUDPARM+66, AUDPARM+97, DATES+8
$$NOW^XLFDT AUDPARM+65

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"EDI Lockbox Parameters Audit Report",!
  • Line Location: AUDPARM+38
Function Call: WRITE
  • Prompt: !!,"FileMan error when collecting report data."
  • Line Location: AUDPARM+72
Function Call: WRITE
  • Prompt: !,RCPARAM_U_RCPARAM("dt&tm")_U_RCPARAM("oldVal")_U_RCPARAM("newVal")_U_RCPARAM("usr")
  • Line Location: AUDPARM+114
Function Call: WRITE
  • Prompt: !,$E(Y,1,IOM)
  • Line Location: AUDPARM+117
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+61
Routine Call
  • DIC
  • Line Location:
    • AUDPARM+70
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.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+105
^TMP( AUDPARM+41
^TMP($J AUDPARM+41!, AUDPARM+86, AUDPARM+88*, AUDPARM+90, RPTEND+12!

Label References

Name Line Occurrences
$$CNTR HDRLPR+16, HDRLPR+17, HDRLPR+18, HDRLPR+19
$$DTRNG AUDPARM+53
$$PAD AUDPARM+116
$$RTYPE AUDPARM+47
$$TYPMTCH AUDPARM+91
DATES DTRNG+2
HDRLPR AUDPARM+79, AUDPARM+118, RPTEND+2
RPTEND AUDPARM+75
YESNO AUDPARM+108, AUDPARM+109, AUDPARM+110

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS AUDPARM+37~, AUDPARM+61*
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+103~*
IO AUDPARM+63
IO(0 RPTEND+6
IOF HDRLPR+14
IOM AUDPARM+117, HDRLPR+16, HDRLPR+23, CNTR+1
IOSL AUDPARM+118
IOST RPTEND+7
J AUDPARM+103~*, AUDPARM+104
N PAD~, PAD+2, PAD+3
OK2PRNT TYPMTCH+5~*, TYPMTCH+7*, TYPMTCH+8*, TYPMTCH+11*, TYPMTCH+12*, TYPMTCH+15
POP AUDPARM+37~, AUDPARM+62
RCDIERR AUDPARM+37~, AUDPARM+71
RCDIGET AUDPARM+37~, AUDPARM+41*, AUDPARM+70, AUDPARM+75, AUDPARM+78, AUDPARM+82, RPTEND+12
RCEND DTRNG+1~, DTRNG+2, DTRNG+4
RCFLDS AUDPARM+37~, AUDPARM+69*, AUDPARM+70
RCIEN AUDPARM+37~, AUDPARM+78*, AUDPARM+82, GETPAYER+1~, GETPAYER+2*, GETPAYER+3, GETPAYER+4
RCPARAM AUDPARM+81~, AUDPARM+90*, AUDPARM+91, AUDPARM+94*, AUDPARM+95*, AUDPARM+101, AUDPARM+102, AUDPARM+103, AUDPARM+104*, AUDPARM+106*
AUDPARM+108, AUDPARM+109, AUDPARM+110, AUDPARM+114, AUDPARM+116, TYPMTCH~, TYPMTCH+7, TYPMTCH+11, YESNO~
RCPARAM( AUDPARM+112*
RCPARAM("dt&tm" AUDPARM+97*, AUDPARM+114, AUDPARM+116
RCPARAM("file" AUDPARM+82*, AUDPARM+83, AUDPARM+86, AUDPARM+87, AUDPARM+88, AUDPARM+90, AUDPARM+94, AUDPARM+95, AUDPARM+99, AUDPARM+108
AUDPARM+109, AUDPARM+110, TYPMTCH+8, TYPMTCH+12
RCPARAM("fld" AUDPARM+84*, AUDPARM+86, AUDPARM+87, AUDPARM+88, AUDPARM+90, AUDPARM+94, AUDPARM+95, AUDPARM+100, AUDPARM+101, AUDPARM+108
AUDPARM+109, AUDPARM+110, TYPMTCH+8, TYPMTCH+12
RCPARAM("newVal" AUDPARM+98*, AUDPARM+114, AUDPARM+116, YESNO+2*
RCPARAM("oldParam" AUDPARM+104*
RCPARAM("oldVal" AUDPARM+98*, AUDPARM+114, AUDPARM+116, YESNO+1*
RCPARAM("usr" AUDPARM+98*, AUDPARM+114, AUDPARM+116
RCPAYR GETPAYER+1~, GETPAYER+4*, GETPAYER+5
RCRPRT AUDPARM+37~, AUDPARM+79, AUDPARM+91, AUDPARM+118, RPTEND+2, HDRLPR~, TYPMTCH~
RCRPRT("begDate" AUDPARM+56*, AUDPARM+66, AUDPARM+68
RCRPRT("cntr" AUDPARM+44*, AUDPARM+92*, RPTEND+1
RCRPRT("dtRange" AUDPARM+66*, HDRLPR+18
RCRPRT("eXcel" AUDPARM+44*, AUDPARM+58*, AUDPARM+59, AUDPARM+60, AUDPARM+97, AUDPARM+113, HDRLPR+7, HDRLPR+12
RCRPRT("endDate" AUDPARM+56*, AUDPARM+66, AUDPARM+67*, AUDPARM+68
RCRPRT("hdrDate" AUDPARM+65*, HDRLPR+17
RCRPRT("hdrPg#" AUDPARM+44*, AUDPARM+79, HDRLPR+8, HDRLPR+10*, HDRLPR+13, HDRLPR+15*, HDRLPR+16
RCRPRT("hdrTyp" AUDPARM+52*, HDRLPR+19
RCRPRT("pgLns" AUDPARM+44*, AUDPARM+79*, AUDPARM+117*, AUDPARM+118*
RCRPRT("typRprt" AUDPARM+47*, AUDPARM+48, AUDPARM+52, AUDPARM+91, TYPMTCH+6, TYPMTCH+10
RCSCR AUDPARM+37~, AUDPARM+68*, AUDPARM+70
RCSTART DTRNG+1~, DTRNG+2, DTRNG+3, DTRNG+4, DTRNG+5
RCSTOP AUDPARM+37~, AUDPARM+44*, AUDPARM+78, AUDPARM+79, AUDPARM+80, AUDPARM+118, RPTEND+1, RPTEND+2, RPTEND+5, RPTEND+7
, HDRLPR~, HDRLPR+13
RCTMP AUDPARM+81~, AUDPARM+82*, AUDPARM+84, AUDPARM+96, AUDPARM+98, AUDPARM+105, AUDPARM+108, AUDPARM+109, AUDPARM+110, GETPAYER+2
TXT CNTR~, CNTR+1
U AUDPARM+56, AUDPARM+82, AUDPARM+84, AUDPARM+96, AUDPARM+98, AUDPARM+105, AUDPARM+108, AUDPARM+109, AUDPARM+110, AUDPARM+114
, GETPAYER+2, YESNO+1, YESNO+2
X AUDPARM+37~, AUDPARM+52*, AUDPARM+87*, AUDPARM+88, AUDPARM+96*, AUDPARM+97, AUDPARM+105*, AUDPARM+106, RPTEND+8~, DATES+1~
, DATES+6!, RTYPE+6~
Y AUDPARM+37~, AUDPARM+57!, AUDPARM+100*, AUDPARM+104*, AUDPARM+106, AUDPARM+112*, AUDPARM+116*, AUDPARM+117, 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+53*, AUDPARM+54, AUDPARM+56
>> ZTSK RPTEND+7

Marked Items

Name Field # of Occurrence
$T( AUDPARM+41
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