source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPRI20.m@ 632

Last change on this file since 632 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 229 bytes
Line 
1SPNPRI20 ;SD/WDE/Pre init action for patch 20; 6/05/2003 14:23
2 ;;2.0;Spinal Cord Dysfunction;**20**;01/02/1997
3EN ;
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.