Sub-Field: 67.999991148

Parent File	Name	Number	Package
67.99999114	TREATING SPECIALTY	67.999991148	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TREATING SPECIALTY CODE	0;1	FREE TEXT	INPUT TRANSFORM: `Q:(X="XX "!(X="XY ")) S:$E(X)="X"&($L(X)=2) X=X_" " S X=$S($L(X)=1:0_0_X,$L(X)=2:0_X,1:X) K:$L(X)>3!($L(X)<2)!('$D(^DIC(42.4,+X,0))#2) X` LAST EDITED: `NOV 03, 1995` HELP-PROMPT: `Answer must be 2 characters in length. Or 'XX' for AMBULATORY CARE Treating Specialty.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `67.999991148^B` `1)= S ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)`
.03	TREATING SPECIALTY NAME	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 03, 1995` HELP-PROMPT: `Answer must be 3-30 characters in length.`
1	CNT	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 27, 1992` HELP-PROMPT: `Type a Number between 0 and 100000, 0 Decimal Digits`

TREATING SPECIALTY CODE

0;1

FREE TEXT

INPUT TRANSFORM: Q:(X="XX "!(X="XY ")) S:$E(X)="X"&($L(X)=2) X=X_" " S X=$S($L(X)=1:0_0_X,$L(X)=2:0_X,1:X) K:$L(X)>3!($L(X)<2)!('$D(^DIC(42.4,+X,0))#2) X
LAST EDITED: NOV 03, 1995
HELP-PROMPT: Answer must be 2 characters in length. Or 'XX' for AMBULATORY CARE Treating Specialty.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 67.999991148^B
1)= S ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)

TREATING SPECIALTY NAME

0;3

FREE TEXT

CNT

0;2

NUMBER