Sub-Field: 63.922

Parent File	Name	Number	Package
63.902	CELL BLOCK	63.922	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CELL BLOCK	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `JUL 04, 1988` HELP-PROMPT: `ANSWER MUST BE 1-9 CHARACTERS IN LENGTH` CROSS-REFERENCE: `63.922^B` 1)= S ^LR(DA(3),"CY",DA(2),.1,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^LR(DA(3),"CY",DA(2),.1,DA(1),2,"B",$E(X,1,30),DA)
1	CELL BLOCK STAIN	1;0	POINTER Multiple #63.923	63.923 SCREEN: `S DIC("S")="I $P(^(0),U,4)=""SP"""` EXPLANATION: `Selects only stains/procedures associated with anatomic pathology`

CELL BLOCK

0;1

FREE TEXT

CROSS-REFERENCE: 63.922^B

1)= S ^LR(DA(3),"CY",DA(2),.1,DA(1),2,"B",$E(X,1,30),DA)=""

2)= K ^LR(DA(3),"CY",DA(2),.1,DA(1),2,"B",$E(X,1,30),DA)

CELL BLOCK STAIN

1;0

POINTER Multiple #63.923

SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology