source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPRI21.m@ 757

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

initial load of FOIAVistA 6/30/08 version

File size: 222 bytes
Line 
1SPNPRI21 ;SD/CM- Pre init action for patch 21; 8-20-2003
2 ;;2.0;Spinal Cord Dysfunction;**21**;01/02/1997
3EN ;
4 S DA=""
5 S DA=$O(^SPNL(154.92,"B","OUTCOMES",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.