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