11 lines
229 B
Mathematica
11 lines
229 B
Mathematica
|
SPNPRI20 ;SD/WDE/Pre init action for patch 20; 6/05/2003 14:23
|
||
|
|
;;2.0;Spinal Cord Dysfunction;**20**;01/02/1997
|
||
|
|
EN ;
|
||
|
|
S DA=""
|
||
|
|
S DA=$O(^SPNL(154.92,"B","DIAGNOSIS",DA))
|
||
|
|
I DA="" K DA Q
|
||
|
|
S DIK="^SPNL(154.92,"
|
||
|
|
D ^DIK
|
||
|
|
K DA,DIK
|
||
|
|
Q
|