Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRADSP7

GMRADSP7.m

Go to the documentation of this file.
  1. GMRADSP7 ;HIRMFO/WAA-PRINT OR LOAD DATA FROM FILE 120.85 ; 9/1/92
  1. ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
  1. Q:'$D(GMRAPA1)
  1. I GMRAPA="" S GMRAPA=0
  1. S GMRAPA=$P(^GMR(120.85,GMRAPA1,0),U,15) I GMRAPA<1 Q
  1. I '$D(^GMR(120.8,GMRAPA,0)) S GMRAPA=0 Q
  1. S GMRAPA(0)=^GMR(120.8,GMRAPA,0),GMRADFN=+GMRAPA(0)
  1. 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
  1. Q