source: FOIAVistA/tag/r/ASISTS-OOPS/OOPSGUI5.m@ 628

Last change on this file since 628 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version
File size: 9.3 KB
Line 
1OOPSGUI5 ;WIOFO/CVW-RPC routines ;10/11/01
2 ;;2.0;ASISTS;**2,8,7,11**;Jun 03, 2002
3EDIT(RESULTS,INPUT,ARR) ;
4 ; Input: INPUT - IEN^FORM where IEN = ASISTS IEN or "NEW" if user
5 ; creating a new CA7. FORM="CA1","CA2","2162" or "CA7"
6 ; SENDPARM - Array with data from client, saved into File 2260.
7 ; Output: RESULTS - Array containing the results of the store/save.
8 ; NOTE: Patch 5 llh - added FILE variable based on form being
9 ; passed in so that a CA7 could also be handled.
10 N IEN,FILE,FORM,DIE,DA,DR
11 S IEN=$P($G(INPUT),U,1),FORM=$P($G(INPUT),U,2)
12 I $G(FORM)="" S (RESULTS,RESULTS(1))="-2^No form type" Q
13 S FILE=2260 I FORM="CA7" S FILE=2264
14 I '$D(^OOPS(FILE,$G(IEN),0))&($G(IEN)'="NEW") D Q
15 . S (RESULTS,RESULTS(1))="-1^IEN:"_IEN_" not found in file "_FILE
16 I "CA1^CA2^CA7^2162"'[FORM D Q
17 . S (RESULTS,RESULTS(1))="-2^FORM:"_FORM_" not valid, must be CA1,CA2, or 2162"
18 S RESULTS(1)="UPDATE FAILED"
19 I FORM="CA1" D SAVECA1
20 I FORM="CA2" D SAVECA2
21 I FORM="2162" D SAVE2162
22 I FORM="CA7" D SAVECA7^OOPSGUID
23 Q
24SAVECA1 ;
25 K DR S DIE="^OOPS(2260,",DA=IEN,DR=""
26 S DR(1,2260,1)="53////^S X=ARR(7)"
27 S DR(1,2260,2)="53.1////^S X=ARR(8)"
28 S DR(1,2260,3)="60///^S X=ARR(14)"
29 S DR(1,2260,4)="61///^S X=ARR(15)"
30 S DR(1,2260,5)="62////^S X=ARR(16)"
31 S DR(1,2260,6)="70///^S X=ARR(22)"
32 S DR(1,2260,7)="73///^S X=ARR(25)"
33 S DR(1,2260,8)="12///^S X=ARR(36)"
34 S DR(1,2260,11)="8///^S X=ARR(39)"
35 S DR(1,2260,12)="9///^S X=ARR(40)"
36 S DR(1,2260,13)="10///^S X=ARR(41)"
37 S DR(1,2260,14)="11///^S X=ARR(42)"
38 S DR(1,2260,15)="107///^S X=ARR(43)"
39 S DR(1,2260,16)="108///^S X=ARR(44)"
40 S DR(1,2260,17)="109///^S X=ARR(45)"
41 S DR(1,2260,18)="110///^S X=ARR(46)"
42 S DR(1,2260,19)="111///^S X=ARR(47)"
43 S DR(1,2260,20)="112///^S X=ARR(48)"
44 S DR(1,2260,21)="113///^S X=ARR(49)"
45 S DR(1,2260,22)="114///^S X=ARR(50)"
46 S DR(1,2260,24)="123///^S X=ARR(60)"
47 S DR(1,2260,25)="124///^S X=ARR(61)"
48 S DR(1,2260,26)="126///^S X=ARR(62)"
49 S DR(1,2260,27)="130///^S X=ARR(63)"
50 S DR(1,2260,28)="131///^S X=ARR(64)"
51 S DR(1,2260,29)="132///^S X=ARR(65)"
52 S DR(1,2260,30)="133///^S X=ARR(66)"
53 S DR(1,2260,31)="134///^S X=ARR(67)"
54 S DR(1,2260,32)="138///^S X=ARR(70)"
55 S DR(1,2260,33)="139///^S X=ARR(71)"
56 S DR(1,2260,34)="140///^S X=ARR(72)"
57 S DR(1,2260,35)="141///^S X=ARR(73)"
58 S DR(1,2260,36)="142///^S X=ARR(74)"
59 D ^DIE I '($D(Y)=0) Q
60 K DR S DIE="^OOPS(2260,",DA=IEN,DR=""
61 S DR(1,2260,37)="143///^S X=ARR(75)"
62 S DR(1,2260,38)="144///^S X=ARR(76)"
63 S DR(1,2260,39)="145///^S X=ARR(77)"
64 S DR(1,2260,40)="146///^S X=ARR(78)"
65 S DR(1,2260,41)="147///^S X=ARR(79)"
66 S DR(1,2260,42)="148///^S X=ARR(80)"
67 S DR(1,2260,43)="149///^S X=ARR(81)"
68 S DR(1,2260,44)="150///^S X=ARR(82)"
69 S DR(1,2260,45)="151///^S X=ARR(83)"
70 S DR(1,2260,46)="152///^S X=ARR(84)"
71 S DR(1,2260,47)="153///^S X=ARR(85)"
72 S DR(1,2260,48)="154///^S X=ARR(86)"
73 S DR(1,2260,49)="155///^S X=ARR(87)"
74 S DR(1,2260,50)="156///^S X=ARR(88)"
75 S DR(1,2260,51)="157///^S X=ARR(89)"
76 S DR(1,2260,52)="158///^S X=ARR(90)"
77 S DR(1,2260,53)="159///^S X=ARR(91)"
78 S DR(1,2260,54)="160///^S X=ARR(92)"
79 S DR(1,2260,55)="161///^S X=ARR(93)"
80 S DR(1,2260,56)="162///^S X=ARR(94)"
81 S DR(1,2260,57)="163///^S X=ARR(95)"
82 S DR(1,2260,58)="165.1///^S X=ARR(96)"
83 S DR(1,2260,59)="165.2///^S X=ARR(97)"
84 S DR(1,2260,60)="166///^S X=ARR(98)"
85 S DR(1,2260,61)="167///^S X=ARR(99)"
86 S DR(1,2260,62)="168///^S X=ARR(100)"
87 S DR(1,2260,63)="172///^S X=ARR(104)"
88 S DR(1,2260,64)="173///^S X=ARR(105)"
89 S DR(1,2260,65)="173.1///^S X=ARR(106)"
90 S DR(1,2260,66)="174///^S X=ARR(107)"
91 S DR(1,2260,67)="175///^S X=ARR(108)"
92 S DR(1,2260,68)="176///^S X=ARR(109)"
93 S DR(1,2260,69)="177///^S X=ARR(110)"
94 S DR(1,2260,70)="178///^S X=ARR(111)"
95 S DR(1,2260,71)="179///^S X=ARR(112)"
96 S DR(1,2260,72)="180///^S X=ARR(113)"
97 S DR(1,2260,73)="181///^S X=ARR(114)"
98 S DR(1,2260,74)="182///^S X=ARR(115)"
99 S DR(1,2260,75)="183///^S X=ARR(116)"
100 S DR(1,2260,76)="184///^S X=ARR(117)"
101 S DR(1,2260,77)="185///^S X=ARR(118)"
102 S DR(1,2260,78)="330///^S X=ARR(119)"
103 S DR(1,2260,79)="331///^S X=ARR(120)"
104 S DR(1,2260,80)="332///^S X=ARR(121)"
105 ; patch 11 - added REASON FOR DISPUTE CODE
106 S DR(1,2260,81)="347///^S X=ARR(122)"
107 D ^DIE I $D(Y)=0 S RESULTS(1)="UPDATE COMPLETED"
108 Q
109SAVECA2 ;
110 K DR S DIE="^OOPS(2260,",DA=IEN,DR=""
111 S DR(1,2260,1)="60///^S X=ARR(14)"
112 S DR(1,2260,5)="61///^S X=ARR(15)"
113 S DR(1,2260,7)="62////^S X=ARR(16)"
114 S DR(1,2260,10)="70///^S X=ARR(22)"
115 S DR(1,2260,15)="73///^S X=ARR(25)"
116 S DR(1,2260,20)="12///^S X=ARR(38)"
117 S DR(1,2260,25)="8///^S X=ARR(41)"
118 S DR(1,2260,30)="9///^S X=ARR(42)"
119 S DR(1,2260,35)="10///^S X=ARR(43)"
120 S DR(1,2260,40)="11///^S X=ARR(44)"
121 S DR(1,2260,41)="126///^S X=ARR(36)"
122 S DR(1,2260,45)="207///^S X=ARR(45)"
123 S DR(1,2260,50)="208///^S X=ARR(46)"
124 S DR(1,2260,55)="209///^S X=ARR(47)"
125 S DR(1,2260,60)="210///^S X=ARR(48)"
126 S DR(1,2260,65)="211///^S X=ARR(49)"
127 S DR(1,2260,70)="212///^S X=ARR(50)"
128 S DR(1,2260,75)="213///^S X=ARR(51)"
129 S DR(1,2260,80)="214///^S X=ARR(52)"
130 D ^DIE I '($D(Y)=0) Q
131 K DR S DIE="^OOPS(2260,",DA=IEN,DR=""
132 S DR(1,2260,85)="215///^S X=ARR(53)"
133 S DR(1,2260,90)="225///^S X=ARR(57)"
134 S DR(1,2260,95)="226///^S X=ARR(58)"
135 S DR(1,2260,100)="227///^S X=ARR(59)"
136 S DR(1,2260,105)="230///^S X=ARR(60)"
137 S DR(1,2260,110)="231///^S X=ARR(61)"
138 S DR(1,2260,115)="232///^S X=ARR(62)"
139 S DR(1,2260,120)="233///^S X=ARR(63)"
140 S DR(1,2260,125)="234///^S X=ARR(64)"
141 S DR(1,2260,130)="237///^S X=ARR(67)"
142 S DR(1,2260,135)="238///^S X=ARR(68)"
143 S DR(1,2260,140)="239///^S X=ARR(69)"
144 S DR(1,2260,145)="240///^S X=ARR(70)"
145 S DR(1,2260,150)="241///^S X=ARR(71)"
146 S DR(1,2260,155)="242///^S X=ARR(72)"
147 S DR(1,2260,160)="243///^S X=ARR(73)"
148 S DR(1,2260,165)="244///^S X=ARR(74)"
149 S DR(1,2260,170)="245///^S X=ARR(75)"
150 S DR(1,2260,175)="246///^S X=ARR(76)"
151 S DR(1,2260,180)="247///^S X=ARR(77)"
152 S DR(1,2260,185)="248///^S X=ARR(78)"
153 S DR(1,2260,190)="249///^S X=ARR(79)"
154 S DR(1,2260,192)="250///^S X=ARR(80)"
155 S DR(1,2260,195)="251///^S X=ARR(81)"
156 S DR(1,2260,200)="252///^S X=ARR(82)"
157 S DR(1,2260,205)="253///^S X=ARR(83)"
158 D ^DIE I '($D(Y)=0) Q
159 K DR S DIE="^OOPS(2260,",DA=IEN,DR=""
160 S DR(1,2260,210)="254///^S X=ARR(84)"
161 S DR(1,2260,215)="255///^S X=ARR(85)"
162 S DR(1,2260,220)="256///^S X=ARR(86)"
163 S DR(1,2260,225)="258///^S X=ARR(87)"
164 S DR(1,2260,230)="259///^S X=ARR(88)"
165 S DR(1,2260,235)="260///^S X=ARR(89)"
166 S DR(1,2260,240)="261///^S X=ARR(90)"
167 S DR(1,2260,245)="262///^S X=ARR(91)"
168 S DR(1,2260,250)="263///^S X=ARR(92)"
169 S DR(1,2260,255)="264///^S X=ARR(93)"
170 S DR(1,2260,260)="268///^S X=ARR(97)"
171 S DR(1,2260,265)="269///^S X=ARR(98)"
172 S DR(1,2260,270)="269.1///^S X=ARR(99)"
173 S DR(1,2260,275)="270///^S X=ARR(100)"
174 ; Patch 5 llh - added new fields
175 S DR(1,2260,276)="330///^S X=ARR(101)"
176 S DR(1,2260,277)="331///^S X=ARR(102)"
177 D ^DIE I $D(Y)=0 S RESULTS(1)="UPDATE COMPLETED"
178 Q
179SAVE2162 ;
180 K DR S DIE="^OOPS(2260,",DA=IEN,DR=""
181 S DR(1,2260,1)="3///^S X=ARR(3)"
182 S DR(1,2260,2)="5///^S X=ARR(5)"
183 S DR(1,2260,3)="6///^S X=ARR(6)"
184 S DR(1,2260,4)="7///^S X=ARR(7)"
185 S DR(1,2260,5)="8///^S X=ARR(8)"
186 S DR(1,2260,7)="9///^S X=ARR(9)"
187 S DR(1,2260,9)="10///^S X=ARR(10)"
188 S DR(1,2260,12)="11///^S X=ARR(11)"
189 S DR(1,2260,15)="12///^S X=ARR(12)"
190 S DR(1,2260,18)="13////^S X=ARR(13)"
191 S DR(1,2260,21)="14///^S X=ARR(14)"
192 S DR(1,2260,24)="15///^S X=ARR(15)"
193 S DR(1,2260,27)="16///^S X=ARR(16)"
194 S DR(1,2260,30)="17///^S X=ARR(17)"
195 S DR(1,2260,33)="18///^S X=ARR(18)"
196 S DR(1,2260,36)="26///^S X=ARR(19)"
197 S DR(1,2260,39)="27////^S X=ARR(20)"
198 S DR(1,2260,42)="29///^S X=ARR(21)"
199 S DR(1,2260,45)="29.5///^S X=ARR(22)"
200 S DR(1,2260,48)="30///^S X=ARR(23)"
201 S DR(1,2260,51)="30.1///^S X=ARR(24)"
202 S DR(1,2260,54)="31///^S X=ARR(25)"
203 S DR(1,2260,57)="32///^S X=ARR(26)"
204 S DR(1,2260,60)="33///^S X=ARR(27)"
205 S DR(1,2260,63)="34///^S X=ARR(28)"
206 S DR(1,2260,66)="35///^S X=ARR(29)"
207 S DR(1,2260,69)="36///^S X=ARR(30)"
208 S DR(1,2260,72)="37///^S X=ARR(31)"
209 S DR(1,2260,75)="38///^S X=ARR(32)"
210 S DR(1,2260,78)="41///^S X=ARR(33)"
211 S DR(1,2260,81)="42///^S X=ARR(34)"
212 S DR(1,2260,84)="42.5///^S X=ARR(35)"
213 S DR(1,2260,87)="43///^S X=ARR(36)"
214 S DR(1,2260,90)="53////^S X=ARR(45)"
215 S DR(1,2260,93)="53.1////^S X=ARR(46)"
216 S DR(1,2260,96)="60///^S X=ARR(52)"
217 S DR(1,2260,99)="61///^S X=ARR(53)"
218 S DR(1,2260,102)="62///^S X=ARR(54)"
219 S DR(1,2260,105)="63///^S X=ARR(55)"
220 S DR(1,2260,108)="70///^S X=ARR(60)"
221 S DR(1,2260,111)="73///^S X=ARR(63)"
222 S DR(1,2260,114)="82///^S X=ARR(72)"
223 S DR(1,2260,117)="83////^S X=ARR(73)"
224 S DR(1,2260,120)="84///^S X=ARR(74)"
225 S DR(1,2260,123)="85///^S X=ARR(75)"
226 S DR(1,2260,126)="86///^S X=ARR(76)"
227 S DR(1,2260,129)="87///^S X=ARR(77)"
228 S DR(1,2260,132)="88///^S X=ARR(78)"
229 S DR(1,2260,135)="89///^S X=ARR(79)"
230 S DR(1,2260,136)="335///^S X=ARR(85)"
231 S DR(1,2260,138)="336///^S X=ARR(86)"
232 S DR(1,2260,140)="337///^S X=ARR(87)"
233 S DR(1,2260,142)="338///^S X=ARR(88)"
234 S DR(1,2260,144)="339///^S X=ARR(89)"
235 S DR(1,2260,146)="340///^S X=ARR(90)"
236 S DR(1,2260,148)="341///^S X=ARR(91)"
237 S DR(1,2260,150)="342///^S X=ARR(92)"
238 S DR(1,2260,152)="343///^S X=ARR(93)"
239 S DR(1,2260,154)="344///^S X=ARR(94)"
240 S DR(1,2260,156)="345///^S X=ARR(95)"
241 S DR(1,2260,158)="346///^S X=ARR(96)"
242 S DR(1,2260,159)="334///^S X=ARR(97)"
243 S DR(1,2260,160)="348///^S X=ARR(98)"
244 S DR(1,2260,161)="349///^S X=ARR(99)"
245 S DR(1,2260,162)="350///^S X=ARR(100)"
246 S DR(1,2260,163)="351///^S X=ARR(101)"
247 S DR(1,2260,164)="352///^S X=ARR(102)"
248 D ^DIE I $D(Y)=0 S RESULTS(1)="UPDATE COMPLETED"
249 Q
Note: See TracBrowser for help on using the repository browser.