Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: OOPSWCSE

Package: Asists

Routine: OOPSWCSE


Information

OOPSWCSE ;WIOFO/LLH-Workers' Comp Sign for Employee ;01/20/01

Source Information

Source file <OOPSWCSE.m>

Entry Points

Name Comments DBIA/ICR reference
EN1(CALLER) ; Entry point for routine
; Input: CALLER = "S" for Safety Officer
; "H" for Employee Health
; "W" for Workers' Comp
WCPS4E ; allow WCP to sign for employee if all approvals given
EXIT ;
VALID() ; make sure same person is not signing for both safety and EH and if
; signed from menu option being called not needed again - so quit
SCR(IEN) ; Screen to allow access to claims that have not been
; signed by the Employee
; Input: IEN = Internal record number of claim

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PRM2
  • Line Location: EN1+24
Function Call: WRITE
  • Prompt: !,"You have approved as "_$S(CONT="S":"Safety Officer",CONT="H":"Emp Health Rep",1:"")
  • Line Location: WCPS4E+7
Function Call: WRITE
  • Prompt: " and cannot sign as Employee."
  • Line Location: WCPS4E+8
Function Call: WRITE
  • Prompt: !,"Three different individuals must be involved."
  • Line Location: WCPS4E+9
Function Call: WRITE
  • Prompt: !,"Safety Officer has not approved WCP signing for employee."
  • Line Location: WCPS4E+11
Function Call: WRITE
  • Prompt: !,"Employee Health has not approved WCP signing for employee."
  • Line Location: WCPS4E+12
Function Call: WRITE
  • Prompt: !
  • Line Location: WCPS4E+16
Function Call: WRITE
  • Prompt: !,"You have signed as "_PRM1_" if you continue, your ES will be removed"
  • Line Location: VALID+16
Function Call: WRITE
  • Prompt: !
  • Line Location: VALID+18
Function Call: WRITE
  • Prompt: !,"You have already signed as "
  • Line Location: VALID+26
Function Call: WRITE
  • Prompt: $S(CALLER="S":"Employee Health",CALLER="H":"Safety Officer",1:0)
  • Line Location: VALID+27
Function Call: WRITE
  • Prompt: ".",!,"Both signatures cannot be made by the same person."
  • Line Location: VALID+28
Function Call: WRITE
  • Prompt: !,PRM1_" has already signed, re-signing is not required."
  • Line Location: VALID+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OOPS(2260 - [#2260] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call