RCDPESP1 ;BIRM/SAB,hrubovcak - 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
; 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() | ||
CARCCHK(RCTYPE,TYPE) | ;Boolean function, are the CARC parameters to appear on the report?
; Returns 1 if valid to print, 0 otherwise |
|
AUTOD(PAID,RCGBL,RCTYPE,WHICH) | ; Display auto-decrease parameters - PRCA*4.5*345
; INPUT PAID - 1 = paid line parameters 0 = no-payment line parameters ; RCGBL - field value array from LIST^DIC call ; RCTYPE - report type (P)harmacy, (M)edical ; WHICH - Printing auto-decrease info for 0 - Medical, 1 - Pharmacy ; OUTPUT Lists parameters |
|
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 | Field # of Occurrence |
---|---|
^%ZIS | RPT+14 |
HOME^%ZIS | RPT+20 |
^%ZISC | SPRPT+121 |
^%ZTLOAD | RPT+18 |
LIST^DIC | SPRPT+51, SPRPT+65, SPRPT+84, SPRPT+96 |
$$GET1^DID | SPRPT+29, SPRPT+41, SPRPT+56, SPRPT+89, SPRPT+106, AUTOD+11, AUTOD+59 |
$$GET1^DIQ | AUTOD+19, AUTOD+21, AUTOD+22, AUTOD+39, AUTOD+44, AUTOD+51 |
GETS^DIQ | SPRPT+20, SPRPT+39 |
GETCODES^RCDPCRR | AUTOD+47 |
$$ENDORPRT^RCDPEARL | SPRPT+109 |
ASK^RCDPEARL | SPRPT+114, SPRPT+118 |
$$RTYPE^RCDPESP2 | RPT+12 |
$$ACT^RCDPRU | AUTOD+52 |
$$DT^XLFDT | AUTOD+47 |
$$FMTE^XLFDT | SPRPT+16 |
$$NOW^XLFDT | SPRPT+16 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine 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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RC(345 - [#345] | AUTOD+40, AUTOD+41 |
^RCY(344.61 - [#344.61] | SPRPT+45, SPRPT+77, CARCCHK+2, CARCCHK+3, CARCCHK+5, CARCCHK+7 |
^RCY(344.62 - [#344.62] | AUTOD+38 |
^TMP($J | SPRPT+8!, SPRPT+14, SPRPT+112, SPRPT+113, SPRPT+123!, AD2RPT+2*, AD2RPT+3* |
Name | Line Occurrences |
---|---|
$$CARCCHK | AUTOD+26 |
$$HDRLN | RPT+10, RPT+17, SPHDR+7 |
AD2RPT | SPRPT+30, SPRPT+31, SPRPT+32, SPRPT+34, SPRPT+42, SPRPT+58, SPRPT+61, SPRPT+67, SPRPT+72, SPRPT+75 , SPRPT+91, SPRPT+98, SPRPT+107, SPRPT+109, AUTOD+14, AUTOD+17, AUTOD+21, AUTOD+22, AUTOD+27, AUTOD+31 , AUTOD+32, AUTOD+34, AUTOD+35, AUTOD+53, AUTOD+54, AUTOD+61, OPPAYS+8, OPPAYS+14, OPPAYS+17 |
AUTOD | SPRPT+69, SPRPT+71, SPRPT+97 |
OPPAYS | SPRPT+59, SPRPT+92, AUTOD+16 |
RPTQ | RPT+12 |
SPHDR | SPRPT+111, SPRPT+114, SPRPT+116 |
SPRPT | RPT+22 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | RPT+14~* |
A | AD2RPT~, AD2RPT+1, AD2RPT+3 |
C | AD2RPT+2~*, AD2RPT+3 |
CNT | AUTOD+7~, AUTOD+24*, AUTOD+45*, AUTOD+54 |
FIELD | AUTOD+7~, AUTOD+9*, AUTOD+10*, AUTOD+11, AUTOD+13, AUTOD+19, AUTOD+42*, AUTOD+43*, AUTOD+44, AUTOD+49* , AUTOD+50*, AUTOD+51, AUTOD+57*, AUTOD+58*, AUTOD+59, AUTOD+60 |
HDR | SPHDR~ |
HDR("PGNMBR" | SPHDR+5*, SPHDR+8 |
HDR("RUNDATE" | SPHDR+10 |
HDR("SITE" | SPHDR+10 |
IO | SPRPT+111 |
IO("Q" | RPT+15, RPT+20! |
IO(0 | SPRPT+121 |
IOF | SPHDR+9 |
IOM | SPHDR+8, SPHDR+10, SPHDR+12, OPPAYS+17 |
IOSL | SPRPT+114, SPRPT+115 |
IOST | SPRPT+114, SPRPT+118 |
J | SPRPT+6~, SPRPT+14*, SPRPT+112*, SPRPT+113 |
P | SPHDR+4~, SPHDR+5*, SPHDR+8* |
PAID | AUTOD~, AUTOD+9, AUTOD+15, AUTOD+21, AUTOD+28, AUTOD+42, AUTOD+49, AUTOD+54, AUTOD+57 |
POP | RPT+14~ |
RCACTV | SPRPT+6~ |
RCCARCD | SPRPT+6~ |
RCCIEN | SPRPT+6~, AUTOD+40*, AUTOD+41 |
RCCODE | SPRPT+6~, AUTOD+39*, AUTOD+40, AUTOD+47, AUTOD+48, AUTOD+52 |
RCDATA | SPRPT+6~ |
RCDESC | SPRPT+6~, AUTOD+41*, AUTOD+46*, AUTOD+48 |
RCFLD | SPRPT+6~, SPRPT+25*, SPRPT+26, SPRPT+27, SPRPT+28, SPRPT+29, SPRPT+30, SPRPT+31, SPRPT+103*, SPRPT+104 , SPRPT+105, SPRPT+106 |
RCGBL | SPRPT+69, SPRPT+71, SPRPT+97, AUTOD~ |
RCGLB | SPRPT+6~ |
RCGLB( | SPRPT+14*, SPRPT+39, SPRPT+41, SPRPT+51, SPRPT+57, SPRPT+62, SPRPT+65, SPRPT+81, SPRPT+84, SPRPT+90 , SPRPT+94, SPRPT+96, SPRPT+106, SPRPT+122, AUTOD+13, AUTOD+60, OPPAYS+7, OPPAYS+15, OPPAYS+16 |
RCGLB(342 | SPRPT+20, SPRPT+22, SPRPT+29 |
RCHDR | SPRPT+6~, SPRPT+111, SPRPT+114, SPRPT+116 |
RCHDR("PGNMBR" | SPRPT+17* |
RCHDR("RUNDATE" | SPRPT+16* |
RCHDR("SITE" | SPRPT+22* |
RCI | SPRPT+6~, AUTOD+33*, AUTOD+38*, AUTOD+39, AUTOD+44, AUTOD+51 |
RCITEM | SPRPT+6~, SPRPT+26*, SPRPT+29 |
RCNTR | SPRPT+6~, OPPAYS+15*, OPPAYS+16 |
RCPARM | SPRPT+6~ |
RCPARM( | SPRPT+47* |
RCPARM("AUTO-DECREASE" | SPRPT+47*, SPRPT+79*, OPPAYS+6 |
RCPARM("AUTO-POST" | SPRPT+46*, SPRPT+61, SPRPT+78*, OPPAYS+6 |
RCSTAT | SPRPT+6~, AUTOD+44* |
RCSTOP | SPRPT+6~, SPRPT+111*, SPRPT+112, SPRPT+114, SPRPT+115, SPRPT+118 |
RCSTRING | SPRPT+6~, AUTOD+33*, AUTOD+35 |
RCTYPE | RPT+9~, RPT+12*, SPRPT+27, SPRPT+28, SPRPT+31, SPRPT+54, SPRPT+69, SPRPT+71, SPRPT+87, SPRPT+97 , SPRPT+104, SPRPT+105, HDRLN, CARCCHK~, CARCCHK+2, CARCCHK+3, CARCCHK+5, CARCCHK+7, AUTOD~, AUTOD+26 , OPPAYS~, OPPAYS+8, OPPAYS+10, OPPAYS+12 |
TYPE | CARCCHK~, CARCCHK+2, CARCCHK+3 |
U | SPRPT+46, SPRPT+47, SPRPT+78, SPRPT+79, CARCCHK+2, CARCCHK+3, CARCCHK+5, CARCCHK+7, OPPAYS+16, OPPAYS+17 |
V | SPRPT+6~, SPRPT+56*, SPRPT+89*, OPPAYS+16*, OPPAYS+17 |
WHICH | AUTOD~, AUTOD+9, AUTOD+10, AUTOD+16, AUTOD+21, AUTOD+22, AUTOD+26, AUTOD+29, AUTOD+42, AUTOD+43 , AUTOD+49, AUTOD+50, AUTOD+57, AUTOD+58 |
X | SPRPT+6~, SPRPT+8*, SPRPT+45*, SPRPT+46, SPRPT+47, SPRPT+56*, SPRPT+57, SPRPT+77*, SPRPT+78, SPRPT+79 , SPRPT+89*, SPRPT+90, SPRPT+123*, SPHDR+4~, SPHDR+7*, SPHDR+8, SPHDR+10*, AUTOD+7~, AUTOD+11*, AUTOD+12* , AUTOD+13, AUTOD+28*, AUTOD+29*, AUTOD+30*, AUTOD+31, AUTOD+59*, AUTOD+60, OPPAYS+5~, OPPAYS+8*, OPPAYS+13* , OPPAYS+14, OPPAYS+16*, OPPAYS+17 |
XX | OPPAYS+5~, OPPAYS+10*, OPPAYS+11*, OPPAYS+12*, OPPAYS+13 |
Y | SPRPT+6~, SPRPT+29*, SPRPT+32, SPRPT+38*, SPRPT+39, SPRPT+41*, SPRPT+42, SPRPT+57*, SPRPT+58, SPRPT+90* , SPRPT+91, SPRPT+106*, SPRPT+107, SPRPT+112*, SPRPT+113, SPHDR+4~, SPHDR+8*, SPHDR+9, SPHDR+10*, SPHDR+11 , SPHDR+12*, SPHDR+13, AUTOD+7~, AUTOD+13*, AUTOD+14, AUTOD+48*, AUTOD+51*, AUTOD+52*, AUTOD+53, AUTOD+60* , AUTOD+61, OPPAYS+17* |
ZTDESC | RPT+16~, RPT+17* |
ZTQUEUED | RPT+16~ |
ZTRTN | RPT+16~, RPT+17* |
ZTSAVE | RPT+16~ |
ZTSAVE("RC*" | RPT+17* |
ZTSK | RPT+16~, RPT+19, SPRPT+114, SPRPT+118 |