| 1 | OOPSGUI5 ;WIOFO/CVW-RPC routines ;10/11/01
|
---|
| 2 | ;;2.0;ASISTS;**2,8,7,11**;Jun 03, 2002
|
---|
| 3 | EDIT(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
|
---|
| 24 | SAVECA1 ;
|
---|
| 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
|
---|
| 109 | SAVECA2 ;
|
---|
| 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
|
---|
| 179 | SAVE2162 ;
|
---|
| 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
|
---|