RCDPESP1 ;BIRM/SAB - ePayment Lockbox Site Parameter Reports ;29 Jan 2019 18:00:14
Source file <RCDPESP1.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 5 | GETCODES^RCDPCRR ($$ASKLM,$$ENDORPRT,ASK,LMRPT)^RCDPEARL $$RTYPE^RCDPESP2 ($$AUTOPON,$$CATS,LMHDR,LSTCATS,MPARAMS,RXPARAMS,SPRPT,TPARAMS)^RCDPESPC $$ACT^RCDPRU |
Kernel | 4 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE,$$NOW)^XLFDT |
VA FileMan | 3 | LIST^DIC $$GET1^DID ($$GET1,GETS)^DIQ |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Accounts Receivable | 2 | RCDPE SITE PARAMETER REPORT RCDPESPC |
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 | Field # of Occurrence |
---|---|
^%ZIS | RPT+33 |
HOME^%ZIS | RPT+40 |
^%ZISC | SPRPT+107 |
^%ZTLOAD | RPT+38 |
LIST^DIC | AUTOP+13, MEDAUTOD+9, RXAUTOD+9, TRIAUTOD+9 |
$$GET1^DID | SPRPT+38, SPRPT+52, SPRPT+85, AUTOP+14, AUTOD+23, AUTOD+88 |
$$GET1^DIQ | AUTOD+34, AUTOD+41, AUTOD+42, AUTOD+44, AUTOD+69, AUTOD+79 |
GETS^DIQ | SPRPT+26, SPRPT+50 |
GETCODES^RCDPCRR | AUTOD+73 |
$$ASKLM^RCDPEARL | RPT+18 |
$$ENDORPRT^RCDPEARL | SPRPT+88 |
ASK^RCDPEARL | SPRPT+99, SPRPT+104 |
LMRPT^RCDPEARL | RPT+29 |
$$RTYPE^RCDPESP2 | RPT+15 |
$$AUTOPON^RCDPESPC | AUTOD+14 |
$$CATS^RCDPESPC | RPT+11 |
LMHDR^RCDPESPC | RPT+27 |
LSTCATS^RCDPESPC | SPHDR+16 |
MPARAMS^RCDPESPC | SPRPT+69 |
RXPARAMS^RCDPESPC | SPRPT+71 |
SPRPT^RCDPESPC | RPT+26, RPT+44 |
TPARAMS^RCDPESPC | SPRPT+73 |
$$ACT^RCDPRU | AUTOD+80 |
$$DT^XLFDT | AUTOD+73 |
$$FMTE^XLFDT | SPRPT+22 |
$$NOW^XLFDT | SPRPT+22 |
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 |
|
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+64, AUTOD+65 |
^RCY(344.61 - [#344.61] | SPRPT+57, SPRPT+58, CARCCHK+12, CARCCHK+14, CARCCHK+18, CARCCHK+23, CARCCHK+25 |
^RCY(344.62 - [#344.62] | AUTOD+62, AUTOD+63 |
^TMP($J | RPT+22!, RPT+29, RPT+30!, SPRPT+12!, SPRPT+19, SPRPT+96, SPRPT+97, SPRPT+109!, AD2RPT+2*, AD2RPT+4* , AD2RPT+5* |
Name | Line Occurrences |
---|---|
$$CARCCHK | AUTOD+50 |
$$HDRLN | RPT+13, RPT+37, SPHDR+7 |
AD2RPT | SPRPT+31, SPRPT+33, SPRPT+39, SPRPT+40, SPRPT+41, SPRPT+42, SPRPT+44, SPRPT+53, SPRPT+54, SPRPT+80 , SPRPT+86, SPRPT+88, AUTOP+17, AUTOP+21, MEDAUTOD+10, MEDAUTOD+15, RXAUTOD+11, TRIAUTOD+18, AUTOD+18, AUTOD+26 , AUTOD+32, AUTOD+45, AUTOD+51, AUTOD+55, AUTOD+56, AUTOD+58, AUTOD+59, AUTOD+81, AUTOD+82, AUTOD+90 , OPPAYS+6, OPPAYS+8, OPPAYS+14, OPPAYS+17 |
AUTOD | MEDAUTOD+12, MEDAUTOD+14, RXAUTOD+10, TRIAUTOD+13, TRIAUTOD+15 |
AUTOP | MEDAUTOP+3, RXAUTOP+3, TRIAUTOP+3 |
OPPAYS | AUTOP+20, AUTOD+31 |
RPTQ | RPT+12, RPT+16, RPT+20 |
SPHDR | SPRPT+94, SPRPT+100, SPRPT+102 |
SPRPT | RPT+24, RPT+43 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | RPT+10~, RPT+33* |
A | AD2RPT~, AD2RPT+1, AD2RPT+4, AD2RPT+5 |
C | AD2RPT+2~*, AD2RPT+4, AD2RPT+5 |
CNT | SPHDR+15*, SPHDR+18, SPHDR+24, AUTOD+12~, AUTOD+48*, AUTOD+71*, AUTOD+82 |
CTLST | SPHDR+4~, SPHDR+16 |
CTLST( | SPHDR+19 |
CTLST("AL" | SPHDR+17* |
CUR | SPHDR+4~, SPHDR+15* |
FIELD | AUTOD+12~, AUTOD+20*, AUTOD+21*, AUTOD+22*, AUTOD+23, AUTOD+25, AUTOD+34, AUTOD+66*, AUTOD+67*, AUTOD+68* , AUTOD+69, AUTOD+76*, AUTOD+77*, AUTOD+78*, AUTOD+79, AUTOD+85*, AUTOD+86*, AUTOD+87*, AUTOD+88, AUTOD+89 |
FLDS | SPRPT+8~, AUTOP+10~, AUTOP+11*, AUTOP+13, MEDAUTOD+8*, MEDAUTOD+9, RXAUTOD+4~, TRIAUTOD+4~, TRIAUTOD+8*, TRIAUTOD+9 |
FLDSS | MEDAUTOD+4~ |
HDR | SPHDR~ |
HDR("PGNMBR" | SPHDR+5*, SPHDR+8 |
HDR("RUNDATE" | SPHDR+10 |
HDR("SITE" | SPHDR+10 |
I | SPHDR+4~, SPHDR+18*, SPHDR+19, SPHDR+24 |
IO | SPRPT+93 |
IO("Q" | RPT+34, RPT+40! |
IO(0 | SPRPT+107 |
IOF | SPHDR+9 |
IOM | SPHDR+8, SPHDR+10, SPHDR+20, SPHDR+26, OPPAYS+17 |
IOSL | SPRPT+98, SPRPT+101 |
IOST | SPRPT+98, SPRPT+104 |
J | SPRPT+8~, SPRPT+18*, SPRPT+19, SPRPT+20, SPRPT+95*, SPRPT+96*, SPRPT+97 |
ONOFF | AUTOD+12~, AUTOD+14*, AUTOD+15 |
P | SPHDR+4~, SPHDR+5*, SPHDR+8* |
PAID | CARCCHK~, CARCCHK+11, CARCCHK+13, CARCCHK+22, CARCCHK+24, AUTOD~, AUTOD+20, AUTOD+22, AUTOD+30, AUTOD+41 , AUTOD+44, AUTOD+50, AUTOD+52, AUTOD+66, AUTOD+68, AUTOD+76, AUTOD+78, AUTOD+82, AUTOD+85, AUTOD+87 |
POP | RPT+10~, RPT+33 |
RCACTV | SPRPT+8~ |
RCCARCD | SPRPT+8~ |
RCCATS | RPT+10~, RPT+11*, RPT+12, RPT+23, RPT+27, RPT+37, RPT+43, SPHDR+15, SPHDR+19 |
RCCIEN | SPRPT+8~, AUTOD+64*, AUTOD+65 |
RCCODE | SPRPT+8~, AUTOD+12~, AUTOD+62*, AUTOD+63, AUTOD+64, AUTOD+73, AUTOD+74, AUTOD+80 |
RCDATA | SPRPT+8~ |
RCDESC | SPRPT+8~, AUTOD+65*, AUTOD+72*, AUTOD+74, AUTOD+75 |
RCFLD | SPRPT+8~, SPRPT+32*, SPRPT+33, SPRPT+34, SPRPT+35, SPRPT+36, SPRPT+37, SPRPT+38, SPRPT+39, SPRPT+40 , SPRPT+41, SPRPT+81*, SPRPT+82, SPRPT+83, SPRPT+84, SPRPT+85 |
RCGLB | SPRPT+8~, MEDAUTOD+12, MEDAUTOD+14, RXAUTOD+10, TRIAUTOD+13, TRIAUTOD+15, AUTOD~ |
RCGLB( | SPRPT+19*, SPRPT+20, SPRPT+50, SPRPT+52, SPRPT+85, SPRPT+108, AUTOP+13, AUTOP+16, AUTOP+23, MEDAUTOD+9 , RXAUTOD+7, RXAUTOD+9, TRIAUTOD+9, AUTOD+25, AUTOD+89, OPPAYS+7, OPPAYS+15, OPPAYS+16 |
RCGLB(342 | SPRPT+26, SPRPT+28, SPRPT+38 |
RCHDR | RPT+10~, RPT+27, RPT+29, SPRPT+8~, SPRPT+94, SPRPT+100, SPRPT+102 |
RCHDR("PGNMBR" | SPRPT+23* |
RCHDR("RUNDATE" | SPRPT+22* |
RCHDR("SITE" | SPRPT+28* |
RCI | SPRPT+8~, AUTOD+12~, AUTOD+57*, AUTOD+63*, AUTOD+69, AUTOD+79 |
RCITEM | SPRPT+8~, SPRPT+34*, SPRPT+38 |
RCLSTMGR | RPT+10~, RPT+18*, RPT+19, RPT+20, SPRPT+90, AD2RPT+4 |
RCMEN | CARCCHK+8~ |
RCNTR | SPRPT+9~, AUTOP+10~, OPPAYS+15*, OPPAYS+16 |
RCPARM | SPRPT+9~, SPRPT+69, SPRPT+71, SPRPT+73, MEDAUTOP~, MEDAUTOP+3, RXAUTOP~, RXAUTOP+3, TRIAUTOP~, TRIAUTOP+3 , AUTOP~, MEDAUTOD~, RXAUTOD~, TRIAUTOD~ |
RCPARM( | SPRPT+61*, SPRPT+62*, AUTOP+19 |
RCPARM("AUTO-DECREASE" | SPRPT+60*, AUTOD+27 |
RCPARM("AUTO-POST" | SPRPT+59*, AUTOD+27 |
RCPARM("RX AU | TO-DECREASE" , SPRPT+64*, AUTOD+28, TO-POST" , SPRPT+63*, AUTOD+28 |
RCPARM("TRI A | UTO-DECREASE" , SPRPT+66*, AUTOD+29, UTO-POST" , SPRPT+65*, AUTOD+29 |
RCREN | CARCCHK+8~ |
RCSTAT | SPRPT+9~, AUTOD+69*, AUTOD+70 |
RCSTOP | SPRPT+9~, SPRPT+92*, SPRPT+96, SPRPT+99, SPRPT+100, SPRPT+101, SPRPT+104 |
RCSTRING | SPRPT+9~, AUTOD+57*, AUTOD+59 |
RCTEMP | RPT+10~, RPT+28*, RPT+29 |
RCTMPND | RPT+10~, RPT+21*, RPT+22, RPT+29, RPT+30 |
RCTYPE | RPT+10~, RPT+15*, RPT+16, RPT+27, SPRPT+35, SPRPT+36, SPRPT+37, SPRPT+40, SPRPT+41, SPRPT+69 , SPRPT+71, SPRPT+73, SPRPT+82, SPRPT+83, SPRPT+84, HDRLN+2, CARCCHK~, CARCCHK+10, CARCCHK+17, CARCCHK+21 , MEDAUTOD~, MEDAUTOD+5, MEDAUTOD+12, MEDAUTOD+14, RXAUTOD~, RXAUTOD+5, RXAUTOD+10, TRIAUTOD~, TRIAUTOD+5, TRIAUTOD+13 , TRIAUTOD+15, AUTOD~, AUTOD+50, OPPAYS~, OPPAYS+8, OPPAYS+10, OPPAYS+12 |
SCRN | AUTOP+10~, AUTOP+12*, AUTOP+13 |
TYPE | CARCCHK~, CARCCHK+9, CARCCHK+16, CARCCHK+20 |
U | SPRPT+59, SPRPT+60, SPRPT+63, SPRPT+64, SPRPT+65, SPRPT+66, SPHDR+15, SPHDR+19, CARCCHK+12, CARCCHK+14 , CARCCHK+18, CARCCHK+23, CARCCHK+25, OPPAYS+16, OPPAYS+17 |
V | SPRPT+9~, AUTOP+10~, AUTOP+15*, OPPAYS+16*, OPPAYS+17 |
WHICH | AUTOP~, AUTOP+11, AUTOP+12, AUTOP+14, AUTOP+15, AUTOP+16, AUTOP+19, AUTOP+20, AUTOD~, AUTOD+14 , AUTOD+17, AUTOD+20, AUTOD+21, AUTOD+27, AUTOD+28, AUTOD+29, AUTOD+31, AUTOD+37, AUTOD+40, AUTOD+42 , AUTOD+43, AUTOD+50, AUTOD+53, AUTOD+66, AUTOD+67, AUTOD+68, AUTOD+76, AUTOD+77, AUTOD+78, AUTOD+85 , AUTOD+86, AUTOD+87 |
WNAME | AUTOD+16~, AUTOD+17*, AUTOD+18 |
X | SPRPT+9~, SPRPT+11*, SPRPT+12*, SPRPT+57*, SPRPT+59, SPRPT+60, SPRPT+61, SPRPT+109*, SPHDR+4~, SPHDR+7* , SPHDR+8, SPHDR+10*, SPHDR+19*, SPHDR+20, SPHDR+23, AUTOP+10~, AUTOP+14*, AUTOP+15*, AUTOP+16, AUTOD+12~ , AUTOD+23*, AUTOD+24*, AUTOD+25, AUTOD+52*, AUTOD+53*, AUTOD+54*, AUTOD+55, AUTOD+88*, AUTOD+89, OPPAYS+5~ , OPPAYS+8*, OPPAYS+13*, OPPAYS+14, OPPAYS+16*, OPPAYS+17 |
XX | SPRPT+9~, SPRPT+58*, SPRPT+62, SPRPT+63, SPRPT+64, SPRPT+65, SPRPT+66, HDRLN+1~, HDRLN+3*, HDRLN+4 , CARCCHK+8~, CARCCHK+9, CARCCHK+10*, CARCCHK+12*, CARCCHK+14*, CARCCHK+16, CARCCHK+17*, CARCCHK+18*, CARCCHK+20, CARCCHK+21* , CARCCHK+23*, CARCCHK+25*, AUTOD+12~, AUTOD+27*, AUTOD+28*, AUTOD+29*, AUTOD+30, AUTOD+37*, AUTOD+38, AUTOD+39* , AUTOD+41*, AUTOD+42*, AUTOD+44*, AUTOD+45, OPPAYS+5~, OPPAYS+10*, OPPAYS+11*, OPPAYS+12*, OPPAYS+13 |
Y | SPRPT+9~, SPRPT+38*, SPRPT+42, SPRPT+48*, SPRPT+49*, SPRPT+50, SPRPT+52*, SPRPT+54, SPRPT+85*, SPRPT+86 , SPRPT+96*, SPRPT+97, SPHDR+4~, SPHDR+8*, SPHDR+9, SPHDR+10*, SPHDR+11, SPHDR+14*, SPHDR+20, SPHDR+21 , SPHDR+22*, SPHDR+23*, SPHDR+24*, SPHDR+25, SPHDR+26*, SPHDR+27, AUTOP+10~, AUTOP+16*, AUTOP+17, AUTOD+12~ , AUTOD+25*, AUTOD+26, AUTOD+74*, AUTOD+75*, AUTOD+79*, AUTOD+80*, AUTOD+81, AUTOD+89*, AUTOD+90, OPPAYS+17* |
YY | SPRPT+9~, HDRLN+1~, HDRLN+2*, HDRLN+3, AUTOD+12~, AUTOD+27*, AUTOD+28*, AUTOD+29*, AUTOD+30, AUTOD+38* , AUTOD+41, AUTOD+42, AUTOD+44 |
ZTDESC | RPT+35~, RPT+37* |
ZTQUEUED | RPT+35~ |
ZTRTN | RPT+35~, RPT+37* |
ZTSAVE | RPT+35~ |
ZTSAVE("RC*" | RPT+37* |
ZTSK | RPT+35~, RPT+39, SPRPT+98, SPRPT+104 |