Routine: RCDPESP2

Package	Total	Call Graph
Accounts Receivable	4	($$ENDORPRT,ASK)^RCDPEARL $$DISPTY^RCDPEM3 INFO^RCDPEM6 ($$RTYPE,AUDPARM)^RCDPESPA
VA FileMan	4	LIST^DIC $$GET1^DID $$GET1^DIQ ^DIR
Kernel	2	^%ZIS ($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Accounts Receivable	5	RCDPE EXCLUSION AUDIT REPORT RCDPE PARAMETER AUDIT REPORT RCDPESP1 RCDPESP3 RCDPESP5

Entry Points

Name	Comments	DBIA/ICR reference
RPT1	; EDI Lockbox Parameters Report [RCDPE SITE PARAMETER REPORT]
RPT2	; EDI Lockbox Exclusion Audit Report [RCDPE EXCLUSION AUDIT REPORT]
RPT2Q	; exit point
GETPAYER()	; GET THE PAYER NAME + PAYER ID
HDRXAR(RCTYP,RCEXCTYP)	; Report header for auto-posting exclusion report ; Input: ; RCTYP - .06 = Auto-Posting exclusion (medical) ; .07 = Auto-Decrease exclusion (medical) ; .08 = Auto-Posting exclusion (pharmacy) ; .12 = Auto-Decrease exclusion (pharmacy) ; .13 = Auto-Posting exclusion (TRICARE) ; .14 = Auto-Decrease exclusion (TRICARE) ; RCEXCTYP - M - Medical, P - Pharmacy, T - TRICARE A - All
SECTHDR(RCTYPE,RCREPT)	; SECTION HEADER ; PRCA4.5345 - Added Rx Auto-Decrease ; Input: RCTYP - .06 = Auto-Posting exclusion (medical) ; .07 = Auto-Decrease exclusion (medical) ; .08 = Auto-Posting exclusion (Rx) ; .12 = Auto-Decrease exclusion (Rx) ; .13 = Auto-Posting exclusion (TRICARE) ; .14 = Auto-Decrease exclusion (TRICARE) ; RCREPT - M - Medical, P - Pharmacy, T - TRICARE A - All
TXPEQLS(Y)	; write text in Y then row of equal signs
EQLSGNS(N)
ERR4USR(TXT)	; error message display
CNTR(TXT)	; center TXT
DTRNG()	; function, returns date range for the report
DATES(BDATE,EDATE)	; Get a date range, both values passed by ref.
DSPXCLSN(RCX)	; display exclusion ; RCX - exclusion value from ^DIC call
RTYPE(DEF)	;EP from RCDPEAA1 ; Input: DEF - Value to use a default ; Returns: -1 - User ^ or timed out ; M - User selected MEDICAL ; P - User selected PHARMACY ; T - User selected TRICARE ; A - User selected ALL
RPTYPE(RCTYPE,RCPARAM)	; ; Return 1 if valid to print, 0 otherwise
OPTYPE(SUB,FIELD,RCTYPE)	; Output data for each type ; Input: SUB - Subscript to array that contain the data for this type ; FIELD - Changed field from field 4 file 344.7 ; RCTYPE - M - Medical, P - Pharmacy, T - Tricare, A - All

External References

Name	Field # of Occurrence
^%ZIS	RPT2+63
LIST^DIC	RPT2+76, RPT2+82, RPT2+88, RPT2+93, RPT2+99, RPT2+104
$$GET1^DID	DSPXCLSN+13
$$GET1^DIQ	GETPAYER+4
^DIR	DATES+5, DATES+11, RTYPE+14
$$ENDORPRT^RCDPEARL	RPT2+124
ASK^RCDPEARL	RPT2+79, RPT2+85, RPT2+90, RPT2+95, RPT2+101, RPT2+106, RPT2+125, HDRXAR+18
$$DISPTY^RCDPEM3	RPT2+60
INFO^RCDPEM6	RPT2+62
$$RTYPE^RCDPESPA	RPT2+46
AUDPARM^RCDPESPA	RPT1+1
$$FMTE^XLFDT	RPT2+65, HDRXAR+25, DATES+10, DSPXCLSN+4
$$NOW^XLFDT	RPT2+65

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," EDI Lockbox Exclusion Audit Report",! Line Location: RPT2+24
Function Call: WRITE	Prompt: !!," EDI Lockbox Exclusion Audit Report",! Line Location: RPT2+30
Function Call: WRITE	Prompt: !!,"Error collecting auto-post report data." Line Location: RPT2+78
Function Call: WRITE	Prompt: !!,"Error collecting Payer auto-decrease report data." Line Location: RPT2+84
Function Call: WRITE	Prompt: !!,$$ENDORPRT^RCDPEARL Line Location: RPT2+124
Function Call: WRITE	Prompt: !!,"TYPE^CHANGE^PAYER^TIMESTAMP^USER^COMMENT" Line Location: HDRXAR+15
Function Call: WRITE	Prompt: @IOF Line Location: HDRXAR+19
Function Call: WRITE	Prompt: $$CNTR("EDI Lockbox Exclusion Audit Report"),?IOM-8,"Page: "_RCHDR("PAGE") Line Location: HDRXAR+22
Function Call: WRITE	Prompt: !,$$CNTR("DIVISIONS: ALL") Line Location: HDRXAR+23
Function Call: WRITE	Prompt: !,$$CNTR("RUN DATE: "_$G(RCHDR("RUNDATE"))) Line Location: HDRXAR+24
Function Call: WRITE	Prompt: !,$$CNTR("DATE RANGE: "_XX) Line Location: HDRXAR+26
Function Call: WRITE	Prompt: !,$$CNTR("REPORT TYPE: "_RCTYPED) Line Location: HDRXAR+27
Function Call: WRITE	Prompt: !,"Change Payer Date/Time Edited User" Line Location: SECTHDR+17
Function Call: WRITE	Prompt: !,$$EQLSGNS(IOM-1) Line Location: SECTHDR+18
Function Call: WRITE	Prompt: !!,Y,!,$$EQLSGNS($L(Y)) Line Location: TXPEQLS+2
Function Call: WRITE	Prompt: !!,"Error collecting "_$G(TXT)_" report data." Line Location: ERR4USR+1
Function Call: WRITE	Prompt: !,RCXCLSN("LABEL")_U_RCXCLSN("CHANGE")_U_RCXCLSN("PAYER")_U_RCXCLSN("TIME")_U_RCXCLSN("USER")_U_RCXCLSN("COMMENT") Line Location: DSPXCLSN+14
Function Call: WRITE	Prompt: !,"No " Line Location: OPTYPE+7
Function Call: WRITE	Prompt: "Medical Auto-Post" Line Location: OPTYPE+8
Function Call: WRITE	Prompt: "Medical Auto-Decrease" Line Location: OPTYPE+9
Function Call: WRITE	Prompt: "Pharmacy Auto-Post" Line Location: OPTYPE+10
Function Call: WRITE	Prompt: "Pharmacy Auto-Decrease" Line Location: OPTYPE+11
Function Call: WRITE	Prompt: "Pharmacy Auto-Post" Line Location: OPTYPE+12
Function Call: WRITE	Prompt: "Pharmacy Auto-Decrease" Line Location: OPTYPE+13
Function Call: WRITE	Prompt: " Exclusions to Display",! Line Location: OPTYPE+14
Routine Call	%ZIS Line Location: RPT2+63
Routine Call	DIC Line Location: RPT2+76 RPT2+82 RPT2+88 RPT2+93 RPT2+99 RPT2+104
Routine Call	DIR Line Location: DATES+5 DATES+11 RTYPE+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344.6 - [#344.6]	GET1^DID, GET1^DIQ
^RCY(344.7 - [#344.7]	LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.6 - [#344.6]	GETPAYER+3
^RCY(344.61 - [#344.61]	RPTYPE+6, RPTYPE+7
^TMP("RC-MedDecr"	RPT2+35
^TMP("RC-MedPost"	RPT2+33
^TMP("RC-RxDecr"	RPT2+39
^TMP("RC-RxPost"	RPT2+37
^TMP("RC-TriDecr"	RPT2+43
^TMP("RC-TriPost"	RPT2+41

Label References

Name	Line Occurrences
$$CNTR	HDRXAR+22, HDRXAR+23, HDRXAR+24, HDRXAR+26, HDRXAR+27
$$DTRNG	RPT2+49
$$EQLSGNS	SECTHDR+18, TXPEQLS+2
$$GETPAYER	DSPXCLSN+6
DATES	DTRNG+2
DSPXCLSN	OPTYPE+20
ERR4USR	RPT2+90, RPT2+95, RPT2+101, RPT2+106
HDRXAR	OPTYPE+4, OPTYPE+19
OPTYPE	RPT2+110, RPT2+111, RPT2+114, RPT2+115, RPT2+119, RPT2+120
RPT2Q	RPT2+109, RPT2+113, RPT2+118
SECTHDR	HDRXAR+28
TXPEQLS	SECTHDR+10, SECTHDR+11, SECTHDR+12, SECTHDR+13, SECTHDR+14, SECTHDR+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RPT2+28~, RPT2+63*
BDATE	DATES~, DATES+2, DATES+7, DATES+8, DATES+10, DATES+13
DA	RTYPE+8~
DEF	RTYPE~, RTYPE+13
DIR	DTRNG+1~, DATES+1~, DATES+6!, DATES+8!, DATES+12!, RTYPE+8~, RTYPE+15!
DIR("?"	DATES+3, DATES+9, RTYPE+10*
DIR("A"	DATES+4, DATES+10, RTYPE+12*
DIR("B"	DATES+10, RTYPE+13
DIR(0	DATES+4, DATES+10, RTYPE+11*
DIROUT	DATES+1~, RTYPE+8~
DIRUT	DATES+1~, RTYPE+8~
DT	DATES+4, DATES+10
DTOUT	DATES+1~, DATES+7, DATES+13, RTYPE+8~, RTYPE+16
DUOUT	DTRNG+1~, DATES+1~, DATES+7, DATES+13, RTYPE+8~, RTYPE+16
EDATE	DATES~, DATES+2, DATES+14
FIELD	OPTYPE~, OPTYPE+4, OPTYPE+8, OPTYPE+9, OPTYPE+10, OPTYPE+11, OPTYPE+12, OPTYPE+13, OPTYPE+19
IO	RPT2+63
IOF	HDRXAR+19
IOM	HDRXAR+22, SECTHDR+18, CNTR+1
IOSL	OPTYPE+19
N	EQLSGNS~
POP	RPT2+28~, RPT2+63
RCDATA	RPTYPE+2~
RCDIERR	RPT2+26~, RPT2+77, RPT2+83, RPT2+89, RPT2+94, RPT2+100, RPT2+105
RCDIMED	RPT2+26~
RCDIMEDD	RPT2+26~
RCDIRX	RPT2+26~
RCDIRXD	RPT2+26~
RCDITR	RPT2+26~
RCDITRD	RPT2+26~
RCEND	DTRNG+1~, DTRNG+2*, DTRNG+4
RCEXCTYP	HDRXAR~, HDRXAR+11, HDRXAR+28
RCFLDS	RPT2+26~, RPT2+53*, RPT2+76, RPT2+82, RPT2+88, RPT2+93, RPT2+99, RPT2+104
RCFND	RPT2+26~, RPT2+32, OPTYPE+5, OPTYPE+6, OPTYPE+15
RCHDR	RPT2+26~
RCHDR("PAGE"	RPT2+32, HDRXAR+13, HDRXAR+16, HDRXAR+18, HDRXAR+20*, HDRXAR+22
RCHDR("RUNDATE"	RPT2+65*, HDRXAR+24
RCHDR("rprtTyp"	RPT2+48*
RCIEN	RPT2+32, GETPAYER+1~, GETPAYER+2, GETPAYER+3, GETPAYER+4, OPTYPE+16, OPTYPE+17, OPTYPE+18
RCMEN	RPTYPE+2~, RPTYPE+4, RPTYPE+6, RPTYPE+13
RCPARAM	RPTYPE~, RPTYPE+10, RPTYPE+11, RPTYPE+12, RPTYPE+13, RPTYPE+14
RCPAYR	GETPAYER+1~, GETPAYER+4*, GETPAYER+5
RCREN	RPTYPE+2~, RPTYPE+4, RPTYPE+7, RPTYPE+14
RCREPT	SECTHDR~
RCRPT	RPT2+26~
RCRPT("begDt"	RPT2+51*, RPT2+58
RCRPT("dtRange"	RPT2+49*, RPT2+50, RPT2+51, RPT2+52, HDRXAR+25
RCRPT("endDt"	RPT2+52*, RPT2+58
RCRPT("excel"	RPT2+32, RPT2+60, RPT2+61, RPT2+62, HDRXAR+12, SECTHDR+9, DSPXCLSN+9
RCSCR	RPT2+27~, RPT2+58*, RPT2+69, RPT2+70, RPT2+71, RPT2+72, RPT2+73, RPT2+74
RCSCR(	RPT2+69, RPT2+70, RPT2+71, RPT2+72, RPT2+73, RPT2+74, RPT2+76, RPT2+82, RPT2+88, RPT2+93 , RPT2+99, RPT2+104
RCSCRTYP	RPT2+27~
RCSTART	DTRNG+1~, DTRNG+2*, DTRNG+3, DTRNG+4, DTRNG+5
RCSTDT	RPT2+27~
RCSTOP	RPT2+27~, RPT2+32, RPT2+79, RPT2+85, RPT2+90, RPT2+95, RPT2+101, RPT2+106, RPT2+109, RPT2+113 , RPT2+118, RPT2+125, HDRXAR+18, OPTYPE+16, OPTYPE+17, OPTYPE+19
RCT	RPT2+26~
RCT(	RPT2Q+1, OPTYPE+5, OPTYPE+17, OPTYPE+18
RCT("MedDecr"	RPT2+35*, RPT2+36, RPT2+76
RCT("MedPost"	RPT2+33*, RPT2+34, RPT2+82
RCT("RxDecr"	RPT2+39*, RPT2+40, RPT2+93
RCT("RxPost"	RPT2+37*, RPT2+38, RPT2+88
RCT("TriDecr"	RPT2+43*, RPT2+44, RPT2+104
RCT("TriPost"	RPT2+41*, RPT2+42, RPT2+99
RCTMP	RPT2+27~, GETPAYER+2, OPTYPE+18*, OPTYPE+20
RCTYP	HDRXAR~, HDRXAR+28
RCTYPE	RPT2+27~, RPT2+46, RPT2+47, RPT2+48, RPT2+109, RPT2+110, RPT2+111, RPT2+113, RPT2+114, RPT2+115 , RPT2+118, RPT2+119, RPT2+120, SECTHDR~, SECTHDR+10, SECTHDR+11, SECTHDR+12, SECTHDR+13, SECTHDR+14, SECTHDR+15 , RTYPE+8~, RTYPE+9, RPTYPE~, RPTYPE+6, RPTYPE+7, RPTYPE+9, RPTYPE+10, RPTYPE+11, RPTYPE+12, RPTYPE+13 , RPTYPE+14, OPTYPE~, OPTYPE+4, OPTYPE+19
RCTYPED	HDRXAR+10~, HDRXAR+11*, HDRXAR+27
RCX	DSPXCLSN~, DSPXCLSN+3, DSPXCLSN+4, DSPXCLSN+5, DSPXCLSN+7, DSPXCLSN+13
RCXCLSN	DSPXCLSN+2~
RCXCLSN("CHANGE"	DSPXCLSN+3*, DSPXCLSN+10, DSPXCLSN+14
RCXCLSN("COMMENT"	DSPXCLSN+7*, DSPXCLSN+11, DSPXCLSN+14
RCXCLSN("LABEL"	DSPXCLSN+13*, DSPXCLSN+14
RCXCLSN("PAYER"	DSPXCLSN+6*, DSPXCLSN+10, DSPXCLSN+14
RCXCLSN("TIME"	DSPXCLSN+4*, DSPXCLSN+10, DSPXCLSN+14
RCXCLSN("USER"	DSPXCLSN+5*, DSPXCLSN+10, DSPXCLSN+14
RNGFLG	DTRNG+1~
SUB	OPTYPE~, OPTYPE+5, OPTYPE+17, OPTYPE+18
TXT	ERR4USR~, ERR4USR+1, CNTR~, CNTR+1
U	RPT2+51, RPT2+52, GETPAYER+2, HDRXAR+25, DSPXCLSN+3, DSPXCLSN+4, DSPXCLSN+5, DSPXCLSN+7, DSPXCLSN+13, DSPXCLSN+14 , RPTYPE+6, RPTYPE+7, OPTYPE+18
X	RPT2+28~, RPT2Q+1*, DTRNG+1~, DATES+1~, DATES+8!, RTYPE+8~
X1	RPT2+28~
X2	RPT2+28~
XX	HDRXAR+10~, HDRXAR+25*, HDRXAR+26
Y	RPT2+28~, TXPEQLS~, TXPEQLS+1, TXPEQLS+2, DTRNG+1~, DATES+1~, DATES+7, DATES+8!, DATES+13, DATES+14 , DSPXCLSN+10~*, DSPXCLSN+11, RTYPE+8~, RTYPE+17, RTYPE+18

Customize PDF page

Package: Accounts Receivable

Routine: RCDPESP2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: