Routine: RCDPEWL6

Package	Total	Call Graph
Accounts Receivable	9	ADJUST^RCBEADJ $$GETABILL^RCBEUBIL (NOBATCH,NOEDIT)^RCDPEWL BLD^RCDPEWL1 (NOTAV,RET)^RCDPEWL2 DISTADJ^RCDPEWL4 ADDLINES^RCDPEWLA NOEDIT^RCDPEWLP $$BILL^RCJIBFN2
VA FileMan	2	$$GET1^DIQ ^DIR
Integrated Billing	1	$$IB^IBRUTL
List Manager	1	(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Accounts Receivable	4	RCDPE EOB WORKLIST ADJUST RCDPE EOB WORKLIST DIST ADJ RCDPE EOB WORKLIST REFRESH RCDPEWL2
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
DISTADJ	;EP - Protocol action - RCDPE EOB WORKLIST DIST ADJ ; Distribute an adjustment that retracts a payment to other bill(s)
DISTQ
REFRESH	;EP - Protocol action - RCDPE EOB WORKLIST REFRESH ; Refresh the entry in file 344.49 to remove all user adjustments
REFQ
WHAT(RCSCR)	; Text for what to do if not enough funds found for dist adj
ADJUST	; Allow entry into increase/decrease adjustment functions
ADJUSTQ
RESTMP	;
UPDBAL(RCY)	; Updates the claim balance if bill exists in list ; RCY = ien of bill in file 430

Name	Field # of Occurrence
$$GET1^DIQ	DISTADJ+77
^DIR	DISTADJ+24, DISTADJ+27, DISTADJ+36, DISTADJ+56, DISTADJ+62, DISTADJ+94, DISTADJ+97, DISTADJ+100, DISTADJ+102, DISTADJ+116 , DISTADJ+120, REFRESH+17, ADJUST+9, ADJUST+13
$$IB^IBRUTL	DISTADJ+20
ADJUST^RCBEADJ	ADJUST+20
$$GETABILL^RCBEUBIL	ADJUST+18
NOBATCH^RCDPEWL	DISTADJ+10
NOEDIT^RCDPEWL	DISTADJ+9, REFRESH+9
BLD^RCDPEWL1	REFRESH+32
NOTAV^RCDPEWL2	ADJUST+4
RET^RCDPEWL2	ADJUSTQ+1
DISTADJ^RCDPEWL4	DISTADJ+122
ADDLINES^RCDPEWLA	REFRESH+31
NOEDIT^RCDPEWLP	DISTADJ+8, REFRESH+8
$$BILL^RCJIBFN2	ADJUST+23, UPDBAL+4
FULL^VALM1	DISTADJ+7, REFRESH+3, ADJUST+2
PAUSE^VALM1	REFRESH+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISTADJ+24
Function Call: WRITE	Prompt: ! Line Location: DISTADJ+27
Function Call: WRITE	Prompt: ! Line Location: DISTADJ+36
Function Call: WRITE	Prompt: !,"THIS LINE DOES NOT EXIST FOR THIS ERA" Line Location: DISTADJ+38
Function Call: WRITE	Prompt: ! Line Location: DISTADJ+38
Function Call: WRITE	Prompt: ! Line Location: DISTADJ+41
Function Call: WRITE	Prompt: !," LINE #: "_+Y_" AMOUNT NEEDED TO DISTRIBUTE: "_$J(+RCZ(Y),"",2),! Line Location: DISTADJ+43
Function Call: WRITE	Prompt: ! Line Location: DISTADJ+56
Function Call: WRITE	Prompt: ! Line Location: DISTADJ+62
Function Call: WRITE	Prompt: !,"THIS LINE DOES NOT EXIST FOR THIS ERA" Line Location: DISTADJ+64
Function Call: WRITE	Prompt: ! Line Location: DISTADJ+64
Function Call: WRITE	Prompt: !,$S(Y[".":"THIS LINE CANNOT BE USED FOR AN ADJUSTMENT DISTRIBUTION",1:"PLEASE ENTER THE ENTIRE LINE # (Such as: 1.001)") Line Location: DISTADJ+68
Function Call: WRITE	Prompt: ! Line Location: DISTADJ+68
Function Call: WRITE	Prompt: !,"THIS IS NOT AN ACTIVE BILL !",!,"CANNOT PERFORM DISTRIBUTION TO THIS CLAIM",! Line Location: DISTADJ+78
Function Call: WRITE	Prompt: !,"Warning - on-hold exists for this claim",! Line Location: DISTADJ+80
Function Call: WRITE	Prompt: !," LINE #: "_+Y_" LINE BALANCE: "_$J(+$P(RCZ2(Y),U,2),"",2),! Line Location: DISTADJ+81
Function Call: WRITE	Prompt: !,"THE LINE SELECTED IS AN ADDITIONAL PAYMENT LINE, NOT SPECIFIC TO A CLAIM",!,"THE AMT WILL BE DISTRIBUTED, BUT A DECREASE ADJUSTMENT WILL NOT BE PERFORMED",! Line Location: DISTADJ+87
Function Call: WRITE	Prompt: !!,"This action can only be taken by users that have the RCDPEPP security key.",! Line Location: REFRESH+5
Function Call: WRITE	Prompt: ! Line Location: REFRESH+17
Function Call: WRITE	Prompt: ! Line Location: REFRESH+22
Function Call: WRITE	Prompt: ! Line Location: ADJUST+9
Function Call: WRITE	Prompt: ! Line Location: ADJUST+13
Function Call: WRITE	Prompt: !,"Claim balance is now: ",$J(+$P($$BILL^RCJIBFN2(RCY),U,3),"",2) Line Location: ADJUST+23
Routine Call	DIR Line Location: DISTADJ+24 DISTADJ+27 DISTADJ+36 DISTADJ+56 DISTADJ+62 DISTADJ+94 DISTADJ+97 DISTADJ+100 DISTADJ+102 DISTADJ+116 DISTADJ+120 REFRESH+17 ADJUST+9 ADJUST+13

FileNo	Call Tags
^PRCA(430 - [#430]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^IB - [#350]	DISTADJ+20
^RCY(344.31 - [#344.31]	WHAT+1
^RCY(344.4 - [#344.4]	DISTADJ+8, DISTADJ+110, REFRESH+8
^RCY(344.49 - [#344.49]	DISTADJ+12, DISTADJ+73, DISTADJ+76, DISTADJ+77, DISTADJ+85, DISTADJ+87, DISTADJ+107, DISTADJ+111
^TMP("RCBATCH_SELECTED"	DISTADJ+10
^TMP("RCDPE-EOB_WL"	UPDBAL+8, UPDBAL+9*
^TMP("RCDPE-EOB_WLDX"	DISTADJ+12, DISTADJ+38, DISTADJ+64, DISTADJ+72, DISTADJ+107, UPDBAL+6
^TMP("RC_BILL"	ADJUST+21, UPDBAL+5, UPDBAL+9
^TMP("RC_SAVE_TMP"	ADJUST+14*, RESTMP+1!
^TMP($J	REFRESH+32, REFRESH+33!, ADJUST+14, RESTMP+1*
^XUSEC("PRCADJ"	ADJUST+6
^XUSEC("RCDPEPP"	REFRESH+4

Name	Line Occurrences
$$WHAT	DISTADJ+27, DISTADJ+56
ADJUSTQ	ADJUST+4, ADJUST+15, ADJUST+19
DISTQ	DISTADJ+8, DISTADJ+9, DISTADJ+10, DISTADJ+23, DISTADJ+26, DISTADJ+48, DISTADJ+55, DISTADJ+89, DISTADJ+96, DISTADJ+101 , DISTADJ+105
REFQ	REFRESH+8, REFRESH+9, REFRESH+18
RESTMP	ADJUSTQ
UPDBAL	ADJUST+22

Name	Field # of Occurrence
^(	DISTADJ+12, DISTADJ+73

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CT	DISTADJ+5~, DISTADJ+31, DISTADJ+33, DISTADJ+58, DISTADJ+59
DA	REFRESH+2~
DIC	ADJUST+1~
DIK	REFRESH+2~
DIR	DISTADJ+5~, DISTADJ+24!, DISTADJ+27!, DISTADJ+36!, DISTADJ+56!, DISTADJ+62!, DISTADJ+94!, DISTADJ+97!, DISTADJ+100!, DISTADJ+102! , DISTADJ+116!, DISTADJ+120!, REFRESH+2~, REFRESH+17!, ADJUST+1~, ADJUST+9!, ADJUST+13!
DIR("?"	DISTADJ+31, DISTADJ+33, DISTADJ+34, DISTADJ+58, DISTADJ+59, DISTADJ+60, DISTADJ+93*
DIR("A"	DISTADJ+24, DISTADJ+27, DISTADJ+30, DISTADJ+56, DISTADJ+57, DISTADJ+92, DISTADJ+97, DISTADJ+102, DISTADJ+112, DISTADJ+120 , REFRESH+14, REFRESH+15, REFRESH+16, ADJUST+7, ADJUST+8, ADJUST+9, ADJUST+12*
DIR("B"	DISTADJ+35, DISTADJ+61, DISTADJ+91, DISTADJ+92, DISTADJ+93, DISTADJ+113, DISTADJ+114, DISTADJ+115, ADJUST+12*
DIR(0	DISTADJ+24, DISTADJ+27, DISTADJ+30, DISTADJ+56, DISTADJ+57, DISTADJ+92, DISTADJ+97, DISTADJ+102, DISTADJ+112, DISTADJ+120 , REFRESH+13, ADJUST+7, ADJUST+12*
DTOUT	DISTADJ+5~, DISTADJ+37, DISTADJ+63, DISTADJ+96, DISTADJ+101, DISTADJ+118, ADJUST+15
DUOUT	DISTADJ+5~, DISTADJ+37, DISTADJ+63, DISTADJ+96, DISTADJ+101, DISTADJ+118, ADJUST+15
DUZ	REFRESH+4, ADJUST+6
IBA	DISTADJ+18~
IBA(	DISTADJ+20
ONHLD	DISTADJ+18~, DISTADJ+19, DISTADJ+20, DISTADJ+21
Q	DISTADJ+18~, DISTADJ+20*
RCA	DISTADJ+106~, DISTADJ+107, DISTADJ+109, DISTADJ+111, DISTADJ+114
RCA("#"	DISTADJ+107*, DISTADJ+110, DISTADJ+111
RCA("REF"	DISTADJ+110*, DISTADJ+114
RCACTIVE	DISTADJ+6~, DISTADJ+76, DISTADJ+77, DISTADJ+78, DISTADJ+79*
RCADJ	DISTADJ+5~, DISTADJ+86, DISTADJ+87, DISTADJ+105
RCADJOK	DISTADJ+5~, DISTADJ+12, DISTADJ+13
RCADJSTR	DISTADJ+6~, DISTADJ+73*
RCAMT	DISTADJ+5~, DISTADJ+98*, DISTADJ+122
RCDA	DISTADJ+5~, DISTADJ+37, DISTADJ+46, DISTADJ+48, DISTADJ+105, DISTADJ+111, DISTADJ+119!, DISTADJ+122
RCDA(1	DISTADJ+46*, DISTADJ+58, DISTADJ+107
RCDA(2	DISTADJ+46*, DISTADJ+55, DISTADJ+91
RCDA1	DISTADJ+5~, DISTADJ+63, DISTADJ+84, DISTADJ+89, DISTADJ+122
RCDA1(1	DISTADJ+84*, DISTADJ+85, DISTADJ+91
RCNONSP	DISTADJ+6~, DISTADJ+73*, DISTADJ+76
RCQUIT	DISTADJ+5~, DISTADJ+29, DISTADJ+30, DISTADJ+37, DISTADJ+46, DISTADJ+50, DISTADJ+57, DISTADJ+63, DISTADJ+84, REFRESH+2~
RCREDEF	REFRESH+2~
RCSCR	DISTADJ+8, DISTADJ+12, DISTADJ+27, DISTADJ+56, DISTADJ+73, DISTADJ+76, DISTADJ+77, DISTADJ+85, DISTADJ+87, DISTADJ+107 , DISTADJ+110, DISTADJ+111, REFRESH+8, REFRESH+31, WHAT~, WHAT+1, ADJUST+20
RCSCR("NOEDIT"	DISTADJ+9, REFRESH+9, ADJUST+4
RCTYP	ADJUST+1~, ADJUST+17*, ADJUST+20
RCY	ADJUST+1~, ADJUST+18*, ADJUST+19, ADJUST+20, ADJUST+21, ADJUST+22, ADJUST+23, UPDBAL~, UPDBAL+4, UPDBAL+5 , UPDBAL+9
RCZ	DISTADJ+5~
RCZ(	DISTADJ+16*, DISTADJ+33, DISTADJ+39, DISTADJ+40, DISTADJ+41, DISTADJ+43, DISTADJ+46, DISTADJ+58
RCZ(""	DISTADJ+35
RCZ(0	DISTADJ+23, DISTADJ+35
RCZ1	DISTADJ+5~
RCZ1(	DISTADJ+21*, DISTADJ+59
RCZ1(0	DISTADJ+26
RCZ2	DISTADJ+5~
RCZ2(	DISTADJ+21*, DISTADJ+54, DISTADJ+65, DISTADJ+66, DISTADJ+67, DISTADJ+80, DISTADJ+81, DISTADJ+84, DISTADJ+91
RCZ2(""	DISTADJ+61
RCZ2(0	DISTADJ+61
RCZZ1	DISTADJ+6~, DISTADJ+72*, DISTADJ+73, DISTADJ+76, DISTADJ+77
RCZZ2	DISTADJ+6~, DISTADJ+73*
TOT	DISTADJ+5~, DISTADJ+54*, DISTADJ+55
U	DISTADJ+8, DISTADJ+12, DISTADJ+13, DISTADJ+16, DISTADJ+17, DISTADJ+20, DISTADJ+21, DISTADJ+33, DISTADJ+46, DISTADJ+54 , DISTADJ+58, DISTADJ+59, DISTADJ+72, DISTADJ+73, DISTADJ+76, DISTADJ+77, DISTADJ+80, DISTADJ+81, DISTADJ+87, DISTADJ+91 , DISTADJ+107, DISTADJ+108, DISTADJ+110, DISTADJ+114, REFRESH+8, ADJUST+23, UPDBAL+4
>> VALMBCK	DISTQ, REFRESH+7, REFQ, ADJUSTQ+2
>> VALMBG	REFQ*
X	DISTADJ+5~, REFRESH+2~, ADJUST+1~, UPDBAL+3~, UPDBAL+6*, UPDBAL+7, UPDBAL+8, UPDBAL+9
Y	DISTADJ+5~, DISTADJ+37, DISTADJ+38, DISTADJ+39, DISTADJ+40, DISTADJ+41, DISTADJ+42, DISTADJ+43, DISTADJ+46, DISTADJ+63 , DISTADJ+64, DISTADJ+65, DISTADJ+66, DISTADJ+67, DISTADJ+68, DISTADJ+69, DISTADJ+72, DISTADJ+80, DISTADJ+81, DISTADJ+84 , DISTADJ+96, DISTADJ+98, DISTADJ+104, DISTADJ+122, REFRESH+2~, REFRESH+18, ADJUST+1~, ADJUST+15, ADJUST+17, UPDBAL+3~ , UPDBAL+8*, UPDBAL+9
Z	DISTADJ+5~, DISTADJ+12, DISTADJ+16, DISTADJ+21, DISTADJ+32, DISTADJ+33, DISTADJ+54, DISTADJ+59, DISTADJ+85, DISTADJ+87 , DISTADJ+106~, DISTADJ+107, DISTADJ+108, DISTADJ+110, DISTADJ+111, DISTADJ+114, REFRESH+2~, UPDBAL+3~, UPDBAL+5*, UPDBAL+6 , UPDBAL+9
Z0	DISTADJ+5~, DISTADJ+12, DISTADJ+13, DISTADJ+16, DISTADJ+17, DISTADJ+20, DISTADJ+21, DISTADJ+59, REFRESH+2~, UPDBAL+3~ , UPDBAL+4*, UPDBAL+9
Z1	DISTADJ+5~, DISTADJ+12, DISTADJ+16, DISTADJ+21, DISTADJ+107, UPDBAL+3~, UPDBAL+9*

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEWL6

Information

Source Information

Call Graph

Call Graph Total: 13

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

Naked Globals

Local Variables

Legend: