Global: ^ACRSRC

FileMan FileNo	FileMan Filename	Package
9002192.05	ARMS SOURCE CODE	Commitment Register

Package	Total	FileMan Files
Commitment Register	2	ARMS STANDARD ITEM(#9002195)[33] FMS SUPPLIES AND SERVICES(#9002193)[19]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SOURCE CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X` HELP-PROMPT: `Answer must be 1 Alpha/Numeric character` DESCRIPTION: This is a code which designates the source of the supply item. CROSS-REFERENCE: `9002192.05^B` 1)= S ^ACRSRC("B",$E(X,1,30),DA)="" 2)= K ^ACRSRC("B",$E(X,1,30),DA)
1	TYPE	0;2	SET	**********************REQUIRED FIELD********************** '1' FOR GOVERNMENT; '2' FOR COMMERCIAL; '3' FOR UNREQUIRED/EXCESS; HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: This indicates the type of supply source.
2	SOURCE DESCRIPTION	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X X:$D(X) "K:$L(X)>75!($L(X)<10) X"` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 10 to 75 characters in length` DESCRIPTION: This information describes the name or source of supply. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002192.05^C` 1)= S ^ACRSRC("C",$E(X,1,30),DA)="" 2)= K ^ACRSRC("C",$E(X,1,30),DA)

SOURCE CODE

0;1

FREE TEXT

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

DESCRIPTION:

This is a code which designates the source of the supply item.

CROSS-REFERENCE: 9002192.05^B

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

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

TYPE

0;2

SET

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

DESCRIPTION:

This indicates the type of supply source.

SOURCE DESCRIPTION

0;3

FREE TEXT

DESCRIPTION:

This information describes the name or source of supply.

CROSS-REFERENCE: 9002192.05^C

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

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