source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPRI18.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 343 bytes
Line 
1SPNPRI18 ;SD/WDE/Post action for patch 18 12/2/2002 14:23
2 ;;2.0;Spinal Cord Dysfunction;**18**;01/02/1997
3 ;
4EN ;
5 S SPNDFN=0 F S SPNDFN=$O(^SPNL(154,SPNDFN)) Q:'+SPNDFN D DOD
6ZAP ;
7 K SPNDFN
8 Q
9DOD ;
10 ;date of death update
11 D LOOP^SPNDODCK(SPNDFN) ; Update Reg Status based on DOD file 2
12 D LOOP2^SPNDODCK(SPNDFN) ; Updating Reg Status
13 Q
Note: See TracBrowser for help on using the repository browser.