Routine: ECMLMF

Information

ECMLMF ;ALB/ESD - File Multiple Dates/Multiple Procedures - 29 AUG 97 08:51

Source file <ECMLMF.m>

Name	Comments	DBIA/ICR reference
EN	;- Entry point to file selected patients and procedures
ENQ
GETNODS	;- Get procedure node and patient node for processing
FILREC	;- Create record in #721 and file fields
LOCKHD
FILRECQ
SETARRY	;- Set local arrays with procedure and patient data for filing
BADFLDS(ECRS)	; - Validation checks on fields to be set in "PCE" node
PCE	;- More validation checks on fields to be set in "PCE" node
PCEQ
MSG	;- Message displayed so error message can be read on screen
PROCDT	;;2
PROC	;;3
REAS	;;5
VOL	;;7
DFN	;;2
ORDSEC	;;4
IO	;;5
CLIN	;;6
DX	;;8
AO	;;10
ENV	;;11
IR	;;12
SC	;;13
ELIG	;;14
MST	;;15
HNC	;;16
CV	;;17
SHAD	;;18

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"No patient data found. No patient record(s) have been filed." Line Location: EN+3
Function Call: WRITE	Prompt: !!,"You have selected the following patients for filing:",! Line Location: EN+5
Function Call: WRITE	Prompt: !?5,I_". ",$P($G(^TMP("ECMPTIDX",$J,I)),"^",3) Line Location: EN+10
Function Call: WRITE	Prompt: !! Line Location: EN+11
Function Call: WRITE	Prompt: !,"Exiting option...no patients filed.",! Line Location: EN+14
Function Call: WRITE	Prompt: !!,"These patients will be sent to the background for filing.",! Line Location: EN+21
Function Call: WRITE	Prompt: !,"Queued as Task #",ZTSK,! Line Location: EN+23

FileNo	Call Tags
^ECH - [#721]	Classic Fileman Calls