Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^OOPS(2263.1

Package: Asists

Global: ^OOPS(2263.1


Information

FileMan FileNo FileMan Filename Package
2263.1 ASISTS DOL SOURCE OF INJURY CODES Asists

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Asists 2 OOPSXV2    ^OOPS(2263.1    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Asists 1 ASISTS ACCIDENT REPORTING(#2260)[124227]    

Fields, Total: 2

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K X D EN^DDIOL("Sorry, Can't Add") Q K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  MAR 29, 2000
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    The NAME of the Source of Injury Code as defined by the Department of Labor (DOL).  The NAME of any Source of Injury Code must not be altered.
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL("Sorry, entries may not be deleted.")
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2263.1^D^MUMPS
    1)= S ^OOPS(2263.1,"D",$$UP^OOPSUTL4($E(X,1,30)),DA)=""
    2)= K ^OOPS(2263.1,"D",$$UP^OOPSUTL4($E(X,1,30)),DA)
  • FIELD INDEX:  B (#58) REGULAR IR LOOKUP & SORTING
    Short Descr:  Index on the complete Name field (all 60 characters)
    Set Logic:  S ^OOPS(2263.1,"B",$E(X,1,60),DA)=""
    Kill Logic:  K ^OOPS(2263.1,"B",$E(X,1,60),DA)
    Whole Kill:  K ^OOPS(2263.1,"B")
    X(1):  NAME  (2263.1,.01)  (Subscr 1)  (Len 60)  (forwards)
1 CODE 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the CODE which corresponds to a matching Source of Injury NAME as defined by the Department of Labor (DOL).  The value for any CODE must NOT be changed.
    UNEDITABLE
  • CROSS-REFERENCE:  2263.1^C^MUMPS
    1)= S ^OOPS(2263.1,"C",$E(X,1,30),DA)=""
    2)= K ^OOPS(2263.1,"C",$E(X,1,30),DA)

External References

Name Field # of Occurrence
EN^DDIOL .01+1, .01DEL1+1
$$UP^OOPSUTL4 .01(XREF 1S), .01(XREF 1K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OOPS(2263.1 - [#2263.1] IXBSL+1*, IXBKL+1!, IXBKEIC+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA IXBSL+1, IXBKL+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)
U ID1+1
X IXBSL+1, IXBKL+1, .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All