source:
WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPRI20.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 229 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 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.
