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

Package Total Caller Graph
Accounts Receivable 5 RCDPE EXCLUSION AUDIT REPORT  RCDPE PARAMETER AUDIT REPORT  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)
; .13 = Auto-Posting exclusion (TRICARE)
; .14 = Auto-Decrease exclusion (TRICARE)
; RCEXCTYP - M - Medical, P - Pharmacy, T - TRICARE A - 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, T - TRICARE A - 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
; T - User selected TRICARE
; A - User selected ALL
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, T - Tricare, A - All

External References

Name Field # of Occurrence
^%ZIS RPT2+63
LIST^DIC RPT2+76, RPT2+82, RPT2+88, RPT2+93, RPT2+99, RPT2+104
$$GET1^DID DSPXCLSN+13
$$GET1^DIQ GETPAYER+4
^DIR DATES+5, DATES+11, RTYPE+14
$$ENDORPRT^RCDPEARL RPT2+124
ASK^RCDPEARL RPT2+79, RPT2+85, RPT2+90, RPT2+95, RPT2+101, RPT2+106, RPT2+125, HDRXAR+18
$$DISPTY^RCDPEM3 RPT2+60
INFO^RCDPEM6 RPT2+62
$$RTYPE^RCDPESPA RPT2+46
AUDPARM^RCDPESPA RPT1+1
$$FMTE^XLFDT RPT2+65, HDRXAR+25, DATES+10, DSPXCLSN+4
$$NOW^XLFDT RPT2+65

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," EDI Lockbox Exclusion Audit Report",!
  • Line Location: RPT2+24
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+78
Function Call: WRITE
  • Prompt: !!,"Error collecting Payer auto-decrease report data."
  • Line Location: RPT2+84
Function Call: WRITE
  • Prompt: !!,$$ENDORPRT^RCDPEARL
  • Line Location: RPT2+124
Function Call: WRITE
  • Prompt: !!,"TYPE^CHANGE^PAYER^TIMESTAMP^USER^COMMENT"
  • Line Location: HDRXAR+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRXAR+19
Function Call: WRITE
  • Prompt: $$CNTR("EDI Lockbox Exclusion Audit Report"),?IOM-8,"Page: "_RCHDR("PAGE")
  • Line Location: HDRXAR+22
Function Call: WRITE
  • Prompt: !,$$CNTR("DIVISIONS: ALL")
  • Line Location: HDRXAR+23
Function Call: WRITE
  • Prompt: !,$$CNTR("RUN DATE: "_$G(RCHDR("RUNDATE")))
  • Line Location: HDRXAR+24
Function Call: WRITE
  • Prompt: !,$$CNTR("DATE RANGE: "_XX)
  • Line Location: HDRXAR+26
Function Call: WRITE
  • Prompt: !,$$CNTR("REPORT TYPE: "_RCTYPED)
  • Line Location: HDRXAR+27
Function Call: WRITE
  • Prompt: !,"Change Payer Date/Time Edited User"
  • Line Location: SECTHDR+17
Function Call: WRITE
  • Prompt: !,$$EQLSGNS(IOM-1)
  • Line Location: SECTHDR+18
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: "Pharmacy Auto-Post"
  • Line Location: OPTYPE+12
Function Call: WRITE
  • Prompt: "Pharmacy Auto-Decrease"
  • Line Location: OPTYPE+13
Function Call: WRITE
  • Prompt: " Exclusions to Display",!
  • Line Location: OPTYPE+14
Routine Call
  • %ZIS
  • Line Location:
    • RPT2+63
Routine Call
  • DIC
  • Line Location:
    • RPT2+76
    • RPT2+82
    • RPT2+88
    • RPT2+93
    • RPT2+99
    • RPT2+104
