Sub-Field: 63.43

Parent File	Name	Number	Package
63.05	VIRUS	63.43	Lab Service

Details

Field # Name Loc Type 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 this virus.
.01	VIRUS	0;1	POINTER TO ETIOLOGY FIELD FILE (#61.2)	ETIOLOGY FIELD(#61.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=""V""!($P(^(0),U,5)=""R"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 20, 1993` DESCRIPTION: This is the virus reported on this specimen. CROSS-REFERENCE: `63.43^AG^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^AF^MUMPS` 1)= D ENDIY^LRCAPV1 2)= Q 3)= Trigger WKLD routine. Look up any WKLD code for this organism and record.

ISOLATE NUMBER

NUMBER

VIRUS

0;1

POINTER TO ETIOLOGY FIELD FILE (#61.2)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=""V""!($P(^(0),U,5)=""R"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 20, 1993

DESCRIPTION:

This is the virus reported on this specimen.

CROSS-REFERENCE: 63.43^AG^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^AF^MUMPS

1)= D ENDIY^LRCAPV1

2)= Q

3)= Trigger WKLD routine.

Look up any WKLD code for this organism and record.