Sub-Field: 65.06

Parent File	Name	Number	Package
BLOOD INVENTORY(#65)	DISPOSITION COMMENT	65.06	Lab Service

Parent File

Name

Number

Package

DISPOSITION COMMENT

65.06

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DISPOSITION COMMENT	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="D" D ^LRUB` LAST EDITED: `APR 08, 1988` HELP-PROMPT: `ANSWER MUST BE 1-80 CHARACTERS IN LENGTH, CAN USE LAB DESCRIPTION FILE ENTRIES WITH BB DISP SCREEN` DESCRIPTION: Final disposition comment(s) EXECUTABLE HELP: `S L(1)="D" D Q^LRUB` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^AE^MUMPS` 1)= S ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)="" 2)= K ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)

DISPOSITION COMMENT

0;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="D" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH, CAN USE LAB DESCRIPTION FILE ENTRIES WITH BB DISP SCREEN
DESCRIPTION:
```
Final disposition comment(s)
```
EXECUTABLE HELP: S L(1)="D" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 65^AE^MUMPS

1)= S ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)=""

2)= K ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)