Global: ^OOPS(2261.5

FileMan FileNo	FileMan Filename	Package
2261.5	ASISTS PURPOSE FOR USING SHARPS	Asists

Directly Accessed By Routines, Total: 2

Package	Total	Routines
Asists	2	PAY STATUS DURING CLAIM ^OOPS(2261.5

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

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
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)`

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

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.

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)

NAME: Injection, thru skin (syringe)	NAME: Heparin/saline flush (syringe)	NAME: Other, I.M. or I.V. port (syringe)	NAME: To connect I.V. line	NAME: Venous blood samp-direct stick	NAME: Venous blood sample-from line	NAME: Art. blood samp-direct stick	NAME: Art. blood samp-from line
NAME: Obtain body fluid or tissue samp	NAME: Finger stick/heel stick	NAME: Suturing	NAME: Cutting	NAME: Drilling	NAME: Electrocautery	NAME: Glass item-hold spec or pharm	NAME: Place arterial/central line
NAME: Unknown/not applicable	NAME: Start I.V. or heparin lock	NAME: Other	NAME: Shaving Patient	NAME: Dental Procedure

Name	Field # of Occurrence
$$UP^OOPSUTL4	.01(XREF 2S), .01(XREF 2K)

Name	Line Occurrences (* Changed, ! Killed)
^OOPS(2261.5 - [#2261.5]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K)

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1!, 1(XREF 1S), 1(XREF 1K)