Sub-Field: 9002313.522

Parent File	Name	Number	Package
9002313.512	INS SEL SCRATCH	9002313.522	Pharmacy Point of Sale

Details

Field #	Name	Loc	Type	Details
.01	INS LINE	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 01, 2000` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` DESCRIPTION: Corresponds to the subscript returned in the ARRAY(n) of ^ABSPOS25 CROSS-REFERENCE: `9002313.522^B` 1)= S ^ABSP(9002313.51,DA(2),2,DA(1),"I","B",$E(X,1,30),DA)="" 2)= K ^ABSP(9002313.51,DA(2),2,DA(1),"I","B",$E(X,1,30),DA)
.02	ORDER	0;2	SET	'1' FOR 1st; '2' FOR 2nd; '3' FOR 3rd; LAST EDITED: `JUN 14, 2000` DESCRIPTION: The order of insurance: 1st for primary, etc. CROSS-REFERENCE: `9002313.51^AD` 1)= S ^ABSP(9002313.51,"AD",$E(X,1,30),DA(2),DA(1),DA)="" 2)= K ^ABSP(9002313.51,"AD",$E(X,1,30),DA(2),DA(1),DA) Index by order of insurances. ^ABSP(9002313.51,DA(2),2,DA(1),"I","AD",order,DA)=""
.03	INSURER	0;3	POINTER TO INSURER FILE (#9999999.18)	INSURER(#9999999.18) LAST EDITED: `MAY 31, 2000`
.04	PINS	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `JUN 01, 2000` HELP-PROMPT: `Answer must be 4-20 characters in length.`
1.01	DESCRIPTION	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<1) X` LAST EDITED: `MAY 31, 2000` HELP-PROMPT: `Answer must be 1-200 characters in length.` DESCRIPTION: Construct a description - ID #, expiration date, etc. Could split into separate fields with new stuff