Routine: RCDPEM4

Package	Total	Call Graph
Accounts Receivable	4	($$ASKLM,$$ENDORPRT,$$NOW,$$PAD,HDRLST,LMRPT,SL)^RCDPEARL (SVEOB,SVERA)^RCDPEM41 INFO^RCDPEM6 ($$ISTYPE,$$RTYPE)^RCDPEU1
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA FileMan	2	$$EXTERNAL^DILFD ^DIR
Registration	1	DIVISION^VAUTOMA

Package	Total	Caller Graph
Accounts Receivable	9	RCDPE EEOB MOVE/COPY/RMOVE RPT RCDPE ERA W/PAPER EOB REPORT RCDPE8NZ RCDPEAR1 RCDPEAR2 RCDPEM3 RCDPEM6 RCDPEOP RCDPPLB

Entry Points

Name	Comments	DBIA/ICR reference
EOB	; EEOB Move/Copy/Rmove Audit Report [RCDPE EEOB MOVE/COPY/RMOVE RPT]
POST	; ERAs Posted with Paper EOB Audit Report [RCDPE ERA W/PAPER EOB REPORT]
ASKUSR	;collect filter and device options
RPRTCMPL	;Compile and print report
EXIT	;
CMPLERA	;Generate the ERA posted with paper EOB report ^TMP array ; ^RCY(344.4,0) = ELECTRONIC REMITTANCE ADVICE^344.4I^
CMPLEOB	;Generate the EOB Moved/Copy/Remove report ^TMP array
DISP	; Format the display for screen/printer or MS Excel
LINE(VAUTD)	;List selected stations
SELDIV(VAUTD,Z)	;Devisions are organized as Z(1)="DIV1,DIV2,..., Z(2)="DIVN,DIVN+1,... etc. ; Input: ; VAUTD (required/pass-by-ref) - Division(s) array; result of call to DIVISION^VAUTOMA ; Output: ; Z (required/pass-by-ref) - reformatted array of divisions
HDRBLD	; create the report header ; returns RCHDR, RCPGNUM, RCSTOP ; RCHDR(0) = header text line count ; RCHDR("XECUTE") = M code for page number ; RCHDR("RUNDATE") = date/time report generated, external format ; RCPGNUM - page counter ; RCSTOP - flag to exit ; INPUT: ; RCDISPTY - Display/print/Excel flag ; RCDTRNG - date range ; RCRTYP - Report Type (EOB or ERA) ; VAUTD
HDRLM	; create the Listman header ; returns RCHDR ; RCHDR(0) = header text line count ; INPUT: ; RCDTRNG - date range ; VAUTD - Division filter value(s)
HDREOB()	; extrinsic variable, header for EOB report
HDRERA()	; extrinsic variable, header for ERA report
HDRXEC(TYP)	; create xecute code for header
DTRNG()	; function, return date range for a report
DATES(BDATE,EDATE)	;Get a date range.
STADIV	;Division/Station Filter/Sort
ACTION()	; Get action type
DISPTY()	; Get display/output type
ERASTA(ERAIEN,STA,STNUM,STNAM)	; Get the station for this ERA ; read allowed on BILL/CLAIMS file (#399) via IA 3820 ; returns STA: station IEN, STNAM: station name, STNUM: station number
EOBSTA(EOBIEN,STA,STNUM,STNAM)	; Get the station for this EOB
DTPRB()	; Get the Start Date type
WP(JC)	; format justification comments ; JC - Justification Comment

Name	Field # of Occurrence
^%ZIS	ASKUSR+45
HOME^%ZIS	ASKUSR+54
^%ZISC	DISP+54
^%ZTLOAD	ASKUSR+52
$$EXTERNAL^DILFD	ERASTA+11, EOBSTA+9
^DIR	DATES+3, DATES+8, ACTION+5, DISPTY+5, DTPRB+4
$$ASKLM^RCDPEARL	ASKUSR+32
$$ENDORPRT^RCDPEARL	DISP+47
$$NOW^RCDPEARL	HDRBLD+12
$$PAD^RCDPEARL	DISP+19, DISP+20, DISP+21, DISP+22, DISP+29, DISP+32, DISP+33, DISP+34, DISP+35, DISP+39
HDRLST^RCDPEARL	DISP+11, DISP+18, DISP+28
LMRPT^RCDPEARL	ASKUSR+42
SL^RCDPEARL	DISP+24, DISP+25, DISP+31, DISP+37, DISP+41, DISP+44, DISP+47, DISP+50, DISP+51, WP+13
SVEOB^RCDPEM41	CMPLEOB+17
SVERA^RCDPEM41	CMPLERA+18
INFO^RCDPEM6	ASKUSR+31
$$ISTYPE^RCDPEU1	CMPLERA+16, CMPLEOB+14
$$RTYPE^RCDPEU1	ASKUSR+26
DIVISION^VAUTOMA	STADIV+8
$$FMTE^XLFDT	HDRBLD+20, HDRLM+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !,RCNTRY Line Location: DISP+16
Routine Call	%ZIS Line Location: ASKUSR+45
Routine Call	%ZIS Line Location: ASKUSR+54
Routine Call	DIR Line Location: DATES+3 DATES+8 ACTION+5 DISPTY+5 DTPRB+4

FileNo	Call Tags
^DGCR(399 - [#399]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	ERASTA+12, EOBSTA+10
^DGCR(399 - [#399]	ERASTA+9, EOBSTA+7
^IBM(361.1 - [#361.1]	CMPLEOB+6, CMPLEOB+8, CMPLEOB+10, ERASTA+8, EOBSTA+6
^RCY(344.4 - [#344.4]	CMPLERA+8, CMPLERA+10, CMPLERA+12, ERASTA+7
^TMP(	RPRTCMPL+1!, EXIT+2!, DISP+14, DISP+15, DISP+49
^TMP($J	ASKUSR+34!, ASKUSR+40*, ASKUSR+42, RPRTCMPL+1!, EXIT+2!

Name	Line Occurrences
$$ACTION	ASKUSR+22
$$DISPTY	ASKUSR+29
$$DTRNG	ASKUSR+20
$$LINE	DISP+3
ASKUSR	EOB+2, POST+2
CMPLEOB	RPRTCMPL+5
CMPLERA	RPRTCMPL+3
DATES	DTRNG+2
DISP	RPRTCMPL+7
EOBSTA	CMPLEOB+12
ERASTA	CMPLERA+14
EXIT	ASKUSR+20, ASKUSR+22, ASKUSR+24, ASKUSR+26, ASKUSR+29, ASKUSR+32, ASKUSR+33
HDRBLD	DISP+4
HDRLM	DISP+5
HDRXEC	HDRBLD+26, HDRBLD+43, HDRLM+12, HDRLM+28
RPRTCMPL	ASKUSR+35, ASKUSR+57
STADIV	ASKUSR+24
WP	DISP+43

Name	Field # of Occurrence
^(	DISP+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ASKUSR+2~, ASKUSR+45*
BDATE	DATES~, DATES+1, DATES+4, DATES+5, DATES+8, DATES+9
BILL	EOBSTA+2~, EOBSTA+3, EOBSTA+6, EOBSTA+7
CMNT	WP+3~
CMNT(	WP+7, WP+10, WP+11*, WP+13
CNT	SELDIV+6~, SELDIV+7, SELDIV+9, SELDIV+10, SELDIV+14, SELDIV+15, SELDIV+16, SELDIV+18, SELDIV+19
CNTR	WP+3~, WP+7, WP+10, WP+11, WP+13
DATE	HDRBLD+19~, HDRLM+6~
DIR	DTRNG+1~, DATES+3!, DATES+8!, STADIV+3~, ACTION+1~, DISPTY+1~, DTPRB+1~, DTPRB+4!
DIR("?"	DATES+2, DATES+6
DIR("A"	DATES+3, DATES+8, ACTION+2, DISPTY+3, DTPRB+3*
DIR("B"	DATES+7, ACTION+3, DISPTY+4*
DIR(0	DATES+3, DATES+8, ACTION+4, DISPTY+2, DTPRB+2*
DIROUT	ACTION+1~, ACTION+5, DTPRB+1~
DIRUT	DTPRB+1~
DIV	HDRBLD+19~, HDRLM+6~
DT	DATES+3, DATES+8
DTOUT	DATES+4, DATES+9, DISPTY+1~, DTPRB+1~, DTPRB+5
DTSUB	CMPLEOB+1~
DUOUT	DTRNG+1~, DATES+4, DATES+9, STADIV+3~, ACTION+1~, ACTION+5, DISPTY+1~, DISPTY+5, DTPRB+1~, DTPRB+5
DVFLTR	DISP+1~, DISP+3*, HDRBLD+29, HDRBLD+46, HDRLM+14, HDRLM+29
EDATE	DATES~, DATES+1, DATES+10
END	CMPLERA+2~, CMPLERA+4, CMPLERA+5, CMPLERA+8, CMPLEOB+1~, CMPLEOB+3, CMPLEOB+6, HDRBLD+19~, HDRBLD+20, HDRBLD+31 , HDRBLD+48, HDRLM+6~, HDRLM+7*, HDRLM+20, HDRLM+34
EOBIEN	CMPLEOB+1~, CMPLEOB+7, CMPLEOB+8, CMPLEOB+10, CMPLEOB+12, CMPLEOB+14, CMPLEOB+17, EOBSTA~, EOBSTA+6
ERABILL	ERASTA+3~, ERASTA+4, ERASTA+8, ERASTA+9
ERAEOB	ERASTA+3~, ERASTA+4, ERASTA+7, ERASTA+8
ERAIEN	CMPLERA+2~, CMPLERA+9, CMPLERA+10, CMPLERA+12, CMPLERA+14, CMPLERA+16, CMPLERA+18, ERASTA~, ERASTA+7
H	ASKUSR+36~, ASKUSR+38, ASKUSR+40
HCNT	HDRBLD+19~, HDRBLD+20, HDRBLD+23, HDRBLD+28, HDRBLD+30, HDRBLD+32, HDRBLD+36, HDRBLD+37, HDRBLD+38, HDRBLD+39* , HDRBLD+40, HDRBLD+45, HDRBLD+47, HDRBLD+49, HDRBLD+53, HDRBLD+55, HDRBLD+56, HDRBLD+57, HDRBLD+58, HDRBLD+59* , HDRBLD+60, HDRLM+6~, HDRLM+7, HDRLM+13, HDRLM+18, HDRLM+19, HDRLM+21, HDRLM+22, HDRLM+23, HDRLM+24 , HDRLM+25, HDRLM+33, HDRLM+35, HDRLM+37, HDRLM+38, HDRLM+39, HDRLM+40, HDRLM+41*, HDRLM+42
HDR	ASKUSR+36~, ASKUSR+42
HDR(	ASKUSR+38*
I	WP+3~, WP+8, WP+9, WP+13
IEN	DISP+1~, DISP+15*
IEN101	CMPLEOB+1~, CMPLEOB+10*, CMPLEOB+17
IO	DISP+8
IO("Q"	ASKUSR+47, ASKUSR+54!
IOSL	DISP+18, DISP+28
J	HDRBLD+19~, HDRLM+6~
JC	WP~, WP+2, WP+7, WP+9
L	ASKUSR+36~, ASKUSR+38, ASKUSR+39, ASKUSR+40
LINE	LINE+1~, LINE+2, LINE+4, LINE+5
MSG	HDRBLD+19~, HDRLM+6~
N	ASKUSR+40~*
PCS	WP+3~, WP+7*, WP+8
POP	ASKUSR+2~, ASKUSR+45
RCACT	ASKUSR+2~, ASKUSR+17, ASKUSR+22, HDRBLD+54, HDRLM+36
RCDISPTY	ASKUSR+2~, ASKUSR+29*, ASKUSR+31, ASKUSR+47, DISP+16, HDRBLD+14
RCDIV	ASKUSR+2~, ASKUSR+24, CMPLERA+15, CMPLEOB+13, DISP+3, STADIV+4, STADIV+11, STADIV+13*
RCDTRNG	ASKUSR+2~, ASKUSR+20*, CMPLERA+5, CMPLEOB+3, HDRBLD+20, HDRLM+7
RCEND	DTRNG+1~, DTRNG+2, DTRNG+4
RCHDR	ASKUSR+2~, DISP+11, DISP+18, DISP+28, HDRBLD+12!
RCHDR(	ASKUSR+38, ASKUSR+39, ASKUSR+40, HDRBLD+28, HDRBLD+30, HDRBLD+32, HDRBLD+36, HDRBLD+37, HDRBLD+38, HDRBLD+39* , HDRBLD+45, HDRBLD+47, HDRBLD+49, HDRBLD+53, HDRBLD+55, HDRBLD+56, HDRBLD+57, HDRBLD+58, HDRBLD+59, HDRBLD+63 , HDRLM+13, HDRLM+18, HDRLM+19, HDRLM+21, HDRLM+22, HDRLM+23, HDRLM+24, HDRLM+33, HDRLM+35, HDRLM+37 , HDRLM+38, HDRLM+39, HDRLM+40, HDRLM+41, HDRLM+45*
RCHDR("RUNDATE"	HDRBLD+12*, HDRBLD+27, HDRBLD+44
RCHDR("XECUTE"	HDRBLD+15, HDRXEC+1
RCHDR(0	DISP+18, DISP+28, HDRBLD+15, HDRBLD+22, HDRBLD+40, HDRBLD+60, HDRBLD+63, HDRLM+9, HDRLM+25, HDRLM+42 , HDRLM+45*
RCHDR(1	HDRBLD+15, HDRBLD+16, HDRBLD+17*
RCLNCNT	ASKUSR+2~, ASKUSR+17*, DISP+24, DISP+25, DISP+31, DISP+37, DISP+41, DISP+44, DISP+47, DISP+50 , DISP+51, WP+13
RCLSTMGR	ASKUSR+2~, ASKUSR+17, ASKUSR+31, ASKUSR+32*, ASKUSR+33, DISP+4, DISP+5, DISP+11, DISP+18, DISP+28 , DISP+54, HDRLM+45
RCNTRY	DISP+1~, DISP+15*, DISP+16, DISP+19, DISP+20, DISP+21, DISP+22, DISP+23, DISP+25, DISP+29 , DISP+30, DISP+32, DISP+33, DISP+34, DISP+35, DISP+36, DISP+38, DISP+39, DISP+40, DISP+43
RCPGNUM	ASKUSR+2~, HDRBLD+12, HDRBLD+15
RCPROG	ASKUSR+2~, ASKUSR+17*, RPRTCMPL+1, EXIT+2, DISP+14, DISP+15, DISP+49
RCRTYP	EOB+1~, POST+1~, ASKUSR+1, ASKUSR+22, ASKUSR+34, ASKUSR+37, RPRTCMPL+3, RPRTCMPL+5, DISP+3, DISP+17 , DISP+27, HDRBLD+16, HDRBLD+17, HDRBLD+23, HDRBLD+25, HDRBLD+26, HDRBLD+42, HDRBLD+43, HDRLM+10, HDRLM+11 , HDRLM+12, HDRLM+27, HDRLM+28
RCSTA	ASKUSR+2~
RCSTART	DTRNG+1~, DTRNG+2, DTRNG+3, DTRNG+4, DTRNG+5
RCSTOP	ASKUSR+2~, ASKUSR+17, DISP+11, DISP+13, DISP+14, DISP+15, DISP+18, DISP+28, DISP+47, HDRBLD+12*
RCTMPND	ASKUSR+3~, ASKUSR+17*, ASKUSR+34, ASKUSR+40, ASKUSR+42, DISP+24, DISP+25, DISP+31, DISP+37, DISP+41 , DISP+44, DISP+47, DISP+50, DISP+51, WP+13
RCTYPE	ASKUSR+3~, ASKUSR+26*, CMPLERA+16, CMPLEOB+14, HDRBLD+35, HDRBLD+52, HDRLM+17, HDRLM+32
STA	CMPLERA+2~, CMPLERA+14, CMPLERA+15, CMPLERA+18, CMPLEOB+1~, CMPLEOB+12, CMPLEOB+13, CMPLEOB+17, ERASTA~, ERASTA+5* , ERASTA+10, ERASTA+11, EOBSTA~, EOBSTA+4, EOBSTA+8*, EOBSTA+9
STAIEN	ERASTA+3~, ERASTA+9, ERASTA+10, ERASTA+12, EOBSTA+2~, EOBSTA+7, EOBSTA+8, EOBSTA+10
START	CMPLERA+2~, CMPLERA+4, CMPLERA+5, CMPLERA+8, CMPLERA+10, CMPLEOB+1~, CMPLEOB+3, CMPLEOB+6, CMPLEOB+8, CMPLEOB+10 , HDRBLD+19~, HDRBLD+20, HDRBLD+31, HDRBLD+48, HDRLM+6~, HDRLM+7*, HDRLM+20, HDRLM+34
STNAM	CMPLERA+2~, CMPLERA+14, CMPLERA+18, CMPLEOB+1~, CMPLEOB+12, CMPLEOB+17, ERASTA~, ERASTA+5, ERASTA+11, EOBSTA~ , EOBSTA+4, EOBSTA+9
STNUM	CMPLERA+2~, CMPLERA+14, CMPLERA+18, CMPLEOB+1~, CMPLEOB+12, CMPLEOB+17, ERASTA~, ERASTA+5, ERASTA+12, EOBSTA~ , EOBSTA+4, EOBSTA+10
SUB	CMPLERA+4, DISP+1~, DISP+13, DISP+14, DISP+15, LINE+1~, LINE+2, LINE+3, LINE+4, SELDIV+6~ , SELDIV+12, SELDIV+13*, SELDIV+14, SELDIV+15
TYP	HDRXEC~, HDRXEC+1
U	CMPLERA+5, CMPLEOB+3, DISP+19, DISP+20, DISP+21, DISP+22, DISP+23, DISP+25, DISP+29, DISP+30 , DISP+32, DISP+33, DISP+34, DISP+35, DISP+36, DISP+38, DISP+39, DISP+40, DISP+43, HDRBLD+20 , HDRLM+7, ERASTA+7, ERASTA+8, ERASTA+9, ERASTA+12, EOBSTA+6, EOBSTA+7, EOBSTA+10
VAUTD	ASKUSR+3~, DISP+3, LINE~, SELDIV~, SELDIV+8, SELDIV+11, SELDIV+12, HDRBLD+29, HDRBLD+46, HDRLM+14 , HDRLM+29, STADIV+11
VAUTD(	CMPLERA+15, CMPLEOB+13, LINE+3, LINE+4, SELDIV+13, SELDIV+14, SELDIV+15
X	ASKUSR+3~, DTRNG+1~, ACTION+1~, DISPTY+1~, DTPRB+1~
Y	ASKUSR+3~, DISP+1~, DISP+19, DISP+20, DISP+21, DISP+22, DISP+23, DISP+24, DISP+29, DISP+30* , DISP+31, DISP+32, DISP+33, DISP+34, DISP+35, DISP+36, DISP+37, DISP+39, DISP+40, DISP+41 , HDRBLD+19~, HDRBLD+27, HDRBLD+28, HDRBLD+29, HDRBLD+30, HDRBLD+31, HDRBLD+32, HDRBLD+34, HDRBLD+35, HDRBLD+36 , HDRBLD+44, HDRBLD+45, HDRBLD+46, HDRBLD+47, HDRBLD+48, HDRBLD+49, HDRBLD+51, HDRBLD+52, HDRBLD+53, HDRBLD+54 , HDRBLD+55, HDRBLD+63, HDRLM+6~, HDRLM+14, HDRLM+16, HDRLM+17, HDRLM+18, HDRLM+20, HDRLM+21, HDRLM+29 , HDRLM+31, HDRLM+32, HDRLM+33, HDRLM+34, HDRLM+35, HDRLM+36, HDRLM+37, HDRLM+45, DTRNG+1~, DATES+4 , DATES+5, DATES+9, DATES+10, STADIV+3~, STADIV+8, ACTION+1~, ACTION+7, DISPTY+1~, DISPTY+6, DTPRB+1~ , DTPRB+5, DTPRB+6, WP+3~, WP+9*, WP+10, WP+11
Y(0	DATES+7
Z	SELDIV~
Z(	SELDIV+7, SELDIV+9, SELDIV+10, SELDIV+14, SELDIV+15, SELDIV+16, SELDIV+18*, SELDIV+19!
ZTDESC	ASKUSR+48~, ASKUSR+50*
ZTQUEUED	ASKUSR+48~, DISP+54, DISP+55
>> ZTREQ	DISP+55*
ZTRTN	ASKUSR+48~, ASKUSR+49*
ZTSAVE	ASKUSR+48~
ZTSAVE("RC*"	ASKUSR+51*
ZTSAVE("VAUTD"	ASKUSR+51*
ZTSK	ASKUSR+48~, ASKUSR+53, ASKUSR+54!

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEM4

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items