RORUTL18 ;HCIOFO/SG - MISCELLANEOUS UTILITIES ; 4/4/07 1:19pm
Source file <RORUTL18.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | SETSCHED+18 |
OPTION^%ZTLOAD | TASKCHK+11 |
STAT^%ZTLOAD | TASKCHK+14 |
^DIC | SELREG+11 |
LIST^DIC | SELREG+4 |
$$ROOT^DILFD | REGPTCNT+3 |
$$GET1^DIQ | IEN4+3, LABREF+4, STOPCODE+3 |
$$ACTIVE^RORDD | REGPTCNT+15 |
$$DBS^RORERR | IEN4+4, LABREF+5, SELREG+5, STOPCODE+4 |
$$PTIEN^RORUTL01 | REGPTCNT+17 |
$$REGIEN^RORUTL02 | REGPTCNT+11 |
DEM^VADPT | ORALERT+4 |
$$NOW^XLFDT | SETSCHED+16 |
$$LJ^XLFSTR | ORALERT+7 |
SETUP^XQALERT | ORALERT+12 |
OPTSTAT^XUTMOPT | GETSCHED+9 |
RESCH^XUTMOPT | SETSCHED+19, QSCHED+1 |
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^SC - [#44] | GET1^DIQ |
^RORDATA(798 - [#798] | ROOT^DILFD |
^ROR(798.1 - [#798.1] | LIST^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | MERGED+2 |
^RORDATA(798 - [#798] | CONFDT+1, PENDING+1, REGPTCNT+16 |
^TMP("RORUTL18" | REGPTCNT+2 |
Name | Line Occurrences |
---|---|
$$MERGED | LABREF+3 |
$$Q | Q+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CLIEN | STOPCODE~, STOPCODE+2, STOPCODE+3, STOPCODE+4 |
CNT | REGPTCNT+1~, REGPTCNT+3*, REGPTCNT+18*, REGPTCNT+22 |
CONF | CONFDT+1~*, CONFDT+2 |
DA | SELREG+1~ |
DFN | MERGED~, MERGED+2*, ORALERT~, ORALERT+3, ORALERT+8 |
DIC | SELREG+1~, SELREG+9* |
DIC("A" | SELREG+10* |
DIC(0 | SELREG+9* |
>> DIERR | IEN4+4, LABREF+5, SELREG+5, STOPCODE+4 |
DIR | Q~, Q+1 |
DLAYGO | SELREG+1~ |
DN | Q+2~, Q+7*, Q+8, Q+9 |
DT1 | DTMAX~, DTMAX+1, DTMIN~, DTMIN+1 |
DT2 | DTMAX~, DTMAX+1, DTMAX+2, DTMIN~, DTMIN+1, DTMIN+2 |
DTOUT | SELREG+1~, SELREG+13 |
DUOUT | SELREG+1~, SELREG+13 |
DUZ | ORALERT+11 |
FLAGS | REGPTCNT~, REGPTCNT+3*, REGPTCNT+15, REGPTCNT+16 |
I | Q+2~, Q+4*, Q+6*, Q+7, Q+8, Q+9 |
IEN | CONFDT~, CONFDT+1, PENDING~, PENDING+1, REGPTCNT+1~, REGPTCNT+13*, REGPTCNT+14*, REGPTCNT+15, REGPTCNT+16, REGPTCNT+17 , REGPTCNT+19 |
IEN4 | IEN4+1~, IEN4+3*, IEN4+5 |
IEN44 | IEN4~, IEN4+2, IEN4+3, IEN4+4 |
LABREF | LABREF+1~, LABREF+4*, LABREF+6 |
LAST4 | ORALERT+1~, ORALERT+6*, ORALERT+7 |
MSG | ORALERT~, ORALERT+9 |
NAME | ORALERT+1~, ORALERT+5*, ORALERT+7 |
NEWDFN | MERGED+1~, MERGED+2*, MERGED+3 |
NODE | Q~, Q+1, Q+3, Q+4*, Q+6, Q+7, Q+8, Q+9, REGPTCNT+1~, REGPTCNT+3* , REGPTCNT+14 |
PI | Q+2~, Q+5*, Q+6, Q+8*, Q+9*, Q+10 |
PLKILL | REGPTCNT+1~, REGPTCNT+2*, REGPTCNT+21 |
PTIEN | LABREF~, LABREF+2, LABREF+3, LABREF+4, LABREF+5, REGPTCNT+1~, REGPTCNT+17*, REGPTCNT+18, REGPTCNT+19 |
RC | IEN4+1~, SELREG+1~ |
REGIEN | REGPTCNT+1~, REGPTCNT+9*, REGPTCNT+10, REGPTCNT+11*, REGPTCNT+14, REGPTCNT+19 |
REGLST | REGPTCNT~ |
REGLST( | REGPTCNT+7, REGPTCNT+9 |
REGNAME | REGPTCNT+1~, REGPTCNT+6*, REGPTCNT+7*, REGPTCNT+9, REGPTCNT+11, SELREG~, SELREG+2*, SELREG+7*, SELREG+12* |
ROR1 | SETSCHED~, SETSCHED+14*, SETSCHED+19, QSCHED+1 |
ROR2 | SETSCHED~, SETSCHED+14*, SETSCHED+19, QSCHED+1 |
ROR3 | SETSCHED~, SETSCHED+14*, SETSCHED+19, QSCHED+1 |
ROR4 | SETSCHED~, SETSCHED+14*, SETSCHED+19, QSCHED+1 |
ROR5 | SETSCHED~, SETSCHED+14*, SETSCHED+19, SETSCHED+20, QSCHED+1 |
ROR6 | SETSCHED~, SETSCHED+14*, SETSCHED+15 |
ROR8DST | REGPTCNT~, REGPTCNT+2*, REGPTCNT+4, REGPTCNT+18, REGPTCNT+19, REGPTCNT+21 |
RORARRAY | TASKCHK+7~, TASKCHK+11, TASKCHK+13, TASKCHK+16 |
RORBUF | SELREG+1~ |
RORBUF("DILIST" | SELREG+6, SELREG+7 |
RORFLAG | TASKCHK+7~, TASKCHK+8*, TASKCHK+13*, TASKCHK+17 |
RORINFO | GETSCHED+6~, GETSCHED+9, GETSCHED+10 |
RORINFO(1 | GETSCHED+11 |
RORMSG | IEN4+1~, LABREF+1~, SELREG+1~, STOPCODE+1~ |
RORNAME | GETSCHED~, GETSCHED+7*, GETSCHED+8, GETSCHED+9, SETSCHED~, SETSCHED+12*, SETSCHED+13, SETSCHED+19, TASKCHK~, TASKCHK+9* , TASKCHK+10, TASKCHK+11, QSCHED+1 |
RORVAR | SETSCHED+11~, SETSCHED+17* |
STOP | STOPCODE+1~, STOPCODE+3*, STOPCODE+4*, STOPCODE+5*, STOPCODE+6 |
TMP | Q+2~, Q+3*, Q+4 |
U | CONFDT+1, CONFDT+2, ORALERT+6, PENDING+1, REGPTCNT+16 |
VA | ORALERT+1~ |
VADM | ORALERT+1~ |
VADM(1 | ORALERT+5 |
VADM(2 | ORALERT+6 |
VAHOW | ORALERT+1~ |
VAL | CLRNMVAL~, CLRNMVAL+1 |
VAROOT | ORALERT+1~ |
X | SELREG+1~ |
XQA | ORALERT~, ORALERT+11 |
XQA( | ORALERT+11* |
XQADATA | ORALERT+1~ |
XQAID | ORALERT+1~, ORALERT+2*, ORALERT+8* |
XQAMSG | ORALERT+1~, ORALERT+2*, ORALERT+7*, ORALERT+9*, ORALERT+10* |
XQAROU | ORALERT+1~ |
Y | SELREG+1~, SELREG+12, SELREG+13 |
Y(0 | SELREG+12 |
ZTDESC | SETSCHED+11~, SETSCHED+16* |
ZTDTH | SETSCHED+11~, SETSCHED+16* |
ZTIO | SETSCHED+11~, SETSCHED+16* |
ZTRTN | SETSCHED+11~, SETSCHED+16* |
ZTSAVE | SETSCHED+11~ |
ZTSAVE( | SETSCHED+17* |
ZTSK | TASKCHK+7~, TASKCHK+12*, TASKCHK+13*, TASKCHK+16* |
ZTSK(1 | TASKCHK+13 |