Select the objects that you wish to see in the downloaded PDF
K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X
OCT 21, 1988
ENTER ZIP CODE AS 12345 OR 12345-6789
This is the five-digit or nine-digit ZIP Code number.
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5.11^B^MUMPS
1)= S:$D(X) ^VIC(5.11,"B",($S(($L(X)=5):(X_" "),1:X)),DA)=""
2)= K ^VIC(5.11,"B",($S(($L(X)=5):(X_" "),1:X)),DA)
5.11^C
1)= S ^VIC(5.11,"C",$E(X,1,30),DA)=""
2)= K ^VIC(5.11,"C",$E(X,1,30),DA)
Indexes file by NUMBER.
K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
This is the city referenced by the ZIP Code.
5.11^D
1)= S ^VIC(5.11,"D",$E(X,1,30),DA)=""
2)= K ^VIC(5.11,"D",$E(X,1,30),DA)
Indexes file by CITY.
JUL 12, 1988
This is the county in which the ZIP Code area is located.
MAR 26, 1987
This is the state in which this ZIP Code area is located.