Routine: RCDPEV0

Information

RCDPEV0 ;ALB/TMK - EDI LOCKBOX WORKLIST VERIFY PAYMENTS ;Jun 06, 2014@19:11:19

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$FMTE^XLFDT
VA FileMan	2	$$GET1^DIQ ^DIR
Accounts Receivable	1	$$VER^RCDPEV
List Manager	1	FULL^VALM1

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

Entry Points

Name	Comments	DBIA/ICR reference
RPT(RCSCR)	; Print/display discrepancy report
RPTQ
RPT1(RCSCR)	; Print/display discrepancy report - Auto-post ERA
RPT1Q
DISRPT(RCSCR,RCBATCH)	; Queued job entrypoint ; RCSCR = the ien of the entry in file 344.49 ; RCBATCH = the # of the batch within the ERA. If all batches, this is null
DISRPT1(RCSCR,RCBATCH)	; Queued job entrypoint - Auto-post ERA ; RCSCR = the ien of the entry in file 344.49 ; RCBATCH = the # of the batch within the ERA. If all batches, this is null
HDR(RCPG,RCSCR,RCBATCH,RCSTOP,RCTYP)	;Print header - RCTYP added - PRCA4.5326 ; RCPG = last page # ; RCSCR = the entry # in file 344.49 ; RCSTOP = returned as 1 if abort is detected ; RCTYP = 'A' for all verification discrepancies, 'U' for unverified discrepancies only
ASK(RCSTOP)	; Ask to continue ; If passed by reference ,RCSTOP is returned as 1 if print is aborted

External References

Name	Field # of Occurrence
^%ZIS	RPT+3, RPT1+3
HOME^%ZIS	RPT+8, RPT1+8
^%ZISC	DISRPT+44, DISRPT1+61
^%ZTLOAD	RPT+6, RPT1+6
$$S^%ZTLOAD	DISRPT+6, DISRPT1+15, HDR+6
$$GET1^DIQ	DISRPT1+19, DISRPT1+22, DISRPT1+23, DISRPT1+24, HDR+8, HDR+9, HDR+10
^DIR	ASK+4
$$VER^RCDPEV	DISRPT+16, DISRPT1+25
FULL^VALM1	RPT+1, RPT1+1
$$FMTE^XLFDT	DISRPT+19, DISRPT+20, DISRPT+21, DISRPT+22, DISRPT1+32, DISRPT1+33, DISRPT1+34, DISRPT1+35, HDR+16, HDR+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Your task number"_ZTSK_" has been queued.",1:"Unable to queue this job.") Line Location: RPT+7
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Your task number"_ZTSK_" has been queued.",1:"Unable to queue this job.") Line Location: RPT1+7
Function Call: WRITE	Prompt: !!,X Line Location: DISRPT+25
Function Call: WRITE	Prompt: !,X Line Location: DISRPT+29
Function Call: WRITE	Prompt: !,X Line Location: DISRPT+31
Function Call: WRITE	Prompt: !,?9,"<<< THIS EEOB HAS BEEN SPLIT >>>" Line Location: DISRPT+33
Function Call: WRITE	Prompt: !,?15,$S($P(Z0,U,7):"",1:"BILL NOT IN VISTA: "),$P(Z0,U,2)_" "_$J($P(Z0,U,5),"",2) Line Location: DISRPT+38
Function Call: WRITE	Prompt: ! Line Location: DISRPT+39
Function Call: WRITE	Prompt: !,"THERE ARE NO UNVERIFIED LINES WITH DISCREPANCIES IN THIS ERA"_$S($G(RCBATCH):" BATCH",1:"") Line Location: DISRPT+41
Function Call: WRITE	Prompt: " ("_$S(RCVER:"Verified",1:"Unverified") Line Location: DISRPT1+37
Function Call: WRITE	Prompt: !!,X Line Location: DISRPT1+39
Function Call: WRITE	Prompt: !,X Line Location: DISRPT1+43
Function Call: WRITE	Prompt: !,X Line Location: DISRPT1+45
Function Call: WRITE	Prompt: !,?9,"<<< THIS EEOB HAS BEEN SPLIT >>>" Line Location: DISRPT1+47
Function Call: WRITE	Prompt: !,?15,$S($P(Z0,U,7):"",1:"BILL NOT IN VISTA: "),$P(Z0,U,2)_" "_$J($P(Z0,U,5),"",2) Line Location: DISRPT1+52
Function Call: WRITE	Prompt: ! Line Location: DISRPT1+53
Function Call: WRITE	Prompt: !,@IOF,*13 Line Location: HDR+11
Function Call: WRITE	Prompt: !,"EDI LBOX WORKLIST - UNVERIFIED LINES DISCREPANCIES REPORT",?59 Line Location: HDR+14
Function Call: WRITE	Prompt: !,"EDI LBOX WORKLIST - AUTOPOST ERA LINES DISCREPANCIES REPORT",?61 Line Location: HDR+15
Function Call: WRITE	Prompt: $$FMTE^XLFDT(DT,2),?70,"Page: ",RCPG,! Line Location: HDR+16
Function Call: WRITE	Prompt: !,"ERA #: ",RCSCR,?20 Line Location: HDR+17
Function Call: WRITE	Prompt: $S($O(^RCY(344.49,RCSCR,3,0)):"BATCH: "_$E($S($G(RCBATCH):+RCBATCH,1:"ALL")_$J("",11),1,11),1:$J("",18)) Line Location: HDR+18
Function Call: WRITE	Prompt: "TRACE #: "_RCTRACE Line Location: HDR+19
Function Call: WRITE	Prompt: !,"PAYER: "_$E(RCPAY_$J("",30),1,30)_" ERA DT: "_$$FMTE^XLFDT(RCDAT,"2D") Line Location: HDR+20
Function Call: WRITE	Prompt: !!,?7,"PATIENT NAME"_$J("",25)_"SUBMITTED AMT SVC DATE(S)" Line Location: HDR+22
Function Call: WRITE	Prompt: !,"* preceding data = data has discrepancy" Line Location: HDR+23
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","=") Line Location: HDR+24
Function Call: WRITE	Prompt: ! Line Location: ASK+4
Routine Call	%ZIS Line Location: RPT+3 RPT1+3
Routine Call	%ZIS Line Location: RPT+8 RPT1+8
Routine Call	DIR Line Location: ASK+4

