Sub-Field: 63.37

Parent File	Name	Number	Package
63.05	FUNGUS/YEAST	63.37	Lab Service

Details

Field #	Name	Loc	Type	Details
.001	ISOLATE NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 25, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99`
.01	FUNGUS/YEAST	0;1	POINTER TO ETIOLOGY FIELD FILE (#61.2)	ETIOLOGY FIELD(#61.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=""F""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 20, 1993` CROSS-REFERENCE: `63.37^B` 1)= S ^LR(DA(2),"MI",DA(1),9,"B",$E(X,1,30),DA)="" 2)= K ^LR(DA(2),"MI",DA(1),9,"B",$E(X,1,30),DA) CROSS-REFERENCE: `63.37^AC^MUMPS` 1)= I $P($G(^LAB(61.2,+X,0)),"^",9) S ^LR("AD",DT,+X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")=DA(2) 2)= I $P($G(^LAB(61.2,+X,0)),"^",9) K ^LR("AD",DT,+X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ") CROSS-REFERENCE: `63.05^AD^MUMPS` 1)= D ENDIY^LRCAPV1 2)= Q 3)= To trigger WKLD routine. Lookup any WKLD codes for this organism and record.
1	QUANTITY	0;2	FREE TEXT	INPUT TRANSFORM: `S Q9="1,68,KF" D COM^LRNUM` LAST EDITED: `MAY 03, 1987` HELP-PROMPT: `ANSWER MUST BE 1-68 CHARACTERS IN LENGTH` EXECUTABLE HELP: `S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KF""[$P(^(0),U,4)",D="B" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	COMMENT	1;0	Multiple #63.372	63.372