Sub-Field: 9002313.4911

Parent File	Name	Number	Package
ABSP DIAGNOSIS CODE(#9002313.491)	DIAGNOSIS CODE Repeating Rec	9002313.4911	Pharmacy Point of Sale

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS CODE COUNT	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 20, 2007` HELP-PROMPT: `Type a Number between 1 and 9, 0 Decimal Digits` CROSS-REFERENCE: `9002313.4911^B` 1)= S ^ABSP(9002313.491,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^ABSP(9002313.491,DA(1),1,"B",$E(X,1,30),DA)
424	DIAGNOSIS CODE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$$CHK424^ABSPOSII(X) X` LAST EDITED: `JUN 07, 2012` HELP-PROMPT: `Answer must be an ICD9 code prior to the ICD10 implementation date.` EXECUTABLE HELP: `D HELP424^ABSPOSII` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
492	DIAGNOSIS CODE QUALIFIER	0;2	SET	'01' FOR 01; '02' FOR 02; LAST EDITED: `JUN 07, 2012` EXECUTABLE HELP: `D HELP492^ABSPOSII`

DIAGNOSIS CODE COUNT

0;1

NUMBER

CROSS-REFERENCE: 9002313.4911^B

1)= S ^ABSP(9002313.491,DA(1),1,"B",$E(X,1,30),DA)=""

2)= K ^ABSP(9002313.491,DA(1),1,"B",$E(X,1,30),DA)

DIAGNOSIS CODE

0;3

FREE TEXT

INPUT TRANSFORM: K:$$CHK424^ABSPOSII(X) X
LAST EDITED: JUN 07, 2012
HELP-PROMPT: Answer must be an ICD9 code prior to the ICD10 implementation date.
EXECUTABLE HELP: D HELP424^ABSPOSII
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

DIAGNOSIS CODE QUALIFIER

0;2

SET