FileNo	Call Tags
^RCY(344.4 - [#344.4]	GET1^DIQ
344.41	GET1^DIQ
344.491	GET1^DIQ
^IBM(361.1 - [#361.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	DISRPT+23, DISRPT1+36
^IBM(361.1 - [#361.1]	DISRPT+13
^RCY(344.4 - [#344.4]	DISRPT+12, DISRPT1+21
^RCY(344.49 - [#344.49]	DISRPT+5, DISRPT+7, DISRPT+8, DISRPT+11, DISRPT+34, DISRPT+35, DISRPT+36, DISRPT1+8, DISRPT1+16, DISRPT1+17 , DISRPT1+20, DISRPT1+48, DISRPT1+49, DISRPT1+50, HDR+18
^TMP("RCBATCH_SELECTED"	RPT+5, RPT+10, RPT1+5, RPT1+10

Label References

Name	Line Occurrences
ASK	DISRPT+42, DISRPT1+59, HDR+7
DISRPT	RPT+10
DISRPT1	RPT1+10
HDR	DISRPT+24, DISRPT+26, DISRPT+37, DISRPT+41, DISRPT1+38, DISRPT1+40, DISRPT1+51, DISRPT1+56
RPTQ	RPT+3, RPT+4, RPT1+3, RPT1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RPT+2~, RPT+3, RPT1+2~, RPT1+3
AMT1	DISRPT+3~, DISRPT+17, DISRPT+30, DISRPT1+11~, DISRPT1+30, DISRPT1+44
AMT2	DISRPT+3~, DISRPT+18, DISRPT+28, DISRPT1+11~, DISRPT1+31, DISRPT1+42
ARR	DISRPT1+5~
ARR(	DISRPT1+9*, DISRPT1+14, DISRPT1+29
DIR	ASK+3~
DIR(0	ASK+4*
DIROUT	ASK+3~
DIRUT	ASK+3~, ASK+5
DT	HDR+16
DTFR1	DISRPT+3~, DISRPT+19, DISRPT+30, DISRPT1+11~, DISRPT1+32, DISRPT1+44
DTFR2	DISRPT+3~, DISRPT+20, DISRPT+28, DISRPT1+11~, DISRPT1+33, DISRPT1+42
DTOUT	ASK+3~
DTTO1	DISRPT+3~, DISRPT+21, DISRPT+30, DISRPT1+11~, DISRPT1+34, DISRPT1+44
DTTO2	DISRPT+3~, DISRPT+22, DISRPT+28, DISRPT1+11~, DISRPT1+35, DISRPT1+42
DUOUT	ASK+3~, ASK+5
IO	RPT+9, RPT1+9
IO("Q"	RPT+4, RPT+8!, RPT1+4, RPT1+8!
IOF	HDR+11
IOM	HDR+24
IOSL	DISRPT+24, DISRPT+26, DISRPT+37, DISRPT1+38, DISRPT1+40, DISRPT1+51
IOST	HDR+7, ASK+2
POP	RPT+2~, RPT+3, RPT1+2~, RPT1+3
RC3444	DISRPT+3~, DISRPT+12, DISRPT+13, DISRPT+23, DISRPT1+21, DISRPT1+25, DISRPT1+36
RCANY	DISRPT+3~, DISRPT+4, DISRPT+15, DISRPT+41, DISRPT1+11~, DISRPT1+13, DISRPT1+28, DISRPT1+55
RCBATCH	DISRPT~, DISRPT+10, DISRPT+24, DISRPT+26, DISRPT+37, DISRPT+41, DISRPT1~, DISRPT1+19, DISRPT1+38, DISRPT1+40 , DISRPT1+51, DISRPT1+56, DISRPT1+58, HDR~, HDR+18
RCBILL	DISRPT+3~, DISRPT+13, DISRPT+14, DISRPT+16, DISRPT+23, DISRPT+28, DISRPT1+11~, DISRPT1+24, DISRPT1+25, DISRPT1+36 , DISRPT1+42
RCDAT	HDR+5~, HDR+8*, HDR+20
RCEOB	DISRPT1+11~, DISRPT1+23*, DISRPT1+24
RCLINE	DISRPT1+11~, DISRPT1+22*, DISRPT1+23
RCPAY	HDR+5~, HDR+9*, HDR+20
RCPG	DISRPT+3~, DISRPT+4, DISRPT+6, DISRPT+24, DISRPT+26, DISRPT+37, DISRPT+41, DISRPT+42, DISRPT1+11~, DISRPT1+13 , DISRPT1+15, DISRPT1+38, DISRPT1+40, DISRPT1+51, DISRPT1+56, DISRPT1+59, HDR~, HDR+6, HDR+7, HDR+12* , HDR+16
RCSCR	RPT~, RPT+5, RPT+10, RPT1~, RPT1+5, RPT1+10, DISRPT~, DISRPT+5, DISRPT+7, DISRPT+8 , DISRPT+11, DISRPT+12, DISRPT+16, DISRPT+24, DISRPT+26, DISRPT+34, DISRPT+35, DISRPT+36, DISRPT+37, DISRPT+41 , DISRPT1~, DISRPT1+8, DISRPT1+16, DISRPT1+17, DISRPT1+19, DISRPT1+20, DISRPT1+21, DISRPT1+22, DISRPT1+23, DISRPT1+25 , DISRPT1+38, DISRPT1+40, DISRPT1+48, DISRPT1+49, DISRPT1+50, DISRPT1+51, DISRPT1+56, HDR~, HDR+8, HDR+9 , HDR+10, HDR+17, HDR+18
RCSTOP	DISRPT+3~, DISRPT+4, DISRPT+5, DISRPT+6, DISRPT+24, DISRPT+26, DISRPT+34, DISRPT+37, DISRPT+41, DISRPT+42 , DISRPT1+11~, DISRPT1+13, DISRPT1+14, DISRPT1+15, DISRPT1+38, DISRPT1+40, DISRPT1+48, DISRPT1+51, DISRPT1+56, DISRPT1+59 , HDR~, HDR+6, HDR+7, ASK~, ASK+5
RCTRACE	HDR+5~, HDR+10*, HDR+19
RCTYP	HDR~, HDR+14
RCVER	DISRPT1+5~, DISRPT1+6, DISRPT1+8, DISRPT1+9, DISRPT1+29, DISRPT1+37
RCZ	DISRPT+3~, DISRPT+5, DISRPT+7, DISRPT+8, DISRPT1+5~, DISRPT1+7, DISRPT1+8, DISRPT1+9, DISRPT1+13, DISRPT1+14* , DISRPT1+16, DISRPT1+17, DISRPT1+19, DISRPT1+22, DISRPT1+29
RCZ0	DISRPT+3~, DISRPT+7, DISRPT+8, DISRPT+9, DISRPT+10, DISRPT+11, DISRPT+12, DISRPT+16, DISRPT+23, DISRPT+34 , DISRPT1+11~, DISRPT1+16, DISRPT1+17, DISRPT1+18, DISRPT1+20, DISRPT1+21, DISRPT1+36, DISRPT1+48
RCZ1	DISRPT+3~, DISRPT+34, DISRPT+35, DISRPT1+11~, DISRPT1+48, DISRPT1+49
RESULT	DISRPT+3~, DISRPT+16, DISRPT+17, DISRPT+18, DISRPT+19, DISRPT+20, DISRPT+21, DISRPT+22, DISRPT+27, DISRPT+28 , DISRPT+30, DISRPT1+11~, DISRPT1+25, DISRPT1+27, DISRPT1+30, DISRPT1+31, DISRPT1+32, DISRPT1+33, DISRPT1+34, DISRPT1+35 , DISRPT1+41, DISRPT1+42, DISRPT1+44
SPLIT	DISRPT+3~, DISRPT+11, DISRPT+32, DISRPT1+12~, DISRPT1+20, DISRPT1+46
SSN	DISRPT+3~, DISRPT+27, DISRPT+28, DISRPT1+12~, DISRPT1+41, DISRPT1+42
U	DISRPT+10, DISRPT+12, DISRPT+13, DISRPT+16, DISRPT+17, DISRPT+18, DISRPT+19, DISRPT+20, DISRPT+21, DISRPT+22 , DISRPT+23, DISRPT+27, DISRPT+28, DISRPT+30, DISRPT+38, DISRPT1+21, DISRPT1+30, DISRPT1+31, DISRPT1+32, DISRPT1+33 , DISRPT1+34, DISRPT1+35, DISRPT1+36, DISRPT1+41, DISRPT1+42, DISRPT1+44, DISRPT1+52
X	DISRPT+3~, DISRPT+23, DISRPT+25, DISRPT+27, DISRPT+28, DISRPT+29, DISRPT+30, DISRPT+31, DISRPT1+12~, DISRPT1+36* , DISRPT1+39, DISRPT1+41, DISRPT1+42, DISRPT1+43, DISRPT1+44*, DISRPT1+45
Z	DISRPT+3~, DISRPT+35, DISRPT+36, DISRPT1+12~, DISRPT1+49, DISRPT1+50
Z0	DISRPT+3~, DISRPT+36, DISRPT+38, DISRPT1+12~, DISRPT1+50, DISRPT1+52
ZTDESC	RPT+2~, RPT+5, RPT1+2~, RPT1+5
>> ZTQUEUED	DISRPT+6, DISRPT+42, DISRPT+43, DISRPT+44, DISRPT1+15, DISRPT1+59, DISRPT1+60, DISRPT1+61, HDR+6
ZTREQ	DISRPT+6!, DISRPT+43, DISRPT1+15!, DISRPT1+60, HDR+6!
ZTRTN	RPT+2~, RPT+5, RPT1+2~, RPT1+5
ZTSAVE	RPT+2~, RPT1+2~
ZTSK	RPT+7, RPT+8!, RPT1+7, RPT1+8!
>> ZTSTOP	DISRPT+6, DISRPT1+15, HDR+6*

Customize PDF page

Package: Accounts Receivable