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

Package: Asists

Routine: OOPSWCE


Information

OOPSWCE ;WIOFO/LLH-Workers Comp Edit routine ;3/23/00

Source Information

Source file <OOPSWCE.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Asists 8 ^OOPSDIS  $$SIG^OOPSESIG  WCP^OOPSMBUL  ($$EDSTA,$$PAID,CLRES)^OOPSUTL1  ($$ISEMP,VALIDATE)^OOPSUTL4  $$VALEMP^OOPSUTL6  CA1^OOPSWCE1  CA2^OOPSWCE2  
VA FileMan 6 %XY^%RCR  (,$$FIND1)^DIC  ^DIE  $$GET1^DIQ  EN^DIQ1  ^DIR  
RPC Broker 1 $$BROKER^XWBLIB  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Asists 1 OOPSGUI7  

Entry Points

Name Comments DBIA/ICR reference
EN1(CALLER) ; Main Entry Point
EXIT ; Validate and allow user to sign if all required fields complete
FORMS ; Process Form
WC(IEN) ; Selection Screen
; Input - IEN Internal entry number of case
; Output - VIEW If 0 case not accessible, if 1 case selectable
WCEDIT ; check for edits by WC
; Get data from fields 146, 147, 148, 149, 163, 164, 165.
WCSIGN ; Prompt user to continue as Supervisor if Super has not signed form
SUPSIGN ; Sign/validate Document
SIGNS(FORM) ;
CLRFLDS ; Clear Supervisor Signature fields
SUPFLDS ; Get Supervisor signature related data for CA1 only
CHGES(DONE) ; Verify changes have been made to controlled fields
; Can quit as soon as any change is discovered
; Input - none
; Output - DONE if 1, at least 1 field edited, else no edits (0)

External References

Name Field # of Occurrence
%XY^%RCR WCEDIT+6, WCEDIT+7
^DIC EN1+10
$$FIND1^DIC FORMS+8
^DIE FORMS+33, SIGNS+31, CLRFLDS+12, SUPFLDS+19
$$GET1^DIQ EN1+15, FORMS+7, FORMS+9, FORMS+22, FORMS+27, WC+6, WC+8, WC+9, SIGNS+3, SIGNS+9
SUPFLDS+6, CHGES+7
EN^DIQ1 WCEDIT+5
^DIR EXIT+5, WCSIGN+6, SUPSIGN+7, SIGNS+23
^OOPSDIS EN1+14
$$SIG^OOPSESIG SUPSIGN+10, SIGNS+24
WCP^OOPSMBUL SIGNS+31
$$EDSTA^OOPSUTL1 EN1+17, WC+7, SIGNS+4
$$PAID^OOPSUTL1 FORMS+14, FORMS+16, FORMS+19
CLRES^OOPSUTL1 FORMS+22, CLRFLDS+7
$$ISEMP^OOPSUTL4 WC+10
VALIDATE^OOPSUTL4 SUPSIGN+3, SIGNS+6
$$VALEMP^OOPSUTL6 SIGNS+14
CA1^OOPSWCE1 FORMS+30
CA2^OOPSWCE2 FORMS+31
$$BROKER^XWBLIB CLRFLDS+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Another user is editing this entry. Try later."
  • Line Location: FORMS+29
Function Call: WRITE
  • Prompt: !!,"Supervisor has not signed "_FORM
  • Line Location: SIGNS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SIGNS+20
Function Call: WRITE
  • Prompt: !!,"Worker's Comp edit of special fields occurred, Supervisor"
  • Line Location: CLRFLDS+5
Function Call: WRITE
  • Prompt: !,"signature fields cleared, you will need to sign as Supervisor."
  • Line Location: CLRFLDS+6
Routine Call
  • DIC
  • Line Location:
    • EN1+10
Routine Call
  • DIC
  • Line Location:
    • FORMS+8
Routine Call
  • DIE
  • Line Location:
    • FORMS+33
    • SIGNS+31
    • CLRFLDS+12
    • SUPFLDS+19
