Sub-Field: 445.02

Parent File	Name	Number	Package
445.01	ADDITIONAL STORAGE LOCATION	445.02	IFCAP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ADDITIONAL STORAGE LOCATION	0;1	POINTER TO STORAGE LOCATION FILE (#445.4)	STORAGE LOCATION(#445.4) INPUT TRANSFORM: `S PRCPPRIV=1,PRCPINDA=$S($D(DA(2)):DA(2),1:DA(1)),DIC("S")="I $P(^(0),U,2)=PRCPINDA" D ^DIC K DIC,PRCPINDA S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `NOV 24, 1987` HELP-PROMPT: `(Supplementary information only) Answer must be 1-13 characters in length, formatted the same as the Main Storage Location.` DESCRIPTION: `This is an additional storage location for the item in the inventory point. This field should be entered in the same format as the MAIN STORAGE LOCATION field.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=DA(1)"` EXPLANATION: `User can only reference storage locations in their own inventory.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

ADDITIONAL STORAGE LOCATION

0;1

POINTER TO STORAGE LOCATION FILE (#445.4)

INPUT TRANSFORM: S PRCPPRIV=1,PRCPINDA=$S($D(DA(2)):DA(2),1:DA(1)),DIC("S")="I $P(^(0),U,2)=PRCPINDA" D ^DIC K DIC,PRCPINDA S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: NOV 24, 1987
HELP-PROMPT: (Supplementary information only) Answer must be 1-13 characters in length, formatted the same as the Main Storage Location.
DESCRIPTION: This is an additional storage location for the item in the inventory point. This field should be entered in the same format as the MAIN STORAGE LOCATION field.
SCREEN: S DIC("S")="I $P(^(0),U,2)=DA(1)"
EXPLANATION: User can only reference storage locations in their own inventory.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER