source:
WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLGUCD.m@
1726
Last change on this file since 1726 was 613, checked in by , 15 years ago | |
---|---|
File size: 269 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | SPNLGUCD ;ISCSF/RWF - SCD Patient hashing ;07/08/94 10:17 |
2 | ;;2.0;Spinal Cord Dysfunction;;01/02/1997 | |
3 | Q | |
4 | EN(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 | |
9 | DE(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.