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: OOPSUTL1

Package: Asists

Routine: OOPSUTL1


Information

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

Source Information

Source file <OOPSUTL1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 MSG^DIALOG  FIND^DIC  CLEAN^DILF  $$GET1^DIQ  ^DIR  
Asists 1 $$EDSTA^OOPSUTL1  
RPC Broker 1 $$BROKER^XWBLIB  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Asists 17 OOPSCA  OOPSEMP1  OOPSGUI0  OOPSGUI1  OOPSGUI4  OOPSGUI8  OOPSGUIT  OOPSPRT1  
OOPSPRT2  OOPSSOF1  OOPSSUP1  OOPSUTL1  OOPSUTL2  OOPSUTL6  OOPSVAL1  OOPSWCE  
OOPSWCSE  

Entry Points

Name Comments DBIA/ICR reference
WCS ; Sets the "AWC" xref. A routine call is used to prevent inadvertent
; re-indexing of the xref. Xref is used for determining which records
; were included in Mailman messages that transmitted claims to DOL
; Variables
; WOK = set in OOPSWCE, used to prevent inadvertent
; re-indexing of ^OOPS(2260,"AW",DUZ,IEN)
; IEN = record ID file 2260
; X = field 66 - Date Transmitted to DOL
CLRES(IEN,CALLER,FORM) ; Clean out electronic SIG
EDSTA(IEN,CALLER) ; Gives the status of form to allows the user to
WK ; Kills the "AW" xref. See above as reason for manually setting
; WOK = set in OOPSWCE, used to prevent inadvertent reindex
; IEN = uses IEN for DA of file 2260
; X = field 67, file 2260 = DUZ
PAYP(PAY) ; Map PAID Pay Plan to higher category for DOL project
EMP(IEN,SSN,OPEN) ; DIC filter for Employee enter edit
WS ; The following 4 subroutines are added with Patch 8 - DOL project
; Sets the "W" xref. A routine call is used to prevent the inadvertent
; re-indexing of xref. Xref is used for determining which records
; should be included in transmission of claims to DOL. When the record
; is placed in a Mailman message (WC xref set) this xref is killed.
; Variables
; WOK = set in OOPSWCE, used to prevent inadvertent
; re-indexing of ^OOPS(2260,"AW",X,IEN)
; IEN = uses IEN for DA of file 2260
; X = field 67 (DUZ)
WCK ; Kills the "AWC" xref. See above as reason for manually setting
; WOK = set in OOPSWCE, used to prevent inadvertent reindex
; IEN = uses IEN for DA of file 2260
; X = field 66 - Date Transmitted to DOL
PAID(IEN,FLD) ; Get the data value from the PAID file (#450), if employee
; Input - IEN internal entry number of case in file 2260
; - FLD the PAID field number to retrieve
; - NAME Name of Person Involved, used to get PAID IEN
; - VAL Data value from the PAID #450, field #FLD
; Output - DESC Description from Paid, if there
EDSEL(IEN,CALLER) ; Allow you to select the form part to edit
OPEN(IEN,OPEN) ; Determine if record is open

External References

Name Field # of Occurrence
MSG^DIALOG WS+13, WK+8, WCS+12, WCK+7
FIND^DIC PAID+10
CLEAN^DILF PAID+11
$$GET1^DIQ EMP+14, EMP+17, EMP+19, EDSTA+34, EDSTA+38, EDSTA+39, PAID+9, PAID+13, PAID+15
^DIR EDSEL+25
$$EDSTA^OOPSUTL1 EMP+16, EDSEL+14
$$BROKER^XWBLIB CLRES+40

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?10,"Select Forms: "
  • Line Location: EDSEL+15
Function Call: WRITE
  • Prompt: !,?20,CNT,") Form 2162"
  • Line Location: EDSEL+16
Function Call: WRITE
  • Prompt: !,?20,CNT,") ",$S($P(EEFORM,U)=1:"Edit",1:"Enter")," form CA1 (Injury)"
  • Line Location: EDSEL+17
Function Call: WRITE
  • Prompt: !,?20,CNT,") ",$S($P(EEFORM,U,2)=1:"Edit",1:"Enter")," form CA2 (Illness)"
  • Line Location: EDSEL+18
Function Call: WRITE
  • Prompt: !!,"Your ES has been cleared. You will need to resign.",!
  • Line Location: CLRES+40
Routine Call
  • DIC
  • Line Location:
    • PAID+10
Routine Call
  • DIR
  • Line Location:
    • EDSEL+25
Routine Call
  • DIALOG
  • Line Location:
    • WS+13
    • WK+8
    • WCS+12
    • WCK+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OOPS(2260 - [#2260] GET1^DIQ
^PRSPC - [#450] FIND^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OOPS(2260 - [#2260] WS+14*, WK+11, WK+12!, WCS+13*, WCS+16, WCS+17!, WCK+8!, OPEN+4, OPEN+5, OPEN+6
, CLRES+32, CLRES+33, CLRES+34, CLRES+37*, CLRES+42*, CLRES+48, CLRES+49*
^TMP("DILIST" PAID+12, PAID+13, PAID+14

Label References

Name Line Occurrences
$$EDSTA EDSEL+13
$$OPEN EMP+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACCD EDSTA+28~
CA1 EDSTA+28~
CA2 EDSTA+28~
CALL CLRES+16~, CLRES+30*, CLRES+31, CLRES+33, CLRES+34
CALLER EDSTA~, EDSTA+30, EDSTA+38, EDSTA+39, EDSEL~, EDSEL+13, EDSEL+14, EDSEL+16, CLRES~, CLRES+20
, CLRES+23, CLRES+24, CLRES+26, CLRES+30, CLRES+42, CLRES+46
CNT EDSEL+10~, EDSEL+11*, EDSEL+16*, EDSEL+17*, EDSEL+18*, EDSEL+19, EDSEL+24
DESC PAID+7~, PAID+8*, PAID+15*, PAID+16
>> DIERR PAID+11
DIR EDSEL+22~
DIR("A" EDSEL+23*
DIR(0 EDSEL+24*
>> DOL CLRES+38, CLRES+46
EEFORM EDSEL+10~, EDSEL+13*, EDSEL+17, EDSEL+18
FIELD CLRES+16~, CLRES+29*, CLRES+37
FLD PAID~, PAID+15
FLG CLRES+16~, CLRES+18*, CLRES+33*, CLRES+34*, CLRES+36*, CLRES+38
FORM EDSEL+12*, EDSEL+16*, EDSEL+17*, EDSEL+18*, EDSEL+26, CLRES~, CLRES+17, CLRES+22, CLRES+23, CLRES+24
, CLRES+26, CLRES+36, CLRES+46
>> I EDSTA+33*, EDSTA+34, EDSEL+26*, CLRES+37*
IEN EMP~, EMP+13, EMP+14, EMP+16, EMP+17, EMP+19, WS+11, WS+14, WK+6, WK+12
, WCS+10, WCS+13, WCS+17, WCK+5, WCK+8, OPEN~, OPEN+4, OPEN+5, OPEN+6, EDSTA~
, EDSTA+34, EDSTA+38, EDSTA+39, EDSEL~, EDSEL+13, EDSEL+14, CLRES~, CLRES+32, CLRES+33, CLRES+34
, CLRES+37, CLRES+42, CLRES+48, CLRES+49, PAID~, PAID+9, PAID+13
IEN450 PAID+7~, PAID+14*, PAID+15
INC EMP+15~, EMP+17*, EMP+18
IOF EDSEL+15
LINE EDSTA+31~, EDSTA+32*, EDSTA+34*, EDSTA+36
LP PAID+7~, PAID+8*, PAID+12*, PAID+13, PAID+14
>> MSG("DIHELP" WS+12*, WK+7*, WCS+11*, WCK+6*
NAME PAID+7~, PAID+9*, PAID+10
NODE CLRES+16~, CLRES+28*, CLRES+32, CLRES+33, CLRES+34, CLRES+37
OPEN EMP~, EMP+12*, EMP+13, OPEN~, OPEN+2*, OPEN+5, OPEN+6
PAY PAYP~, PAYP+7
PPLAN PAYP+6~, PAYP+7*, PAYP+8
RECORD CLRES+47~, CLRES+48*, CLRES+49*
SEC EDSEL+10~, EDSEL+12*, EDSEL+14*, EDSEL+17, EDSEL+18
SELECT EDSTA+28~, EDSTA+29*, EDSTA+36*, EDSTA+38*, EDSTA+39*, EDSTA+40, EDSEL+10~, EDSEL+12*, EDSEL+26*, EDSEL+27
SIG EMP+15~, EMP+16*, EMP+18, CLRES+16~, CLRES+21*, CLRES+22*, CLRES+23*, CLRES+24*, CLRES+26*, CLRES+27
, CLRES+28, CLRES+29
SSN EMP~, EMP+14
U EMP+18, OPEN+5, OPEN+6, EDSTA+34, EDSTA+36, EDSTA+38, EDSTA+39, EDSEL+17, EDSEL+18, EDSEL+26
, CLRES+33, CLRES+34, CLRES+37, CLRES+42, CLRES+49, PAID+13, PAID+14
VIEW EMP+10~, EMP+11*, EMP+18*, EMP+19*, EMP+21, OPEN+1~, OPEN+3*, OPEN+4, OPEN+5*, OPEN+6*
, OPEN+7
WCDUZ WK+4~, WK+10*, WK+11*, WK+12, WCS+8~, WCS+15*, WCS+16*, WCS+17
>> WOK WS+10, WK+5, WCS+9, WCK+4
>> X WS+14, WCS+13, WCK+8
Y EDSEL+10~, EDSEL+19*, EDSEL+26
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