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

Package: Asists

Routine: OOPSUTL2


Information

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

Source Information

Source file <OOPSUTL2.m>

Entry Points

Name Comments DBIA/ICR reference
CARE2(IEN) ; Update location field
VCHAR ; Write error message if invalid character
DEVSZ(IEN,DEV) ; This screens responses to the DEVICE SIZE table based on whether
; the OBJECT CAUSING INJURY field contains the word Needle or Syringe
EQUIP() ; This will ask if the product failed
DISP ; disp text for prompt
CARE(IEN,GEN) ; Select Patient Care Area
SAFETY(IEN,OPEN) ; Safety Officer Screen
SUPSCR(SUP,IEN,OPEN) ; Supervisor screen
; Input
; SUP the DUZ of the Supervisor
; IEN the IEN of the ENTRY in file 2260
AGNINFO ;Patch 7 - default Agency info if available
PHINFO
RWS ;Regular Work Schedule
EXCEPT ; Exception statement
MKNUM(INSTR) ; Strip/Convert num numerics from a string - Patch 11
; Input - INSTR - Character String that should be a number
; Output - NUMOUT - String stripped of all non-numeric characters.
RWSOT ;Regular Work Schedule output transform
UNION(IEN) ;
; Input: IEN = Internal Entry Number of entry in file 2260
; Output VALID = 1 Valid to be seen by Union
; = 0 Not Valid to be seen by Union

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Invalid character entered (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <)",!,"please edit.",!
  • Line Location: VCHAR+1
Function Call: WRITE
  • Prompt: !,"Was the exposed part:"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !," Skin,"
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !," Eyes(Conjunctiva),"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !," Nose(mucosa),"
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !," Mouth(mucosa)"
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !," Other"
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !," Range exceeds 1-7 limit."
  • Line Location: RWS+17
Function Call: WRITE
  • Prompt: !," ",ITEM,". A supervisor who knowingly certifies to any false statement,"
  • Line Location: EXCEPT+1
Function Call: WRITE
  • Prompt: !," misrepresentation, concealment of fact, etc., in respect of"
  • Line Location: EXCEPT+2
Function Call: WRITE
  • Prompt: !," this claim may also be subject to appropriate felony criminal"
  • Line Location: EXCEPT+3
Function Call: WRITE
  • Prompt: !," prosecution."
  • Line Location: EXCEPT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEPT+5
Function Call: WRITE
  • Prompt: !," I certify that the information given above and that furnished"
  • Line Location: EXCEPT+6
Function Call: WRITE
  • Prompt: !," by the employee is true to the best of my knowledge with the"
  • Line Location: EXCEPT+7
Function Call: WRITE
  • Prompt: !," following exception."
  • Line Location: EXCEPT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEPT+9

FileMan Files Accessed Via FileMan Db Call

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