GMRAY18I.m

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

GMRAY18I  ;SLC/DAN-CREATE NEW-STYLE XREF ;9:10 AM  7 Sep 2004

 +1       ;;4.0;Adverse Reaction Tracking;**18**;Mar 29, 1996

 +2       ;

 +3        NEW GMRAXR,GMRARES,GMRAOUT

 +4        SET GMRAXR("FILE")=120.85

 +5        SET GMRAXR("NAME")="AHDR"

 +6        SET GMRAXR("TYPE")="MU"

 +7        SET GMRAXR("USE")="A"

 +8        SET GMRAXR("EXECUTION")="R"

 +9        SET GMRAXR("ACTIVITY")=""

 +10       SET GMRAXR("SHORT DESCR")="Sends data to HDR"

 +11       SET GMRAXR("DESCR",1)="Sends data to HDR upon new entry or upon editing of existing"

 +12       SET GMRAXR("DESCR",2)="data."

 +13       SET GMRAXR("SET")="Q:$D(DIU(0))  D SETOB^GMRAHDR"

 +14       SET GMRAXR("KILL")="Q:$D(DIU(0))  D KILLOB^GMRAHDR"

 +15       SET GMRAXR("WHOLE KILL")="Q"

 +16       SET GMRAXR("VAL",1)=.01

 +17       SET GMRAXR("VAL",1,"COLLATION")="F"

 +18       SET GMRAXR("VAL",2)=.02

 +19       SET GMRAXR("VAL",2,"COLLATION")="F"

 +20       SET GMRAXR("VAL",3)=.03

 +21       SET GMRAXR("VAL",3,"COLLATION")="F"

 +22       SET GMRAXR("VAL",4)=.5

 +23       SET GMRAXR("VAL",4,"COLLATION")="F"

 +24       SET GMRAXR("VAL",5)=1.1

 +25       SET GMRAXR("VAL",5,"COLLATION")="F"

 +26       SET GMRAXR("VAL",6)=1.2

 +27       SET GMRAXR("VAL",6,"COLLATION")="F"

 +28       SET GMRAXR("VAL",7)=5

 +29       SET GMRAXR("VAL",7,"COLLATION")="F"

 +30       SET GMRAXR("VAL",8)=6

 +31       SET GMRAXR("VAL",8,"COLLATION")="F"

 +32       SET GMRAXR("VAL",9)=7

 +33       SET GMRAXR("VAL",9,"COLLATION")="F"

 +34       SET GMRAXR("VAL",10)=8

 +35       SET GMRAXR("VAL",10,"COLLATION")="F"

 +36       SET GMRAXR("VAL",11)=9

 +37       SET GMRAXR("VAL",11,"COLLATION")="F"

 +38       SET GMRAXR("VAL",12)=9.1

 +39       SET GMRAXR("VAL",12,"COLLATION")="F"

 +40       SET GMRAXR("VAL",13)=10

 +41       SET GMRAXR("VAL",13,"COLLATION")="F"

 +42       SET GMRAXR("VAL",14)=11

 +43       SET GMRAXR("VAL",14,"COLLATION")="F"

 +44       SET GMRAXR("VAL",15)=12

 +45       SET GMRAXR("VAL",15,"COLLATION")="F"

 +46       SET GMRAXR("VAL",16)=12.1

 +47       SET GMRAXR("VAL",16,"COLLATION")="F"

 +48       SET GMRAXR("VAL",17)=12.2

 +49       SET GMRAXR("VAL",17,"COLLATION")="F"

 +50       SET GMRAXR("VAL",18)=14.5

 +51       SET GMRAXR("VAL",18,"COLLATION")="F"

 +52       SET GMRAXR("VAL",19)=22

 +53       SET GMRAXR("VAL",19,"COLLATION")="F"

 +54       SET GMRAXR("VAL",20)=23

 +55       SET GMRAXR("VAL",20,"COLLATION")="F"

 +56       SET GMRAXR("VAL",21)=24

 +57       SET GMRAXR("VAL",21,"COLLATION")="F"

 +58       SET GMRAXR("VAL",22)=25

 +59       SET GMRAXR("VAL",22,"COLLATION")="F"

 +60       SET GMRAXR("VAL",23)=26

 +61       SET GMRAXR("VAL",23,"COLLATION")="F"

 +62       SET GMRAXR("VAL",24)=26.1

 +63       SET GMRAXR("VAL",24,"COLLATION")="F"

 +64       SET GMRAXR("VAL",25)=27

 +65       SET GMRAXR("VAL",25,"COLLATION")="F"

 +66       SET GMRAXR("VAL",26)=28

 +67       SET GMRAXR("VAL",26,"COLLATION")="F"

 +68       SET GMRAXR("VAL",27)=29

 +69       SET GMRAXR("VAL",27,"COLLATION")="F"

 +70       SET GMRAXR("VAL",28)=31

 +71       SET GMRAXR("VAL",28,"COLLATION")="F"

 +72       SET GMRAXR("VAL",29)=31.1

 +73       SET GMRAXR("VAL",29,"COLLATION")="F"

 +74       SET GMRAXR("VAL",30)=31.2

 +75       SET GMRAXR("VAL",30,"COLLATION")="F"

 +76       SET GMRAXR("VAL",31)=43

 +77       SET GMRAXR("VAL",31,"COLLATION")="F"

 +78       SET GMRAXR("VAL",32)=44

 +79       SET GMRAXR("VAL",32,"COLLATION")="F"

 +80       SET GMRAXR("VAL",33)=45

 +81       SET GMRAXR("VAL",33,"COLLATION")="F"

 +82       SET GMRAXR("VAL",34)=46

 +83       SET GMRAXR("VAL",34,"COLLATION")="F"

 +84       SET GMRAXR("VAL",35)=47

 +85       SET GMRAXR("VAL",35,"COLLATION")="F"

 +86       SET GMRAXR("VAL",36)=48

 +87       SET GMRAXR("VAL",36,"COLLATION")="F"

 +88       SET GMRAXR("VAL",37)=49

 +89       SET GMRAXR("VAL",37,"COLLATION")="F"

 +90       SET GMRAXR("VAL",38)=50

 +91       SET GMRAXR("VAL",38,"COLLATION")="F"

 +92       SET GMRAXR("VAL",39)=51

 +93       SET GMRAXR("VAL",39,"COLLATION")="F"

 +94       SET GMRAXR("VAL",40)=52

 +95       SET GMRAXR("VAL",40,"COLLATION")="F"

 +96       SET GMRAXR("VAL",41)=52.1

 +97       SET GMRAXR("VAL",41,"COLLATION")="F"

 +98       SET GMRAXR("VAL",42)=53

 +99       SET GMRAXR("VAL",42,"COLLATION")="F"

 +100      SET GMRAXR("VAL",43)=54

 +101      SET GMRAXR("VAL",43,"COLLATION")="F"

 +102      SET GMRAXR("VAL",44)=55

 +103      SET GMRAXR("VAL",44,"COLLATION")="F"

 +104      SET GMRAXR("VAL",45)=56

 +105      SET GMRAXR("VAL",45,"COLLATION")="F"

 +106      SET GMRAXR("VAL",46)=57

 +107      SET GMRAXR("VAL",46,"COLLATION")="F"

 +108      SET GMRAXR("VAL",47)=58

 +109      SET GMRAXR("VAL",47,"COLLATION")="F"

 +110      SET GMRAXR("VAL",48)=59

 +111      SET GMRAXR("VAL",48,"COLLATION")="F"

 +112      SET GMRAXR("VAL",49)=60

 +113      SET GMRAXR("VAL",49,"COLLATION")="F"

 +114      SET GMRAXR("VAL",50)=61

 +115      SET GMRAXR("VAL",50,"COLLATION")="F"

 +116      SET GMRAXR("VAL",51)=62

 +117      SET GMRAXR("VAL",51,"COLLATION")="F"

 +118      SET GMRAXR("VAL",52)=64

 +119      SET GMRAXR("VAL",52,"COLLATION")="F"

 +120      SET GMRAXR("VAL",53)=65

 +121      SET GMRAXR("VAL",53,"COLLATION")="F"

 +122      DO CREIXN^DDMOD(.GMRAXR,"k",.GMRARES,"GMRAOUT")

 +123      QUIT