Global: ^LAB(66.5

Information

FileMan FileNo	FileMan Filename	Package
66.5	OPERATION (MSBOS)	Lab Service

Contains operations/procedures with identified maximum surgical blood order schedules (MSBOS). EDITING OF FILE IS NOT ALLOWED.

Package	Total	Routines
Lab Service	1	LRBLS

Package	Total	FileMan Files
CPT HCPCS Codes	1	CPT(#81)[.01]
Lab Service	1	BLOOD PRODUCT(#66)[#66.51(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO CPT FILE (#81)	**********************REQUIRED FIELD********************** CPT(#81) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3),$P(^DIC(81.1,$P(^DIC(81.1,$P(^ICPT(Y,0),U,3),0),U,3),0),U)=""SURGERY""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `MAY 02, 1992` HELP-PROMPT: `Select an operation you want to have a maximum surgical blood order schedule.` DESCRIPTION: `Name of the Operation (MSBOS)` SCREEN: `S DIC("S")="I $P(^(0),U,3),$P(^DIC(81.1,$P(^DIC(81.1,$P(^ICPT(Y,0),U,3),0),U,3),0),U)=""SURGERY"""` EXPLANATION: `Selects only operations/procedures.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `66.5^B` `1)= S ^LAB(66.5,"B",$E(X,1,30),DA)=""` `2)= K ^LAB(66.5,"B",$E(X,1,30),DA)`
.02	SHORT NAME		COMPUTED	MUMPS CODE: `X ^DD(66.5,.02,9.2) S X=$P(Y(66.5,.02,101),U,2) S D0=Y(66.5,.02,80)` `9.2 = S Y(66.5,.02,80)=$S($D(D0):D0,1:""),Y(66.5,.02,1)=$S($D(^LAB(66.5,D0,0)):^(0),1:""),D0=$P(Y(66.5,.02,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1 S Y(66.5,.02,101)=$S($D(^ICPT(D0,0)):^(0),1:"")` ALGORITHM: `NAME:SHORT NAME` DESCRIPTION: `This field contains a shorten name.`
1	BLOOD COMPONENT REQUEST	1;0	POINTER Multiple #66.51	66.51 DESCRIPTION: `Blood component selected for an operation`

NAME

0;1

POINTER TO CPT FILE (#81)

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

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3),$P(^DIC(81.1,$P(^DIC(81.1,$P(^ICPT(Y,0),U,3),0),U,3),0),U)=""SURGERY""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 02, 1992
HELP-PROMPT: Select an operation you want to have a maximum surgical blood order schedule.
DESCRIPTION:
Name of the Operation (MSBOS)
SCREEN: S DIC("S")="I $P(^(0),U,3),$P(^DIC(81.1,$P(^DIC(81.1,$P(^ICPT(Y,0),U,3),0),U,3),0),U)=""SURGERY"""
EXPLANATION: Selects only operations/procedures.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 66.5^B
1)= S ^LAB(66.5,"B",$E(X,1,30),DA)=""
2)= K ^LAB(66.5,"B",$E(X,1,30),DA)

SHORT NAME

COMPUTED

MUMPS CODE: X ^DD(66.5,.02,9.2) S X=$P(Y(66.5,.02,101),U,2) S D0=Y(66.5,.02,80)
9.2 = S Y(66.5,.02,80)=$S($D(D0):D0,1:""),Y(66.5,.02,1)=$S($D(^LAB(66.5,D0,0)):^(0),1:""),D0=$P(Y(66.5,.02,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1 S Y(66.5,.02,101)=$S($D(^ICPT(D0,0)):^(0),1:"")
ALGORITHM: NAME:SHORT NAME
DESCRIPTION:
This field contains a shorten name.

BLOOD COMPONENT REQUEST

1;0

POINTER Multiple #66.51