OOPSUTL4 ;HINES/WAA-Utilities Routines ;3/24/98
Source file <OOPSUTL4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DTVAL(DATE,FLD1,FLD2) | ;
; this subroutine called from ^DD so date error checking on fields ; 143, 144, 145 (if CA1) and 254, 255 (if CA2). returns a valid date ; (one passed in) if a date in FLD2 and is > than date passed in (DATE). ; Inputs: DATE - date entered in prompt ; FLD1 - field of prompt date entered in ; FLD2 - field of date to be checked against ; Outputs: VAL - contains valid date passed in if true & "" if false |
|
| 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 |
|
| EMP | ; Address fields are now all pulled from the 2162A node
; added fields 126 & 181,183-185 to lists below - patch 8 |
|
| SUP | ;
|
|
| SOF | ;
|
|
| WCP | ; Get required fields for Workers Comp
|
|
| F2162 | ; Set required fields for form 2162 - doesn't matter which menu
; coming from, Supervisor, Safety, WC (for EDIT REPORT OF INCIDENT) |
|
| UP(IN) | ; Translate all lower to upper
|
|
| VCHAR(IN) | ; Check to make sure no invalid characters have been used
; input - IN, data entered by user ; output - VALID, if invalid characters used, = 0 |
|
| ISEMP(IEN) | ; Determine if PERSONNEL STATUS = employee
; Input - IEN = internal Entry Number of case in File 2260 ; CAT = Personnel Status of Case in File 2260 ; TST = valid Personnel status categories for employee ; Output - EMP = 1 Personnel status indicates employee ; 0 Personnel status indicates non-employee |
|
| FUT(DATE) | ; Check for dates prior to Date of Inj/Ill
|
|
| WP(OPFLD) | ; Patch 8 - determine number of characters in WP fields that are
; limited to 532 characters & if invalid characters are present ; Input IEN - Internal Record ID of Case ; OPFLD - Field number of WP field to be calculated ; Output OPT - Total number of characters in all lines of WP field ; concatenated to VALID. ex: 165^1 or 180^0 ; VALID - indicates whether invalid characters were detected |
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | DTVAL+16, DTVAL+17 |
| $$GET1^DID | DTVAL+16, DTVAL+17, VALIDATE+22, VALIDATE+36, VALIDATE+37, VALIDATE+43, DTCHK+11, DTCHK+13, DTCHK+18, DTCHK+22 , DTCHK+26, DTCHK+30, DTCHK+33, DTCHK+38, DTCHK+40, WP+11 |
| $$GET1^DIQ | DTVAL+11, VALIDATE+42, DTCHK+7, DTCHK+8, DTCHK+9, DTCHK+17, DTCHK+21, DTCHK+24, DTCHK+29, DTCHK+32 , DTCHK+35, SUP+8, SUP+10, SUP+11, SUP+12, SUP+20, SUP+22, WCP+6, F2162+5, F2162+8 , F2162+11, F2162+12, F2162+13, ISEMP+8, FUT+3, FUT+4 |
| ^DIWP | WP+12 |
| PHYCHK^OOPSGUI9 | SUP+24 |
| $$ISEMP^OOPSUTL4 | SUP+2 |
| $$FMDIFF^XLFDT | DTCHK+10, DTCHK+12 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^OOPS(2260 - [#2260] | GET1^DID, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OOPS(2260 - [#2260] | VALIDATE+25, VALIDATE+28, SUP+13, WP+12 |
| ^UTILITY($J | WP+9!, WP+13, WP+14, WP+15, WP+18! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | DTVAL+12 |
| BADFLD | VALIDATE+20~, VALIDATE+21*, VALIDATE+25*, VALIDATE+28*, VALIDATE+29 |
| CALLER | VALIDATE~, VALIDATE+15, VALIDATE+16, VALIDATE+17, VALIDATE+18, VALIDATE+41, DTCHK+2, DTCHK+6 |
| CAT | ISEMP+6~, ISEMP+8*, ISEMP+11 |
| CHK | VALIDATE+11~, VALIDATE+13*, VALIDATE+30* |
| CNT | VALIDATE+11~, VALIDATE+19*, DTCHK+3!, DTCHK+23*, DTCHK+34* |
| >> DA | DTVAL+10 |
| DAT | FUT+1~, FUT+4*, FUT+5 |
| DATA | WP+7~, WP+15*, WP+16, WP+17 |
| DATE | DTVAL~, DTVAL+9, DTVAL+13, DTCHK+4~, DTCHK+17*, DTCHK+21*, DTCHK+24, DTCHK+29*, DTCHK+32*, DTCHK+35 , DTCHK+36, FUT~, FUT+5 |
| DIWF | WP+7~, WP+10* |
| DIWL | WP+7~, WP+10* |
| DIWR | WP+7~, WP+10* |
| DTE1 | DTCHK+4~, DTCHK+7*, DTCHK+12, DTCHK+17*, DTCHK+21*, DTCHK+24*, DTCHK+25, DTCHK+35*, DTCHK+36*, DTCHK+37 , DTCHK+39 |
| DTE2 | DTVAL+8~, DTVAL+9*, DTVAL+11*, DTVAL+12*, DTVAL+13, DTVAL+16, DTCHK+4~, DTCHK+8*, DTCHK+10, DTCHK+12 , DTCHK+24*, DTCHK+25, DTCHK+35*, DTCHK+36*, DTCHK+37, DTCHK+39 |
| EMP | ISEMP+6~, ISEMP+7*, ISEMP+11*, ISEMP+12 |
| EMPDOB | DTCHK+4~, DTCHK+9*, DTCHK+10 |
| F165 | SUP+1~, SUP+13*, SUP+14 |
| FLD | VALIDATE+11~, VALIDATE+12*, VALIDATE+19*, VALIDATE+22, VALIDATE+33, VALIDATE+35, VALIDATE+37, VALIDATE+39, DTCHK+3!, DTCHK+23* , DTCHK+24, DTCHK+26, DTCHK+34*, DTCHK+35, DTCHK+36, DTCHK+38, DTCHK+40 |
| FLD1 | DTVAL~, DTVAL+16, DTVAL+17 |
| FLD2 | DTVAL~, DTVAL+11, DTVAL+16, DTVAL+17 |
| FORM | VALIDATE~, VALIDATE+14, VALIDATE+30, VALIDATE+41, DTCHK+2, DTCHK+6, DTCHK+15, DTCHK+19, DTCHK+28, DTCHK+31 , EMP+2, EMP+4, SUP+2, SUP+4, SUP+15, SOF+1, WCP+1, WCP+3, WCP+7, F2162+3 , FUT+1~, FUT+3*, FUT+5 |
| IEN | DTVAL+10*, DTVAL+11, VALIDATE~, VALIDATE+25, VALIDATE+28, VALIDATE+42, DTCHK+7, DTCHK+8, DTCHK+9, DTCHK+17 , DTCHK+21, DTCHK+24, DTCHK+29, DTCHK+32, DTCHK+35, SUP+2, SUP+8, SUP+10, SUP+11, SUP+12 , SUP+13, SUP+20, SUP+22, WCP+6, F2162+5, F2162+8, F2162+11, F2162+12, F2162+13, ISEMP~ , ISEMP+8, FUT+3, FUT+4, WP+12 |
| IN | UP~, UP+2, VCHAR~, VCHAR+5 |
| LIST | VALIDATE+11~, VALIDATE+12*, VALIDATE+19, DTCHK+3!, DTCHK+16*, DTCHK+20*, DTCHK+23, DTCHK+29*, DTCHK+32*, DTCHK+34 , EMP+2*, EMP+4*, SUP+2*, 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*, SOF+1*, WCP+2*, WCP+4*, WCP+6* , WCP+8*, F2162+4*, F2162+7*, F2162+8*, F2162+10*, F2162+12*, F2162+14*, F2162+15* |
| LOC | VALIDATE+20~, VALIDATE+22*, VALIDATE+23 |
| NODE | VALIDATE+20~, VALIDATE+23*, VALIDATE+25, VALIDATE+28, VALIDATE+32~, VALIDATE+33*, VALIDATE+35*, VALIDATE+36 |
| OPC | WP+7~, WP+14* |
| OPFLD | WP~, WP+11 |
| OPGLB | WP+7~ |
| OPI | WP+7~, WP+12*, WP+14*, WP+15 |
| OPNODE | WP+7~, WP+11*, WP+12 |
| OPT | WP+7~, WP+10*, WP+17*, WP+19 |
| OUT | UP+1~, UP+2*, UP+3 |
| PCE | VALIDATE+20~, VALIDATE+23*, VALIDATE+24, VALIDATE+28 |
| SAF | F2162+2~, F2162+13*, F2162+14 |
| TEXT | VALIDATE+20~, VALIDATE+36*, VALIDATE+37*, VALIDATE+39*, VALIDATE+40 |
| TITLE | DTCHK+4~, DTCHK+18*, DTCHK+22*, DTCHK+26, DTCHK+30*, DTCHK+33*, DTCHK+38, DTCHK+40 |
| TST | ISEMP+6~, ISEMP+10*, ISEMP+11 |
| TYP | F2162+2~, F2162+5*, F2162+6, F2162+9 |
| U | VALIDATE+28, SUP+14, WP+19 |
| VAL | DTVAL+8~, DTVAL+9*, DTVAL+13*, DTVAL+14, DTVAL+18 |
| VALID | VALIDATE~, VALIDATE+13*, VALIDATE+25*, VALIDATE+28*, VALIDATE+42*, DTCHK+10*, DTCHK+12*, DTCHK+25*, DTCHK+37*, DTCHK+39* , VCHAR+3~, VCHAR+4*, VCHAR+5*, VCHAR+6, WP+7~, WP+8*, WP+16*, WP+19 |
| VIEW | FUT+1~, FUT+2*, FUT+6*, FUT+7 |
| >> WCEMP | VALIDATE+13*, VALIDATE+15, VALIDATE+41, DTCHK+2 |
| WP | VALIDATE+20~, VALIDATE+21*, VALIDATE+26*, VALIDATE+31, VALIDATE+37 |
| X | WP+12*, WP+18! |
