Routine: IBACCWLPREV

Information

IBACCWLPREV ;EDE/TPF - ACC (Automated Community Care) Encounters - Action Item Previous Activity ; 12-SEP-2023

Name	Comments	DBIA/ICR reference
EN(IBENCIFN,IBIFN)	; -- main entry point for IBACC WL GENERIC VIEWER
HDR	; -- header code
INIT(IBENCIFN,IBIFN,IBLN)	; -- init variables and list array
ENCOUNTERS(IBENCIFN,IBIFN,RECORDNUM)	;EP - PULL PREV. ACTIVITY FOR EACH ENCOUNTER
CAPTION(FILENUM,PREVACTIENS,PREVACTRET,VALMCNT,LINENUM,RECORDNUM,SET)	;EP - CATPIONS FOR FIELD DATA
CAPITALIZE(COLHEADER)	;EP - CONVERT COLUMNS FROM UPPERCASE
COMMENTS(PRECOMARRAY,VALMCNT,RECORDNUM,SET)	;EP - PROCESS COMMENTS
SETIBTPJIHDR(IBLN,RECORDNUM,IBENCIFN,IBIFN)	;EP - SET TPJIJ COMMENT HEADER FOR ACC ENCOUNTER PREVIOUS ACTIVITY
SET(X,VALMCNT,RECORDNUM,IEN,SET)	;EP -
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
WORDWRAP(LINE,INDENT)	;EP - TAKE LONG LINE AND APPLY WORD PROCESSOR TO IT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"'IBACC WL PREV. ACTIVITY VIEWER' LIST TEMPLATE CAN NOT BE FOUND!!" Line Location: INIT+14
Function Call: WRITE	Prompt: !!,"NO PREVIOUS ACTIVITY DATA FOUND" Line Location: ENCOUNTERS+36
Function Call: WRITE	Prompt: !,COMMENT Line Location: WORDWRAP+11
Function Call: WRITE	Prompt: !,OFFSET_COMMENT Line Location: WORDWRAP+12