Routine: RCDPESP1

Package	Total	Call Graph
Accounts Receivable	4	GETCODES^RCDPCRR ($$ENDORPRT,ASK)^RCDPEARL $$RTYPE^RCDPESP2 $$ACT^RCDPRU
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE,$$NOW)^XLFDT
VA FileMan	3	LIST^DIC $$GET1^DID ($$GET1,GETS)^DIQ

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 ; 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 - PRCA4.5345 ; 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 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+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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$HDRLN,! Line Location: RPT+10
Function Call: WRITE	Prompt: !! Line Location: RPT+13
Function Call: WRITE	Prompt: !!,$S($G(ZTSK):"Task number "_ZTSK_" has been queued.",1:"Unable to queue this task.") Line Location: RPT+19
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+13
Routine Call	%ZIS Line Location: RPT+14
Routine Call	%ZIS Line Location: RPT+20
Routine Call	DIC Line Location: SPRPT+51 SPRPT+65 SPRPT+84 SPRPT+96

FileMan Files Accessed Via FileMan Db 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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: Accounts Receivable

Routine: RCDPESP1

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: