Select the objects that you wish to see in the downloaded PDF
S DINUM=X Q
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9002270.01^B
1)= S ^ABPAFAC("B",$E(X,1,30),DA)=""
2)= K ^ABPAFAC("B",$E(X,1,30),DA)
MAR 23, 1991
S XQH="ABPA/2ND/ACCT/POINT" D EN^XQH
S XQH="ABPA/ASK/FIELD/RECEIPT" D EN^XQH
K:$L(X)>30!($L(X)<3) X
S XQH="ABPA/MANAGING/OFFICE" D EN^XQH
APR 16, 1990
S XQH="ABPA/SPECIALIST/NAME" D EN^XQH
MAR 18, 1991
S XQH="ABPA/SPECIALIST/TITLE" D EN^XQH
K:+X'=X!(X>15)!(X<0)!(X?.E1"."1N.N) X
APR 17, 1990
S XQH="ABPA/TOP/MARGIN" D EN^XQH
APR 24, 1990
JUN 26, 1990
D ^%AUCLS S XQH="ABPA/BATCH/SECURITY" D EN^XQH
JAN 04, 1991
S XQH="ABPA/AGE/CLAIMS/BY" D EN^XQH