Select the objects that you wish to see in the downloaded PDF
K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
NOV 13, 2014
Answer must be 2 characters in length.
This is the code value sent in an X.12 message.
356.01^B
1)= S ^IBT(356.01,"B",$E(X,1,30),DA)=""
2)= K ^IBT(356.01,"B",$E(X,1,30),DA)
356.01^C^MUMPS
1)= S ^IBT(356.01,"C"," "_$E(X,1,30),DA)=""
2)= K ^IBT(356.01,"C"," "_$E(X,1,30),DA)
K:$L(X)>60!($L(X)<1) X
MAR 30, 2015
Answer must be 1-60 characters in length.
This describes the code value in more detail.
D (#443) REGULAR IR LOOKUP & SORTING
Short Descr: Convert to Upper Case for lookups
Set Logic: S ^IBT(356.01,"D",$E(X,1,30),DA)=""
Kill Logic: K ^IBT(356.01,"D",$E(X,1,30),DA)
Whole Kill: K ^IBT(356.01,"D")
X(1): DESCRIPTION (356.01,.02) (Subscr 1) (Len 30) (forwards)
Transform (Storage): S X=$$UP^XLFSTR($E(X,1,30))
APR 15, 2014
Set this to YES in order to deactivate the code.
This field will be marked inactive if a code is determined to no longer be used by X.12.