Global: ^ACGSIC

FileMan FileNo	FileMan Filename	Package
9002333	CIS STANDARD INDUSTRIAL CODE	Contracts and Grants

Package	Total	FileMan Files
Contracts and Grants	2	CIS SIC DIVISION(#9002333.1)[.03] CIS SIC MAJOR GROUP(#9002333.2)[.02]

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X'?1P.E) X` LAST EDITED: `JAN 20, 1991` HELP-PROMPT: `Answer must be 4 characters in length.` CROSS-REFERENCE: `9002333^B` 1)= S ^ACGSIC("B",$E(X,1,30),DA)="" 2)= K ^ACGSIC("B",$E(X,1,30),DA)
.02	MAJOR GROUP	0;2	POINTER TO CIS SIC MAJOR GROUP FILE (#9002333.2)	CIS SIC MAJOR GROUP(#9002333.2) LAST EDITED: `JAN 20, 1991`
.03	DIVISION	0;3	POINTER TO CIS SIC DIVISION FILE (#9002333.1)	CIS SIC DIVISION(#9002333.1) LAST EDITED: `JAN 20, 1991`
.04	MONETARY VALUE	0;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X` LAST EDITED: `JAN 20, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits`
.05	NUMBER OF EMPLOYEES	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 20, 1991` HELP-PROMPT: `Type a Number between 0 and 1000, 0 Decimal Digits`
.06	SB DEMO PROGRAM	0;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 06, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter the appropriate code to indicate if this SIC Code is part of the Small Business Competitive Demonstration Program. CROSS-REFERENCE: `9002333^C` 1)= S ^ACGSIC("C",$E(X,1,30),DA)="" 2)= K ^ACGSIC("C",$E(X,1,30),DA)