Sub-Field: 63.2021

Parent File	Name	Number	Package
63.202	EPON BLOCK	63.2021	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	EPON BLOCK	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `DEC 10, 1991` HELP-PROMPT: `Answer must be 1-9 characters in length.` DESCRIPTION: `Identification of epon block prepared from specimen.` CROSS-REFERENCE: `63.2021^B` `1)= S ^LR(DA(3),"EM",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^LR(DA(3),"EM",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: `DEC 10, 1991` DESCRIPTION: `Date/time epon block prepared. Used for workload recording.`
.03	BLOCK COUNTED	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 10, 1991` DESCRIPTION: `If block counted for workload a 'YES' is entered.`
1	EM PROCEDURE	1;0	POINTER Multiple #63.20211	63.20211 LAST EDITED: `DEC 10, 1991` DESCRIPTION: `EM procedures are recorded here. They are either thick (slides)` `or thin (grids) sections.` SCREEN: `S DIC("S")="I $P(^(0),U,4)=""EM"""` EXPLANATION: `Selects only EM procedures (thick &/or thin sections)`