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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Asists 2 ($$EDSTA,$$OPEN)^OOPSUTL1  $$UP^OOPSUTL4  

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

Package Total Caller Graph
Asists 7 OOPSDOL1  OOPSDOL2  OOPSSUP2  OOPSSUPB  OOPSVAL1  OOPSWCE1  OOPSWCE2  

Entry Points

Name Comments DBIA/ICR reference
DISP ; disp text for prompt
CARE(IEN,GEN) ; Select Patient Care Area
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
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.
PHINFO
RWSOT ;Regular Work Schedule output transform
EXCEPT ; Exception statement
RWS ;Regular Work Schedule
CARE2(IEN) ; Update location field
VCHAR ; Write error message if invalid character
EQUIP() ; This will ask if the product failed
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
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
SAFETY(IEN,OPEN) ; Safety Officer Screen

External References

Name Field # of Occurrence
^DIC CARE+39
$$GET1^DIQ CARE2+2, CARE2+3, DEVSZ+9, DEVSZ+10, CARE+3, CARE+7, CARE+14, CARE+24, CARE+25, CARE+32
, SUPSCR+12, SUPSCR+13, AGNINFO+2, AGNINFO+3, AGNINFO+4, AGNINFO+5, AGNINFO+6, PHINFO+7, PHINFO+8, PHINFO+9
, PHINFO+10, PHINFO+11, PHINFO+12
^DIR EQUIP+7, CARE+28, RWS+16
$$EDSTA^OOPSUTL1 SAFETY+5, SUPSCR+14, SUPSCR+17, UNION+6
$$OPEN^OOPSUTL1 SUPSCR+10
$$UP^OOPSUTL4 DEVSZ+9

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
Routine Call
  • DIC
  • Line Location:
    • CARE+39
Routine Call
  • DIR
  • Line Location:
    • EQUIP+7
    • CARE+28
    • RWS+16

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OOPS(2260 - [#2260] CARE2+4*, EQUIP+4, EQUIP+9, SAFETY+4, SAFETY+5, AGNINFO+1, PHINFO+2, RWS+19*, RWS+20*
^OOPS(2262 - [#2262] PHINFO+4

Label References

Name Line Occurrences
RWS RWS+17

Naked Globals

Name Field # of Occurrence
^("2162D" EQUIP+9*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADD AGNINFO+3*
>> AGN AGNINFO+2*
>> AIEN AGNINFO+1*, AGNINFO+2, AGNINFO+3, AGNINFO+4, AGNINFO+5, AGNINFO+6, PHINFO+2*, PHINFO+4
ANS EQUIP+1~, EQUIP+2*, EQUIP+4*, EQUIP+8*, EQUIP+9, EQUIP+10
AREA CARE+1~, CARE+3*, CARE+4*, CARE+5, CARE+8, CARE+12~, CARE+29*, CARE+30*, CARE+31, CARE+32
, CARE+36, CARE+38, CARE+40*, CARE+41*, CARE+42*, CARE+45*, CARE+46
>> CITY AGNINFO+4*
>> D0 RWS+19, RWS+20
DEFAULT CARE+13~, CARE+32*, CARE+37
DEV DEVSZ~, DEVSZ+10
DIC CARE+34~, CARE+35*
DIC("A" CARE+38*
DIC("B" CARE+37*
DIC("S" CARE+36*
DIC(0 CARE+38*
DIR EQUIP+1~, CARE+13~
DIR("?" EQUIP+6*, CARE+23*, RWS+2*, RWS+3*, RWS+4*, RWS+5*, RWS+6*, RWS+7*, RWS+8*, RWS+9*
, RWS+10*, RWS+11*, RWS+12*, RWS+13*, RWS+14*, RWS+15*
DIR("A" EQUIP+5*, CARE+22*
DIR("B" EQUIP+4*, CARE+27*
DIR(0 EQUIP+3*, CARE+21*, RWS+1*
>> DIRUT RWS+18
>> DTOUT CARE+29, CARE+40
>> DUOUT CARE+29, CARE+40
DUZ SUPSCR+13
GEN CARE2+1~, CARE2+2*, CARE2+3, CARE~, CARE+7
HOLD RWSOT+1~, RWSOT+2*, RWSOT+3*, RWSOT+4
I RWSOT+1~, RWSOT+3*
IEN CARE2~, CARE2+2, CARE2+4, DEVSZ~, DEVSZ+9, EQUIP+4, EQUIP+9, CARE~, CARE+3, CARE+14
, CARE+24, CARE+32, SAFETY~, SAFETY+4, SAFETY+5, SUPSCR~, SUPSCR+10, SUPSCR+12, SUPSCR+13, SUPSCR+14
, SUPSCR+17, AGNINFO+1, PHINFO+2, UNION~, UNION+6
INC CARE+13~, CARE+14*, CARE+22
INJ SUPSCR+11~, SUPSCR+12*, SUPSCR+17
INSTR MKNUM~, MKNUM+5
>> ITEM RWS+19, RWS+20, EXCEPT+1
K MKNUM+3~, MKNUM+5*
LOC CARE2+1~, CARE2+3*, CARE2+4
NUMOUT MKNUM+3~, MKNUM+4*, MKNUM+5*, MKNUM+6
OBJECT DEVSZ+7~, DEVSZ+9*, DEVSZ+11, DEVSZ+12
OPEN SAFETY~, SAFETY+2*, SAFETY+4, SAFETY+5, SUPSCR~, SUPSCR+9*, SUPSCR+10
OTHER CARE+12~, CARE+30*, CARE+45
>> PADD PHINFO+8*
>> PCITY PHINFO+9*
>> PNAME PHINFO+7*
>> PSTATE PHINFO+10*
>> PTITLE PHINFO+12*
>> PZIP PHINFO+11*
SELECT CARE+13~, CARE+15*, CARE+24*, CARE+25*, CARE+26*, CARE+27, CARE+32
>> SIEN PHINFO+6*, PHINFO+7, PHINFO+8, PHINFO+9, PHINFO+10, PHINFO+11, PHINFO+12
>> STAT PHINFO+1*, PHINFO+4*, PHINFO+5, PHINFO+6
>> STATE AGNINFO+5*
SUP SUPSCR~
TYPE DEVSZ+10*, DEVSZ+11, DEVSZ+12, CARE+1~, CARE+7*, CARE+8
U CARE2+4, EQUIP+4, EQUIP+9, CARE+42, CARE+45, SAFETY+4, SAFETY+5, SUPSCR+17, RWS+19, RWS+20
, UNION+6
VALID UNION+4~, UNION+5*, UNION+6*, UNION+7
VIEW DEVSZ+7~, DEVSZ+8*, DEVSZ+11*, DEVSZ+12*, DEVSZ+13, CARE+1~, CARE+2*, CARE+5*, CARE+8*, CARE+10
, SAFETY+1~, SAFETY+2*, SAFETY+4*, SAFETY+5*, SAFETY+6, SUPSCR+8~, SUPSCR+9*, SUPSCR+19*, SUPSCR+21
X CARE+34~, RWS+17
Y EQUIP+1~, EQUIP+8, CARE+13~, CARE+41, CARE+42, RWS+1~, RWS+19, RWS+20, RWSOT+3, RWSOT+4*
Y(0 CARE+29*, CARE+30
>> ZIP AGNINFO+6*
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 |  Naked Globals |  Local Variables |  All