STANDARD DATA DICTIONARY #2261.5 -- ASISTS PURPOSE FOR USING SHARPS FILE                                          9/29/25    PAGE 1
STORED IN ^OOPS(2261.5,  (21 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                   (VERSION 2.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of phrases describing the purpose for originally using the sharps item. Each entry is associated with a
code.  File data is exported with the package and should not be edited by the site.  


              DD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @

POINTED TO BY: PURPOSE OF SHARP OBJECT field (#36) of the ASISTS ACCIDENT REPORTING File (#2260) 
               

CROSS
REFERENCED BY: NAME(B), CODE(C), NAME(D)



2261.5,.01    NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X
              LAST EDITED:      MAY 05, 1998 
              HELP-PROMPT:      Answer must be 3-100 characters in length. 
              DESCRIPTION:
                                Enter a purpose for using Sharps.  

              CROSS-REFERENCE:  2261.5^B 
                                1)= S ^OOPS(2261.5,"B",$E(X,1,30),DA)=""
                                2)= K ^OOPS(2261.5,"B",$E(X,1,30),DA)

              CROSS-REFERENCE:  2261.5^D^MUMPS 
                                1)= S ^OOPS(2261.5,"D",$$UP^OOPSUTL4($E(X,1,30)),DA)=""
                                2)= K ^OOPS(2261.5,"D",$$UP^OOPSUTL4($E(X,1,30)),DA)
                                This cross-reference allows selection of entries by upper-case values.  



2261.5,1      CODE                   0;2 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      MAR 11, 1998 
              HELP-PROMPT:      Type a Number between 0 and 999, 0 Decimal Digits 
              DESCRIPTION:
                                Enter a code that will identify a purpose for using sharps.  

              CROSS-REFERENCE:  2261.5^C 
                                1)= S ^OOPS(2261.5,"C",$E(X,1,30),DA)=""
                                2)= K ^OOPS(2261.5,"C",$E(X,1,30),DA)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):