GMRAY18I ;SLC/DAN-CREATE NEW-STYLE XREF ;9:10 AM  7 Sep 2004
 ;;4.0;Adverse Reaction Tracking;**18**;Mar 29, 1996
 ;
 N GMRAXR,GMRARES,GMRAOUT
 S GMRAXR("FILE")=120.85
 S GMRAXR("NAME")="AHDR"
 S GMRAXR("TYPE")="MU"
 S GMRAXR("USE")="A"
 S GMRAXR("EXECUTION")="R"
 S GMRAXR("ACTIVITY")=""
 S GMRAXR("SHORT DESCR")="Sends data to HDR"
 S GMRAXR("DESCR",1)="Sends data to HDR upon new entry or upon editing of existing"
 S GMRAXR("DESCR",2)="data."
 S GMRAXR("SET")="Q:$D(DIU(0))  D SETOB^GMRAHDR"
 S GMRAXR("KILL")="Q:$D(DIU(0))  D KILLOB^GMRAHDR"
 S GMRAXR("WHOLE KILL")="Q"
 S GMRAXR("VAL",1)=.01
 S GMRAXR("VAL",1,"COLLATION")="F"
 S GMRAXR("VAL",2)=.02
 S GMRAXR("VAL",2,"COLLATION")="F"
 S GMRAXR("VAL",3)=.03
 S GMRAXR("VAL",3,"COLLATION")="F"
 S GMRAXR("VAL",4)=.5
 S GMRAXR("VAL",4,"COLLATION")="F"
 S GMRAXR("VAL",5)=1.1
 S GMRAXR("VAL",5,"COLLATION")="F"
 S GMRAXR("VAL",6)=1.2
 S GMRAXR("VAL",6,"COLLATION")="F"
 S GMRAXR("VAL",7)=5
 S GMRAXR("VAL",7,"COLLATION")="F"
 S GMRAXR("VAL",8)=6
 S GMRAXR("VAL",8,"COLLATION")="F"
 S GMRAXR("VAL",9)=7
 S GMRAXR("VAL",9,"COLLATION")="F"
 S GMRAXR("VAL",10)=8
 S GMRAXR("VAL",10,"COLLATION")="F"
 S GMRAXR("VAL",11)=9
 S GMRAXR("VAL",11,"COLLATION")="F"
 S GMRAXR("VAL",12)=9.1
 S GMRAXR("VAL",12,"COLLATION")="F"
 S GMRAXR("VAL",13)=10
 S GMRAXR("VAL",13,"COLLATION")="F"
 S GMRAXR("VAL",14)=11
 S GMRAXR("VAL",14,"COLLATION")="F"
 S GMRAXR("VAL",15)=12
 S GMRAXR("VAL",15,"COLLATION")="F"
 S GMRAXR("VAL",16)=12.1
 S GMRAXR("VAL",16,"COLLATION")="F"
 S GMRAXR("VAL",17)=12.2
 S GMRAXR("VAL",17,"COLLATION")="F"
 S GMRAXR("VAL",18)=14.5
 S GMRAXR("VAL",18,"COLLATION")="F"
 S GMRAXR("VAL",19)=22
 S GMRAXR("VAL",19,"COLLATION")="F"
 S GMRAXR("VAL",20)=23
 S GMRAXR("VAL",20,"COLLATION")="F"
 S GMRAXR("VAL",21)=24
 S GMRAXR("VAL",21,"COLLATION")="F"
 S GMRAXR("VAL",22)=25
 S GMRAXR("VAL",22,"COLLATION")="F"
 S GMRAXR("VAL",23)=26
 S GMRAXR("VAL",23,"COLLATION")="F"
 S GMRAXR("VAL",24)=26.1
 S GMRAXR("VAL",24,"COLLATION")="F"
 S GMRAXR("VAL",25)=27
 S GMRAXR("VAL",25,"COLLATION")="F"
 S GMRAXR("VAL",26)=28
 S GMRAXR("VAL",26,"COLLATION")="F"
 S GMRAXR("VAL",27)=29
 S GMRAXR("VAL",27,"COLLATION")="F"
 S GMRAXR("VAL",28)=31
 S GMRAXR("VAL",28,"COLLATION")="F"
 S GMRAXR("VAL",29)=31.1
 S GMRAXR("VAL",29,"COLLATION")="F"
 S GMRAXR("VAL",30)=31.2
 S GMRAXR("VAL",30,"COLLATION")="F"
 S GMRAXR("VAL",31)=43
 S GMRAXR("VAL",31,"COLLATION")="F"
 S GMRAXR("VAL",32)=44
 S GMRAXR("VAL",32,"COLLATION")="F"
 S GMRAXR("VAL",33)=45
 S GMRAXR("VAL",33,"COLLATION")="F"
 S GMRAXR("VAL",34)=46
 S GMRAXR("VAL",34,"COLLATION")="F"
 S GMRAXR("VAL",35)=47
 S GMRAXR("VAL",35,"COLLATION")="F"
 S GMRAXR("VAL",36)=48
 S GMRAXR("VAL",36,"COLLATION")="F"
 S GMRAXR("VAL",37)=49
 S GMRAXR("VAL",37,"COLLATION")="F"
 S GMRAXR("VAL",38)=50
 S GMRAXR("VAL",38,"COLLATION")="F"
 S GMRAXR("VAL",39)=51
 S GMRAXR("VAL",39,"COLLATION")="F"
 S GMRAXR("VAL",40)=52
 S GMRAXR("VAL",40,"COLLATION")="F"
 S GMRAXR("VAL",41)=52.1
 S GMRAXR("VAL",41,"COLLATION")="F"
 S GMRAXR("VAL",42)=53
 S GMRAXR("VAL",42,"COLLATION")="F"
 S GMRAXR("VAL",43)=54
 S GMRAXR("VAL",43,"COLLATION")="F"
 S GMRAXR("VAL",44)=55
 S GMRAXR("VAL",44,"COLLATION")="F"
 S GMRAXR("VAL",45)=56
 S GMRAXR("VAL",45,"COLLATION")="F"
 S GMRAXR("VAL",46)=57
 S GMRAXR("VAL",46,"COLLATION")="F"
 S GMRAXR("VAL",47)=58
 S GMRAXR("VAL",47,"COLLATION")="F"
 S GMRAXR("VAL",48)=59
 S GMRAXR("VAL",48,"COLLATION")="F"
 S GMRAXR("VAL",49)=60
 S GMRAXR("VAL",49,"COLLATION")="F"
 S GMRAXR("VAL",50)=61
 S GMRAXR("VAL",50,"COLLATION")="F"
 S GMRAXR("VAL",51)=62
 S GMRAXR("VAL",51,"COLLATION")="F"
 S GMRAXR("VAL",52)=64
 S GMRAXR("VAL",52,"COLLATION")="F"
 S GMRAXR("VAL",53)=65
 S GMRAXR("VAL",53,"COLLATION")="F"
 D CREIXN^DDMOD(.GMRAXR,"k",.GMRARES,"GMRAOUT")
 Q