Sub-Field: 9003010.01

Parent File	Name	Number	Package
ARMS SHIPPIING INSTRUCTIONS(#9003010)	ITEM(S) TO BE SHIPPED/REC/D	9003010.01	Commitment Register

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ITEM	0;1	POINTER TO FMS SUPPLIES AND SERVICES FILE (#9002193)	FMS SUPPLIES AND SERVICES(#9002193) INPUT TRANSFORM: `S:$D(DA)#2!($D(DA(1))#2) DIC("S")="I $D(^ACRSS(""J"",+$G(^ACRSI($S($D(DA(1))#2:DA(1),1:DA),0)),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the item(s) to be shipped/received.` DESCRIPTION: Enter the name of the item to be shipped. SCREEN: `S:$D(DA)#2!($D(DA(1))#2) DIC("S")="I $D(^ACRSS(""J"",+$G(^ACRSI($S($D(DA(1))#2:DA(1),1:DA),0)),+Y))"` EXPLANATION: `Screened for items on this request.` CROSS-REFERENCE: `9003010.01^B` 1)= S ^ACRSI(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^ACRSI(DA(1),1,"B",$E(X,1,30),DA)
1	QUANTITY	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: Enter the quantity to be shipped/received at this location.

ITEM

0;1

POINTER TO FMS SUPPLIES AND SERVICES FILE (#9002193)

INPUT TRANSFORM: S:$D(DA)#2!($D(DA(1))#2) DIC("S")="I $D(^ACRSS(""J"",+$G(^ACRSI($S($D(DA(1))#2:DA(1),1:DA),0)),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 01, 1996
HELP-PROMPT: Enter the item(s) to be shipped/received.

DESCRIPTION:

Enter the name of the item to be shipped.

SCREEN: S:$D(DA)#2!($D(DA(1))#2) DIC("S")="I $D(^ACRSS(""J"",+$G(^ACRSI($S($D(DA(1))#2:DA(1),1:DA),0)),+Y))"
EXPLANATION: Screened for items on this request.

CROSS-REFERENCE: 9003010.01^B

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

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

QUANTITY

0;2

NUMBER

DESCRIPTION:

Enter the quantity to be shipped/received at this location.