RCDPESP1 ;BIRM/SAB - ePayment Lockbox Site Parameter Reports ;29 Jan 2019 18:00:14
Source file <RCDPESP1.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |