Routine: RCDPEAA2

Information

RCDPEAA2 ;ALB/KML - APAR Screen - SELECTED EOB ;Jun 06, 2014@19:11:19

Package	Total	Call Graph
Accounts Receivable	6	$$ORI^PRCAFN $$SEL^RCDPEAA1 $$CHECKPAY^RCDPEAP PRERA^RCDPEWL0 GETPHARM^RCDPEWLP $$BILL^RCJIBFN2
VA FileMan	4	FILE^DIE $$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Integrated Billing	2	$$RXST^IBARXEU RELBILL^IBRFN
Kernel	2	$$FMTE^XLFDT $$TRIM^XLFSTR
List Manager	2	(FULL,PAUSE)^VALM1 CLEAN^VALM10
Registration	1	$$LST^DGMTU

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

Package	Total	Caller Graph
Accounts Receivable	6	RCDPE APAR EEOB RESEARCH RCDPE APAR SELECTED EEOB RCDPE APAR VIEW/PRINT ERA RCDPE MARK FOR AUTOPOST RCDPEAA3 RCDPEWL1
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
INIT(RCIENS)	; Entry point for List template to build the display of the EEOB on APAR ; ; Input - RCIENS = ien of entry in file 344.49^ien of 344.491^selectable line item from listman screen
BLD(RCIENS)	; Display selected EEOB on APAR screen
SET(X,RCSEQ,RCSEQ1,RCZ9)	; -- set ListManager arrays ; X = the data to set into the global ; RCSEQ = the selectable line # ; RCSEQ1 = = the sub line # ; RCZ9 = reference to the line(s) in file 344.41 or to the subline in ; file 344.49 for RCSEQ having a decimal
TOPLINE(RCZ0)	; Function returns the top line of the EEOB display ; RCZ0 = the 0-node of the whole number entry line for the EEOB
SLINE(ZIN,ZARR,FLN,SLN)	; ; ZIN - Input string; ZARR - Array output of lines ; FLN - First line length ; SLN - Subsequent line lengths ; Assumes ZIN max length is 132 characters and FLN and SLN variables will make ZIN fit in 3 lines.
CLINES(RCZZ0,RCT,ZZ1)	; called from BLD ; set up the claim information lines ; ; Input - RCZZ0 = zero node data at 344.491 ; RCT = sub line # ; ZZ1 = reference to the to the subline in ; file 344.49 for RCSEQ having a decimal
REVLINES(RCSCR,RCZZ0,RCT,ZZ1)	;called from BLD; set up the reviewed lines ; ; Input - RCSCR = ien of 344.49 (and 344.4) ; RCZZ0 = zero node data at 344.491 ; RCT = sub line # ; ZZ1 = reference to the to the subline in ; file 344.49 for RCSEQ having a decimal
ADJLINES(RCZZ0,RCT,ZZ1)	; called from BLD; set up the adjustment lines ; ; Input - RCZZ0 = zero node data at 344.491 ; RCT = sub line # ; ZZ1 = reference to the to the subline in ; file 344.49 for RCSEQ having a decimal
RXLINES(RCZZ0,RCECME,RCT,ZZ1)	; called from BLD ; set up the Pharmacy lines
HDR	; Creates header lines for the selected EEOB display
RCPTS(RCDA,RC0)	; pull list of 'other receipt #s ; input - RCDA = ien of entry in 344.4 ; RC0 = data string at zero node of entry in 344.4 ; output - RCPTS = returns list of receipts stored at 344.4,.08 and 344.48 multiple
RCPTSQ	;
EXIT	; -- Clean up list
PNM4(RCIFN,RCDA,RC)	; Returns either the patient name or patient name/last 4 ; RCIFN = ien of file 344.4 ; RCDA = ien of file 344.41 ; RC = the ien of file 430
COBN(RC,A)	; Return seq # of selected payer ; A = 'PST' or null to get current bill payer seq #
COPAY(RCIFN)
MARK(RCIENS)	;EP - Protocol action - RCDPE MARK FOR AUTO POST ; Mark for Auto-Post - EEOB on APAR gets marked for auto-post if it passes ; autoposting validation ; Input: RCIENS - Internal IEN of entry in file 344.49^ien of ; 344.491^selectable line item from listman screen
MARKQ	;
NOLOCK	; entry cannot be locked
VIEWERA(RCIENS)	; View/Print ERA - protocol entry from APAR EEOB List screen and APAR - EEOB ITEM - SCRATCHPAD screen
VALID(RCSCR,SCRLINE,RCARRAY)	;Validates Scratchpad line - Used by APAR/Mark for Auto-post - split from RCDPEAP - PRCA4.5326
UPDERA(ERAIEN,RCDUZ)	; Update MARK FOR AUTOPOST USER top level ERA with DUZ from detail line. PRCA4.5326 ; MARK FOR AUTOPOST USER is required at ERA level for initial receipt and AR transaction crreation ; so the MARK FOR AUTOPOST USER at the top level will be equal to the last detail line marekd for autopost
IEN41(IEN,LINE)	; Given a scratch pad line, find the original ERA detail line. PRCA4.5332 ; Input: IEN - Internal Entry number of ERA scratchpad from file 344.49 ; LINE - Line from ERA scratchpad file 344.49