Routine Call
  • DIR
  • Line Location:
    • DATES+5
    • DATES+11
    • RTYPE+14

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+35
^TMP("RC-MedPost" RPT2+33
^TMP("RC-RxDecr" RPT2+39
^TMP("RC-RxPost" RPT2+37
^TMP("RC-TriDecr" RPT2+43
^TMP("RC-TriPost" RPT2+41

Label References

Name Line Occurrences
$$CNTR HDRXAR+22, HDRXAR+23, HDRXAR+24, HDRXAR+26, HDRXAR+27
$$DTRNG RPT2+49
$$EQLSGNS SECTHDR+18, TXPEQLS+2
$$GETPAYER DSPXCLSN+6
DATES DTRNG+2
DSPXCLSN OPTYPE+20
ERR4USR RPT2+90, RPT2+95, RPT2+101, RPT2+106
HDRXAR OPTYPE+4, OPTYPE+19
OPTYPE RPT2+110, RPT2+111, RPT2+114, RPT2+115, RPT2+119, RPT2+120
RPT2Q RPT2+109, RPT2+113, RPT2+118
SECTHDR HDRXAR+28
TXPEQLS SECTHDR+10, SECTHDR+11, SECTHDR+12, SECTHDR+13, SECTHDR+14, SECTHDR+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RPT2+28~, RPT2+63*
BDATE DATES~, DATES+2*, DATES+7*, DATES+8*, DATES+10, DATES+13*
DA RTYPE+8~
DEF RTYPE~, RTYPE+13
DIR DTRNG+1~, DATES+1~, DATES+6!, DATES+8!, DATES+12!, RTYPE+8~, RTYPE+15!
DIR("?" DATES+3*, DATES+9*, RTYPE+10*
DIR("A" DATES+4*, DATES+10*, RTYPE+12*
DIR("B" DATES+10*, RTYPE+13*
DIR(0 DATES+4*, DATES+10*, RTYPE+11*
DIROUT DATES+1~, RTYPE+8~
DIRUT DATES+1~, RTYPE+8~
DT DATES+4, DATES+10
DTOUT DATES+1~, DATES+7, DATES+13, RTYPE+8~, RTYPE+16
DUOUT DTRNG+1~, DATES+1~, DATES+7, DATES+13, RTYPE+8~, RTYPE+16
EDATE DATES~, DATES+2*, DATES+14*
FIELD OPTYPE~, OPTYPE+4, OPTYPE+8, OPTYPE+9, OPTYPE+10, OPTYPE+11, OPTYPE+12, OPTYPE+13, OPTYPE+19
IO RPT2+63
IOF HDRXAR+19
IOM HDRXAR+22, SECTHDR+18, CNTR+1
IOSL OPTYPE+19
N EQLSGNS~
POP RPT2+28~, RPT2+63
RCDATA RPTYPE+2~
RCDIERR RPT2+26~, RPT2+77, RPT2+83, RPT2+89, RPT2+94, RPT2+100, RPT2+105
RCDIMED RPT2+26~
RCDIMEDD RPT2+26~
RCDIRX RPT2+26~
RCDIRXD RPT2+26~
RCDITR RPT2+26~
RCDITRD RPT2+26~
RCEND DTRNG+1~, DTRNG+2*, DTRNG+4
RCEXCTYP HDRXAR~, HDRXAR+11, HDRXAR+28
RCFLDS RPT2+26~, RPT2+53*, RPT2+76, RPT2+82, RPT2+88, RPT2+93, RPT2+99, RPT2+104
RCFND RPT2+26~, RPT2+32*, OPTYPE+5*, OPTYPE+6, OPTYPE+15
RCHDR RPT2+26~
RCHDR("PAGE" RPT2+32*, HDRXAR+13, HDRXAR+16*, HDRXAR+18, HDRXAR+20*, HDRXAR+22
RCHDR("RUNDATE" RPT2+65*, HDRXAR+24
RCHDR("rprtTyp" RPT2+48*
RCIEN RPT2+32*, GETPAYER+1~, GETPAYER+2*, GETPAYER+3, GETPAYER+4, OPTYPE+16*, OPTYPE+17*, OPTYPE+18
RCMEN RPTYPE+2~, RPTYPE+4*, RPTYPE+6*, RPTYPE+13
RCPARAM 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+26~
RCRPT("begDt" RPT2+51*, RPT2+58
RCRPT("dtRange" RPT2+49*, RPT2+50, RPT2+51, RPT2+52, HDRXAR+25
RCRPT("endDt" RPT2+52*, RPT2+58
RCRPT("excel" RPT2+32*, RPT2+60*, RPT2+61, RPT2+62, HDRXAR+12, SECTHDR+9, DSPXCLSN+9
RCSCR RPT2+27~, RPT2+58*, RPT2+69, RPT2+70, RPT2+71, RPT2+72, RPT2+73, RPT2+74
RCSCR( RPT2+69*, RPT2+70*, RPT2+71*, RPT2+72*, RPT2+73*, RPT2+74*, RPT2+76, RPT2+82, RPT2+88, RPT2+93
, RPT2+99, RPT2+104
RCSCRTYP RPT2+27~
RCSTART DTRNG+1~, DTRNG+2*, DTRNG+3, DTRNG+4, DTRNG+5
RCSTDT RPT2+27~
RCSTOP RPT2+27~, RPT2+32*, RPT2+79, RPT2+85, RPT2+90, RPT2+95, RPT2+101, RPT2+106, RPT2+109, RPT2+113
, RPT2+118, RPT2+125, HDRXAR+18, OPTYPE+16*, OPTYPE+17, OPTYPE+19
RCT RPT2+26~
RCT( RPT2Q+1, OPTYPE+5, OPTYPE+17, OPTYPE+18
RCT("MedDecr" RPT2+35*, RPT2+36, RPT2+76
RCT("MedPost" RPT2+33*, RPT2+34, RPT2+82
RCT("RxDecr" RPT2+39*, RPT2+40, RPT2+93
RCT("RxPost" RPT2+37*, RPT2+38, RPT2+88
RCT("TriDecr" RPT2+43*, RPT2+44, RPT2+104
RCT("TriPost" RPT2+41*, RPT2+42, RPT2+99
RCTMP RPT2+27~, GETPAYER+2, OPTYPE+18*, OPTYPE+20
RCTYP HDRXAR~, HDRXAR+28
RCTYPE RPT2+27~, RPT2+46*, RPT2+47, RPT2+48, RPT2+109, RPT2+110, RPT2+111, RPT2+113, RPT2+114, RPT2+115
, RPT2+118, RPT2+119, RPT2+120, SECTHDR~, SECTHDR+10, SECTHDR+11, SECTHDR+12, SECTHDR+13, SECTHDR+14, SECTHDR+15
, RTYPE+8~, RTYPE+9*, RPTYPE~, RPTYPE+6, RPTYPE+7, RPTYPE+9, RPTYPE+10, RPTYPE+11, RPTYPE+12, RPTYPE+13
, RPTYPE+14, OPTYPE~, OPTYPE+4, OPTYPE+19
RCTYPED HDRXAR+10~, HDRXAR+11*, HDRXAR+27
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+17, OPTYPE+18
TXT ERR4USR~, ERR4USR+1, CNTR~, CNTR+1
U RPT2+51, RPT2+52, GETPAYER+2, HDRXAR+25, DSPXCLSN+3, DSPXCLSN+4, DSPXCLSN+5, DSPXCLSN+7, DSPXCLSN+13, DSPXCLSN+14
, RPTYPE+6, RPTYPE+7, OPTYPE+18
X RPT2+28~, RPT2Q+1*, DTRNG+1~, DATES+1~, DATES+8!, RTYPE+8~
X1 RPT2+28~
X2 RPT2+28~
XX HDRXAR+10~, HDRXAR+25*, HDRXAR+26
Y RPT2+28~, TXPEQLS~, TXPEQLS+1, TXPEQLS+2, DTRNG+1~, DATES+1~, DATES+7, DATES+8!, DATES+13, DATES+14
, DSPXCLSN+10~*, DSPXCLSN+11, RTYPE+8~, RTYPE+17, RTYPE+18
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