Routine: RCDPEWL8

Package	Total	Call Graph
Accounts Receivable	8	(AUDITLOG,SETSTA)^RCDPEAP $$AUTOCHK2^RCDPEAP1 MVER^RCDPEV (RPT,RPT1)^RCDPEV0 ($$TOT,UPD)^RCDPEWL3 ($$SEL,BLD)^RCDPEWL7 (EDIT,EDITALL,MARKALL,REBATCH)^RCDPEWLB (NOTSET,SUMRPT)^RCDPEWLC
VA FileMan	5	^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR
List Manager	1	(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Accounts Receivable	10	RCDPE EOB WL SPLIT LINE RCDPE EOB WORKLIST BATCH RCDPE EOB WORKLIST MARK FOR AUTO POST RCDPE EOB WORKLIST VERIFY RCDPE ERA LIST BATCH HIDE RCDPE WORKLIST ERA MARK FOR AUTO POST RCDPE WORKLIST ERA SORT RCDPEWL2 RCDPEWL4 RCDPEWL7
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
FILESP	; Action that files the split lines ; Assumes RCDIR,RCLINE,RCSCR,RCSPLIT array defined
SELBAT(RCERA,RCQUIT)	; Select a batch ; If batch is selected, global ^TMP("RCBATCH_SELECTED",$J) is set = ; batch ien selected ; RCQUIT = 1 if selection not made ; prca4.5298 per requirements, keep code for creating/maintaining batches but remove from execution
SORT	; Select a new sort for the list of ERAs
ORD(RCS)	; Select an order for the sorted field code in RCS ; Kill RCS if nothing selected, passed by reference ; Returns '-' if reverse order selected
ORDQ
BATDSP	; Ask Display/Hide batch info on ERA list screen ; prca4.5298 per requirements, keep code for creating/maintaining batches but remove from execution
HASADJ(RCSCR,RCOK)	; Function=1 if WL entry has any adj not yet distributed ; RCSCR = ien of entry in file 344.49 ; RCOK = if passed by reference, returns 1 if ANY postable lines exist
VERIF	;EP - Protocol action - RCDPE EOB WORKLIST VERIFY ; Entrypoint to verification options
VERIFQ
BATED	; Entry point to batch edit options ; prca4.5298 per requirements, keep code for creating/maintaining batches but remove from execution
BATEDQ
AUTOPOST(SOURCE)	;EP Protocol action - RCDPE EOB WORKLIST MARK FOR AUTO POST ; Input: ; SOURCE ; 1:Called by Worklist (RCDPE WORKLIST ERA MARK FOR AUTO POST) ; 2:Called by Scratchpad (RCDPE WORKLIST EOB MARK FOR AUTO POST) ; If SOURCE=2, RCSCR will be set to the IEN of 344.4
AUTOPSTQ	;

External References

Name	Field # of Occurrence
^DIC	SELBAT+8, BATED+26
FILE^DICN	FILESP+39, FILESP+47
^DIE	FILESP+27, FILESP+33, SELBAT+13
$$GET1^DIQ	VERIF+10
^DIR	FILESP+11, SELBAT+11, SELBAT+12, SELBAT+15, SORT+8, SORT+23, ORD+10, ORD+18, ORD+26, BATDSP+7 , VERIF+20, BATED+14, BATED+18, BATED+23, AUTOPSTQ+2
AUDITLOG^RCDPEAP	AUTOPOST+26
SETSTA^RCDPEAP	AUTOPOST+23
$$AUTOCHK2^RCDPEAP1	AUTOPOST+21
MVER^RCDPEV	VERIF+23
RPT^RCDPEV0	VERIF+25
RPT1^RCDPEV0	VERIF+12
$$TOT^RCDPEWL3	FILESP+6
UPD^RCDPEWL3	FILESP+27, FILESP+41
$$SEL^RCDPEWL7	AUTOPOST+16
BLD^RCDPEWL7	SORT+29, BATDSP+11
EDIT^RCDPEWLB	BATED+10, BATED+28
EDITALL^RCDPEWLB	BATED+25
MARKALL^RCDPEWLB	BATED+32
REBATCH^RCDPEWLB	BATED+30
NOTSET^RCDPEWLC	BATED+22
SUMRPT^RCDPEWLC	BATED+34
FULL^VALM1	FILESP+3, SORT+1, BATDSP+4, VERIF+3, BATED+4, AUTOPOST+7
PAUSE^VALM1	VERIF+6, AUTOPOST+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FILESP+11
Function Call: WRITE	Prompt: ! Line Location: SELBAT+11
Function Call: WRITE	Prompt: ! Line Location: SELBAT+12
Function Call: WRITE	Prompt: ! Line Location: SELBAT+15
Function Call: WRITE	Prompt: ! Line Location: SORT+8
Function Call: WRITE	Prompt: ! Line Location: SORT+23
Function Call: WRITE	Prompt: ! Line Location: BATDSP+7
Function Call: WRITE	Prompt: !!,"This action can only be taken by users that have the RCDPEPP security key.",! Line Location: VERIF+5
Function Call: WRITE	Prompt: !! Line Location: VERIF+12
Function Call: WRITE	Prompt: !!!! Line Location: VERIF+15
Function Call: WRITE	Prompt: !,"VERIFY EEOBs:",!,?10,"1",$J("",5),"MANUALLY MARK AS VERIFIED",!,?10,"2",$J("",5),"REPORT OF UNVERIFIED WITH DISCREPANCIES",!,?10,"3",$J("",5),"QUIT AND RETURN TO WORKLIST" Line Location: VERIF+18
Function Call: WRITE	Prompt: ! Line Location: VERIF+20
Function Call: WRITE	Prompt: !! Line Location: VERIF+23
Function Call: WRITE	Prompt: !! Line Location: VERIF+25
Function Call: WRITE	Prompt: !!!! Line Location: BATED+6
Function Call: WRITE	Prompt: !,"*** THERE ARE CURRENTLY NO BATCHES DEFINED FOR THIS ERA ***",! Line Location: BATED+8
Function Call: WRITE	Prompt: !,"EDITING BATCH #"_+^TMP("RCBATCH_SELECTED",$J) Line Location: BATED+10
Function Call: WRITE	Prompt: ! Line Location: BATED+14
Function Call: WRITE	Prompt: !,"BATCH MAINTENANCE:",!,?10,"1",$J("",5),"EDIT BATCH",!,?10,"2",$J("",5),"NEW BATCH ASSIGNMENT",!,?10,"3",$J("",5),"MARK ALL READY TO POST",!,?10,"4",$J("",5),"BATCH SUMMARY REPORT",!,?10,"5",$J("",5),"QUIT AND RETURN TO WORKLIST" Line Location: BATED+16
Function Call: WRITE	Prompt: ! Line Location: BATED+18
Function Call: WRITE	Prompt: !! Line Location: BATED+21
Function Call: WRITE	Prompt: ! Line Location: BATED+23
Function Call: WRITE	Prompt: !! Line Location: BATED+30
Function Call: WRITE	Prompt: !! Line Location: BATED+32
Function Call: WRITE	Prompt: !! Line Location: BATED+34
Function Call: WRITE	Prompt: !!,"This action can only be taken by users that have the RCDPEPP security key.",! Line Location: AUTOPOST+9
Function Call: WRITE	Prompt: !,"ERA has been successfully Marked as an Auto-Post CANDIDATE" Line Location: AUTOPOST+24
Function Call: WRITE	Prompt: !,"ERA was NOT Marked as an Auto-Post CANDIDATE - ",$P(AUTOPOST,U,2) Line Location: AUTOPOST+27
Routine Call	DIC Line Location: SELBAT+8 BATED+26
Routine Call	DIE Line Location: FILESP+27 FILESP+33 SELBAT+13
Routine Call	DIR Line Location: FILESP+11 SELBAT+11 SELBAT+12 SELBAT+15 SORT+8 SORT+23 ORD+10 ORD+18 ORD+26 BATDSP+7 VERIF+20 BATED+14 BATED+18 BATED+23 AUTOPSTQ+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344.4 - [#344.4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.4 - [#344.4]	SELBAT+11, SELBAT+17
^RCY(344.49 - [#344.49]	FILESP+13, FILESP+31, FILESP+35, SELBAT+12, SELBAT+13, SELBAT+14, HASADJ+5, HASADJ+7, BATED+8, BATED+22
^TMP("RCBATCH_SELECTED"	SELBAT+16*, BATED+10
^TMP("RCDPE_EOB_SPLIT_OK"	FILESP+4
^TMP("RCERA_PARAMS"	BATDSP+5, BATDSP+10*, BATDSP+11
^TMP($J	FILESP+48!, SORT+29!
^XUSEC("PRCA ERA BATCH MAINT"	BATED+12
^XUSEC("RCDPEPP"	VERIF+4, AUTOPOST+8

Label References

Name	Line Occurrences
$$ORD	SORT+11, SORT+26
BATEDQ	BATED+10
ORDQ	ORD+5, ORD+6, ORD+14, ORD+22

Naked Globals

Name	Field # of Occurrence
^(	HASADJ+5
^(0	SELBAT+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUTOPOST	AUTOPOST+20~, AUTOPOST+21*, AUTOPOST+22, AUTOPOST+25, AUTOPOST+26, AUTOPOST+27
DA	FILESP+2~, FILESP+24, FILESP+27, FILESP+29~, FILESP+30, FILESP+43~, SELBAT+6~, SELBAT+13*, BATED+3~
DA(1	FILESP+12, FILESP+13, FILESP+24, FILESP+27, FILESP+30, FILESP+31, FILESP+35, FILESP+44, SELBAT+8, SELBAT+13* , BATED+26*
DA(2	FILESP+30, FILESP+31, FILESP+44
DD	FILESP+2~, FILESP+39!, FILESP+47!
DIC	FILESP+2~, FILESP+35, FILESP+39!, FILESP+44, FILESP+47!, SELBAT+6~, SELBAT+8, BATED+3~, BATED+26
DIC("DR"	FILESP+36, FILESP+37, FILESP+38, FILESP+45, FILESP+46*
DIC("S"	SELBAT+8*
DIC(0	FILESP+35, FILESP+44, SELBAT+8, BATED+26
DIE	FILESP+2~, FILESP+24, FILESP+30, SELBAT+6~, SELBAT+13*
DIR	FILESP+2~, FILESP+11!, SELBAT+6~, SELBAT+11!, SELBAT+12!, SELBAT+15!, SORT+2~, SORT+8!, SORT+23!, ORD+3~ , ORD+10!, ORD+18!, ORD+26!, BATDSP+3~, BATDSP+7!, VERIF+2~, VERIF+20!, BATED+3~, BATED+14!, BATED+18! , BATED+23!, AUTOPSTQ+1!
DIR("A"	FILESP+8, FILESP+9, FILESP+10, FILESP+11, SELBAT+11, SELBAT+12, SELBAT+15, ORD+9, ORD+15, ORD+23 , BATDSP+6, VERIF+20, BATED+14, BATED+18, BATED+23*
DIR("B"	SORT+7, SORT+19, ORD+8, ORD+17, ORD+25, BATDSP+7, VERIF+20, BATED+18, BATED+23*
DIR("L"	SORT+4, SORT+5, SORT+6, SORT+20, SORT+21, SORT+22
DIR(0	FILESP+7, SELBAT+11, SELBAT+12, SELBAT+15, SORT+7, SORT+18, ORD+7, ORD+8, ORD+16, ORD+17 , ORD+24, ORD+25, BATDSP+7, VERIF+19, BATED+14, BATED+17, BATED+23, AUTOPSTQ+2*
DLAYGO	FILESP+2~, FILESP+35*, FILESP+39!, FILESP+47!
DO	FILESP+2~, FILESP+39!, FILESP+47!
DR	FILESP+2~, FILESP+25, FILESP+26, FILESP+32, SELBAT+6~, SELBAT+13
DTOUT	FILESP+2~, SELBAT+6~, SORT+2~, SORT+9, SORT+24, ORD+11, ORD+19, ORD+27, BATDSP+3~, BATDSP+9 , VERIF+2~, VERIF+21, BATED+3~, BATED+19, BATED+24
DUOUT	FILESP+2~, SELBAT+6~, SORT+2~, SORT+9, SORT+24, ORD+11, ORD+19, ORD+27, BATDSP+3~, BATDSP+9 , VERIF+2~, VERIF+21, BATED+3~, BATED+19, BATED+24
DUZ	VERIF+4, BATED+12, AUTOPOST+8
ORD	ORD+3~, ORD+4, ORD+12, ORD+20, ORD+28, ORDQ+1
RCAUTO	VERIF+2~, VERIF+10*, VERIF+12
RCBAT	SELBAT+6~, SELBAT+10*, SELBAT+12, SELBAT+13, SELBAT+14, SELBAT+16
>> RCDIR	FILESP+8, FILESP+9, FILESP+28, FILESP+42
RCERA	SELBAT~, SELBAT+8, SELBAT+11, SELBAT+12, SELBAT+13, SELBAT+14, SELBAT+17, VERIF+12, VERIF+23, VERIF+25 , BATED+8, BATED+10, BATED+22, BATED+25, BATED+26, BATED+28, BATED+30, BATED+32, BATED+34, AUTOPOST+15~ , AUTOPOST+16, AUTOPOST+17, AUTOPOST+18, AUTOPOST+21, AUTOPOST+23, AUTOPOST+26
>> RCLINE	FILESP+13
RCOK	HASADJ~, HASADJ+4, HASADJ+7
RCORD	SORT+2~, SORT+11, SORT+13, SORT+26, SORT+28
RCQUIT	SELBAT~, SELBAT+7, SELBAT+9, SELBAT+11, SELBAT+12, ORD+3~, ORD+4, ORD+11, ORD+19, ORD+27 , ORD+31, ORDQ, VERIF+2~, VERIF+16, VERIF+17, VERIF+21, BATED+3~, BATED+7, BATED+11, BATED+13* , BATED+19*
RCS	ORD~, ORD+5, ORD+6, ORD+14, ORD+22, ORDQ!
RCS1	SORT+2~, SORT+10*, SORT+11, SORT+12, SORT+13, SORT+15, SORT+16, SORT+17
RCS2	SORT+2~, SORT+25*, SORT+26, SORT+27, SORT+28
RCSCR	FILESP+12, FILESP+30, FILESP+35, FILESP+41, FILESP+44, HASADJ~, HASADJ+5, HASADJ+7, VERIF+10, AUTOPOST+17
RCSORT	SORT+2~, SORT+13, SORT+28, SORT+29
>> RCSPLIT	FILESP+6
>> RCSPLIT(	FILESP+24, FILESP+25, FILESP+26, FILESP+32, FILESP+34, FILESP+36, FILESP+37, FILESP+38, FILESP+45
>> RCSPLIT(0	FILESP+14
RCSTOP	HASADJ+3~, HASADJ+4, HASADJ+5, HASADJ+8, HASADJ+9
RCTOT	FILESP+2~
RCTOT(	FILESP+6*
RCTOT(2	FILESP+8, FILESP+10
RCTOT(3	FILESP+8, FILESP+10
RCZ	FILESP+2~, FILESP+14, FILESP+17, FILESP+23, FILESP+24, FILESP+25, FILESP+26, FILESP+32, FILESP+34, FILESP+36 , FILESP+37, FILESP+38, FILESP+45, BATDSP+3~, BATDSP+5*, BATDSP+6, BATDSP+10
RCZ0	FILESP+2~, FILESP+13*, FILESP+24, FILESP+30
RCZ1	FILESP+2~, FILESP+40*, FILESP+41, FILESP+44
RCZT	FILESP+2~, FILESP+24*, FILESP+25, FILESP+26
RCZZ	FILESP+2~, FILESP+13*, FILESP+35
RCZZ(1	FILESP+13, FILESP+31, FILESP+45, FILESP+46
SOURCE	AUTOPOST~, AUTOPOST+16, AUTOPOST+17
U	FILESP+8, FILESP+9, FILESP+13, FILESP+24, FILESP+25, FILESP+26, FILESP+28, FILESP+32, FILESP+36, FILESP+37 , FILESP+38, FILESP+42, FILESP+45, FILESP+46, SELBAT+12, SELBAT+14, SORT+13, SORT+28, HASADJ+7, HASADJ+8 , AUTOPOST+26, AUTOPOST+27
VALBCK	FILESP+2~
>> VALMBCK	FILESP+5, FILESP+17, FILESP+49, SORT+3, BATDSP+8, VERIF+7, VERIFQ, BATEDQ, AUTOPOST+11, AUTOPOST+18* , AUTOPSTQ+3*
X	FILESP+2~, FILESP+35, FILESP+44, SELBAT+6~, SORT+2~, SORT+14!, SORT+23!, ORD+3~, BATDSP+3~, VERIF+2~ , BATED+3~
X(1	SORT+15*, SORT+18, SORT+21
X(2	SORT+16*, SORT+18, SORT+22
X(3	SORT+17*, SORT+18, SORT+22
Y	FILESP+2~, FILESP+40, FILESP+41, FILESP+42, SELBAT+6~, SELBAT+9, SELBAT+10, SORT+2~, SORT+10, SORT+25 , ORD+3~, ORD+12, ORD+20, ORD+28, BATDSP+3~, BATDSP+9, VERIF+2~, VERIF+21, VERIF+23, VERIF+25 , BATED+3~, BATED+19, BATED+21, BATED+25, BATED+27, BATED+28, BATED+30, BATED+32, BATED+34
Z	FILESP+2~, FILESP+6, FILESP+46, HASADJ+3~, HASADJ+5*, HASADJ+7
Z0	HASADJ+3~, HASADJ+5*, HASADJ+7, HASADJ+8

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEWL8

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: