source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLGUCD.m@ 1522

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

initial load of FOIAVistA 6/30/08 version

File size: 269 bytes
Line 
1SPNLGUCD ;ISCSF/RWF - SCD Patient hashing ;07/08/94 10:17
2 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3 Q
4EN(X) ;EF.
5 N X1,X2,PA,PI,PJ,PL,PR,PX,PY,PY1,PZ
6 S X1=37,X2=13
7 D EN^XUSHSHP
8 Q X
9DE(X) ;EF.
10 N X1,X2,PA,PI,PJ,PL,PR,PX,PY,PY1,PZ
11 S X1=37,X2=13
12 D DE^XUSHSHP
13 Q X
Note: See TracBrowser for help on using the repository browser.