Routine: HLUOPTF1

Information

HLUOPTF1 ;ALB/CJM-HL7 -Set Logic for the AI x-ref on file 773 ;02/04/2004

Source file <HLUOPTF1.m>

Name	Comments	DBIA/ICR reference
PXREF(IEN,STATUS)	;sets the AI x-ref on file 773 and the FAST PURGE DT/TM fields in file 772 and 773
SET(IEN773,WHEN,IEN772)	;sets FAST PURGE DT/TM for and the AI x~ref for both file 772 & 773
WAIT()	;