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,ZPARAMS)^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+109 |
| ^%ZTLOAD | RPT+38 |
| LIST^DIC | AUTOP+13, MEDAUTOD+9, RXAUTOD+9, TRIAUTOD+9 |
| $$GET1^DID | SPRPT+38, SPRPT+52, SPRPT+87, AUTOP+14, AUTOD+24, AUTOD+89 |
| $$GET1^DIQ | AUTOD+35, AUTOD+42, AUTOD+43, AUTOD+45, AUTOD+70, AUTOD+80 |
| GETS^DIQ | SPRPT+26, SPRPT+50 |
| GETCODES^RCDPCRR | AUTOD+74 |
| $$ASKLM^RCDPEARL | RPT+18 |
| $$ENDORPRT^RCDPEARL | SPRPT+90 |
| ASK^RCDPEARL | SPRPT+101, SPRPT+106 |
| 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 |
| ZPARAMS^RCDPESPC | SPRPT+76 |
| $$ACT^RCDPRU | AUTOD+81 |
| $$DT^XLFDT | AUTOD+74 |
| $$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+65, AUTOD+66 |
| ^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+63, AUTOD+64 |
| ^TMP($J | RPT+22!, RPT+29, RPT+30!, SPRPT+12!, SPRPT+19, SPRPT+98, SPRPT+99, SPRPT+111!, AD2RPT+2*, AD2RPT+4* , AD2RPT+5* |
| Name | Line Occurrences |
|---|---|
| $$CARCCHK | AUTOD+51 |
| $$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+82 , SPRPT+88, SPRPT+90, AUTOP+17, AUTOP+21, MEDAUTOD+10, MEDAUTOD+15, RXAUTOD+11, TRIAUTOD+18, AUTOD+19, AUTOD+27 , AUTOD+33, AUTOD+46, AUTOD+52, AUTOD+56, AUTOD+57, AUTOD+59, AUTOD+60, AUTOD+82, AUTOD+83, AUTOD+91 , 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+32 |
| RPTQ | RPT+12, RPT+16, RPT+20 |
| SPHDR | SPRPT+96, SPRPT+102, SPRPT+104 |
| 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+49*, AUTOD+72*, AUTOD+83 |
| CTLST | SPHDR+4~, SPHDR+16 |
| CTLST( | SPHDR+19 |
| CTLST("AL" | SPHDR+17* |
| CUR | SPHDR+4~, SPHDR+15* |
| FIELD | AUTOD+12~, AUTOD+21*, AUTOD+22*, AUTOD+23*, AUTOD+24, AUTOD+26, AUTOD+35, AUTOD+67*, AUTOD+68*, AUTOD+69* , AUTOD+70, AUTOD+77*, AUTOD+78*, AUTOD+79*, AUTOD+80, AUTOD+86*, AUTOD+87*, AUTOD+88*, AUTOD+89, AUTOD+90 |
| 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+95 |
| IO("Q" | RPT+34, RPT+40! |
| IO(0 | SPRPT+109 |
| IOF | SPHDR+9 |
| IOM | SPHDR+8, SPHDR+10, SPHDR+20, SPHDR+26, OPPAYS+17 |
| IOSL | SPRPT+100, SPRPT+103 |
| IOST | SPRPT+100, SPRPT+106 |
| J | SPRPT+8~, SPRPT+18*, SPRPT+19, SPRPT+20, SPRPT+97*, SPRPT+98*, SPRPT+99 |
| 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+16, AUTOD+21, AUTOD+23, AUTOD+31 , AUTOD+42, AUTOD+45, AUTOD+51, AUTOD+53, AUTOD+67, AUTOD+69, AUTOD+77, AUTOD+79, AUTOD+83, AUTOD+86 , AUTOD+88 |
| 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+65*, AUTOD+66 |
| RCCODE | SPRPT+8~, AUTOD+12~, AUTOD+63*, AUTOD+64, AUTOD+65, AUTOD+74, AUTOD+75, AUTOD+81 |
| RCDATA | SPRPT+8~ |
| RCDESC | SPRPT+8~, AUTOD+66*, AUTOD+73*, AUTOD+75, AUTOD+76 |
| RCFLD | SPRPT+8~, SPRPT+32*, SPRPT+33, SPRPT+34, SPRPT+35, SPRPT+36, SPRPT+37, SPRPT+38, SPRPT+39, SPRPT+40 , SPRPT+41, SPRPT+83*, SPRPT+84, SPRPT+85, SPRPT+86, SPRPT+87 |
| RCGLB | SPRPT+8~, MEDAUTOD+12, MEDAUTOD+14, RXAUTOD+10, TRIAUTOD+13, TRIAUTOD+15, AUTOD~ |
| RCGLB( | SPRPT+19*, SPRPT+20, SPRPT+50, SPRPT+52, SPRPT+87, SPRPT+110, AUTOP+13, AUTOP+16, AUTOP+23, MEDAUTOD+9 , RXAUTOD+7, RXAUTOD+9, TRIAUTOD+9, AUTOD+26, AUTOD+90, OPPAYS+7, OPPAYS+15, OPPAYS+16 |
| RCGLB(342 | SPRPT+26, SPRPT+28, SPRPT+38 |
| RCHDR | RPT+10~, RPT+27, RPT+29, SPRPT+8~, SPRPT+96, SPRPT+102, SPRPT+104 |
| RCHDR("PGNMBR" | SPRPT+23* |
| RCHDR("RUNDATE" | SPRPT+22* |
| RCHDR("SITE" | SPRPT+28* |
| RCI | SPRPT+8~, AUTOD+12~, AUTOD+58*, AUTOD+64*, AUTOD+70, AUTOD+80 |
| RCITEM | SPRPT+8~, SPRPT+34*, SPRPT+38 |
| RCLSTMGR | RPT+10~, RPT+18*, RPT+19, RPT+20, SPRPT+92, 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+28 |
| RCPARM("AUTO-POST" | SPRPT+59*, AUTOD+28 |
| RCPARM("RX AU | TO-DECREASE" , SPRPT+64*, AUTOD+29, TO-POST" , SPRPT+63*, AUTOD+29 |
| RCPARM("TRI A | UTO-DECREASE" , SPRPT+66*, AUTOD+30, UTO-POST" , SPRPT+65*, AUTOD+30 |
| RCREN | CARCCHK+8~ |
| RCSTAT | SPRPT+9~, AUTOD+70*, AUTOD+71 |
| RCSTOP | SPRPT+9~, SPRPT+94*, SPRPT+98, SPRPT+101, SPRPT+102, SPRPT+103, SPRPT+106 |
| RCSTRING | SPRPT+9~, AUTOD+58*, AUTOD+60 |
| 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+84, SPRPT+85, SPRPT+86, 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+51, 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+16, AUTOD+18, AUTOD+21, AUTOD+22, AUTOD+28, AUTOD+29, AUTOD+30, AUTOD+32, AUTOD+38, AUTOD+41 , AUTOD+43, AUTOD+44, AUTOD+51, AUTOD+54, AUTOD+67, AUTOD+68, AUTOD+69, AUTOD+77, AUTOD+78, AUTOD+79 , AUTOD+86, AUTOD+87, AUTOD+88 |
| WNAME | AUTOD+17~, AUTOD+18*, AUTOD+19 |
| X | SPRPT+9~, SPRPT+11*, SPRPT+12*, SPRPT+57*, SPRPT+59, SPRPT+60, SPRPT+61, SPRPT+111*, 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+24*, AUTOD+25*, AUTOD+26, AUTOD+53*, AUTOD+54*, AUTOD+55*, AUTOD+56, AUTOD+89*, AUTOD+90, 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+28*, AUTOD+29*, AUTOD+30*, AUTOD+31, AUTOD+38*, AUTOD+39, AUTOD+40* , AUTOD+42*, AUTOD+43*, AUTOD+45*, AUTOD+46, 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+87*, SPRPT+88 , SPRPT+98*, SPRPT+99, 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+26*, AUTOD+27, AUTOD+75*, AUTOD+76*, AUTOD+80*, AUTOD+81*, AUTOD+82, AUTOD+90*, AUTOD+91, OPPAYS+17* |
| YY | SPRPT+9~, HDRLN+1~, HDRLN+2*, HDRLN+3, AUTOD+12~, AUTOD+28*, AUTOD+29*, AUTOD+30*, AUTOD+31, AUTOD+39* , AUTOD+42, AUTOD+43, AUTOD+45 |
| 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+100, SPRPT+106 |
