source:
WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRCALL.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 328 bytes | |
| Line | |
|---|---|
| 1 | IMRCALL ;ISC-SF.SEA/JLI-CALL TO VADPT FOR IMR ROUTINES ;8/23/91 14:00 |
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998 |
| 3 | CALL ; get patient's demographic data. |
| 4 | ; input - DFN |
| 5 | ; output - VADM array |
| 6 | N I,J,X,A,K,K1,NC,NF,NQ,T |
| 7 | D DEM^VADPT |
| 8 | Q |
| 9 | NS ; get patient's name and ssn |
| 10 | D CALL S IMRNAM=VADM(1),IMRSSN=$P(VADM(2),U) K VA,VADM |
| 11 | Q |
Note:
See TracBrowser
for help on using the repository browser.
