source: FOIAVistA/tag/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLSCRN.m@ 628

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

initial load of FOIAVistA 6/30/08 version
File size: 245 bytes
Line 
1SPNLSCRN ;HIRMFO/WAA - Display Patient data ;5/17/96 10:14
2 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3 ;;
4V1(IEN) ;
5 S VIEW=0
6 W !,"IEN"=IEN,!
7 W !,"^SPNL(154.2,"_IEN_",0)=",^SPNL(154.2,IEN,0)
8 I $P(^SPNL(154.2,IEN,0),U,2)="1" S VIEW=1
9 Q VIEW
Note: See TracBrowser for help on using the repository browser.