Select the objects that you wish to see in the downloaded PDF
K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
JAN 04, 2008
Answer must be 1-3 characters in length.
9009033.7^B
1)= S ^APSPNCP(9009033.7,"B",$E(X,1,30),DA)=""
2)= K ^APSPNCP(9009033.7,"B",$E(X,1,30),DA)
K:$L(X)>50!($L(X)<1) X
Answer must be 1-50 characters in length.
9009033.7^C^MUMPS
1)= S ^APSPNCP(9009033.7,"C",$$UP^XLFSTR(X),DA)=""
2)= K ^APSPNCP(9009033.7,"C",$$UP^XLFSTR(X),DA)
JAN 14, 2008
Context in which this code is valid.
K:$L(X)>10!($L(X)<3) X
DEC 03, 2012
Answer must be 3-10 characters in length.
9009033.7^D
1)= S ^APSPNCP(9009033.7,"D",$E(X,1,30),DA)=""
2)= K ^APSPNCP(9009033.7,"D",$E(X,1,30),DA)
Index on the NCPDP code for processing E-Rx
S %DT="EX" D ^%DT S X=Y K:Y<1 X
MAR 24, 2013