Routine: IBCECOB6

Information

IBCECOB6 ;YMG/BP - IB COB MANAGEMENT SCREEN ;26-Dec-2007

Name	Comments	DBIA/ICR reference
EN	; view MRA comments - entry point from MRA Worklist
HDR	; header code
INIT	; init variables and list array
HELP	; help code
EXIT	; exit code
CMNTW	; enter MRA comments - entry point from MRA Worklist screen ; we need to select a claim and set IBIFN
CMNTV	; enter MRA comments - entry point from View MRA Comments screen ; IBIFN should already be defined, only need to set a flag used to rebuild list of comments
CMNT	; enter MRA comments, called from entry points CMNTV and CMNTW above. Also called from ARCA^IBJTA1 (TPJI)
STATUS	; change MRA review status
STATUSX	;
EOBCM	; init variables and list array for new EOB Claim Comments IB2.0432 ; loop through all available comments
EOCMT	; IB2.0432 - edit new EOB comments

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ! Line Location: CMNT+2
Function Call: WRITE	Prompt: !,*7,"Sorry, another user currently editing this entry." Line Location: CMNT+4
Function Call: WRITE	Prompt: ! Line Location: STATUS+3
Function Call: WRITE	Prompt: !,*7,"Sorry, another user currently editing this entry." Line Location: STATUS+5