OOPSGUI9 ;WIOFO/LLH-RPC routines ;10/24/01
Source file <OOPSGUI9.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 |
|---|---|---|
| VALIDATE(IEN,FORM,CALLER,VALID) | ;
; Input: IEN = Internal Entry Number of entry in file 2260 ; FORM = 2162,CA1, or CA2 ; CALLER = "E" employee ; = "S" supervisor ; = "O" safety officer ; = "W" worker's comp personnel ; WCEMP = from menu if 1 - need to execute emp validation ; VALID = RESERVED FOR OUTPUT DATA ; Output:VALID = 1 ALL REQUIRED DATA FOR FORM IS COMPLETE ; = 0 DATA IS MISSING |
|
| DTCHK | ; Date error checking that may be missed w/input transform
; patch 11 - Additional error checking has been added for CA2 field 214 ; removed $G(WCEMP) from line below. same concern as above 10/24/01 llh |
|
| EMP | ; Address fields are now all pulled from the 2162A node
; added fields 126 & 181,183-185 to lists below - patch 8 |
|
| SUP | ;
|
|
| PHYCHK | ; checks physician fields for appropriate form. If Phy Name not
; blank address fields required. If Phy Name blank and data in any ; address field then all fields required. |
|
| SOF | ; the call to F2162 here is overkill. All these fields should
; already be completed, but just in case... ; removed field 89 from required list for patch 7 |
|
| WCP | ; Get required fields for Workers Comp
|
|
| F2162 | ; Set required fields for form 2162
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DID | VALIDATE+25, VALIDATE+40, VALIDATE+42, VALIDATE+53, DTCHK+12, DTCHK+14, DTCHK+19, DTCHK+23, DTCHK+27, DTCHK+31 , DTCHK+34, DTCHK+39, DTCHK+41 |
| $$GET1^DIQ | VALIDATE+52, DTCHK+8, DTCHK+9, DTCHK+10, DTCHK+18, DTCHK+22, DTCHK+25, DTCHK+30, DTCHK+33, DTCHK+36 , SUP+8, SUP+10, SUP+11, SUP+12, SUP+20, SUP+22, PHYCHK+9, PHYCHK+10, PHYCHK+11, PHYCHK+12 , PHYCHK+15, PHYCHK+16, PHYCHK+17, PHYCHK+18, WCP+6, F2162+4, F2162+7, F2162+10, F2162+12, F2162+13 |
| $$FMDIFF^XLFDT | DTCHK+11, DTCHK+13 |
| FileNo | Call Tags |
|---|---|
| ^OOPS(2260 - [#2260] | GET1^DID, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OOPS(2260 - [#2260] | VALIDATE+29, VALIDATE+32, SUP+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BADFLD | VALIDATE+23~, VALIDATE+24*, VALIDATE+29*, VALIDATE+32*, VALIDATE+33 |
| CALLER | VALIDATE~, VALIDATE+18, VALIDATE+19, VALIDATE+20, VALIDATE+21, VALIDATE+51, DTCHK+3, DTCHK+7 |
| CHK | VALIDATE+11~, VALIDATE+13*, VALIDATE+34* |
| CN | VALIDATE+11~, VALIDATE+14*, VALIDATE+45*, VALIDATE+53*, DTCHK+12*, DTCHK+14*, DTCHK+27*, DTCHK+39*, DTCHK+41* |
| CNT | VALIDATE+11~, VALIDATE+22*, DTCHK+4!, DTCHK+24*, DTCHK+35* |
| CTR | PHYCHK+3~, PHYCHK+10*, PHYCHK+12*, PHYCHK+13*, PHYCHK+16*, PHYCHK+18*, PHYCHK+19* |
| DATE | DTCHK+5~, DTCHK+18*, DTCHK+22*, DTCHK+25, DTCHK+30*, DTCHK+33*, DTCHK+36, DTCHK+37 |
| DATE1 | DTCHK+5~, DTCHK+8*, DTCHK+13, DTCHK+18*, DTCHK+22*, DTCHK+25*, DTCHK+26, DTCHK+36*, DTCHK+37*, DTCHK+38 , DTCHK+40 |
| DATE2 | DTCHK+5~, DTCHK+9*, DTCHK+11, DTCHK+13, DTCHK+25*, DTCHK+26, DTCHK+36*, DTCHK+37*, DTCHK+38, DTCHK+40 |
| EMPDOB | DTCHK+5~, DTCHK+10*, DTCHK+11 |
| F165 | SUP+1~, SUP+13*, SUP+14 |
| FLD | VALIDATE+11~, VALIDATE+12*, VALIDATE+22*, VALIDATE+25, VALIDATE+37, VALIDATE+39, VALIDATE+42, VALIDATE+44, DTCHK+4!, DTCHK+24* , DTCHK+25, DTCHK+27, DTCHK+35*, DTCHK+36, DTCHK+37, DTCHK+39, DTCHK+41, PHYCHK+3~, PHYCHK+10*, PHYCHK+12* , PHYCHK+13*, PHYCHK+16*, PHYCHK+18*, PHYCHK+19* |
| FORM | VALIDATE~, VALIDATE+34, VALIDATE+51, DTCHK+3, DTCHK+7, DTCHK+16, DTCHK+20, DTCHK+29, DTCHK+32, EMP+2 , EMP+4, SUP+2, SUP+4, SUP+15, PHYCHK+4, SOF+3, WCP+1, WCP+3, WCP+7, F2162+2 |
| IEN | VALIDATE~, VALIDATE+29, VALIDATE+32, VALIDATE+52, DTCHK+8, DTCHK+9, DTCHK+10, DTCHK+18, DTCHK+22, DTCHK+25 , DTCHK+30, DTCHK+33, DTCHK+36, SUP+8, SUP+10, SUP+11, SUP+12, SUP+13, SUP+20, SUP+22 , PHYCHK+9, PHYCHK+10, PHYCHK+11, PHYCHK+12, PHYCHK+15, PHYCHK+16, PHYCHK+17, PHYCHK+18, WCP+6, F2162+4 , F2162+7, F2162+10, F2162+12, F2162+13 |
| INCID | F2162+1~, F2162+10*, F2162+11 |
| LIST | VALIDATE+11~, VALIDATE+12*, VALIDATE+22, DTCHK+4!, DTCHK+17*, DTCHK+21*, DTCHK+24, DTCHK+30*, DTCHK+33*, DTCHK+35 , EMP+2*, EMP+4*, SUP+3*, SUP+5*, SUP+6*, SUP+7*, SUP+8*, SUP+10*, SUP+11*, SUP+12* , SUP+14*, SUP+16*, SUP+17*, SUP+20*, SUP+22*, PHYCHK+10*, PHYCHK+13*, PHYCHK+16*, PHYCHK+19*, SOF+3* , WCP+2*, WCP+4*, WCP+6*, WCP+8*, F2162+3*, F2162+6*, F2162+7*, F2162+9*, F2162+12*, F2162+14* , F2162+15* |
| LOC | VALIDATE+23~, VALIDATE+25*, VALIDATE+26, VALIDATE+27 |
| NBLK | PHYCHK+3~, PHYCHK+4*, PHYCHK+12*, PHYCHK+13, PHYCHK+18*, PHYCHK+19 |
| NODE | VALIDATE+23~, VALIDATE+26*, VALIDATE+29, VALIDATE+32, VALIDATE+36~, VALIDATE+37*, VALIDATE+39*, VALIDATE+40 |
| PCE | VALIDATE+23~, VALIDATE+27*, VALIDATE+28, VALIDATE+32 |
| PHY | PHYCHK+3~, PHYCHK+4*, PHYCHK+5, PHYCHK+6, PHYCHK+8, PHYCHK+14 |
| PLIST | PHYCHK+3~, PHYCHK+6*, PHYCHK+7, PHYCHK+10, PHYCHK+12, PHYCHK+13, PHYCHK+16, PHYCHK+18, PHYCHK+19 |
| >> RESULTS( | VALIDATE+45*, VALIDATE+53*, DTCHK+12*, DTCHK+14*, DTCHK+27*, DTCHK+39*, DTCHK+41* |
| >> RESULTS(1 | VALIDATE+34* |
| SAF | F2162+1~, F2162+13*, F2162+14 |
| TEXT | VALIDATE+23~, VALIDATE+40*, VALIDATE+42*, VALIDATE+44*, VALIDATE+45 |
| TITLE | DTCHK+5~, DTCHK+19*, DTCHK+23*, DTCHK+27, DTCHK+31*, DTCHK+34*, DTCHK+39, DTCHK+41 |
| TYP | F2162+1~, F2162+4*, F2162+5, F2162+8 |
| U | VALIDATE+32, SUP+14 |
| VALID | VALIDATE~, VALIDATE+13*, VALIDATE+29*, VALIDATE+32*, VALIDATE+52*, DTCHK+11*, DTCHK+13*, DTCHK+26*, DTCHK+38*, DTCHK+40* |
| WP | VALIDATE+23~, VALIDATE+24*, VALIDATE+30*, VALIDATE+35, VALIDATE+42 |
