Sub-Field: 9002195.02

Parent File	Name	Number	Package
ARMS STANDARD ITEM(#9002195)	AREA OFFICE	9002195.02	Commitment Register

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	AREA OFFICE	0;1	POINTER TO AREA FILE (#9999999.21)	AREA(#9999999.21) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the AREA OFFICE.` DESCRIPTION: Enter the name of the AREA OFFICE. CROSS-REFERENCE: `9002195.02^B` 1)= S ^ACRITEM(DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^ACRITEM(DA(1),3,"B",$E(X,1,30),DA)
.02	INDEX NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<2) X I $D(X) D ^ACRFM11` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 2-6 characters in length.` DESCRIPTION: Enter the INDEX NUMBER used by this AREA OFFICE for this item. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002195^H` 1)= S ^ACRITEM("H",$E(X,1,30),DA(1),DA)="" 2)= K ^ACRITEM("H",$E(X,1,30),DA(1),DA)

AREA OFFICE

0;1

POINTER TO AREA FILE (#9999999.21)

CROSS-REFERENCE: 9002195.02^B

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

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

INDEX NUMBER

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<2) X I $D(X) D ^ACRFM11
LAST EDITED: APR 01, 1996
HELP-PROMPT: Answer must be 2-6 characters in length.

DESCRIPTION:

Enter the INDEX NUMBER used by this AREA OFFICE for this item.

CROSS-REFERENCE: 9002195^H

1)= S ^ACRITEM("H",$E(X,1,30),DA(1),DA)=""

2)= K ^ACRITEM("H",$E(X,1,30),DA(1),DA)