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 Dec 13, 2024@01:38:57 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
