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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call