Routine: RCDPEWL5

Information

RCDPEWL5 ;ALB/TMK/PJH - ELECTRONIC EOB WORKLIST ACTIONS ; 7/30/10 6:52pm

Name	Comments	DBIA/ICR reference
INIT	; Build receipt preview
SET(X)	;
HDR	;
FNL	;
RCOMM	; Allow entry of receipt comment to be moved to line on receipt
RCOMMQ
SUSPERA	; Option entrypoint to select an ERA to be posted to suspense
SUSP(RCERA,LM)	; Function to send receipt to suspense for ERA ; RCERA = ien of entry in file 344.4 ; LM = flag to indicate it was called from list manager protocol ; = 1 if true, 0 if false
SUSPQ
REVIEW	; Enter review information on worklist and turn review display on/off ; Assumes RCSCR = ien of the entry in file 344.49
REVIEWQ
NEWREV(RCSCR,RCZ,RCDUZ)	; Enter a new review comment ; RCSCR = ien of entry in file 344.49 ; RCZ = ien of the EEOB (seq #) ; RCDUZ =DUZ of user entering the comment ; Function returns 0 if no new comment, ien of comment if added
NEWREVQ
NOACT	;
ADDUSER(RCSCR,RCDUZ)	; Add user record to user preferences multiple in file 344.49 and initialize all preferences ; RCSCR = ien of entry in file 344.49 ; RCDUZ = the ien of the user
ADDUQ

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SUSPERA+6
Function Call: WRITE	Prompt: ! Line Location: SUSP+8
Function Call: WRITE	Prompt: ! Line Location: SUSP+16
Function Call: WRITE	Prompt: ! Line Location: SUSP+18
Function Call: WRITE	Prompt: ! Line Location: SUSP+24
Function Call: WRITE	Prompt: ! Line Location: SUSP+38
Function Call: WRITE	Prompt: ! Line Location: REVIEW+8
Function Call: WRITE	Prompt: ! Line Location: REVIEW+18
Function Call: WRITE	Prompt: ! Line Location: REVIEW+29
Function Call: WRITE	Prompt: !!,"REVIEW DATE/TIME: "_$$FMTE^XLFDT(RCNOW,"2") Line Location: NEWREV+6
Function Call: WRITE	Prompt: ! Line Location: NOACT+2