Global: ^LAB(66.5

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

Directly Accessed By Routines, Total: 4

Package	Total	Routines
Lab Service	4	LRBLPCSS LRBLS ^LAB(66.5 LRBLPOST

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Lab Service	1	LRBLS

Pointer To FileMan Files, Total: 2

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

Fields, Total: 3

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

.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

External References

Name	Field # of Occurrence
^DIC	.01+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(66.5	.02+1
^ICPT - [#81]	.02OF9.2+1
^LAB(66.5 - [#66.5]	.01(XREF 1S), .01(XREF 1K), .02OF9.2+1

Naked Globals

Name	Field # of Occurrence
^(0	.02OF9.2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	.02+1, .02OF9.2+1
>> DA	.01(XREF 1S), .01(XREF 1K)
DIC	.01+1!*
DIC("S"	.01+1, .01SCR+1
>> DIE	.01+1
>> DINUM	.01+1*
U	.02+1, .02OF9.2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1
>> Y	.01+1
>> Y(	.02+1, .02OF9.2+1*

Customize PDF page

Package: Lab Service