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  | All
Print Page as PDF
Routine: RCDPESP2

Package: Accounts Receivable

Routine: RCDPESP2


Information

RCDPESP2 ;BIRM/SAB - ePayment Lockbox Parameter Audit and Exclusion Reports ;29 Jan 2019 18:00:14

Source Information

Source file <RCDPESP2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Accounts Receivable 4 ($$ENDORPRT,ASK)^RCDPEARL  $$DISPTY^RCDPEM3  INFO^RCDPEM6  ($$RTYPE,AUDPARM)^RCDPESPA  
VA FileMan 4 LIST^DIC  $$GET1^DID  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZIS  ($$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: 3

Package Total Caller Graph
Accounts Receivable 3 RCDPESP1  RCDPESP3  RCDPESP5  

Entry Points

Name Comments DBIA/ICR reference
RPT1 ; EDI Lockbox Parameters Report [RCDPE SITE PARAMETER REPORT]
RPT2 ; EDI Lockbox Exclusion Audit Report [RCDPE EXCLUSION AUDIT REPORT]
RPT2Q ; exit point
GETPAYER() ; GET THE PAYER NAME + PAYER ID
HDRXAR(RCTYP,RCEXCTYP) ; Report header for auto-posting exclusion report
; Input:
; RCTYP - .06 = Auto-Posting exclusion (medical)
; .07 = Auto-Decrease exclusion (medical)
; .08 = Auto-Posting exclusion (pharmacy)
; .12 = Auto-Decrease exclusion (pharmacy)
; RCEXCTYP - M - Medical, P - Pharmacy, B - Both
; *future build* add Tricare, change 'Both' to 'All'
SECTHDR(RCTYPE,RCREPT) ; SECTION HEADER
; PRCA*4.5*345 - Added Rx Auto-Decrease
; Input: RCTYP - .06 = Auto-Posting exclusion (medical)
; .07 = Auto-Decrease exclusion (medical)
; .08 = Auto-Posting exclusion (Rx)
; .12 = Auto-Decrease exclusion (Rx)
; .13 = Auto-Posting exclusion (TRICARE)
; .14 = Auto-Decrease exclusion (TRICARE)
; RCREPT - M - Medical, P - Pharmacy, B - Both
; *future build* add Tricare, change 'Both' to 'All'
TXPEQLS(Y) ; write text in Y then row of equal signs
EQLSGNS(N)
ERR4USR(TXT) ; error message display
CNTR(TXT) ; center TXT
DTRNG() ; function, returns date range for the report
DATES(BDATE,EDATE) ; Get a date range, both values passed by ref.
DSPXCLSN(RCX) ; display exclusion
; RCX - exclusion value from ^DIC call
RTYPE(DEF) ;EP from RCDPEAA1
; Input: DEF - Value to use a default
; Returns: -1 - User ^ or timed out
; M - User selected MEDICAL
; P - User selected PHARMACY
; B - User selected BOTH
RPTYPE(RCTYPE,RCPARAM) ;
; Return 1 if valid to print, 0 otherwise
OPTYPE(SUB,FIELD,RCTYPE) ; Output data for each type
; Input: SUB - Subscript to array that contain the data for this type
; FIELD - Changed field from field 4 file 344.7
; RCTYPE - M - Medical, P - Pharmacy, B - Both

External References

Name Field # of Occurrence
^%ZIS RPT2+58
LIST^DIC RPT2+72, RPT2+77, RPT2+82, RPT2+86
$$GET1^DID DSPXCLSN+13
$$GET1^DIQ GETPAYER+4
^DIR DATES+4, DATES+9, RTYPE+12
$$ENDORPRT^RCDPEARL RPT2+100
ASK^RCDPEARL RPT2+75, RPT2+80, RPT2+84, RPT2+88, RPT2+101, HDRXAR+14
$$DISPTY^RCDPEM3 RPT2+55
INFO^RCDPEM6 RPT2+57
$$RTYPE^RCDPESPA RPT2+41
AUDPARM^RCDPESPA RPT1+1
$$FMTE^XLFDT RPT2+60, HDRXAR+21, DATES+8, DSPXCLSN+4
$$NOW^XLFDT RPT2+60

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," EDI Lockbox Exclusion Audit Report",!
  • Line Location: RPT2+26
Function Call: WRITE
  • Prompt: !!," EDI Lockbox Exclusion Audit Report",!
  • Line Location: RPT2+30
Function Call: WRITE
  • Prompt: !!,"Error collecting auto-post report data."
  • Line Location: RPT2+74
Function Call: WRITE
  • Prompt: !!,"Error collecting Payer auto-decrease report data."
  • Line Location: RPT2+79
Function Call: WRITE
  • Prompt: !!,$$ENDORPRT^RCDPEARL
  • Line Location: RPT2+100
Function Call: WRITE
  • Prompt: !!,"TYPE^CHANGE^PAYER^TIMESTAMP^USER^COMMENT"
  • Line Location: HDRXAR+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRXAR+15
Function Call: WRITE
  • Prompt: $$CNTR("EDI Lockbox Exclusion Audit Report"),?IOM-8,"Page: "_RCHDR("PAGE")
  • Line Location: HDRXAR+18
Function Call: WRITE
  • Prompt: !,$$CNTR("DIVISIONS: ALL")
  • Line Location: HDRXAR+19
Function Call: WRITE
  • Prompt: !,$$CNTR("RUN DATE: "_$G(RCHDR("RUNDATE")))
  • Line Location: HDRXAR+20
Function Call: WRITE
  • Prompt: !,$$CNTR("DATE RANGE: "_$$FMTE^XLFDT($P(RCRPT("dtRange"),U,2),"5D")_" - "_$$FMTE^XLFDT($P(RCRPT("dtRange"),U,3),"5D"))
  • Line Location: HDRXAR+21
Function Call: WRITE
  • Prompt: !,$$CNTR("REPORT TYPE: "_$S(RCEXCTYP="M":"MEDICAL",RCEXCTYP="P":"PHARMACY",1:"BOTH"))
  • Line Location: HDRXAR+22
Function Call: WRITE
  • Prompt: !,"Change Payer Date/Time Edited User"
  • Line Location: SECTHDR+16
Function Call: WRITE
  • Prompt: !,$$EQLSGNS(IOM-1)
  • Line Location: SECTHDR+17
Function Call: WRITE
  • Prompt: !!,Y,!,$$EQLSGNS($L(Y))
  • Line Location: TXPEQLS+2
Function Call: WRITE
  • Prompt: !!,"Error collecting "_$G(TXT)_" report data."
  • Line Location: ERR4USR+1
Function Call: WRITE
  • Prompt: !,RCXCLSN("LABEL")_U_RCXCLSN("CHANGE")_U_RCXCLSN("PAYER")_U_RCXCLSN("TIME")_U_RCXCLSN("USER")_U_RCXCLSN("COMMENT")
  • Line Location: DSPXCLSN+14
Function Call: WRITE
  • Prompt: !,"No "
  • Line Location: OPTYPE+7
Function Call: WRITE
  • Prompt: "Medical Auto-Post"
  • Line Location: OPTYPE+8
Function Call: WRITE
  • Prompt: "Medical Auto-Decrease"
  • Line Location: OPTYPE+9
Function Call: WRITE
  • Prompt: "Pharmacy Auto-Post"
  • Line Location: OPTYPE+10
Function Call: WRITE
  • Prompt: "Pharmacy Auto-Decrease"
  • Line Location: OPTYPE+11
Function Call: WRITE
  • Prompt: " Exclusions to Display",!
  • Line Location: OPTYPE+12
Routine Call
  • %ZIS
  • Line Location:
    • RPT2+58
Routine Call
  • DIC
  • Line Location:
    • RPT2+72
    • RPT2+77
    • RPT2+82
    • RPT2+86
Routine Call
  • DIR
  • Line Location:
    • DATES+4
    • DATES+9
    • RTYPE+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.6 - [#344.6] GET1^DID,  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.61 - [#344.61] RPTYPE+6, RPTYPE+7
^TMP("RC-MedDecr" RPT2+34
^TMP("RC-MedPost" RPT2+33
^TMP("RC-RxDecr" RPT2+36
^TMP("RC-RxPost" RPT2+35

Label References

Name Line Occurrences
$$CNTR HDRXAR+18, HDRXAR+19, HDRXAR+20, HDRXAR+21, HDRXAR+22
$$DTRNG RPT2+44
$$EQLSGNS SECTHDR+17, TXPEQLS+2
$$GETPAYER DSPXCLSN+6
DATES DTRNG+2
DSPXCLSN OPTYPE+18
ERR4USR RPT2+84, RPT2+88
HDRXAR OPTYPE+4, OPTYPE+17
OPTYPE RPT2+91, RPT2+92, RPT2+95, RPT2+96
RPT2Q RPT2+90, RPT2+94
SECTHDR HDRXAR+23
TXPEQLS SECTHDR+11, SECTHDR+12, SECTHDR+13, SECTHDR+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RPT2+28~, RPT2+58*
BDATE DATES~, DATES+2*, DATES+5*, DATES+6*, DATES+8, DATES+10*
DA RTYPE+6~
DEF RTYPE~, RTYPE+11
DIR DTRNG+1~, DATES+1~, DATES+4!, DATES+6!, DATES+9!, RTYPE+6~, RTYPE+13!
DIR("?" DATES+3*, DATES+7*, RTYPE+8*
DIR("A" DATES+4*, DATES+8*, RTYPE+10*
DIR("B" DATES+8*, RTYPE+11*
DIR(0 DATES+4*, DATES+8*, RTYPE+9*
DIROUT RTYPE+6~
DIRUT RTYPE+6~
DT DATES+4, DATES+8
DTOUT DATES+1~, DATES+5, DATES+10, RTYPE+6~, RTYPE+14
DUOUT DTRNG+1~, DATES+1~, DATES+5, DATES+10, RTYPE+6~, RTYPE+14
EDATE DATES~, DATES+2*, DATES+11*
FIELD OPTYPE~, OPTYPE+4, OPTYPE+8, OPTYPE+9, OPTYPE+10, OPTYPE+11, OPTYPE+17
IO RPT2+58
IOF HDRXAR+15
IOM HDRXAR+18, SECTHDR+17, CNTR+1
IOSL OPTYPE+17
N EQLSGNS~
POP RPT2+28~, RPT2+58
RCDATA RPTYPE+2~
RCDIERR RPT2+28~, RPT2+73, RPT2+78, RPT2+83, RPT2+87
RCEND DTRNG+1~, DTRNG+2*, DTRNG+4
RCEXCTYP HDRXAR~, HDRXAR+22, HDRXAR+23
RCFLDS RPT2+28~, RPT2+48*, RPT2+72, RPT2+77, RPT2+82, RPT2+86
RCFND RPT2+28~, RPT2+32*, OPTYPE+5*, OPTYPE+6, OPTYPE+13
RCHDR RPT2+28~
RCHDR("PAGE" RPT2+32*, HDRXAR+9, HDRXAR+12*, HDRXAR+14, HDRXAR+16*, HDRXAR+18
RCHDR("RUNDATE" RPT2+60*, HDRXAR+20
RCHDR("rprtTyp" RPT2+43*
RCIEN RPT2+28~, RPT2+32*, GETPAYER+1~, GETPAYER+2*, GETPAYER+3, GETPAYER+4, OPTYPE+14*, OPTYPE+15*, OPTYPE+16
RCMEN RPTYPE+2~, RPTYPE+4*, RPTYPE+6*, RPTYPE+13
RCPARAM RPT2+28~, RPTYPE~, RPTYPE+10, RPTYPE+11, RPTYPE+12, RPTYPE+13, RPTYPE+14
RCPAYR GETPAYER+1~, GETPAYER+4*, GETPAYER+5
RCREN RPTYPE+2~, RPTYPE+4*, RPTYPE+7*, RPTYPE+14
RCREPT SECTHDR~
RCRPT RPT2+28~
RCRPT("begDt" RPT2+46*, RPT2+53
RCRPT("dtRange" RPT2+44*, RPT2+45, RPT2+46, RPT2+47, HDRXAR+21
RCRPT("endDt" RPT2+47*, RPT2+53
RCRPT("excel" RPT2+32*, RPT2+55*, RPT2+56, RPT2+57, HDRXAR+8, SECTHDR+10, DSPXCLSN+9
RCSCR RPT2+28~, RPT2+53*, RPT2+64, RPT2+65, RPT2+66, RPT2+67
RCSCR( RPT2+64*, RPT2+65*, RPT2+66*, RPT2+67*, RPT2+72, RPT2+77, RPT2+82, RPT2+86
RCSCRTYP RPT2+28~
RCSTART DTRNG+1~, DTRNG+2*, DTRNG+3, DTRNG+4, DTRNG+5
RCSTOP RPT2+28~, RPT2+32*, RPT2+75, RPT2+80, RPT2+84, RPT2+88, RPT2+90, RPT2+94, RPT2+101, HDRXAR+14
, OPTYPE+14*, OPTYPE+15, OPTYPE+17
RCT RPT2+28~
RCT( RPT2Q+1, OPTYPE+5, OPTYPE+15, OPTYPE+16
RCT("MedDecr" RPT2+34*, RPT2+72
RCT("MedPost" RPT2+33*, RPT2+77
RCT("RxDecr" RPT2+36*, RPT2+86
RCT("RxPost" RPT2+35*, RPT2+82
RCTMP RPT2+28~, GETPAYER+2, OPTYPE+16*, OPTYPE+18
RCTYP HDRXAR~, HDRXAR+23
RCTYPE RPT2+28~, RPT2+41*, RPT2+42, RPT2+43, RPT2+90, RPT2+91, RPT2+92, RPT2+94, RPT2+95, RPT2+96
, SECTHDR~, SECTHDR+11, SECTHDR+12, SECTHDR+13, SECTHDR+14, RTYPE+6~, RTYPE+7*, RPTYPE~, RPTYPE+6, RPTYPE+7
, RPTYPE+9, RPTYPE+10, RPTYPE+11, RPTYPE+12, RPTYPE+13, RPTYPE+14, OPTYPE~, OPTYPE+4, OPTYPE+17
RCX DSPXCLSN~, DSPXCLSN+3, DSPXCLSN+4, DSPXCLSN+5, DSPXCLSN+7, DSPXCLSN+13
RCXCLSN DSPXCLSN+2~
RCXCLSN("CHANGE" DSPXCLSN+3*, DSPXCLSN+10, DSPXCLSN+14
RCXCLSN("COMMENT" DSPXCLSN+7*, DSPXCLSN+11, DSPXCLSN+14
RCXCLSN("LABEL" DSPXCLSN+13*, DSPXCLSN+14
RCXCLSN("PAYER" DSPXCLSN+6*, DSPXCLSN+10, DSPXCLSN+14
RCXCLSN("TIME" DSPXCLSN+4*, DSPXCLSN+10, DSPXCLSN+14
RCXCLSN("USER" DSPXCLSN+5*, DSPXCLSN+10, DSPXCLSN+14
RNGFLG DTRNG+1~
SUB OPTYPE~, OPTYPE+5, OPTYPE+15, OPTYPE+16
TXT ERR4USR~, ERR4USR+1, CNTR~, CNTR+1
U RPT2+46, RPT2+47, GETPAYER+2, HDRXAR+21, DSPXCLSN+3, DSPXCLSN+4, DSPXCLSN+5, DSPXCLSN+7, DSPXCLSN+13, DSPXCLSN+14
, RPTYPE+6, RPTYPE+7, OPTYPE+16
X RPT2+28~, RPT2Q+1*, DTRNG+1~, DATES+1~, DATES+6!, RTYPE+6~
X1 RPT2+28~
X2 RPT2+28~
Y RPT2+28~, TXPEQLS~, TXPEQLS+1, TXPEQLS+2, DTRNG+1~, DATES+1~, DATES+5, DATES+6!, DATES+10, DATES+11
, DSPXCLSN+10~*, DSPXCLSN+11, RTYPE+6~, RTYPE+15, RTYPE+16
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  | All