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