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 |
Rev | Line | |
---|---|---|
[613] | 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.