source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRCALL.m@ 1093

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

initial load of WorldVistAEHR

File size: 328 bytes
Line 
1IMRCALL ;ISC-SF.SEA/JLI-CALL TO VADPT FOR IMR ROUTINES ;8/23/91 14:00
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
3CALL ; 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
9NS ; 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.