GMRADSP7.m

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 ---GMRADSP7   481     printed  Apr 09, 2024@20:45:47                                                                                                                                                                                                     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