Routine Call
  • DIR
  • Line Location:
    • EXIT+5
    • WCSIGN+6
    • SUPSIGN+7
    • SIGNS+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^OOPS(2260 - [#2260] Classic Fileman Calls,  GET1^DIQ
2262.03 FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OOPS(2260 - [#2260] EXIT+8, FORMS+28, SUPSIGN+12*, SUPFLDS+7*, CHGES+9, CHGES+12
^VA(200 - [#200] EN1+5

Label References

Name Line Occurrences
$$CHGES EN1+21
CLRFLDS EN1+21
EXIT EN1+19, EN1+22
FORMS EN1+18
SIGNS EXIT+7
SUPFLDS EN1+21, EN1+24
SUPSIGN EN1+21, EN1+24
WCEDIT FORMS+27
WCSIGN FORMS+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X WCEDIT+2~, WCEDIT+6*, WCEDIT+7*
%Y WCEDIT+2~, WCEDIT+6*, WCEDIT+7*
ADD FORMS+2~
AGN FORMS+2~
AIEN FORMS+2~
CA EN1+1~, EN1+15*, EN1+17, SIGNS+4
CALLER EN1~
CASIGN EN1+1~, EN1+17*, EN1+24, FORMS+24, FORMS+27
CITY FORMS+2~
DA FORMS+1~, FORMS+32*, WCEDIT+2~, WCEDIT+4*, SIGNS+1~, SIGNS+27*, CLRFLDS+1~, CLRFLDS+10*, SUPFLDS+2~, SUPFLDS+3*
DIC EN1+1~, EN1+7*, WCEDIT+2~, WCEDIT+4*
DIC("A" EN1+9*
DIC("S" EN1+8*
DIC(0 EN1+9*
DIE FORMS+1~, FORMS+32*, SIGNS+1~, SIGNS+27*, CLRFLDS+1~, CLRFLDS+10*, SUPFLDS+2~, SUPFLDS+3*
DIQ WCEDIT+2~, WCEDIT+4*
DIQ(0 WCEDIT+4*
DIR EXIT+1~, WCSIGN+1~, SUPSIGN+1~, SIGNS+19~
DIR("A" EXIT+3*, WCSIGN+2*, WCSIGN+3*, WCSIGN+4*, SUPSIGN+5*, SIGNS+21*
DIR(0 EXIT+4*, WCSIGN+5*, SUPSIGN+6*, SIGNS+22*
>> DIRUT FORMS+34, SUPFLDS+20
DONE EN1+1~, EN1+2*, EN1+21*, CHGES~, CHGES+6, CHGES+7*, CHGES+8, CHGES+10*, CHGES+11, CHGES+12*
, CHGES+13
DR FORMS+1~, WCEDIT+2~, WCEDIT+4*, SIGNS+1~, SIGNS+27*, CLRFLDS+1~, CLRFLDS+10*, SUPFLDS+2~, SUPFLDS+3*
DR(1 SIGNS+28*, SIGNS+29*, SIGNS+30*, CLRFLDS+11*, SUPFLDS+8*, SUPFLDS+9*, SUPFLDS+10*, SUPFLDS+11*, SUPFLDS+12*, SUPFLDS+13*
SUPFLDS+14*, SUPFLDS+15*, SUPFLDS+16*, SUPFLDS+18*
>> DTOUT EN1+12
>> DUOUT EN1+12
DUZ EN1+4, EN1+5, FORMS+27, SUPSIGN+10, SIGNS+24, SUPFLDS+6
ES SUPSIGN+1~, SUPSIGN+11*, SUPSIGN+12
FLD FORMS+1~, FORMS+13*, FORMS+14, FORMS+15*, FORMS+16, FORMS+18*, FORMS+19
FORM EN1+1~, EN1+15*, EN1+16*, EXIT+7, FORMS+22, FORMS+27, FORMS+30, FORMS+31, WC+4~, WC+6*
, WC+7, WCSIGN+3, SUPSIGN+3, SUPSIGN+11, SIGNS~, SIGNS+5, SIGNS+6, CLRFLDS+7, SUPFLDS+5
I FORMS+1~, CHGES+5~, CHGES+6*, CHGES+7, CHGES+8*, CHGES+9, CHGES+10, CHGES+12
IEN EN1+1~, EN1+2*, EN1+13*, EN1+15, EN1+17, EXIT+8, FORMS+7, FORMS+14, FORMS+16, FORMS+19
FORMS+22, FORMS+27, FORMS+28, FORMS+32, WC~, WC+6, WC+7, WC+8, WC+9, WC+10
WCEDIT+4, SUPSIGN+3, SUPSIGN+10, SUPSIGN+12, SIGNS+3, SIGNS+4, SIGNS+6, SIGNS+9, SIGNS+24, SIGNS+27
, SIGNS+31, CLRFLDS+7, CLRFLDS+10, SUPFLDS+3, SUPFLDS+7, CHGES+7, CHGES+8, CHGES+9, CHGES+10, CHGES+12
LINE CHGES+5~, CHGES+9*, CHGES+10, CHGES+11
LP CHGES+5~, CHGES+11*, CHGES+12
MAX FORMS+1~
MAX1 FORMS+1~, FORMS+11*
OOPS EN1+1~, EN1+21, WCEDIT+3!
OOPS(2260 CHGES+7, CHGES+8, CHGES+10, CHGES+12
OUT EN1+1~, EN1+2*, EN1+19, EN1+21, EN1+22, EN1+24, EXIT+2, EXIT+6*, EXIT+7, FORMS+24
FORMS+29*, FORMS+30, FORMS+31, FORMS+34*, WCSIGN+7*, SUPSIGN+4*, SUPSIGN+8*, SUPFLDS+1, SUPFLDS+20*
OWCP FORMS+5~, FORMS+6*, FORMS+8*, FORMS+9*, FORMS+10*
PADD FORMS+3~
PAY FORMS+1~, FORMS+18*, FORMS+19*, FORMS+20*
PAYPLAN SIGNS+1~, SIGNS+3*, SIGNS+14
PCITY FORMS+3~
PNAME FORMS+3~
PSTATE FORMS+3~
PTITLE FORMS+3~
PZIP FORMS+3~
RET FORMS+1~, FORMS+15*, FORMS+16*, FORMS+17*
SAL FORMS+1~, FORMS+13*, FORMS+14*
SIEN FORMS+3~
SIGN EN1+1~, SIGNS+2*, SIGNS+24*, SIGNS+26, SIGNS+31
SSN EN1+1~
STA FORMS+5~, FORMS+7*, FORMS+8
STAT FORMS+3~
STATE FORMS+2~
SUP EN1+1~, SUPFLDS+2~, SUPFLDS+6*
SUPSIGN SUPSIGN+1~, SUPSIGN+10*, SUPSIGN+12
U EN1+13, EN1+17, WC+7, SUPSIGN+12, SIGNS+4, SIGNS+26, SIGNS+31, SUPFLDS+7, CHGES+9, CHGES+10
VALID SUPSIGN+1~, SUPSIGN+2*, SUPSIGN+3, SUPSIGN+4, SIGNS+1~, SIGNS+2*, SIGNS+6, SIGNS+7
VIEW WC+4~, WC+5*, WC+7*, WC+8*, WC+9*, WC+10*, WC+11
WCPDO EN1+1~
WOK EN1+1~, EN1+3*
X EN1+1~
Y EN1+11, EN1+13, EXIT+1~, EXIT+6, FORMS+34, WCSIGN+1~, WCSIGN+7, SUPSIGN+1~, SUPSIGN+8, SUPSIGN+9
, SIGNS+19~, SIGNS+24, SUPFLDS+20
ZIP FORMS+2~
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