Global: ^ACRUI

FileMan FileNo	FileMan Filename	Package
9002190.6	FMS UNIT OF ISSUE	Commitment Register

FileMan FileNo

FileMan Filename

Package

9002190.6

FMS UNIT OF ISSUE

Package	Total	Routines
Commitment Register	11	ACRFCCP1 ACRFDI ACRFESS ACRFFF2 ACRFPCC ACRFPITM ACRFSSA ACRFSSD ACRFUFMI ACRPCCS ACRPII

Package

Total

Routines

ACRFCCP1 ACRFDI ACRFESS ACRFFF2 ACRFPCC ACRFPITM ACRFSSA ACRFSSD
ACRFUFMI ACRPCCS ACRPII

Package	Total	FileMan Files
Commitment Register	3	ARMS STANDARD ITEM(#9002195)[3, 12, 29] FMS SUPPLIES AND SERVICES(#9002193)[11, 34] FMS PRIME VENDOR CONTRACT(#9002194.1)[.05]

Package

Total

FileMan Files

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `ANSWER MUST BE 1-2 CHARACTERS IN LENGTH` DESCRIPTION: Enter the 2 character abbreviation for this UNIT OF ISSUE. CROSS-REFERENCE: `9002190.6^B` 1)= S ^ACRUI("B",$E(X,1,30),DA)="" 2)= K ^ACRUI("B",$E(X,1,30),DA)
1	FULL NAME	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X?.ANP) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: Enter the full name of this UNIT OF ISSUE. CROSS-REFERENCE: `9002190.6^C` 1)= S ^ACRUI("C",$E(X,1,30),DA)="" 2)= K ^ACRUI("C",$E(X,1,30),DA)
2	DLA UNIT OF ISSUE CODE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter DLA Unit of Issue code, associated with the IFCAP unit (for code sheets). ANSWER MUST BE 2 CHARACTERS IN LENGTH` DESCRIPTION: Enter the DLA UNIT OF ISSUE CODE.

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

DESCRIPTION:

Enter the 2 character abbreviation for this UNIT OF ISSUE.

CROSS-REFERENCE: 9002190.6^B

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

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

FULL NAME

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X?.ANP) X
LAST EDITED: APR 01, 1996
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH

DESCRIPTION:

Enter the full name of this UNIT OF ISSUE.

CROSS-REFERENCE: 9002190.6^C

1)= S ^ACRUI("C",$E(X,1,30),DA)=""

2)= K ^ACRUI("C",$E(X,1,30),DA)

DLA UNIT OF ISSUE CODE

0;3

FREE TEXT

INPUT TRANSFORM: K:$L(X)>2!($L(X)<2) X
LAST EDITED: APR 01, 1996
HELP-PROMPT: Enter DLA Unit of Issue code, associated with the IFCAP unit (for code sheets). ANSWER MUST BE 2 CHARACTERS IN LENGTH
DESCRIPTION:
```
Enter the DLA UNIT OF ISSUE CODE.
```