source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAY18I.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.7 KB
Line 
1GMRAY18I ;SLC/DAN-CREATE NEW-STYLE XREF ;9:10 AM 7 Sep 2004
2 ;;4.0;Adverse Reaction Tracking;**18**;Mar 29, 1996
3 ;
4 N GMRAXR,GMRARES,GMRAOUT
5 S GMRAXR("FILE")=120.85
6 S GMRAXR("NAME")="AHDR"
7 S GMRAXR("TYPE")="MU"
8 S GMRAXR("USE")="A"
9 S GMRAXR("EXECUTION")="R"
10 S GMRAXR("ACTIVITY")=""
11 S GMRAXR("SHORT DESCR")="Sends data to HDR"
12 S GMRAXR("DESCR",1)="Sends data to HDR upon new entry or upon editing of existing"
13 S GMRAXR("DESCR",2)="data."
14 S GMRAXR("SET")="Q:$D(DIU(0)) D SETOB^GMRAHDR"
15 S GMRAXR("KILL")="Q:$D(DIU(0)) D KILLOB^GMRAHDR"
16 S GMRAXR("WHOLE KILL")="Q"
17 S GMRAXR("VAL",1)=.01
18 S GMRAXR("VAL",1,"COLLATION")="F"
19 S GMRAXR("VAL",2)=.02
20 S GMRAXR("VAL",2,"COLLATION")="F"
21 S GMRAXR("VAL",3)=.03
22 S GMRAXR("VAL",3,"COLLATION")="F"
23 S GMRAXR("VAL",4)=.5
24 S GMRAXR("VAL",4,"COLLATION")="F"
25 S GMRAXR("VAL",5)=1.1
26 S GMRAXR("VAL",5,"COLLATION")="F"
27 S GMRAXR("VAL",6)=1.2
28 S GMRAXR("VAL",6,"COLLATION")="F"
29 S GMRAXR("VAL",7)=5
30 S GMRAXR("VAL",7,"COLLATION")="F"
31 S GMRAXR("VAL",8)=6
32 S GMRAXR("VAL",8,"COLLATION")="F"
33 S GMRAXR("VAL",9)=7
34 S GMRAXR("VAL",9,"COLLATION")="F"
35 S GMRAXR("VAL",10)=8
36 S GMRAXR("VAL",10,"COLLATION")="F"
37 S GMRAXR("VAL",11)=9
38 S GMRAXR("VAL",11,"COLLATION")="F"
39 S GMRAXR("VAL",12)=9.1
40 S GMRAXR("VAL",12,"COLLATION")="F"
41 S GMRAXR("VAL",13)=10
42 S GMRAXR("VAL",13,"COLLATION")="F"
43 S GMRAXR("VAL",14)=11
44 S GMRAXR("VAL",14,"COLLATION")="F"
45 S GMRAXR("VAL",15)=12
46 S GMRAXR("VAL",15,"COLLATION")="F"
47 S GMRAXR("VAL",16)=12.1
48 S GMRAXR("VAL",16,"COLLATION")="F"
49 S GMRAXR("VAL",17)=12.2
50 S GMRAXR("VAL",17,"COLLATION")="F"
51 S GMRAXR("VAL",18)=14.5
52 S GMRAXR("VAL",18,"COLLATION")="F"
53 S GMRAXR("VAL",19)=22
54 S GMRAXR("VAL",19,"COLLATION")="F"
55 S GMRAXR("VAL",20)=23
56 S GMRAXR("VAL",20,"COLLATION")="F"
57 S GMRAXR("VAL",21)=24
58 S GMRAXR("VAL",21,"COLLATION")="F"
59 S GMRAXR("VAL",22)=25
60 S GMRAXR("VAL",22,"COLLATION")="F"
61 S GMRAXR("VAL",23)=26
62 S GMRAXR("VAL",23,"COLLATION")="F"
63 S GMRAXR("VAL",24)=26.1
64 S GMRAXR("VAL",24,"COLLATION")="F"
65 S GMRAXR("VAL",25)=27
66 S GMRAXR("VAL",25,"COLLATION")="F"
67 S GMRAXR("VAL",26)=28
68 S GMRAXR("VAL",26,"COLLATION")="F"
69 S GMRAXR("VAL",27)=29
70 S GMRAXR("VAL",27,"COLLATION")="F"
71 S GMRAXR("VAL",28)=31
72 S GMRAXR("VAL",28,"COLLATION")="F"
73 S GMRAXR("VAL",29)=31.1
74 S GMRAXR("VAL",29,"COLLATION")="F"
75 S GMRAXR("VAL",30)=31.2
76 S GMRAXR("VAL",30,"COLLATION")="F"
77 S GMRAXR("VAL",31)=43
78 S GMRAXR("VAL",31,"COLLATION")="F"
79 S GMRAXR("VAL",32)=44
80 S GMRAXR("VAL",32,"COLLATION")="F"
81 S GMRAXR("VAL",33)=45
82 S GMRAXR("VAL",33,"COLLATION")="F"
83 S GMRAXR("VAL",34)=46
84 S GMRAXR("VAL",34,"COLLATION")="F"
85 S GMRAXR("VAL",35)=47
86 S GMRAXR("VAL",35,"COLLATION")="F"
87 S GMRAXR("VAL",36)=48
88 S GMRAXR("VAL",36,"COLLATION")="F"
89 S GMRAXR("VAL",37)=49
90 S GMRAXR("VAL",37,"COLLATION")="F"
91 S GMRAXR("VAL",38)=50
92 S GMRAXR("VAL",38,"COLLATION")="F"
93 S GMRAXR("VAL",39)=51
94 S GMRAXR("VAL",39,"COLLATION")="F"
95 S GMRAXR("VAL",40)=52
96 S GMRAXR("VAL",40,"COLLATION")="F"
97 S GMRAXR("VAL",41)=52.1
98 S GMRAXR("VAL",41,"COLLATION")="F"
99 S GMRAXR("VAL",42)=53
100 S GMRAXR("VAL",42,"COLLATION")="F"
101 S GMRAXR("VAL",43)=54
102 S GMRAXR("VAL",43,"COLLATION")="F"
103 S GMRAXR("VAL",44)=55
104 S GMRAXR("VAL",44,"COLLATION")="F"
105 S GMRAXR("VAL",45)=56
106 S GMRAXR("VAL",45,"COLLATION")="F"
107 S GMRAXR("VAL",46)=57
108 S GMRAXR("VAL",46,"COLLATION")="F"
109 S GMRAXR("VAL",47)=58
110 S GMRAXR("VAL",47,"COLLATION")="F"
111 S GMRAXR("VAL",48)=59
112 S GMRAXR("VAL",48,"COLLATION")="F"
113 S GMRAXR("VAL",49)=60
114 S GMRAXR("VAL",49,"COLLATION")="F"
115 S GMRAXR("VAL",50)=61
116 S GMRAXR("VAL",50,"COLLATION")="F"
117 S GMRAXR("VAL",51)=62
118 S GMRAXR("VAL",51,"COLLATION")="F"
119 S GMRAXR("VAL",52)=64
120 S GMRAXR("VAL",52,"COLLATION")="F"
121 S GMRAXR("VAL",53)=65
122 S GMRAXR("VAL",53,"COLLATION")="F"
123 D CREIXN^DDMOD(.GMRAXR,"k",.GMRARES,"GMRAOUT")
124 Q
Note: See TracBrowser for help on using the repository browser.