Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
472 bytes
|
Rev | Line | |
---|
[613] | 1 | GMRADSP7 ;HIRMFO/WAA-PRINT OR LOAD DATA FROM FILE 120.85 ; 9/1/92
|
---|
| 2 | ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
---|
| 3 | Q:'$D(GMRAPA1)
|
---|
| 4 | I GMRAPA="" S GMRAPA=0
|
---|
| 5 | S GMRAPA=$P(^GMR(120.85,GMRAPA1,0),U,15) I GMRAPA<1 Q
|
---|
| 6 | I '$D(^GMR(120.8,GMRAPA,0)) S GMRAPA=0 Q
|
---|
| 7 | S GMRAPA(0)=^GMR(120.8,GMRAPA,0),GMRADFN=+GMRAPA(0)
|
---|
| 8 | S DFN=GMRADFN D 1^VADPT S GMRALOC=$P(VAIN(4),U,2),GMRANAM=VADM(1),GMRASEX=VADM(5),GMRAOUT=0,GMRAOTH=$O(^GMR(120.83,"B","OTHER REACTION",0)) D KVAR^VADPT K VA,VAROOT
|
---|
| 9 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.