External References

Name	Field # of Occurrence
$$LST^DGMTU	CLINES+11
FILE^DIE	MARK+27, UPDERA+5
$$EXTERNAL^DILFD	TOPLINE+4
$$GET1^DIQ	BLD+11, BLD+15, BLD+40, BLD+41, HDR+10, IEN41+5
^DIR	MARK+21, MARK+31, NOLOCK+7
$$RXST^IBARXEU	CLINES+9
RELBILL^IBRFN	COPAY+5
$$ORI^PRCAFN	CLINES+7
$$SEL^RCDPEAA1	MARK+13, VIEWERA+3
$$CHECKPAY^RCDPEAP	VALID+27
PRERA^RCDPEWL0	VIEWERA+4
GETPHARM^RCDPEWLP	RXLINES+8
$$BILL^RCJIBFN2	CLINES+14
FULL^VALM1	MARK+7
PAUSE^VALM1	MARK+10
CLEAN^VALM10	INIT+5
$$FMTE^XLFDT	CLINES+16, REVLINES+12
$$TRIM^XLFSTR	RCPTS+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This action can only be taken by users that have the RCDPEPP security key.",! Line Location: MARK+9
Function Call: WRITE	Prompt: ! Line Location: MARK+21
Function Call: WRITE	Prompt: ! Line Location: MARK+21
Function Call: WRITE	Prompt: ! Line Location: MARK+31
Function Call: WRITE	Prompt: ! Line Location: MARK+31
Routine Call	DIE Line Location: MARK+27 UPDERA+5
Routine Call	DIR Line Location: MARK+21 MARK+31 NOLOCK+7

