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~ |