Sub-Field: 61.211

Parent File	Name	Number	Package
ETIOLOGY FIELD(#61.2)	ETIOLOGY WKLD CODE	61.211	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ETIOLOGY WKLD CODE	0;1	POINTER TO WKLD CODE FILE (#64)	WKLD CODE(#64) INPUT TRANSFORM: `I $D(X) S DINUM=X` LAST EDITED: `FEB 11, 1993` DESCRIPTION: `Enter a WKLD code which can be associated with the isolation and identification of the this particular organism. The verifier will be able to select from these entries for additional work load.` NOTE: THIS FIELD IS ONLY USED FOR MICROBIOLOGY WORKLOAD. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^61.211^1` 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.2,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,2) X ^DD(61.211,.01,1,1,1.4) 1.4)= S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.2,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(61.211,.01,1,1,2.4) 2.4)= S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$P(^LAM(DA,0),U,2) DELETE VALUE)= @ FIELD)= WKLD CODE CROSS-REFERENCE: `61.211^B` 1)= S ^LAB(61.2,DA(1),9,"B",$E(X,1,30),DA)="" 2)= K ^LAB(61.2,DA(1),9,"B",$E(X,1,30),DA)
1	ETIOLOGY WKLD CODE #	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<9) X` LAST EDITED: `JUL 07, 1992` HELP-PROMPT: `Answer must be 9 characters in length.` WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the ETIOLOGY WKLD CODE field of the ETIOLOGY WKLD CODE sub-field of the ETIOLOGY FIELD File
2	MULTIPLY BY	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 27, 1990` HELP-PROMPT: `Type a Number between 1 and 20, 0 Decimal Digits` DESCRIPTION: If this WKLD code should be counted more than once, enter the number here. The default is 1.

.01

ETIOLOGY WKLD CODE

0;1

POINTER TO WKLD CODE FILE (#64)

WKLD CODE(#64)

INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: FEB 11, 1993
DESCRIPTION: Enter a WKLD code which can be associated with the isolation and identification of the this particular organism. The verifier will be able to select from these entries for additional work load.
```
NOTE: THIS FIELD IS ONLY USED FOR MICROBIOLOGY WORKLOAD.
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: ^^TRIGGER^61.211^1

1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.2,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,2) X ^DD(61.211,.01,1,1,1.4)

1.4)= S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.2,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(61.211,.01,1,1,2.4)

2.4)= S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= S X=$P(^LAM(DA,0),U,2)

DELETE VALUE)= @

FIELD)= WKLD CODE

CROSS-REFERENCE: 61.211^B

1)= S ^LAB(61.2,DA(1),9,"B",$E(X,1,30),DA)=""

2)= K ^LAB(61.2,DA(1),9,"B",$E(X,1,30),DA)

ETIOLOGY WKLD CODE #

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>10!($L(X)<9) X
LAST EDITED: JUL 07, 1992
HELP-PROMPT: Answer must be 9 characters in length.
```
WRITE AUTHORITY:  ^
```

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

TRIGGERED by the ETIOLOGY WKLD CODE field of the ETIOLOGY WKLD CODE sub-field of the ETIOLOGY FIELD File

MULTIPLY BY

0;3

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 27, 1990
HELP-PROMPT: Type a Number between 1 and 20, 0 Decimal Digits

DESCRIPTION:

If this WKLD code should be counted more than once, enter the number here. The default is 1.

Customize PDF page

Package: Lab Service

ETIOLOGY FIELD(#61.2)-->61.211

Sub-Field: 61.211

Information

Details