Sub-Field: 9002313.0701

Parent File	Name	Number	Package
9002313.0201	Clinical Diagnosis Repeating	9002313.0701	Pharmacy Point of Sale

Parent File

Name

Number

Package

Clinical Diagnosis Repeating

9002313.0701

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	Diagnosis Counter	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `AUG 01, 2002` HELP-PROMPT: `Answer must be 1 character in length.` CROSS-REFERENCE: `9002313.0701^B` 1)= S ^ABSPC(DA(2),400,DA(1),491.01,"B",$E(X,1,30),DA)="" 2)= K ^ABSPC(DA(2),400,DA(1),491.01,"B",$E(X,1,30),DA)
424	Diagnosis Code	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<15) X` LAST EDITED: `AUG 01, 2002` HELP-PROMPT: `Answer must be 15 characters in length.`
492	Dianosis Code Qualifier	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `AUG 01, 2002` HELP-PROMPT: `Answer must be 2 characters in length.`

Diagnosis Counter

0;1

FREE TEXT

CROSS-REFERENCE: 9002313.0701^B

1)= S ^ABSPC(DA(2),400,DA(1),491.01,"B",$E(X,1,30),DA)=""

2)= K ^ABSPC(DA(2),400,DA(1),491.01,"B",$E(X,1,30),DA)

Diagnosis Code

0;3

FREE TEXT

Dianosis Code Qualifier

0;2

FREE TEXT