Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: OOPSUTL4

Package: Asists

Routine: OOPSUTL4


Information

OOPSUTL4 ;HINES/WAA-Utilities Routines ;3/24/98

Source Information

Source file <OOPSUTL4.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 EN^DDIOL  $$GET1^DID  $$GET1^DIQ  ^DIWP  
Asists 2 PHYCHK^OOPSGUI9  $$ISEMP^OOPSUTL4  
Kernel 1 $$FMDIFF^XLFDT  

Caller Graph

Caller Graph Total: 31

Package Total Caller Graph
Asists 31 OOPSDOL1  OOPSDOL2  OOPSVAL1  ^OOPS(2261.1  ^OOPS(2261.2  ^OOPS(2261.3  ^OOPS(2261.4  ^OOPS(2261.5  
^OOPS(2261.6  ^OOPS(2261.7  ^OOPS(2261.8  ^OOPS(2263  ^OOPS(2263.1  ^OOPS(2263.2  ^OOPS(2263.3  ^OOPS(2263.5  
OOPSDOLX  OOPSEMP1  OOPSGUI0  OOPSGUIT  OOPSPRT1  OOPSSOF1  OOPSSUP1  OOPSSUP3  
OOPSUTL2  OOPSUTL4  OOPSUTL5  OOPSWCE  OOPSWCSE  OOPSXP8  OOPSXV2  

Entry Points

Name Comments DBIA/ICR reference
WCP ; Get required fields for Workers Comp
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
SOF ;
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
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
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
EMP ; Address fields are now all pulled from the 2162A node
; added fields 126 & 181,183-185 to lists below - patch 8
SUP ;
F2162 ; Set required fields for form 2162 - doesn't matter which menu
; coming from, Supervisor, Safety, WC (for EDIT REPORT OF INCIDENT)
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
FUT(DATE) ; Check for dates prior to Date of Inj/Ill
DTCHK ; Date error checking that may be missed w/input transform
; patch 11 - Additional error checking has been added for CA2 field 214

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Validating data on form ",FORM,"."
  • Line Location: VALIDATE+14
Function Call: WRITE
  • Prompt: !!,"The following fields must be completed before the "_FORM_" can be signed.",!
  • Line Location: VALIDATE+30
Function Call: WRITE
  • Prompt: !!?6,"This date cannot be prior to DATE/TIME INJURY OCCURRED entered on 2162.",!
  • Line Location: FUT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OOPS(2260 - [#2260] GET1^DID,  GET1^DIQ

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
EMP VALIDATE+15
F2162 SUP+2, SOF+1, WCP+1
SOF VALIDATE+17
SUP VALIDATE+16, WCP+9
WCP VALIDATE+18

Local Variables

Legend:

>> 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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All