- GMRADSP7 ;HIRMFO/WAA-PRINT OR LOAD DATA FROM FILE 120.85 ; 9/1/92
- ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
- Q:'$D(GMRAPA1)
- I GMRAPA="" S GMRAPA=0
- S GMRAPA=$P(^GMR(120.85,GMRAPA1,0),U,15) I GMRAPA<1 Q
- I '$D(^GMR(120.8,GMRAPA,0)) S GMRAPA=0 Q
- S GMRAPA(0)=^GMR(120.8,GMRAPA,0),GMRADFN=+GMRAPA(0)
- 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
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRADSP7 481 printed Jan 18, 2025@02:40:11 Page 2
- GMRADSP7 ;HIRMFO/WAA-PRINT OR LOAD DATA FROM FILE 120.85 ; 9/1/92
- +1 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
- +2 if '$DATA(GMRAPA1)
- QUIT
- +3 IF GMRAPA=""
- SET GMRAPA=0
- +4 SET GMRAPA=$PIECE(^GMR(120.85,GMRAPA1,0),U,15)
- IF GMRAPA<1
- QUIT
- +5 IF '$DATA(^GMR(120.8,GMRAPA,0))
- SET GMRAPA=0
- QUIT
- +6 SET GMRAPA(0)=^GMR(120.8,GMRAPA,0)
- SET GMRADFN=+GMRAPA(0)
- +7 SET DFN=GMRADFN
- DO 1^VADPT
- SET GMRALOC=$PIECE(VAIN(4),U,2)
- SET GMRANAM=VADM(1)
- SET GMRASEX=VADM(5)
- SET GMRAOUT=0
- SET GMRAOTH=$ORDER(^GMR(120.83,"B","OTHER REACTION",0))
- DO KVAR^VADPT
- KILL VA,VAROOT
- +8 QUIT