source:
WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPRI20.m@
1093
Last change on this file since 1093 was 613, checked in by , 15 years ago | |
---|---|
File size: 229 bytes |
Line | |
---|---|
1 | SPNPRI20 ;SD/WDE/Pre init action for patch 20; 6/05/2003 14:23 |
2 | ;;2.0;Spinal Cord Dysfunction;**20**;01/02/1997 |
3 | EN ; |
4 | S DA="" |
5 | S DA=$O(^SPNL(154.92,"B","DIAGNOSIS",DA)) |
6 | I DA="" K DA Q |
7 | S DIK="^SPNL(154.92," |
8 | D ^DIK |
9 | K DA,DIK |
10 | Q |
Note:
See TracBrowser
for help on using the repository browser.