Select the objects that you wish to see in the downloaded PDF
K:$L(X)>15!($L(X)<1) X
JUN 22, 1988
ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
1,0)= D EN^DDIOL("Deletions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I 1
1,0)= D:'$G(XUMF) EN^DDIOL("Additions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I +$G(XUMF)
470.5^B
1)= S ^PRPFT(470.5,"B",$E(X,1,30),DA)=""
2)= K ^PRPFT(470.5,"B",$E(X,1,30),DA)
D ^PRPFTRCK
TYPE A NUMBER BETWEEN -9999999 AND 9999999
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
S %DT="EX" D ^%DT S X=Y K:Y<1 X
K:$L(X)>10!($L(X)<1) X
DEC 10, 1987
ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
FEB 26, 1988
I "PG"[Y
Allows user to select only Private Source or Gratuitous as a source during normal operations.
DEC 14, 1987
K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X
TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999
K:$L(X)>35!($L(X)<3) X
MAY 15, 1987
ANSWER MUST BE 3-35 CHARACTERS IN LENGTH
K:$L(X)>30!($L(X)<1) X
ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
D REM^PRPFED1
JUL 13, 1988
Enter Remarks Code, Free Text Remarks, or Code followed by a Comma followed by Free Text. Total Number of Characters may not exceed 50.
S ZD=D,X="?",DIC="^PRPF(470.6,",DIC(0)="EMQN" D ^DIC S DIC="^PRPF(470.5,",D=ZD K ZD
S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X I $D(X) W " $ ",$J(X,0,2)
JAN 10, 1989
Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits
SEP 26, 1988