Routine: ECMLMN

Information

ECMLMN ;ALB/ESD - Multiple patients processing ;26 AUG 1997 14:42

Source file <ECMLMN.m>

Name	Comments	DBIA/ICR reference
EN	;- Entry point for multiple patients (part of Multiple Dates/Procs option)
ENPAT(ECFL,ECONE)	;- Ask patient name, ordering section, inpat/outpat, ; dx, assoc clinic, and classification questions ; (AO, IR, EC, SC, MST, HNC, CV, SHAD)
SEL
ENPATQ
BLDPAT	;- Build ^TMP("ECPAT",$J) array with patient data
HDR	;- Header
INIT	;-- Init vars and display selected procedures for patient(s)
BLD	;- Get data from array for screen display
BLDLM	;- Display patient data
SET(X)	;- Create ^TMP("ECMPT",$J) array for screen display
PRDSP	;- Display selected procedure dates/times and procedures
PRDSPQ
HLPS	;- Brief help
HELP	;- Help for list
HLPQ
EXIT	;- Clean up and exit
PATDEL	;- Entry point for EC MUL PAT DEL protocol
PATDELQ
REMOVNM(ECI)	;- Remove patient name from array which tracks dup patients
ADDPAT	;- Entry point for EC MUL PAT ADD protocol
ADDPATQ
HELPTXT	; - Help text

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ENPATQ+0
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 patient could not be found. <<<" Line Location: PATDEL+11
Function Call: WRITE	Prompt: !!,*7,">>> No patient entered. <<<" Line Location: ADDPAT+7