Sub-Field: 423.2

Parent File	Name	Number	Package
CALM/LOG CODE SHEET(#423)	NX ITEMS	423.2	IFCAP

Details

Field #	Name	Loc	Type	Details
.01	NX ITEMS	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` CROSS-REFERENCE: `423.2^B` `1)= S ^PRCF(423,DA(1),57,"B",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,DA(1),57,"B",$E(X,1,30),DA)`
1	SEGMENT TYPE NA	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 3 characters in length.`
2	CSN	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 3-20 characters in length.`
3	MANUFACTURER	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 3-30 characters in length.`
4	PROPERTY TYPE	0;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-15 characters in length.`
5	MODEL	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-15 characters in length.`
6	SERIAL NUMBER	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-20 characters in length.`
7	IFCAP PO NUMBER	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-11 characters in length.`
8	VENDOR NAME	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<3) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 3-25 characters in length.`
9	ACQUISITION VALUE	1;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits`
10	ACQUISITION DATE	1;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 1991`
11	ACQUISITION CODE	1;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Number between 0 and 9, 0 Decimal Digits`
12	GEN LEDGER ACCT #	1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
13	YALD CODE	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-4 characters in length.`
14	COST CENTER	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-6 characters in length.`
15	CAPITALIZATION FLAG	1;7	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 13, 1991`
16	USE CODE	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1 character in length.`
17	OWNERSHIP CODE	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1 character in length.`
18	LEASE COST/MONTH	1;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits`
19	LIFE EXPECTANCY	1;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
20	FINAL DISPOSAL DATE	1;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 1991`
21	REPLACEMENT COST	1;13	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits`
22	RETIREMENT DATE	1;14	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 1991`
23	DISPOSITION CODE	1;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1 character in length.`
24	DISPOSITION PROCEEDS	1;16	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits`
25	LAST INVENTORY DATE	1;17	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 1991`
26	PM TOTAL COST	1;18	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits`
27	CAT STK # DESC	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-30 characters in length.`
28	REPLACEMENT NUMBER	2;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Type a Number between 0 and 99999999, 0 Decimal Digits`
29	CMR DEPARTMENT #	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-5 characters in length.`
30	CONTROLLED ITEM	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1 character in length.`
31	REASON CODE	2;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-4 characters in length.`
32	PARENT SYSTEM	2;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-10 characters in length.`
33	COMMENTS	2;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-25 characters in length.`
34	NSN	2;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1-20 characters in length.`
35	SPECIAL HANDLING CODE	2;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 1 character in length.`
36	FIPS AGENCY CODE	2;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Answer must be 1-4 characters in length.`
37	ADP UNIT DESIGNATOR	2;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Answer must be 1-10 characters in length.`
38	ADP MFG CODE	2;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Answer must be 1-5 characters in length.`
39	ADP MODEL CODE	2;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Answer must be 1-5 characters in length.`
40	ADP COMPUTER QTY	2;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits`
41	ADP DESCRIPTION	2;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Answer must be 1-25 characters in length.`
42	CITY	2;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Answer must be 1-25 characters in length.`
43	STATE	2;17	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `JAN 02, 1992`
44	USCODE	2;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Answer must be 1 character in length.`
45	DS IND	2;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Answer must be 1 character in length.`

Customize PDF page

Package: IFCAP

CALM/LOG CODE SHEET(#423)-->423.2

Sub-Field: 423.2

Information

Details