Sub-Field: 63.8121

Parent File	Name	Number	Package
63.812	PARAFFIN BLOCK	63.8121	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	PARAFFIN BLOCK ID	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X` LAST EDITED: `JAN 13, 1992` HELP-PROMPT: `ANSWER MUST BE 1-9 CHARACTERS IN LENGTH` DESCRIPTION: `The identification number on the paraffin block used to make` `the slides for any stains or procedures.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `63.8121^B` `1)= S ^LR(DA(3),"SP",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^LR(DA(3),"SP",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)`
.02	DATE/TIME BLOCK PREPARED	0;2	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 04, 1991` DESCRIPTION: `Date/time block prepared. Used for workload recording.`
.03	BLOCK COUNTED	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 04, 1991` DESCRIPTION: `Used for workload recording.` `If block counted a 'YES' is entered.`
1	STAIN/PROCEDURE	1;0	POINTER Multiple #63.8122	63.8122 DESCRIPTION: `List of tissue stains or procedures performed on the slides cut` `from the paraffin block.` SCREEN: `S DIC("S")="I $P(^(0),U,4)=""SP"""` EXPLANATION: `Selects only stains/procedures associated with anatomic pathology`