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

Package: Accounts Receivable

Routine: RCDPESP1


Information

RCDPESP1 ;BIRM/SAB - ePayment Lockbox Site Parameter Reports ;29 Jan 2019 18:00:14

Source Information

Source file <RCDPESP1.m>

Entry Points

Name Comments DBIA/ICR reference
RPT ; EDI Lockbox Parameters Report [RCDPE SITE PARAMETER REPORT]
; report data from:
; AR SITE PARAMETER file (#342)
; RCDPE PARAMETER file (#344.61)
; RCDPE AUTO-PAY EXCLUSION file (#344.6)
RPTQ ;
SPRPT ; site parameter report entry point
; Input: RCTYPE - Type of report (Medical/Rx/TRICARE/All)
; RCCATS - List of categories selected for report
; RCNTR - counter
; RCFLD - DD field number
; RCHDR - header information
; RCPARM - parameters
; RCSTOP - exit flag
SPHDR(HDR) ; HDR passed by ref.
; HDR("RUNDATE") - run date, external format
; HDR("PGNMBR") - page number
; HDR("SITE") - site name
AD2RPT(A) ; add line to report
HDRLN() ; Display report header line
CARCCHK(RCTYPE,PAID,TYPE) ; Checks to see if CARC parameters should appear on the report
; PRCA*4.5*349 - Reworte function
; Input: RCTYPE - User selected filter (M/P/T/A)
; PAID - 1 - Auto-Decrease for Claims w/Payments
; 0 - Auto-Decrease for Claims w/No Payments
; TYPE - Type currently being processed (M/P/T)
; Returns 1 - If Auto-Decreased is enabled for TYPE and it was in selected filter
; 0 - Otherwise
MEDAUTOP(RCPARM) ; Display Medical Auto-Post parameters - PRCA*4.5*349
; Input: RCPARM("AUTO-DECREASE") - 1 if Medical Auto-Posting is turned for claims w/Payments
; 0 otherwise
RXAUTOP(RCPARM) ; Display Pharmacy Auto-Post parameters - PRCA*4.5*349
; Input: RCPARM("RX AUTO-DECREASE") - 1 if Rx Auto-Posting is turned for claims w/Payments
; 0 otherwise
TRIAUTOP(RCPARM) ; Display TRICARE Auto-Post parameters - PRCA*4.5*349
; Input: RCPARM("TRI AUTO-DECREASE") - 1 if TRICARE Auto-Posting is turned for claims w/Payments
; 0 otherwise
AUTOP(RCPARM,WHICH) ; Display auto-post parameters - PCRA*4.5*349
; Input: RCPARM("AUTO-DECREASE") - 1 if Medical Auto-Posting is turned for claims w/Payments
; 0 otherwise
; RCPARM("RX AUTO-DECREASE") - 1 if Rx Auto-Posting is turned for claims w/Payments
; 0 otherwise
; RCPARM("TRI AUTO-DECREASE") - 1 if TRICARE Auto-Posting is turned for claims w/Payments
; 0 otherwise
; WHICH - 0 - Medical, 1 - Rx, 2 - TRICARE
; @RCGLB(344.6) - LIST^DIC array of fields
; @RCGLB(344.61) - LIST^DIC array of fields
MEDAUTOD(RCPARM,RCTYPE) ; Display auto-decrease parameters - PRCA*4.5*349
; Input: RCPARM("AUTO-DECREASE") - 1 if Medical Auto-Posting is turned for claims w/Payments
; 0 otherwise
; RCTYPE- Report type (M)edical, (P)harmacy, (T)RICARE or (A)ll
RXAUTOD(RCPARM,RCTYPE) ; Display auto-decrease parameters - PRCA*4.5*349
; Input: RCPARM("RX AUTO-DECREASE") - 1 if Rx Auto-Posting is turned for claims w/Payments
; 0 otherwise
; RCTYPE- Report type (M)edical, (P)harmacy, (T)RICARE or (A)ll
TRIAUTOD(RCPARM,RCTYPE) ; Display auto-decrease parameters - PRCA*4.5*349
; Input: RCPARM("TRI AUTO-DECREASE") - 1 if TRICARE Auto-Posting is turned for claims w/Payments
; 0 otherwise
; RCTYPE- Report type (M)edical, (P)harmacy, (T)RICARE or (A)ll
AUTOD(PAID,WHICH,RCGLB,RCTYPE) ; Display auto-decrease parameters - PRCA*4.5*345
; PRCA*4.5*349 - Added TRICARE
; Input: PAID - 1 - Claims with Payments parameters
; 0 - Claims with No Payments parameters
; RCGLB - Field value array from LIST^DIC call
; WHICH - 0 - Medical, 1 - Rx, 2 - TRICARE
; RCTYPE- Report type (M)edical, (P)harmacy, (T)RICARE or (A)ll
; RCPARM(344.61,0) - ^RCY(344.61,1,0)
; RCPARM(344.61,1) - ^RCY(344.61,1,1)
; Output: Auto-Decrease parameters are added to the report
OPPAYS(RCTYPE) ; Output list of excluded payers - Added for PRCA*4.5*345
; Input: RCTYPE - Type of list being displayed. Free text.
; RCPARM - array assumed to exist and contain AUTO-POST and AUTO-DECREASE flags for MED or PHARM
; RCGLB - array assumed to exist and contain output from GETS^DIQ for payer exclusions

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$HDRLN,!
  • Line Location: RPT+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: RPT+32
Function Call: WRITE
  • Prompt: !!,$S($G(ZTSK):"Task number "_ZTSK_" has been queued.",1:"Unable to queue this task.")
  • Line Location: RPT+39
Function Call: WRITE
  • Prompt: @IOF,Y
  • Line Location: SPHDR+9
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: SPHDR+11
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: SPHDR+21
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: SPHDR+25
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: SPHDR+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RC(342 - [#342] GET1^DID,  GETS^DIQ
^RCY(344.6 - [#344.6] LIST^DIC
^RCY(344.61 - [#344.61] GET1^DID,  GET1^DIQ,  GETS^DIQ
^RCY(344.62 - [#344.62] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call