Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Details | All

Print Page as PDF

Sub-Field: 63.39

Package: Lab Service

LAB DATA(#63)-->63.05-->63.39

Sub-Field: 63.39

Information

Parent File	Name	Number	Package
63.05	MYCOBACTERIUM	63.39	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` DESCRIPTION: This is the entry number of the mycobacterium.
.01	MYCOBACTERIUM	0;1	POINTER TO ETIOLOGY FIELD FILE (#61.2)	ETIOLOGY FIELD(#61.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=""M""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 20, 1993` DESCRIPTION: This is the mycobacterium identified with this specimen. CROSS-REFERENCE: `63.39^B` 1)= S ^LR(DA(2),"MI",DA(1),12,"B",$E(X,1,30),DA)="" 2)= K ^LR(DA(2),"MI",DA(1),12,"B",$E(X,1,30),DA) CROSS-REFERENCE: `63.39^AF^MUMPS` 1)= I $P(^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(^LAB(61.2,X,0),"^",9) K ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ") CROSS-REFERENCE: `63.05^AC^MUMPS` 1)= D ENDIY^LRCAPV1 2)= Q 3)= To trigger WKDL routine. Look up any WKLD codes for this organism and record.
1	QUANTITY	0;2	FREE TEXT	INPUT TRANSFORM: `S Q9="1,68,KT" D COM^LRNUM` 9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "T"[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),"^",2) Q:'$D(^(9)) S Y=$P(X," ",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q 9.1 = F I=1:1 Q:$P(X," ",I,99)="" S %Z=$P(X," ",I),Y="" X:%Z]"" ^DD(63.39,1,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_" " I %L>68 W " too long",! Q LAST EDITED: `MAY 03, 1987` HELP-PROMPT: `ANSWER MUST BE 1-68 CHARACTERS IN LENGTH` DESCRIPTION: This is the quantity of the mycobacterium present. EXECUTABLE HELP: `S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KT""[$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.4	63.4 DESCRIPTION: These are the comments on the microbacterium data.
3	CONTROL	2.0012;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` LAST EDITED: `OCT 12, 1990` EXECUTABLE HELP: `D ZQ^LRMISR` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	STR	2.0001;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` LAST EDITED: `NOV 19, 1984` EXECUTABLE HELP: `D ZQ^LRMISR` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
10	PAS	2.0002;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` EXECUTABLE HELP: `D ZQ^LRMISR`
15	INH	2.0003;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` LAST EDITED: `JUL 15, 1986` EXECUTABLE HELP: `D ZQ^LRMISR`
20	ETH	2.0004;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` EXECUTABLE HELP: `D ZQ^LRMISR`
25	RIF	2.0005;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` EXECUTABLE HELP: `D ZQ^LRMISR`
27	CATALASE	2.0013;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` LAST EDITED: `OCT 12, 1990` EXECUTABLE HELP: `D ZQ^LRMISR` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
28	NIACIN	2.0014;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` LAST EDITED: `OCT 12, 1990` EXECUTABLE HELP: `D ZQ^LRMISR` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
30	KANAMYCIN	2.0006;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` LAST EDITED: `JUN 15, 1990` EXECUTABLE HELP: `D ZQ^LRMISR`
35	CAPREOMYCIN	2.0007;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` EXECUTABLE HELP: `D ZQ^LRMISR`
40	CYCLOSERINE	2.0008;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` EXECUTABLE HELP: `D ZQ^LRMISR`
45	ETHIONAMIDE	2.0009;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` EXECUTABLE HELP: `D ZQ^LRMISR`
50	PYRAZINAMIDE	2.001;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` EXECUTABLE HELP: `D ZQ^LRMISR`
55	MIOMYCIN	2.0011;1	FREE TEXT	INPUT TRANSFORM: `D COM^LRMISR` EXECUTABLE HELP: `D ZQ^LRMISR`

Info | Details | All