Routine: RORUTL18

Information

RORUTL18 ;HCIOFO/SG - MISCELLANEOUS UTILITIES ; 4/4/07 1:19pm

Name	Comments	DBIA/ICR reference
CLRNMVAL(VAL)	;
CONFDT(IEN)	;
DTMAX(DT1,DT2)	;
DTMIN(DT1,DT2)	;
IEN4(IEN44)	;
LABREF(PTIEN)	;
MERGED(DFN)	;
ORALERT(MSG,DFN,XQA)	;
PENDING(IEN)	;
Q(NODE,DIR)	;
REGPTCNT(REGLST,FLAGS,ROR8DST)	;
SELREG(REGNAME)	;
STOPCODE(CLIEN)	;
GETSCHED(RORNAME)	;Function to get option schedule information from FILE 19.1 ; Input: RORNAME = option name (file 19, field .01) ; Output: (1) = task number^scheduled time^reschedule freq^special queueing flag ; Example: (1) = "1466544^3180427.154^1D^" ; Returns null if option name not defined or option is not scheduled.
SETSCHED(RORNAME,ROR1,ROR2,ROR3,ROR4,ROR5,ROR6)	;Function to set option schedule in FILE 19.1 ; Input: RORNAME = option name (file 19, field .01) ; ROR1 = date/time to run ; ROR2 = device to use ; ROR3 = re-sechedule frequency ; ROR4 = flags ; ROR5 = error array ; ROR6 = queueing flag (0:don't queue{default}, 1:queue) ; Output: 1 = changes made ; 0 = changes not made
TASKCHK(RORNAME)	;Function: Is option currently running?
QSCHED	;Reschedule an option as a tasked job to avoid date/time from writing to the display