Routine: ECMLMP

Information

ECMLMP ;ALB/ESD - Multiple procedure dates and procedures ;22 AUG 1997 11:11

Source file <ECMLMP.m>

Name	Comments	DBIA/ICR reference
EN	;- ListMan entry point
HDR	;- Display location, provider #1, DSS Unit, and Category as header
INIT	;- Initialize variables and call BLD which does processing
BLD	;- Combine arrays and build lines with data for display
BLDLM	;- Build each line for display and create ^TMP("ECMPIDX",$J) array
SET(X)	;- Create display array ^TMP("ECMP",$J)
HLPS	;- Brief help
HELP	;- Help for list
HLPQ
EXIT	;- Clean up and exit
COMBINE	;- Combine proc date array and procedure array
PRDTDEL	;- Entry point for EC MUL DEL PROCDT protocol
PRDTDLQ
PRDEL	;- Entry point for EC MUL PROC DEL protocol
PRDELQ
PRDTADD	;- Entry point for EC MUL ADD PROCDT protocol
PRDTADQ
PRADD	;- Entry point for EC MUL ADD PROC protocol
PRADDQ
HELPTXT	; -- help text

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HLPS+2
Function Call: WRITE	Prompt: !,$S(ECZ["$PAUSE":"",1:ECZ) Line Location: HELP+4
Function Call: WRITE	Prompt: !,"Possible actions are the following:" Line Location: HELP+5
Function Call: WRITE	Prompt: !!,*7,">>> This procedure date could not be found. <<<" Line Location: PRDTDEL+12
Function Call: WRITE	Prompt: !!,*7,">>> This procedure could not be found. <<<" Line Location: PRDEL+12
Function Call: WRITE	Prompt: !!,*7,">>> No Procedure Date entered. <<<" Line Location: PRDTADD+6
Function Call: WRITE	Prompt: !!,*7,">>> At least one procedure date must exist before adding a procedure.",!," Please add a procedure date first. <<<" Line Location: PRADD+9