Sub-Field: 9002030.01

Parent File	Name	Number	Package
ASUMST INVENTORY(#9002030)	STORAGE LOCATION	9002030.01	Supply

Parent File

Name

Number

Package

STORAGE LOCATION

9002030.01

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	STORAGE LOCATION	0;1	POINTER TO ASUTBL STORAGE LOCATION FILE (#9002039.1)	**********************REQUIRED FIELD********************** ASUTBL STORAGE LOCATION(#9002039.1) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `DEC 31, 1996` HELP-PROMPT: `Enter Storage Location Code from table 10` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002030.01^B` 1)= S ^ASUMV(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^ASUMV(DA(1),1,"B",$E(X,1,30),DA)
1	INDEX	1;0	POINTER Multiple #9002030.11	9002030.11 SCREEN: `I $P(^(0),U,2)=$G(ASUL(1,"AR","AP"))` EXPLANATION: `MUST BE EQUAL TO AREA SIGNED ON AS`

STORAGE LOCATION

0;1

POINTER TO ASUTBL STORAGE LOCATION FILE (#9002039.1)

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

CROSS-REFERENCE: 9002030.01^B

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

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

INDEX

1;0

POINTER Multiple #9002030.11