Sub-Field: 9002193.91

Parent File	Name	Number	Package
ARMS PER DIEM CITY(#9002193.9)	OTHER CITY NAME	9002193.91	Commitment Register

Parent File

Name

Number

Package

OTHER CITY NAME

9002193.91

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ADDITIONAL CITY	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: Enter the name of the city. CROSS-REFERENCE: `9002193.91^B` 1)= S ^ACRPD(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^ACRPD(DA(1),1,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9002193.9^D` 1)= S:$E($G(^ACRPD(+$G(DA(1)),0)),1,2)'="XX" ^ACRPD("D",$E(X,1,30),DA(1),DA)="" 2)= K ^ACRPD("D",$E(X,1,30),DA(1),DA)

ADDITIONAL CITY

0;1

FREE TEXT

CROSS-REFERENCE: 9002193.91^B

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

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

CROSS-REFERENCE: 9002193.9^D

1)= S:$E($G(^ACRPD(+$G(DA(1)),0)),1,2)'="XX" ^ACRPD("D",$E(X,1,30),DA(1),DA)=""

2)= K ^ACRPD("D",$E(X,1,30),DA(1),DA)