Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
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.