Routine: RCDPESP1

Information

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

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Accounts Receivable	2	RCDPE SITE PARAMETER REPORT RCDPESPC

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 ; PRCA4.5349 - 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 - PRCA4.5349 ; Input: RCPARM("AUTO-DECREASE") - 1 if Medical Auto-Posting is turned for claims w/Payments ; 0 otherwise
RXAUTOP(RCPARM)	; Display Pharmacy Auto-Post parameters - PRCA4.5349 ; 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 - PRCA4.5349 ; 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 - PCRA4.5349 ; 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 - PRCA4.5349 ; 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 - PRCA4.5349 ; 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 - PRCA4.5349 ; 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 - PRCA4.5345 ; PRCA4.5349 - 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 - New for PRCA4.5345 ; 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

External References

Name	Field # of Occurrence
^%ZIS	RPT+33
HOME^%ZIS	RPT+40
^%ZISC	SPRPT+110
^%ZTLOAD	RPT+38
LIST^DIC	AUTOP+13, MEDAUTOD+9, RXAUTOD+9, TRIAUTOD+9
$$GET1^DID	SPRPT+39, SPRPT+53, SPRPT+88, 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+51
GETCODES^RCDPCRR	AUTOD+74
$$ASKLM^RCDPEARL	RPT+18
$$ENDORPRT^RCDPEARL	SPRPT+91
ASK^RCDPEARL	SPRPT+102, SPRPT+107
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+70
RXPARAMS^RCDPESPC	SPRPT+72
SPRPT^RCDPESPC	RPT+26, RPT+44
TPARAMS^RCDPESPC	SPRPT+74
ZPARAMS^RCDPESPC	SPRPT+77
$$ACT^RCDPRU	AUTOD+81
$$DT^XLFDT	AUTOD+74
$$FMTE^XLFDT	SPRPT+22
$$NOW^XLFDT	SPRPT+22

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
Routine Call	%ZIS Line Location: RPT+33
Routine Call	%ZIS Line Location: RPT+40
Routine Call	DIC Line Location: AUTOP+13 MEDAUTOD+9 RXAUTOD+9 TRIAUTOD+9

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RC(345 - [#345]	AUTOD+65, AUTOD+66
^RCY(344.61 - [#344.61]	SPRPT+58, SPRPT+59, 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+99, SPRPT+100, SPRPT+112!, AD2RPT+2, AD2RPT+4 , AD2RPT+5*

Label References

Name	Line Occurrences
$$CARCCHK	AUTOD+51
$$HDRLN	RPT+13, RPT+37, SPHDR+7
AD2RPT	SPRPT+32, SPRPT+34, SPRPT+40, SPRPT+41, SPRPT+42, SPRPT+43, SPRPT+45, SPRPT+54, SPRPT+55, SPRPT+83 , SPRPT+89, SPRPT+91, 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+97, SPRPT+103, SPRPT+105
SPRPT	RPT+24, RPT+43

Local Variables

Legend:

>>	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+96
IO("Q"	RPT+34, RPT+40!
IO(0	SPRPT+110
IOF	SPHDR+9
IOM	SPHDR+8, SPHDR+10, SPHDR+20, SPHDR+26, OPPAYS+17
IOSL	SPRPT+101, SPRPT+104
IOST	SPRPT+101, SPRPT+107
J	SPRPT+8~, SPRPT+18, SPRPT+19, SPRPT+20, SPRPT+98, SPRPT+99*, SPRPT+100
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+33, SPRPT+34, SPRPT+35, SPRPT+36, SPRPT+37, SPRPT+38, SPRPT+39, SPRPT+40, SPRPT+41 , SPRPT+42, SPRPT+84, SPRPT+85, SPRPT+86, SPRPT+87, SPRPT+88
RCGLB	SPRPT+8~, MEDAUTOD+12, MEDAUTOD+14, RXAUTOD+10, TRIAUTOD+13, TRIAUTOD+15, AUTOD~
RCGLB(	SPRPT+19*, SPRPT+20, SPRPT+51, SPRPT+53, SPRPT+88, SPRPT+111, 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+39
RCHDR	RPT+10~, RPT+27, RPT+29, SPRPT+8~, SPRPT+97, SPRPT+103, SPRPT+105
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+35*, SPRPT+39
RCLSTMGR	RPT+10~, RPT+18*, RPT+19, RPT+20, SPRPT+93, AD2RPT+4
RCMEN	CARCCHK+8~
RCNTR	SPRPT+9~, AUTOP+10~, OPPAYS+15*, OPPAYS+16
RCPARM	SPRPT+9~, SPRPT+70, SPRPT+72, SPRPT+74, MEDAUTOP~, MEDAUTOP+3, RXAUTOP~, RXAUTOP+3, TRIAUTOP~, TRIAUTOP+3 , AUTOP~, MEDAUTOD~, RXAUTOD~, TRIAUTOD~
RCPARM(	SPRPT+62, SPRPT+63, AUTOP+19
RCPARM("AUTO-DECREASE"	SPRPT+61*, AUTOD+28
RCPARM("AUTO-POST"	SPRPT+60*, AUTOD+28
RCPARM("RX AU	TO-DECREASE" , SPRPT+65, AUTOD+29, TO-POST" , SPRPT+64, AUTOD+29
RCPARM("TRI A	UTO-DECREASE" , SPRPT+67, AUTOD+30, UTO-POST" , SPRPT+66, AUTOD+30
RCREN	CARCCHK+8~
RCSTAT	SPRPT+9~, AUTOD+70*, AUTOD+71
RCSTOP	SPRPT+9~, SPRPT+95*, SPRPT+99, SPRPT+102, SPRPT+103, SPRPT+104, SPRPT+107
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+36, SPRPT+37, SPRPT+38, SPRPT+41, SPRPT+42, SPRPT+70 , SPRPT+72, SPRPT+74, SPRPT+85, SPRPT+86, SPRPT+87, 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+60, SPRPT+61, SPRPT+64, SPRPT+65, SPRPT+66, SPRPT+67, 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+58, SPRPT+60, SPRPT+61, SPRPT+62, SPRPT+112, 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+59, SPRPT+63, SPRPT+64, SPRPT+65, SPRPT+66, SPRPT+67, 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+39, SPRPT+43, SPRPT+49, SPRPT+50, SPRPT+51, SPRPT+53, SPRPT+55, SPRPT+88, SPRPT+89 , SPRPT+99, SPRPT+100, 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+101, SPRPT+107

Customize PDF page

Package: Accounts Receivable