Sub-Field: 411.04

Parent File	Name	Number	Package
ADMIN. ACTIVITY SITE PARAMETER(#411)	ACTIVITY ADDRESS CODE (DLA)	411.04	IFCAP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ACTIVITY ADDRESS CODE (DLA)	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X` LAST EDITED: `APR 25, 1989` HELP-PROMPT: `Enter 6 digit activity address code(s) for DLA. ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the six digit activity address code for Defense Logistics Agency (DLA) code sheets.` CROSS-REFERENCE: `411.04^B` `1)= S ^PRC(411,DA(1),5,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(411,DA(1),5,"B",$E(X,1,30),DA)`
1	PRIMARY ADDRESS?	0;2	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; INPUT TRANSFORM: `I X="Y",$O(^PRC(411,DA(1),5,"AC","Y",0)) W !!,*7,"ANOTHER ADDRESS HAS ALREADY BEEN DESIGNATED THE PRIMARY ADDRESS!!" K X Q` LAST EDITED: `APR 25, 1989` HELP-PROMPT: `Specify the primary address to be used as the default for DLA acquisitions.` DESCRIPTION: `This is the primary address, used as the default for DLA acquisitions.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `411.04^AC` `1)= S ^PRC(411,DA(1),5,"AC",$E(X,1,30),DA)=""` `2)= K ^PRC(411,DA(1),5,"AC",$E(X,1,30),DA)` `This cross reference is set on the primary address.`

ACTIVITY ADDRESS CODE (DLA)

0;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>6!($L(X)<6) X
LAST EDITED: APR 25, 1989
HELP-PROMPT: Enter 6 digit activity address code(s) for DLA. ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the six digit activity address code for Defense Logistics Agency (DLA) code sheets.
CROSS-REFERENCE: 411.04^B
1)= S ^PRC(411,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^PRC(411,DA(1),5,"B",$E(X,1,30),DA)

PRIMARY ADDRESS?

0;2

SET

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

INPUT TRANSFORM: I X="Y",$O(^PRC(411,DA(1),5,"AC","Y",0)) W !!,*7,"ANOTHER ADDRESS HAS ALREADY BEEN DESIGNATED THE PRIMARY ADDRESS!!" K X Q
LAST EDITED: APR 25, 1989
HELP-PROMPT: Specify the primary address to be used as the default for DLA acquisitions.
DESCRIPTION:
This is the primary address, used as the default for DLA acquisitions.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 411.04^AC
1)= S ^PRC(411,DA(1),5,"AC",$E(X,1,30),DA)=""
2)= K ^PRC(411,DA(1),5,"AC",$E(X,1,30),DA)
This cross reference is set on the primary address.