15 lines
347 B
Mathematica
15 lines
347 B
Mathematica
SPNPOS22 ;SD/CM/Post action for patch 22; 6/29/2004
|
|
;;2.0;Spinal Cord Dysfunction;**22**;01/02/1997
|
|
EN ;
|
|
S U="^"
|
|
RSTAT ;
|
|
S SPNDFN=0 F S SPNDFN=$O(^SPNL(154,SPNDFN)) Q:'+SPNDFN D XMTDEL
|
|
K ^DD(154,.04,5,1,0)
|
|
K ^DD(154,.03,1,2) ;delete left-over trigger
|
|
ZAP ;
|
|
K SPNDFN
|
|
Q
|
|
XMTDEL ;
|
|
I $D(^SPNL(154,SPNDFN,"XMT")) K ^SPNL(154,SPNDFN,"XMT")
|
|
Q
|