OOPSSUP1 ;HINES/WAA-S/E Supervisor Edit routine ;04/17/1998
Source file <OOPSSUP1.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 |
---|---|---|
EN1(CALLER) | ; Main Entry Point
|
|
SELECT | ; Select a form
; Injury (2162,CA1) ; Illness (2162,CA2) ; VA form 2162 ; Get the type of incident ; If the supporting global doesn't exist force the ; Supervisor to fill both the 2162 and supporting form. |
|
INCIDENT(CALLER) | ; Select a case
|
|
SUP(IEN) | ; Supervisor Screen
|
|
SAFETY(IEN) | ; Safety officer screen
|
|
FORMS | ; Process Form
|
|
SIGNS(FORM) | ; Sign/validate Document
|
|
FILE | ;File the ES and send a bull
|
Name | Field # of Occurrence |
---|---|
^DIC | INCIDENT+6 |
^DIE | FORMS+23 |
$$GET1^DIQ | SELECT+10, SELECT+13, SUP+3, SUP+4, SUP+11, SAFETY+3, SAFETY+4, SAFETY+12, FORMS+16, FORMS+25 , SIGNS+4 |
^DIR | SELECT+34 |
^OOPSDIS | EN1+8 |
$$SIG^OOPSESIG | SIGNS+12 |
SAFETY^OOPSMBUL | FILE+2 |
SUPS^OOPSMBUL | FILE+4, FILE+5 |
UNION^OOPSMBUL | FILE+4, FILE+5 |
CA2^OOPSSUP2 | FORMS+19 |
ASIST^OOPSSUP3 | FORMS+17 |
CA1^OOPSSUPB | FORMS+18 |
$$EDSTA^OOPSUTL1 | SELECT+9, SELECT+11, SELECT+19, SUP+8, SUP+12, SAFETY+7, SAFETY+10, SAFETY+13, SIGNS+3, SIGNS+9 |
$$PAID^OOPSUTL1 | FORMS+7, FORMS+9, FORMS+12 |
CLRES^OOPSUTL1 | FORMS+16 |
$$CHECK^OOPSUTL3 | SELECT+20 |
$$ISEMP^OOPSUTL4 | SELECT+15, SUP+6, SAFETY+5 |
VALIDATE^OOPSUTL4 | SIGNS+5 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^OOPS(2260 - [#2260] | Classic Fileman Calls, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^OOPS(2260 - [#2260] | EN1+12, FORMS+21, FILE+2*, FILE+3*, FILE+4*, FILE+5* |
^VA(200 - [#200] | EN1+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADD | FORMS+3~ |
AGN | FORMS+3~ |
AIEN | FORMS+3~ |
CALLER | EN1~, EN1+1*, EN1+7, INCIDENT~, INCIDENT+3, INCIDENT+4, FORMS+16, SIGNS+9, FILE+2, FILE+3 |
CAT | SELECT+7~, SELECT+13* |
CITY | FORMS+3~ |
>> DA | FORMS+20* |
DIC | INCIDENT+1~, INCIDENT+2* |
DIC("A" | INCIDENT+5* |
DIC("S" | INCIDENT+3*, INCIDENT+4* |
DIC(0 | INCIDENT+5* |
DIE | FORMS+15~, FORMS+20* |
DIR | SELECT+25~ |
DIR("?" | SELECT+33* |
DIR("A" | SELECT+32* |
DIR(0 | SELECT+31* |
>> DIRUT | FORMS+24 |
DR | FORMS+15~ |
>> DTOUT | INCIDENT+8 |
>> DUOUT | INCIDENT+8 |
DUZ | EN1+5, EN1+6, SUP+4, SAFETY+12, FORMS+16, FORMS+25, SIGNS+12 |
EDIT | EN1+2~, EN1+3*, EN1+10, SELECT+8*, SELECT+15*, SELECT+16*, SELECT+19*, SELECT+20*, SELECT+23*, SELECT+35* , SELECT+36*, FORMS+14, FORMS+15~ |
EMP | SIGNS+1~, SIGNS+3*, SIGNS+6 |
FLD | FORMS+4~, FORMS+6*, FORMS+7, FORMS+8*, FORMS+9, FORMS+11*, FORMS+12 |
FORM | EN1+2~, FORMS+14*, FORMS+16, FORMS+17, FORMS+18, FORMS+19, FORMS+26, SIGNS~, SIGNS+5, SIGNS+6 , SIGNS+7, SIGNS+9, FILE+1, FILE+4, FILE+5 |
I | FORMS+1~, FORMS+14*, FORMS+15~ |
IEN | EN1+2~, EN1+4*, EN1+7, EN1+12, SELECT+9, SELECT+10, SELECT+11, SELECT+13, SELECT+15, SELECT+19 , SELECT+20, INCIDENT+9*, SUP~, SUP+3, SUP+4, SUP+6, SUP+8, SUP+11, SUP+12, SAFETY~ , SAFETY+3, SAFETY+4, SAFETY+5, SAFETY+7, SAFETY+10, SAFETY+12, SAFETY+13, FORMS+7, FORMS+9, FORMS+12 , FORMS+16, FORMS+20, FORMS+21, FORMS+25, SIGNS+3, SIGNS+4, SIGNS+5, SIGNS+9, SIGNS+12, FILE+2 , FILE+3, FILE+4, FILE+5 |
INC | SELECT+7~, SELECT+10*, SELECT+16, SELECT+18, SELECT+19, SELECT+28, SELECT+31, SUP+11*, SUP+12, SAFETY+1~ , SAFETY+3*, SAFETY+10, SAFETY+13, SIGNS+1~, SIGNS+4*, SIGNS+6 |
INCTYP | SELECT+7~, SELECT+18*, SELECT+20 |
ISEMP | SUP+1~, SUP+6*, SUP+7, SUP+10, SAFETY+1~, SAFETY+5*, SAFETY+6, SAFETY+9 |
MAX | SELECT+37! |
MAX1 | SELECT+37! |
OUT | EN1+2~, EN1+4*, FORMS+14, FORMS+17, FORMS+18, FORMS+19, FORMS+22*, FORMS+24* |
PADD | FORMS+3~ |
PAY | FORMS+4~, FORMS+11*, FORMS+12*, FORMS+13* |
PCITY | FORMS+3~ |
PNAME | FORMS+3~ |
PROMPT1 | SELECT+26~, SELECT+27*, SELECT+29 |
PROMPT2 | SELECT+26~, SELECT+28*, SELECT+30 |
PSTATE | FORMS+3~ |
PZIP | FORMS+3~ |
RET | FORMS+4~, FORMS+8*, FORMS+9*, FORMS+10* |
SAFE | SELECT+7~, SELECT+11*, SELECT+15, SELECT+16 |
SAL | FORMS+4~, FORMS+6*, FORMS+7* |
SEL1 | SELECT+26~ |
SEL2 | SELECT+26~ |
SER | EN1+2~ |
SIEN | FORMS+3~ |
SIGN | SELECT+7~, SELECT+9*, SELECT+24, FORMS+15~, FORMS+27, SIGNS+2*, SIGNS+12*, FILE+2, FILE+3, FILE+4 , FILE+5 |
SSN | EN1+2~ |
STAT | FORMS+3~ |
STATE | FORMS+3~ |
SUP | EN1+2~ |
U | SELECT+16, SELECT+18, SELECT+19, SELECT+24, INCIDENT+9, SUP+12, SAFETY+10, SAFETY+13, FORMS+14, FORMS+27 , SIGNS+6, SIGNS+9, FILE+2, FILE+3, FILE+4, FILE+5 |
VALID | SIGNS+1~, SIGNS+2*, SIGNS+5, SIGNS+11 |
VIEW | SUP+1~, SUP+2*, SUP+3*, SUP+4*, SUP+8*, SUP+12*, SUP+14, SAFETY+1~, SAFETY+2*, SAFETY+4* , SAFETY+7*, SAFETY+10*, SAFETY+13*, SAFETY+15 |
X | INCIDENT+1~ |
Y | SELECT+25~, INCIDENT+7, INCIDENT+9, FORMS+24 |
Y(0 | SELECT+35, SELECT+36 |
ZIP | FORMS+3~ |