Select the objects that you wish to see in the downloaded PDF
S DINUM=X I $D(PRCH("PO")) S DIC("DR")="[PRCHPT]"
DEC 11, 1985
This is the name of the patient.
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
440.2^B
1)= S ^PRC(440.2,"B",$E(X,1,30),DA)=""
2)= K ^PRC(440.2,"B",$E(X,1,30),DA)
K:$L(X)>24!($L(X)<3) X
OCT 15, 1985
ANSWER MUST BE 3-24 CHARACTERS IN LENGTH
This is the patient street address 1.
This is the patient address 2.
This is the patient street address 3.
K:$L(X)>15!($L(X)<3) X
ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
This is the city of the patient address.
This is the state of the patient address.
K:$L(X)>10!($L(X)<5) X
ANSWER MUST BE 5-10 CHARACTERS IN LENGTH
This is the zip code of the patient address.
K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
DEC 03, 1985
TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999
This is the DFN# number.