Sub-Field: 63.212

Parent File	Name	Number	Package
63.02	EM ORGAN/TISSUE	63.212	Lab Service

Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 02, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `This is the entry number of the organ/tissue(s).`
.01	EM ORGAN/TISSUE	0;1	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) INPUT TRANSFORM: `S:$E(X,1,2)="T-" X=$E(X,3,$L(X)) S SEX=$S('$D(SEX):"MF",SEX="":"MF",1:SEX) S DIC(0)="EMO",DIC("S")="I SEX[$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 19, 1987` DESCRIPTION: `This is the organ/tissue(s) being examined.` EXECUTABLE HELP: `W !,"Selects when appropriate sex related organs.",!,"Ex. A uterus should not be selected for a male patient !!",!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	FUNCTION	3;0	POINTER Multiple #63.285	63.285 DESCRIPTION: `These are the functions associated with this organ/tissue(s).`
1.5	PROCEDURE	4;0	POINTER Multiple #63.282	63.282 DESCRIPTION: `These are the procedures associated with this organ/tissue.`
3	DISEASE	1;0	POINTER Multiple #63.215	63.215 DESCRIPTION: `These are the diseases associated with this organ/tissue(s).`
4	MORPHOLOGY	2;0	POINTER Multiple #63.216	63.216 DESCRIPTION: `These are the morphologies associated with this organ/tissue(s).`
5	SPECIAL STUDIES	5;0	SET Multiple #63.219	63.219 DESCRIPTION: `These are special studies associated with this organ/tissue(s).` IDENTIFIED BY: `ID #(#.03)`