FileNo	Call Tags
^RCY(344.31 - [#344.31]	GET1^DIQ
344.41	GET1^DIQ
344.491	EXTERNAL^DILFD, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	CLINES+7, CLINES+17, PNM4+8, COBN+2
^DPT - [#2]	PNM4+8, PNM4+12
^IBM(361.1 - [#361.1]	PNM4+8
^PRCA(430 - [#430]	PNM4+11, COPAY+8, VALID+25, VALID+29
^RCY(344 - [#344]	RCPTS+6, RCPTS+9
^RCY(344.31 - [#344.31]	HDR+9
^RCY(344.4 - [#344.4]	BLD+10, HDR+4, RCPTS+9, PNM4+7, MARK+23, MARK+32
^RCY(344.49 - [#344.49]	BLD+2, BLD+3, BLD+4, BLD+9, BLD+25, BLD+27, BLD+30, BLD+43, REVLINES+11, REVLINES+13 , ADJLINES+9, MARK+24, VALID+18, VALID+19, VALID+21, IEN41+4
^TMP("IBRBF"	COPAY+4!, COPAY+6, COPAY+7!, COPAY+8!, COPAY+9, COPAY+10!
^TMP("RCDPE-APAR_EEOB_WLDX"	HDR+6, HDR+7
^TMP("RCDPE-EOB_WL"	INIT+6!, SET+6, SET+7
^TMP("RCDPE-EOB_WLDX"	INIT+6!, SET+8*
^TMP("RCS"	INIT+6!, BLD+5, BLD+6, BLD+8, BLD+24
^TMP("RC_BILL"	CLINES+15*
^TMP($J	BLD+44, BLD+48!, TOPLINE+4, COPAY+4!, COPAY+10!
^VA(200 - [#200]	REVLINES+9, REVLINES+12
^XUSEC("RCDPEPP"	MARK+6

Label References

Name	Line Occurrences
$$COBN	CLINES+17
$$IEN41	BLD+28
$$PNM4	BLD+30
$$RCPTS	HDR+12
$$TOPLINE	BLD+12
$$VALID	MARK+15
ADJLINES	BLD+43
BLD	INIT+8
CLINES	BLD+32
MARKQ	MARK+15, MARK+23
NOLOCK	MARK+23
RCPTSQ	RCPTS+7
REVLINES	BLD+44
RXLINES	BLD+36
SET	BLD+13, BLD+19, BLD+21, BLD+31, BLD+34, BLD+39, BLD+40, BLD+41, BLD+45, BLD+46 , BLD+47, CLINES+14, CLINES+18, REVLINES+10, REVLINES+12, REVLINES+14, REVLINES+15, ADJLINES+8, ADJLINES+17, ADJLINES+18 , RXLINES+9, RXLINES+10, RXLINES+11, RXLINES+12
SLINE	BLD+17
UPDERA	MARK+28

Naked Globals

Name	Field # of Occurrence
^(	REVLINES+11, REVLINES+13, ADJLINES+9, RCPTS+9, COPAY+6
^(0	CLINES+7, PNM4+8, PNM4+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	BLD+46, TOPLINE+2~, TOPLINE+3, TOPLINE+4, TOPLINE+5, CLINES+6~, REVLINES+7~, REVLINES+8, REVLINES+9, REVLINES+10 , REVLINES+11, REVLINES+13, COBN~, COBN+2, COBN+3, COBN+4
A("DFN"	CLINES+7*, CLINES+9, CLINES+11
A("ENRPR"	CLINES+7*
A("M/T"	CLINES+11, CLINES+12, CLINES+18
A("OA"	CLINES+7*, CLINES+13
A("RXCP"	CLINES+9*, CLINES+18
A("SDT"	CLINES+7*, CLINES+9, CLINES+11, CLINES+16
A0	REVLINES+7~, REVLINES+11*, REVLINES+12
B	REVLINES+7~, REVLINES+13*
B0	REVLINES+7~, REVLINES+13, REVLINES+14, REVLINES+15
CLAIM	VALID+16~, VALID+23*, VALID+25, VALID+27, VALID+29
CLARRAY	VALID+17!, VALID+27
CLARRAY(	VALID+27*
DIR	MARK+12~, MARK+21!, MARK+31!, NOLOCK+1~
DIR("A"	MARK+18, MARK+19, MARK+20, MARK+29, MARK+30, NOLOCK+3, NOLOCK+4, NOLOCK+5, NOLOCK+6*
DIR(0	MARK+18, MARK+29, NOLOCK+2*
DONE	VALID+16~, VALID+18, VALID+19, VALID+21
DUZ	MARK+6, MARK+26, MARK+28
ERADA1	MARK+12~, MARK+24*, MARK+25, MARK+26, MARK+29
ERAIEN	UPDERA~, UPDERA+4
FDA	UPDERA+3~
FDA(	UPDERA+4*
FDTTM	INIT+4~
FIRST	COPAY+3~, COPAY+9*, COPAY+11
FLN	SLINE~, SLINE+4, SLINE+6
IEN	IEN41~, IEN41+4, IEN41+5
IEN2	IEN41+3~, IEN41+4*, IEN41+5
IENS	UPDERA+3~
LINE	MARK+12~, MARK+16*, MARK+17, IEN41~, IEN41+4
Q	CLINES+6~, ADJLINES+10, ADJLINES+18, PNM4+4~, PNM4+8, PNM4+11*, PNM4+12
QQ	CLINES+6~, CLINES+13*, CLINES+14, CLINES+15
RC	PNM4~, PNM4+10, PNM4+11, COBN~, COBN+2
RC0	BLD+1~, HDR+1~, HDR+4*, HDR+5, HDR+8, HDR+10, HDR+12, RCPTS~, RCPTS+6
RC4	HDR+1~, HDR+4*
RC5	HDR+1~, HDR+4*, HDR+11
RCARRAY	VALID~, VALID+17!
RCARRAY(	VALID+25, VALID+27, VALID+29, VALID+31
RCARRAY(""	VALID+33
RCAZ	ADJLINES+6~, ADJLINES+9*
RCAZ0	ADJLINES+6~, ADJLINES+9*, ADJLINES+10, ADJLINES+11, ADJLINES+12, ADJLINES+13, ADJLINES+14, ADJLINES+15, ADJLINES+16, ADJLINES+18
RCCL	BLD+1~, BLD+15*, BLD+16, BLD+17
RCCL1	BLD+1~, BLD+21
RCCL1(1	BLD+18
RCCL1(2	BLD+21
RCCL1(3	BLD+21
RCDA	HDR+1~, HDR+3*, HDR+4, HDR+9, HDR+12, RCPTS~, RCPTS+9, PNM4~, PNM4+7
RCDFDA	MARK+12~
RCDFDA(	MARK+25, MARK+26
RCDUZ	UPDERA~, UPDERA+4
RCECME	BLD+1~, BLD+10*, BLD+36, RXLINES~, RXLINES+9
RCERA	BLD+1~, BLD+27*, BLD+28, BLD+30
RCERROR	MARK+12~
RCFASTXT	EXIT+1!
RCIENS	INIT~, INIT+8, BLD~, BLD+2, HDR+2, HDR+3, MARK~, MARK+13*, MARK+14, MARK+15 , MARK+23, MARK+24, MARK+25, MARK+26, MARK+28, MARK+29, MARK+32, VIEWERA~, VIEWERA+2
RCIFN	PNM4~, PNM4+6, PNM4+7, COPAY~, COPAY+5, COPAY+6, COPAY+7, COPAY+8, COPAY+9
RCLI1	BLD+1~, BLD+30*, BLD+31
>> RCPROG	BLD+2*, VIEWERA+2, VIEWERA+3
RCPTS	RCPTS+4~, RCPTS+6, RCPTS+7, RCPTS+8, RCPTS+9, RCPTS+10, RCPTSQ+1
RCSCR	BLD+1~, BLD+2, BLD+3, BLD+4, BLD+9, BLD+10, BLD+11, BLD+15, BLD+25, BLD+27 , BLD+30, BLD+40, BLD+41, BLD+43, BLD+44, REVLINES~, REVLINES+11, REVLINES+13, ADJLINES+9, VIEWERA+1~ , VIEWERA+2, VIEWERA+3*, VIEWERA+4, VALID~, VALID+18, VALID+19, VALID+21
RCSEQ	SET~, SET+7, HDR+1~, HDR+3*, HDR+6, HDR+7
RCSEQ1	SET~, SET+8
RCT	BLD+26*, BLD+28, BLD+31, BLD+32, BLD+34, BLD+36, BLD+39, BLD+40, BLD+41, BLD+43 , BLD+44, BLD+45, BLD+46, CLINES~, CLINES+14, CLINES+15, CLINES+18, REVLINES~, REVLINES+10, REVLINES+12 , REVLINES+14, REVLINES+15, ADJLINES~, ADJLINES+8, ADJLINES+17, ADJLINES+18, RXLINES~, RXLINES+9, RXLINES+10, RXLINES+11 , RXLINES+12
RCTL	BLD+1~, BLD+26*, BLD+34, CLINES+14, CLINES+16, ADJLINES+8, ADJLINES+10
RCTP0	COPAY+3~, COPAY+6*, COPAY+7, COPAY+8
RCTP1	COPAY+3~, COPAY+6*, COPAY+7, COPAY+8
RCTP2	COPAY+3~, COPAY+8*
RCTS	BLD+1~, BLD+7*, BLD+40, BLD+41
RCX	CLINES+6~, CLINES+11*, CLINES+12
RCZ0	BLD+1~, BLD+9*, BLD+10, BLD+11, BLD+12, BLD+13, BLD+15, BLD+19, BLD+21, TOPLINE~ , TOPLINE+3, TOPLINE+4
RCZ41	BLD+1~, BLD+28*, BLD+30
RCZ9	SET~, SET+8
RCZZ0	BLD+25*, BLD+26, BLD+29, BLD+30, BLD+31, BLD+32, BLD+34, BLD+36, BLD+38, BLD+39 , BLD+43, BLD+44, CLINES~, CLINES+7, CLINES+13, CLINES+14, CLINES+15, CLINES+17, CLINES+18, REVLINES~ , REVLINES+8, REVLINES+9, REVLINES+10, REVLINES+12, REVLINES+14, REVLINES+15, ADJLINES~, ADJLINES+8, ADJLINES+14, ADJLINES+17 , ADJLINES+18, RXLINES~, RXLINES+8, RXLINES+9, RXLINES+10, RXLINES+11, RXLINES+12
REASON	BLD+1~, BLD+11, BLD+45, MARK+12~, MARK+17, MARK+19
RESULT	MARK+12~, MARK+15
RESULT(	MARK+17
RESULT(""	MARK+16
RIEN	RCPTS+4~, RCPTS+9*
RXARRAY	RXLINES+7~, RXLINES+8, RXLINES+10
RXARRAY("DOS"	RXLINES+12
RXARRAY("FILL"	RXLINES+11
RXARRAY("RELE	ASED STATUS" , RXLINES+11
RXARRAY("RX"	RXLINES+11
SCRLINE	VALID~, VALID+18
SEQ	VALID+16~, VALID+18*, VALID+21
SEQ1	VALID+16~, VALID+21*, VALID+25, VALID+27, VALID+29, VALID+31
SLN	SLINE~, SLINE+8, SLINE+10
STATUS	VALID+16~, VALID+25*
SUB	VALID+16~, VALID+18, VALID+19, VALID+21
TLINE	BLD+1~, BLD+12, BLD+13, BLD+18, BLD+19
U	BLD+2, BLD+10, BLD+11, BLD+13, BLD+15, BLD+19, BLD+21, BLD+26, BLD+29, BLD+30 , BLD+31, BLD+32, BLD+34, BLD+38, BLD+39, SET+8, TOPLINE+3, TOPLINE+4, CLINES+7, CLINES+9 , CLINES+11, CLINES+13, CLINES+14, CLINES+15, CLINES+17, CLINES+18, REVLINES+8, REVLINES+9, REVLINES+10, REVLINES+12 , REVLINES+14, REVLINES+15, ADJLINES+8, ADJLINES+11, ADJLINES+12, ADJLINES+13, ADJLINES+14, ADJLINES+15, ADJLINES+16, ADJLINES+17 , ADJLINES+18, RXLINES+8, RXLINES+9, RXLINES+10, RXLINES+11, RXLINES+12, HDR+3, HDR+5, HDR+6, HDR+7 , HDR+8, HDR+10, HDR+11, RCPTS+6, RCPTS+9, PNM4+8, PNM4+9, PNM4+11, PNM4+12, COBN+2 , COPAY+7, COPAY+8, MARK+15, MARK+17, MARK+23, MARK+24, MARK+25, MARK+26, MARK+28, MARK+29 , MARK+32, VIEWERA+2, VALID+18, VALID+23, VALID+25, VALID+27, VALID+29, VALID+31
V1	BLD+1~, BLD+29*, BLD+30
>> VALMBCK	MARK+8*
>> VALMBG	INIT+7*
>> VALMCNT	INIT+7, BLD+47, SET+6, SET+7, SET+8
>> VALMHDR(1	HDR+5*
>> VALMHDR(2	HDR+6, HDR+7
>> VALMHDR(3	HDR+8*
>> VALMHDR(4	HDR+10, HDR+11
>> VALMHDR(5	HDR+12*
>> VALMQUIT	HDR+2*
WLINE	VALID+16~, VALID+21*, VALID+23, VALID+25, VALID+27, VALID+29, VALID+31
X	SET~, SET+6, RCPTS+4~, RCPTS+5, RCPTS+9, MARK+12~
XX	MARK+12~
Y	MARK+12~
Z	BLD+1~, BLD+2, BLD+3, BLD+4, HDR+1~, HDR+9, HDR+10, HDR+11, PNM4+4~, PNM4+5 , PNM4+7, PNM4+8, PNM4+9, PNM4+12, PNM4+13
Z0	BLD+1~, BLD+4, PNM4+4~, PNM4+7, PNM4+8, PNM4+9
Z3	CLINES+16, CLINES+17, CLINES+18, ADJLINES+6~, ADJLINES+7, ADJLINES+10, ADJLINES+11, ADJLINES+12, ADJLINES+14, ADJLINES+15 , ADJLINES+16*, ADJLINES+17
ZARR	SLINE~, SLINE+4, SLINE+7, SLINE+8, SLINE+11, SLINE+12
ZI	SLINE+3~, SLINE+6, SLINE+7, SLINE+10, SLINE+11
ZIN	SLINE~, SLINE+4, SLINE+6, SLINE+7
ZL	SLINE+3~, SLINE+6, SLINE+7, SLINE+8, SLINE+10, SLINE+11
ZM	SLINE+3~, SLINE+10, SLINE+11, SLINE+12
ZZ	BLD+1~, BLD+3, BLD+5, BLD+6, BLD+7, BLD+8*, BLD+9, BLD+13, BLD+19, BLD+21 , BLD+24
ZZ1	BLD+1~, BLD+4, BLD+5, BLD+24, BLD+25, BLD+30, BLD+31, BLD+32, BLD+34, BLD+36 , BLD+39, BLD+40, BLD+41, BLD+43, BLD+44, BLD+45, BLD+46, CLINES~, CLINES+14, CLINES+18 , REVLINES~, REVLINES+10, REVLINES+11, REVLINES+12, REVLINES+13, REVLINES+14, REVLINES+15, ADJLINES~, ADJLINES+8, ADJLINES+9 , ADJLINES+17, ADJLINES+18, RXLINES~, RXLINES+9, RXLINES+10, RXLINES+11, RXLINES+12

Customize PDF page

Package: Accounts Receivable