| 1 | KIDS Distribution saved on Mar 06, 2010@13:34:24
|
|---|
| 2 | added first two lines to generated routines
|
|---|
| 3 | **KIDS**:C0E0*1.0*0^
|
|---|
| 4 |
|
|---|
| 5 | **INSTALL NAME**
|
|---|
| 6 | C0E0*1.0*0
|
|---|
| 7 | "BLD",6969,0)
|
|---|
| 8 | C0E0*1.0*0^^0^3100306^n
|
|---|
| 9 | "BLD",6969,4,0)
|
|---|
| 10 | ^9.64PA^70050^1
|
|---|
| 11 | "BLD",6969,4,70050,0)
|
|---|
| 12 | 70050
|
|---|
| 13 | "BLD",6969,4,70050,222)
|
|---|
| 14 | y^y^f^^y^^y^o^n
|
|---|
| 15 | "BLD",6969,4,70050,224)
|
|---|
| 16 | I $$GET1^DIQ(70050,Y_",",.02)="screenman"
|
|---|
| 17 | "BLD",6969,4,"B",70050,70050)
|
|---|
| 18 |
|
|---|
| 19 | "BLD",6969,6.3)
|
|---|
| 20 | 6
|
|---|
| 21 | "BLD",6969,"KRN",0)
|
|---|
| 22 | ^9.67PA^8989.52^19
|
|---|
| 23 | "BLD",6969,"KRN",.4,0)
|
|---|
| 24 | .4
|
|---|
| 25 | "BLD",6969,"KRN",.401,0)
|
|---|
| 26 | .401
|
|---|
| 27 | "BLD",6969,"KRN",.401,"NM",0)
|
|---|
| 28 | ^9.68A^1^1
|
|---|
| 29 | "BLD",6969,"KRN",.401,"NM",1,0)
|
|---|
| 30 | C0E SCREENMAN RECORDS FILE #70050^70050^0
|
|---|
| 31 | "BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
|
|---|
| 32 |
|
|---|
| 33 | "BLD",6969,"KRN",.402,0)
|
|---|
| 34 | .402
|
|---|
| 35 | "BLD",6969,"KRN",.403,0)
|
|---|
| 36 | .403
|
|---|
| 37 | "BLD",6969,"KRN",.5,0)
|
|---|
| 38 | .5
|
|---|
| 39 | "BLD",6969,"KRN",.84,0)
|
|---|
| 40 | .84
|
|---|
| 41 | "BLD",6969,"KRN",3.6,0)
|
|---|
| 42 | 3.6
|
|---|
| 43 | "BLD",6969,"KRN",3.8,0)
|
|---|
| 44 | 3.8
|
|---|
| 45 | "BLD",6969,"KRN",9.2,0)
|
|---|
| 46 | 9.2
|
|---|
| 47 | "BLD",6969,"KRN",9.8,0)
|
|---|
| 48 | 9.8
|
|---|
| 49 | "BLD",6969,"KRN",9.8,"NM",0)
|
|---|
| 50 | ^9.68A^8^8
|
|---|
| 51 | "BLD",6969,"KRN",9.8,"NM",1,0)
|
|---|
| 52 | C0CROB^^0^B1053192
|
|---|
| 53 | "BLD",6969,"KRN",9.8,"NM",2,0)
|
|---|
| 54 | C0CEX^^0^B811998
|
|---|
| 55 | "BLD",6969,"KRN",9.8,"NM",3,0)
|
|---|
| 56 | C0E0000A^^0^B15300816
|
|---|
| 57 | "BLD",6969,"KRN",9.8,"NM",4,0)
|
|---|
| 58 | C0E0000F^^0^B33308637
|
|---|
| 59 | "BLD",6969,"KRN",9.8,"NM",5,0)
|
|---|
| 60 | C0E0000E^^0^B28122696
|
|---|
| 61 | "BLD",6969,"KRN",9.8,"NM",6,0)
|
|---|
| 62 | C0E0000R^^0^B67797780
|
|---|
| 63 | "BLD",6969,"KRN",9.8,"NM",7,0)
|
|---|
| 64 | C0E0001I^^0^B20709402
|
|---|
| 65 | "BLD",6969,"KRN",9.8,"NM",8,0)
|
|---|
| 66 | C0E0002^^0^B94303815
|
|---|
| 67 | "BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
|
|---|
| 68 |
|
|---|
| 69 | "BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
|
|---|
| 70 |
|
|---|
| 71 | "BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
|
|---|
| 72 |
|
|---|
| 73 | "BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
|
|---|
| 74 |
|
|---|
| 75 | "BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
|
|---|
| 76 |
|
|---|
| 77 | "BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
|
|---|
| 78 |
|
|---|
| 79 | "BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
|
|---|
| 80 |
|
|---|
| 81 | "BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
|
|---|
| 82 |
|
|---|
| 83 | "BLD",6969,"KRN",19,0)
|
|---|
| 84 | 19
|
|---|
| 85 | "BLD",6969,"KRN",19.1,0)
|
|---|
| 86 | 19.1
|
|---|
| 87 | "BLD",6969,"KRN",101,0)
|
|---|
| 88 | 101
|
|---|
| 89 | "BLD",6969,"KRN",409.61,0)
|
|---|
| 90 | 409.61
|
|---|
| 91 | "BLD",6969,"KRN",771,0)
|
|---|
| 92 | 771
|
|---|
| 93 | "BLD",6969,"KRN",870,0)
|
|---|
| 94 | 870
|
|---|
| 95 | "BLD",6969,"KRN",8989.51,0)
|
|---|
| 96 | 8989.51
|
|---|
| 97 | "BLD",6969,"KRN",8989.52,0)
|
|---|
| 98 | 8989.52
|
|---|
| 99 | "BLD",6969,"KRN",8994,0)
|
|---|
| 100 | 8994
|
|---|
| 101 | "BLD",6969,"KRN","B",.4,.4)
|
|---|
| 102 |
|
|---|
| 103 | "BLD",6969,"KRN","B",.401,.401)
|
|---|
| 104 |
|
|---|
| 105 | "BLD",6969,"KRN","B",.402,.402)
|
|---|
| 106 |
|
|---|
| 107 | "BLD",6969,"KRN","B",.403,.403)
|
|---|
| 108 |
|
|---|
| 109 | "BLD",6969,"KRN","B",.5,.5)
|
|---|
| 110 |
|
|---|
| 111 | "BLD",6969,"KRN","B",.84,.84)
|
|---|
| 112 |
|
|---|
| 113 | "BLD",6969,"KRN","B",3.6,3.6)
|
|---|
| 114 |
|
|---|
| 115 | "BLD",6969,"KRN","B",3.8,3.8)
|
|---|
| 116 |
|
|---|
| 117 | "BLD",6969,"KRN","B",9.2,9.2)
|
|---|
| 118 |
|
|---|
| 119 | "BLD",6969,"KRN","B",9.8,9.8)
|
|---|
| 120 |
|
|---|
| 121 | "BLD",6969,"KRN","B",19,19)
|
|---|
| 122 |
|
|---|
| 123 | "BLD",6969,"KRN","B",19.1,19.1)
|
|---|
| 124 |
|
|---|
| 125 | "BLD",6969,"KRN","B",101,101)
|
|---|
| 126 |
|
|---|
| 127 | "BLD",6969,"KRN","B",409.61,409.61)
|
|---|
| 128 |
|
|---|
| 129 | "BLD",6969,"KRN","B",771,771)
|
|---|
| 130 |
|
|---|
| 131 | "BLD",6969,"KRN","B",870,870)
|
|---|
| 132 |
|
|---|
| 133 | "BLD",6969,"KRN","B",8989.51,8989.51)
|
|---|
| 134 |
|
|---|
| 135 | "BLD",6969,"KRN","B",8989.52,8989.52)
|
|---|
| 136 |
|
|---|
| 137 | "BLD",6969,"KRN","B",8994,8994)
|
|---|
| 138 |
|
|---|
| 139 | "BLD",6969,"QUES",0)
|
|---|
| 140 | ^9.62^^
|
|---|
| 141 | "DATA",70050,12,0)
|
|---|
| 142 | 23407^screenman^ewdajaxerror
|
|---|
| 143 | "DATA",70050,13,0)
|
|---|
| 144 | 23408^screenman^ewdajaxerrorredirect
|
|---|
| 145 | "DATA",70050,14,0)
|
|---|
| 146 | 23409^screenman^ewderror
|
|---|
| 147 | "DATA",70050,15,0)
|
|---|
| 148 | 23410^screenman^ewderrorredirect
|
|---|
| 149 | "DATA",70050,16,0)
|
|---|
| 150 | 23411^screenman^index
|
|---|
| 151 | "DATA",70050,16,1,0)
|
|---|
| 152 | ^^10^10^3100301^
|
|---|
| 153 | "DATA",70050,16,1,1,0)
|
|---|
| 154 | <ewd:config isfirstpage="true">
|
|---|
| 155 | "DATA",70050,16,1,2,0)
|
|---|
| 156 | <html>
|
|---|
| 157 | "DATA",70050,16,1,3,0)
|
|---|
| 158 | <header>
|
|---|
| 159 | "DATA",70050,16,1,4,0)
|
|---|
| 160 | <title>Screenman Menu</title>
|
|---|
| 161 | "DATA",70050,16,1,5,0)
|
|---|
| 162 | </header>
|
|---|
| 163 | "DATA",70050,16,1,6,0)
|
|---|
| 164 | <body>
|
|---|
| 165 | "DATA",70050,16,1,7,0)
|
|---|
| 166 | Hello World<br><br>
|
|---|
| 167 | "DATA",70050,16,1,8,0)
|
|---|
| 168 | <a href="test1.ewd">test1 page</a>
|
|---|
| 169 | "DATA",70050,16,1,9,0)
|
|---|
| 170 | </body>
|
|---|
| 171 | "DATA",70050,16,1,10,0)
|
|---|
| 172 | </html>
|
|---|
| 173 | "DATA",70050,17,0)
|
|---|
| 174 | 23412^screenman^test1
|
|---|
| 175 | "DATA",70050,17,1,0)
|
|---|
| 176 | ^^25^25^3100302^
|
|---|
| 177 | "DATA",70050,17,1,1,0)
|
|---|
| 178 | <ewd:config isfirstpage="false" prepagescript="TEST1^C0CROB">
|
|---|
| 179 | "DATA",70050,17,1,2,0)
|
|---|
| 180 | <html>
|
|---|
| 181 | "DATA",70050,17,1,3,0)
|
|---|
| 182 | <head>
|
|---|
| 183 | "DATA",70050,17,1,4,0)
|
|---|
| 184 | <script language="javascript">
|
|---|
| 185 | "DATA",70050,17,1,5,0)
|
|---|
| 186 | function ValidateTitle(value) {
|
|---|
| 187 | "DATA",70050,17,1,6,0)
|
|---|
| 188 | ewd:VALIDATETITLE^C0CROB(value);
|
|---|
| 189 | "DATA",70050,17,1,7,0)
|
|---|
| 190 | }
|
|---|
| 191 | "DATA",70050,17,1,8,0)
|
|---|
| 192 | </script>
|
|---|
| 193 | "DATA",70050,17,1,9,0)
|
|---|
| 194 | <title>Screenman Test</title>
|
|---|
| 195 | "DATA",70050,17,1,10,0)
|
|---|
| 196 | </head>
|
|---|
| 197 | "DATA",70050,17,1,11,0)
|
|---|
| 198 | <body>
|
|---|
| 199 | "DATA",70050,17,1,12,0)
|
|---|
| 200 | <form method="post" action="ewd">
|
|---|
| 201 | "DATA",70050,17,1,13,0)
|
|---|
| 202 | <center>Edit an Existing User</center>
|
|---|
| 203 | "DATA",70050,17,1,14,0)
|
|---|
| 204 | <div id="name">
|
|---|
| 205 | "DATA",70050,17,1,15,0)
|
|---|
| 206 | NAME: <?= #name ?>
|
|---|
| 207 | "DATA",70050,17,1,16,0)
|
|---|
| 208 | </div>
|
|---|
| 209 | "DATA",70050,17,1,17,0)
|
|---|
| 210 | <hr>
|
|---|
| 211 | "DATA",70050,17,1,18,0)
|
|---|
| 212 | TITLE: <input type="text" name="TITLE" value="*"
|
|---|
| 213 | "DATA",70050,17,1,19,0)
|
|---|
| 214 | onchange="ValidateTitle(this.value)" /><br><br>
|
|---|
| 215 | "DATA",70050,17,1,20,0)
|
|---|
| 216 | SSN: <input type="text" name="SSN" value="*" /><br><br>
|
|---|
| 217 | "DATA",70050,17,1,21,0)
|
|---|
| 218 | <input type="submit" name="submit" value="save" action="SAVEFORM^C0CROB"
|
|---|
| 219 | "DATA",70050,17,1,22,0)
|
|---|
| 220 | nextpage="test1" />
|
|---|
| 221 | "DATA",70050,17,1,23,0)
|
|---|
| 222 | </form>
|
|---|
| 223 | "DATA",70050,17,1,24,0)
|
|---|
| 224 | </body>
|
|---|
| 225 | "DATA",70050,17,1,25,0)
|
|---|
| 226 | </html>
|
|---|
| 227 | "FIA",70050)
|
|---|
| 228 | C0EWD ROUTINE MAP
|
|---|
| 229 | "FIA",70050,0)
|
|---|
| 230 | ^C0E(70050,
|
|---|
| 231 | "FIA",70050,0,0)
|
|---|
| 232 | 70050PI
|
|---|
| 233 | "FIA",70050,0,1)
|
|---|
| 234 | y^y^f^^y^^y^o^n
|
|---|
| 235 | "FIA",70050,0,10)
|
|---|
| 236 |
|
|---|
| 237 | "FIA",70050,0,11)
|
|---|
| 238 | I $$GET1^DIQ(70050,Y_",",.02)="screenman"
|
|---|
| 239 | "FIA",70050,0,"RLRO")
|
|---|
| 240 |
|
|---|
| 241 | "FIA",70050,70050)
|
|---|
| 242 | 0
|
|---|
| 243 | "FIA",70050,70050.01)
|
|---|
| 244 | 0
|
|---|
| 245 | "FIA",70050,70050.02)
|
|---|
| 246 | 0
|
|---|
| 247 | "IX",70050,70050,"AZEWD",0)
|
|---|
| 248 | 70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
|
|---|
| 249 | "IX",70050,70050,"AZEWD",1)
|
|---|
| 250 | D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
|
|---|
| 251 | "IX",70050,70050,"AZEWD",2)
|
|---|
| 252 | D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
|
|---|
| 253 | "IX",70050,70050,"AZEWD",11.1,0)
|
|---|
| 254 | ^.114IA^3^3
|
|---|
| 255 | "IX",70050,70050,"AZEWD",11.1,1,0)
|
|---|
| 256 | 1^F^70050^.01^^^F
|
|---|
| 257 | "IX",70050,70050,"AZEWD",11.1,2,0)
|
|---|
| 258 | 2^F^70050^.02^^^F
|
|---|
| 259 | "IX",70050,70050,"AZEWD",11.1,3,0)
|
|---|
| 260 | 3^F^70050^.03^^^F
|
|---|
| 261 | "IX",70050,70050,"C",0)
|
|---|
| 262 | 70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
|
|---|
| 263 | "IX",70050,70050,"C",1)
|
|---|
| 264 | S ^C0E(70050,"C",$E(X,1,60),DA)=""
|
|---|
| 265 | "IX",70050,70050,"C",2)
|
|---|
| 266 | K ^C0E(70050,"C",$E(X,1,60),DA)
|
|---|
| 267 | "IX",70050,70050,"C",2.5)
|
|---|
| 268 | K ^C0E(70050,"C")
|
|---|
| 269 | "IX",70050,70050,"C",11.1,0)
|
|---|
| 270 | ^.114IA^1^1
|
|---|
| 271 | "IX",70050,70050,"C",11.1,1,0)
|
|---|
| 272 | 1^F^70050^.03^60^1^F
|
|---|
| 273 | "IX",70050,70050,"C",11.1,1,3)
|
|---|
| 274 |
|
|---|
| 275 | "IX",70050,70050,"D",0)
|
|---|
| 276 | 70050^D^REGULAR INDEX OF THE APPLICATION INDEX^R^^F^IR^I^70050^^^^^LS
|
|---|
| 277 | "IX",70050,70050,"D",1)
|
|---|
| 278 | S ^C0E(70050,"D",$E(X,1,60),DA)=""
|
|---|
| 279 | "IX",70050,70050,"D",2)
|
|---|
| 280 | K ^C0E(70050,"D",$E(X,1,60),DA)
|
|---|
| 281 | "IX",70050,70050,"D",2.5)
|
|---|
| 282 | K ^C0E(70050,"D")
|
|---|
| 283 | "IX",70050,70050,"D",11.1,0)
|
|---|
| 284 | ^.114IA^1^1
|
|---|
| 285 | "IX",70050,70050,"D",11.1,1,0)
|
|---|
| 286 | 1^F^70050^.02^60^1^F
|
|---|
| 287 | "IX",70050,70050,"D",11.1,1,3)
|
|---|
| 288 |
|
|---|
| 289 | "KRN",.401,1794,-1)
|
|---|
| 290 | 0^1
|
|---|
| 291 | "KRN",.401,1794,0)
|
|---|
| 292 | C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
|
|---|
| 293 | "KRN",.401,1794,2,0)
|
|---|
| 294 | ^.4014^1^1
|
|---|
| 295 | "KRN",.401,1794,2,1,0)
|
|---|
| 296 | 70050^.02^EWD APPLICATION^^^^^^^4
|
|---|
| 297 | "KRN",.401,1794,2,1,"F")
|
|---|
| 298 | screenmamz^screenman
|
|---|
| 299 | "KRN",.401,1794,2,1,"GET")
|
|---|
| 300 | S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
|
|---|
| 301 | "KRN",.401,1794,2,1,"QCON")
|
|---|
| 302 | I DISX(1)="screenman"
|
|---|
| 303 | "KRN",.401,1794,2,1,"T")
|
|---|
| 304 | screenman^screenman
|
|---|
| 305 | "KRN",.401,1794,2,1,"TXT")
|
|---|
| 306 | EWD APPLICATION equals screenman
|
|---|
| 307 | "KRN",.401,1794,2,"B",70050,1)
|
|---|
| 308 |
|
|---|
| 309 | "MBREQ")
|
|---|
| 310 | 0
|
|---|
| 311 | "ORD",6,.401)
|
|---|
| 312 | .401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
|
|---|
| 313 | "ORD",6,.401,0)
|
|---|
| 314 | SORT TEMPLATE
|
|---|
| 315 | "QUES","XPF1",0)
|
|---|
| 316 | Y
|
|---|
| 317 | "QUES","XPF1","??")
|
|---|
| 318 | ^D REP^XPDH
|
|---|
| 319 | "QUES","XPF1","A")
|
|---|
| 320 | Shall I write over your |FLAG| File
|
|---|
| 321 | "QUES","XPF1","B")
|
|---|
| 322 | YES
|
|---|
| 323 | "QUES","XPF1","M")
|
|---|
| 324 | D XPF1^XPDIQ
|
|---|
| 325 | "QUES","XPF2",0)
|
|---|
| 326 | Y
|
|---|
| 327 | "QUES","XPF2","??")
|
|---|
| 328 | ^D DTA^XPDH
|
|---|
| 329 | "QUES","XPF2","A")
|
|---|
| 330 | Want my data |FLAG| yours
|
|---|
| 331 | "QUES","XPF2","B")
|
|---|
| 332 | YES
|
|---|
| 333 | "QUES","XPF2","M")
|
|---|
| 334 | D XPF2^XPDIQ
|
|---|
| 335 | "QUES","XPI1",0)
|
|---|
| 336 | YO
|
|---|
| 337 | "QUES","XPI1","??")
|
|---|
| 338 | ^D INHIBIT^XPDH
|
|---|
| 339 | "QUES","XPI1","A")
|
|---|
| 340 | Want KIDS to INHIBIT LOGONs during the install
|
|---|
| 341 | "QUES","XPI1","B")
|
|---|
| 342 | NO
|
|---|
| 343 | "QUES","XPI1","M")
|
|---|
| 344 | D XPI1^XPDIQ
|
|---|
| 345 | "QUES","XPM1",0)
|
|---|
| 346 | PO^VA(200,:EM
|
|---|
| 347 | "QUES","XPM1","??")
|
|---|
| 348 | ^D MG^XPDH
|
|---|
| 349 | "QUES","XPM1","A")
|
|---|
| 350 | Enter the Coordinator for Mail Group '|FLAG|'
|
|---|
| 351 | "QUES","XPM1","B")
|
|---|
| 352 |
|
|---|
| 353 | "QUES","XPM1","M")
|
|---|
| 354 | D XPM1^XPDIQ
|
|---|
| 355 | "QUES","XPO1",0)
|
|---|
| 356 | Y
|
|---|
| 357 | "QUES","XPO1","??")
|
|---|
| 358 | ^D MENU^XPDH
|
|---|
| 359 | "QUES","XPO1","A")
|
|---|
| 360 | Want KIDS to Rebuild Menu Trees Upon Completion of Install
|
|---|
| 361 | "QUES","XPO1","B")
|
|---|
| 362 | NO
|
|---|
| 363 | "QUES","XPO1","M")
|
|---|
| 364 | D XPO1^XPDIQ
|
|---|
| 365 | "QUES","XPZ1",0)
|
|---|
| 366 | Y
|
|---|
| 367 | "QUES","XPZ1","??")
|
|---|
| 368 | ^D OPT^XPDH
|
|---|
| 369 | "QUES","XPZ1","A")
|
|---|
| 370 | Want to DISABLE Scheduled Options, Menu Options, and Protocols
|
|---|
| 371 | "QUES","XPZ1","B")
|
|---|
| 372 | NO
|
|---|
| 373 | "QUES","XPZ1","M")
|
|---|
| 374 | D XPZ1^XPDIQ
|
|---|
| 375 | "QUES","XPZ2",0)
|
|---|
| 376 | Y
|
|---|
| 377 | "QUES","XPZ2","??")
|
|---|
| 378 | ^D RTN^XPDH
|
|---|
| 379 | "QUES","XPZ2","A")
|
|---|
| 380 | Want to MOVE routines to other CPUs
|
|---|
| 381 | "QUES","XPZ2","B")
|
|---|
| 382 | NO
|
|---|
| 383 | "QUES","XPZ2","M")
|
|---|
| 384 | D XPZ2^XPDIQ
|
|---|
| 385 | "RTN")
|
|---|
| 386 | 8
|
|---|
| 387 | "RTN","C0CEX")
|
|---|
| 388 | 0^2^B811998
|
|---|
| 389 | "RTN","C0CEX",1,0)
|
|---|
| 390 | C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
|
|---|
| 391 | "RTN","C0CEX",2,0)
|
|---|
| 392 | ;;1.0;C0C;;Mar 1, 2010 ;Build 6
|
|---|
| 393 | "RTN","C0CEX",3,0)
|
|---|
| 394 | SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
|
|---|
| 395 | "RTN","C0CEX",4,0)
|
|---|
| 396 | ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
|
|---|
| 397 | "RTN","C0CEX",5,0)
|
|---|
| 398 | N ZR
|
|---|
| 399 | "RTN","C0CEX",6,0)
|
|---|
| 400 | I $G(ZAPP)="" Q ;
|
|---|
| 401 | "RTN","C0CEX",7,0)
|
|---|
| 402 | I $G(ZPAGE)="" Q ;
|
|---|
| 403 | "RTN","C0CEX",8,0)
|
|---|
| 404 | I $G(ZROUTINE)="" Q ;
|
|---|
| 405 | "RTN","C0CEX",9,0)
|
|---|
| 406 | S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
|
|---|
| 407 | "RTN","C0CEX",10,0)
|
|---|
| 408 | S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
|
|---|
| 409 | "RTN","C0CEX",11,0)
|
|---|
| 410 | Q
|
|---|
| 411 | "RTN","C0CEX",12,0)
|
|---|
| 412 | ;
|
|---|
| 413 | "RTN","C0CEX",13,0)
|
|---|
| 414 | KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
|
|---|
| 415 | "RTN","C0CEX",14,0)
|
|---|
| 416 | ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
|
|---|
| 417 | "RTN","C0CEX",15,0)
|
|---|
| 418 | I $G(ZAPP)="" Q ;
|
|---|
| 419 | "RTN","C0CEX",16,0)
|
|---|
| 420 | I $G(ZPAGE)="" Q ;
|
|---|
| 421 | "RTN","C0CEX",17,0)
|
|---|
| 422 | K ^zewd("routineMap",ZAPP,ZPAGE)
|
|---|
| 423 | "RTN","C0CEX",18,0)
|
|---|
| 424 | Q
|
|---|
| 425 | "RTN","C0CROB")
|
|---|
| 426 | 0^1^B1053192
|
|---|
| 427 | "RTN","C0CROB",1,0)
|
|---|
| 428 | ;;C0CROB
|
|---|
| 429 | "RTN","C0CROB",2,0)
|
|---|
| 430 | ;;;;;;Build 6
|
|---|
| 431 | "RTN","C0CROB",3,0)
|
|---|
| 432 | TEST1(sessid) ;
|
|---|
| 433 | "RTN","C0CROB",4,0)
|
|---|
| 434 | D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
|
|---|
| 435 | "RTN","C0CROB",5,0)
|
|---|
| 436 | S TITLE=$G(^C0CROB("TITLE"))
|
|---|
| 437 | "RTN","C0CROB",6,0)
|
|---|
| 438 | I TITLE="" S TITLE="Scholar Extraordinaire"
|
|---|
| 439 | "RTN","C0CROB",7,0)
|
|---|
| 440 | D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
|
|---|
| 441 | "RTN","C0CROB",8,0)
|
|---|
| 442 | Q ""
|
|---|
| 443 | "RTN","C0CROB",9,0)
|
|---|
| 444 | SAVEFORM(sessid) ;
|
|---|
| 445 | "RTN","C0CROB",10,0)
|
|---|
| 446 | S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
|
|---|
| 447 | "RTN","C0CROB",11,0)
|
|---|
| 448 | I TITLE="" Q "You must enter a title"
|
|---|
| 449 | "RTN","C0CROB",12,0)
|
|---|
| 450 | S ^C0CROB("TITLE")=TITLE
|
|---|
| 451 | "RTN","C0CROB",13,0)
|
|---|
| 452 | Q ""
|
|---|
| 453 | "RTN","C0CROB",14,0)
|
|---|
| 454 | VALIDATETITLE(value) ;
|
|---|
| 455 | "RTN","C0CROB",15,0)
|
|---|
| 456 | I value="" Q "alert('you must enter a title');"
|
|---|
| 457 | "RTN","C0CROB",16,0)
|
|---|
| 458 | Q ""
|
|---|
| 459 | "RTN","C0CROB",17,0)
|
|---|
| 460 | ;
|
|---|
| 461 | "RTN","C0E0000A")
|
|---|
| 462 | 0^3^B15300816
|
|---|
| 463 | "RTN","C0E0000A",1,0)
|
|---|
| 464 | C0E0000A ; C0E EWD generated code; 3/1/10
|
|---|
| 465 | "RTN","C0E0000A",2,0)
|
|---|
| 466 | ;;1.0;C0E;;Mar 1, 2010 ;Build 6
|
|---|
| 467 | "RTN","C0E0000A",3,0)
|
|---|
| 468 | ;GT.M version of page ewdAjaxError (screenman application)
|
|---|
| 469 | "RTN","C0E0000A",4,0)
|
|---|
| 470 | ;Compiled on Sun, 28 Feb 2010 19:55:22
|
|---|
| 471 | "RTN","C0E0000A",5,0)
|
|---|
| 472 | ;using Enterprise Web Developer (Build 790)
|
|---|
| 473 | "RTN","C0E0000A",6,0)
|
|---|
| 474 | QUIT
|
|---|
| 475 | "RTN","C0E0000A",7,0)
|
|---|
| 476 | ;
|
|---|
| 477 | "RTN","C0E0000A",8,0)
|
|---|
| 478 | run ;
|
|---|
| 479 | "RTN","C0E0000A",9,0)
|
|---|
| 480 | n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
|
|---|
| 481 | "RTN","C0E0000A",10,0)
|
|---|
| 482 | s ok=$$pre()
|
|---|
| 483 | "RTN","C0E0000A",11,0)
|
|---|
| 484 | i ok d body
|
|---|
| 485 | "RTN","C0E0000A",12,0)
|
|---|
| 486 | QUIT
|
|---|
| 487 | "RTN","C0E0000A",13,0)
|
|---|
| 488 | ;
|
|---|
| 489 | "RTN","C0E0000A",14,0)
|
|---|
| 490 | pre() ;
|
|---|
| 491 | "RTN","C0E0000A",15,0)
|
|---|
| 492 | ;
|
|---|
| 493 | "RTN","C0E0000A",16,0)
|
|---|
| 494 | n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
|
|---|
| 495 | "RTN","C0E0000A",17,0)
|
|---|
| 496 | ;
|
|---|
| 497 | "RTN","C0E0000A",18,0)
|
|---|
| 498 | s confirmText="Click OK if you're sure you want to delete this record"
|
|---|
| 499 | "RTN","C0E0000A",19,0)
|
|---|
| 500 | s sessionArray("ewd_isFirstPage")="1"
|
|---|
| 501 | "RTN","C0E0000A",20,0)
|
|---|
| 502 | s sessionArray("ewd_sessid_timeout")="1200"
|
|---|
| 503 | "RTN","C0E0000A",21,0)
|
|---|
| 504 | s sessionArray("ewd_prePageScript")=""
|
|---|
| 505 | "RTN","C0E0000A",22,0)
|
|---|
| 506 | s sessionArray("ewd_default_timeout")="1200"
|
|---|
| 507 | "RTN","C0E0000A",23,0)
|
|---|
| 508 | s sessionArray("ewd_persistRequest")="true"
|
|---|
| 509 | "RTN","C0E0000A",24,0)
|
|---|
| 510 | s sessionArray("ewd_pageTitle")=""
|
|---|
| 511 | "RTN","C0E0000A",25,0)
|
|---|
| 512 | s sessionArray("ewd_errorPage")="ewdError"
|
|---|
| 513 | "RTN","C0E0000A",26,0)
|
|---|
| 514 | s sessionArray("ewd_templatePrePageScript")=""
|
|---|
| 515 | "RTN","C0E0000A",27,0)
|
|---|
| 516 | s sessionArray("ewd_onErrorScript")=""
|
|---|
| 517 | "RTN","C0E0000A",28,0)
|
|---|
| 518 | s sessionArray("ewd_appName")="screenman"
|
|---|
| 519 | "RTN","C0E0000A",29,0)
|
|---|
| 520 | s sessionArray("ewd_pageName")="ewdAjaxError"
|
|---|
| 521 | "RTN","C0E0000A",30,0)
|
|---|
| 522 | s sessionArray("ewd_translationMode")="0"
|
|---|
| 523 | "RTN","C0E0000A",31,0)
|
|---|
| 524 | s sessionArray("ewd_technology")="gtm"
|
|---|
| 525 | "RTN","C0E0000A",32,0)
|
|---|
| 526 | s sessionArray("ewd_pageType")=""
|
|---|
| 527 | "RTN","C0E0000A",33,0)
|
|---|
| 528 | s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
|
|---|
| 529 | "RTN","C0E0000A",34,0)
|
|---|
| 530 | s sessid=$g(sessionArray("ewd_sessid"))
|
|---|
| 531 | "RTN","C0E0000A",35,0)
|
|---|
| 532 | i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
|
|---|
| 533 | "RTN","C0E0000A",36,0)
|
|---|
| 534 | . s Error=$p(Error,":",2,200)
|
|---|
| 535 | "RTN","C0E0000A",37,0)
|
|---|
| 536 | . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
|
|---|
| 537 | "RTN","C0E0000A",38,0)
|
|---|
| 538 | . s Error="EWD runtime error: "_Error
|
|---|
| 539 | "RTN","C0E0000A",39,0)
|
|---|
| 540 | i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
|
|---|
| 541 | "RTN","C0E0000A",40,0)
|
|---|
| 542 | . n errorPage
|
|---|
| 543 | "RTN","C0E0000A",41,0)
|
|---|
| 544 | . s errorPage=$g(sessionArray("ewd_errorPage"))
|
|---|
| 545 | "RTN","C0E0000A",42,0)
|
|---|
| 546 | . i errorPage="" s errorPage="ewdError"
|
|---|
| 547 | "RTN","C0E0000A",43,0)
|
|---|
| 548 | . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
|
|---|
| 549 | "RTN","C0E0000A",44,0)
|
|---|
| 550 | . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
|
|---|
| 551 | "RTN","C0E0000A",45,0)
|
|---|
| 552 | s stop=0
|
|---|
| 553 | "RTN","C0E0000A",46,0)
|
|---|
| 554 | i Error="" d i stop QUIT 0
|
|---|
| 555 | "RTN","C0E0000A",47,0)
|
|---|
| 556 | . n nextpage
|
|---|
| 557 | "RTN","C0E0000A",48,0)
|
|---|
| 558 | . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
|
|---|
| 559 | "RTN","C0E0000A",49,0)
|
|---|
| 560 | . i nextpage'="" d
|
|---|
| 561 | "RTN","C0E0000A",50,0)
|
|---|
| 562 | . . n x
|
|---|
| 563 | "RTN","C0E0000A",51,0)
|
|---|
| 564 | . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
|
|---|
| 565 | "RTN","C0E0000A",52,0)
|
|---|
| 566 | . . s stop=1
|
|---|
| 567 | "RTN","C0E0000A",53,0)
|
|---|
| 568 | i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
|
|---|
| 569 | "RTN","C0E0000A",54,0)
|
|---|
| 570 | . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
|
|---|
| 571 | "RTN","C0E0000A",55,0)
|
|---|
| 572 | . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
|
|---|
| 573 | "RTN","C0E0000A",56,0)
|
|---|
| 574 | w "HTTP/1.1 200 OK"_$c(13,10)
|
|---|
| 575 | "RTN","C0E0000A",57,0)
|
|---|
| 576 | s ctype="text/html"
|
|---|
| 577 | "RTN","C0E0000A",58,0)
|
|---|
| 578 | d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
|
|---|
| 579 | "RTN","C0E0000A",59,0)
|
|---|
| 580 | i $d(headers) d
|
|---|
| 581 | "RTN","C0E0000A",60,0)
|
|---|
| 582 | . n lcname,name
|
|---|
| 583 | "RTN","C0E0000A",61,0)
|
|---|
| 584 | . s name=""
|
|---|
| 585 | "RTN","C0E0000A",62,0)
|
|---|
| 586 | . f s name=$o(headers(name)) q:name="" d
|
|---|
| 587 | "RTN","C0E0000A",63,0)
|
|---|
| 588 | . . s lcname=$$zcvt^%zewdAPI(name,"l")
|
|---|
| 589 | "RTN","C0E0000A",64,0)
|
|---|
| 590 | . . i lcname="content-type" s ctype=headers(name) q
|
|---|
| 591 | "RTN","C0E0000A",65,0)
|
|---|
| 592 | . . w name_": "_headers(name)_$c(13,10)
|
|---|
| 593 | "RTN","C0E0000A",66,0)
|
|---|
| 594 | w "Content-type: "_ctype_$c(13,10)
|
|---|
| 595 | "RTN","C0E0000A",67,0)
|
|---|
| 596 | w $c(13,10)
|
|---|
| 597 | "RTN","C0E0000A",68,0)
|
|---|
| 598 | QUIT 1
|
|---|
| 599 | "RTN","C0E0000A",69,0)
|
|---|
| 600 | ;
|
|---|
| 601 | "RTN","C0E0000A",70,0)
|
|---|
| 602 | body ;
|
|---|
| 603 | "RTN","C0E0000A",71,0)
|
|---|
| 604 | w "<ewdajaxerror>"_$c(13,10)
|
|---|
| 605 | "RTN","C0E0000A",72,0)
|
|---|
| 606 | w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
|
|---|
| 607 | "RTN","C0E0000A",73,0)
|
|---|
| 608 | w "</ewdajaxerror>"_$c(13,10)
|
|---|
| 609 | "RTN","C0E0000A",74,0)
|
|---|
| 610 | QUIT
|
|---|
| 611 | "RTN","C0E0000E")
|
|---|
| 612 | 0^5^B28122696
|
|---|
| 613 | "RTN","C0E0000E",1,0)
|
|---|
| 614 | C0E0000E ; C0E EWD generated code; 3/1/10
|
|---|
| 615 | "RTN","C0E0000E",2,0)
|
|---|
| 616 | ;;1.0;C0E;;Mar 1, 2010 ;Build 6
|
|---|
| 617 | "RTN","C0E0000E",3,0)
|
|---|
| 618 | ;GT.M version of page ewdError (screenman application)
|
|---|
| 619 | "RTN","C0E0000E",4,0)
|
|---|
| 620 | ;Compiled on Sun, 28 Feb 2010 19:55:23
|
|---|
| 621 | "RTN","C0E0000E",5,0)
|
|---|
| 622 | ;using Enterprise Web Developer (Build 790)
|
|---|
| 623 | "RTN","C0E0000E",6,0)
|
|---|
| 624 | QUIT
|
|---|
| 625 | "RTN","C0E0000E",7,0)
|
|---|
| 626 | ;
|
|---|
| 627 | "RTN","C0E0000E",8,0)
|
|---|
| 628 | run ;
|
|---|
| 629 | "RTN","C0E0000E",9,0)
|
|---|
| 630 | n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
|
|---|
| 631 | "RTN","C0E0000E",10,0)
|
|---|
| 632 | s ok=$$pre()
|
|---|
| 633 | "RTN","C0E0000E",11,0)
|
|---|
| 634 | i ok d body
|
|---|
| 635 | "RTN","C0E0000E",12,0)
|
|---|
| 636 | QUIT
|
|---|
| 637 | "RTN","C0E0000E",13,0)
|
|---|
| 638 | ;
|
|---|
| 639 | "RTN","C0E0000E",14,0)
|
|---|
| 640 | pre() ;
|
|---|
| 641 | "RTN","C0E0000E",15,0)
|
|---|
| 642 | ;
|
|---|
| 643 | "RTN","C0E0000E",16,0)
|
|---|
| 644 | n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
|
|---|
| 645 | "RTN","C0E0000E",17,0)
|
|---|
| 646 | ;
|
|---|
| 647 | "RTN","C0E0000E",18,0)
|
|---|
| 648 | w "HTTP/1.1 200 OK"_$c(13,10)
|
|---|
| 649 | "RTN","C0E0000E",19,0)
|
|---|
| 650 | w "Content-type: text/html"_$c(13,10,13,10)
|
|---|
| 651 | "RTN","C0E0000E",20,0)
|
|---|
| 652 | QUIT 1
|
|---|
| 653 | "RTN","C0E0000E",21,0)
|
|---|
| 654 | ;
|
|---|
| 655 | "RTN","C0E0000E",22,0)
|
|---|
| 656 | body ;
|
|---|
| 657 | "RTN","C0E0000E",23,0)
|
|---|
| 658 | w ""_$c(13,10)
|
|---|
| 659 | "RTN","C0E0000E",24,0)
|
|---|
| 660 | w "<html>"_$c(13,10)
|
|---|
| 661 | "RTN","C0E0000E",25,0)
|
|---|
| 662 | w "<head>"_$c(13,10)
|
|---|
| 663 | "RTN","C0E0000E",26,0)
|
|---|
| 664 | w "<title>Enterprise Web Developer : A run-time error has occurred</title>"_$c(13,10)
|
|---|
| 665 | "RTN","C0E0000E",27,0)
|
|---|
| 666 | w "<style type=""text/css"">"_$c(13,10)
|
|---|
| 667 | "RTN","C0E0000E",28,0)
|
|---|
| 668 | w " body {background: #ffffff ;}"_$c(13,10)
|
|---|
| 669 | "RTN","C0E0000E",29,0)
|
|---|
| 670 | w " .headerBlock {width: 100% ; background : #111111 ; horizontal-align : center ; }"_$c(13,10)
|
|---|
| 671 | "RTN","C0E0000E",30,0)
|
|---|
| 672 | w " .headerBlock[class] {width: 100% ; background : #111111 ; horizontal-align : center ; position: relative ; top : 30px ; border-right-style : solid ; border-right-width: 2px ; }"_$c(13,10)
|
|---|
| 673 | "RTN","C0E0000E",31,0)
|
|---|
| 674 | w " #headerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; margin-left: 10px}"_$c(13,10)
|
|---|
| 675 | "RTN","C0E0000E",32,0)
|
|---|
| 676 | w " #headerSubject {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; position: relative ; top: -30px ; text-align: center ;}"_$c(13,10)
|
|---|
| 677 | "RTN","C0E0000E",33,0)
|
|---|
| 678 | w " .selectedTab {border-style: outset ; background: #eeeedd ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
|
|---|
| 679 | "RTN","C0E0000E",34,0)
|
|---|
| 680 | w " .unselectedTab {border-style: groove ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
|
|---|
| 681 | "RTN","C0E0000E",35,0)
|
|---|
| 682 | w " #tabs {cursor : pointer ; height: 20px ; background : #cccccc ; text-align: center ; position: relative ; left: 25px ; font-family : Arial, Helvetica, sens-serif ; font-size: 11pt}"_$c(13,10)
|
|---|
| 683 | "RTN","C0E0000E",36,0)
|
|---|
| 684 | w " #mainArea {background : #dfe2f1 ; padding: 0 ; horizontal-align: center ; width : 100% ; height: auto ; border-style: solid ; border-left-width: 1px ; border-right-width: 1px ; padding-top : 0px ; margin-top : 0px}"_$c(13,10)
|
|---|
| 685 | "RTN","C0E0000E",37,0)
|
|---|
| 686 | w " #workArea {background : #ffffff ; horizontal-align: center ; position: relative ; top: -6px ; left: 25px ; width : 95% ; height: auto ; font-family : Arial, Helvetica, sens-serif ; font-size: 12pt ; border-style: outset}"_$c(13,10)
|
|---|
| 687 | "RTN","C0E0000E",38,0)
|
|---|
| 688 | w " #pageTitle {width: 100% ; height: 50px ; text-align : center ; horizontal-align : center ; font-family: Arial, sans-serif ;}"_$c(13,10)
|
|---|
| 689 | "RTN","C0E0000E",39,0)
|
|---|
| 690 | w " .footerBlock {width: 100% ; background : #111111 ; horizontal-align : center ;}"_$c(13,10)
|
|---|
| 691 | "RTN","C0E0000E",40,0)
|
|---|
| 692 | w " .footerBlock[class] {width: 100% ; background : #111111 ; horizontal-align : center ; position: relative ; top : -15px ; border-right-style : solid ; border-right-width: 2px ; }"_$c(13,10)
|
|---|
| 693 | "RTN","C0E0000E",41,0)
|
|---|
| 694 | w " #footerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 8pt ; margin-left : 10px}"_$c(13,10)
|
|---|
| 695 | "RTN","C0E0000E",42,0)
|
|---|
| 696 | w " #tableblock {text-align: center ; margin-top: 40px}"_$c(13,10)
|
|---|
| 697 | "RTN","C0E0000E",43,0)
|
|---|
| 698 | w " #hiddenForm {visibility: hidden ;}"_$c(13,10)
|
|---|
| 699 | "RTN","C0E0000E",44,0)
|
|---|
| 700 | w "</style>"_$c(13,10)
|
|---|
| 701 | "RTN","C0E0000E",45,0)
|
|---|
| 702 | w "</head>"_$c(13,10)
|
|---|
| 703 | "RTN","C0E0000E",46,0)
|
|---|
| 704 | w "<body>"_$c(13,10)
|
|---|
| 705 | "RTN","C0E0000E",47,0)
|
|---|
| 706 | w ""_$c(13,10)
|
|---|
| 707 | "RTN","C0E0000E",48,0)
|
|---|
| 708 | w " <div id=""mainArea"">"_$c(13,10)
|
|---|
| 709 | "RTN","C0E0000E",49,0)
|
|---|
| 710 | w " <div id=""pageTitle"">"_$c(13,10)
|
|---|
| 711 | "RTN","C0E0000E",50,0)
|
|---|
| 712 | w " <h1>Enterprise Web Developer (Build 790)</h1>"_$c(13,10)
|
|---|
| 713 | "RTN","C0E0000E",51,0)
|
|---|
| 714 | w " </div>"_$c(13,10)
|
|---|
| 715 | "RTN","C0E0000E",52,0)
|
|---|
| 716 | w ""_$c(13,10)
|
|---|
| 717 | "RTN","C0E0000E",53,0)
|
|---|
| 718 | w " <div id=""workArea"">"_$c(13,10)
|
|---|
| 719 | "RTN","C0E0000E",54,0)
|
|---|
| 720 | w " <div id=""tableblock"">"_$c(13,10)
|
|---|
| 721 | "RTN","C0E0000E",55,0)
|
|---|
| 722 | w " <h3>An Error has occurred</h3>"_$c(13,10)
|
|---|
| 723 | "RTN","C0E0000E",56,0)
|
|---|
| 724 | w " <br>"_$c(13,10)
|
|---|
| 725 | "RTN","C0E0000E",57,0)
|
|---|
| 726 | w " <h3>"_$g(%KEY("error"))_"</h3>"_$c(13,10)
|
|---|
| 727 | "RTN","C0E0000E",58,0)
|
|---|
| 728 | w " </div>"_$c(13,10)
|
|---|
| 729 | "RTN","C0E0000E",59,0)
|
|---|
| 730 | w " </div>"_$c(13,10)
|
|---|
| 731 | "RTN","C0E0000E",60,0)
|
|---|
| 732 | w " </div>"_$c(13,10)
|
|---|
| 733 | "RTN","C0E0000E",61,0)
|
|---|
| 734 | w ""_$c(13,10)
|
|---|
| 735 | "RTN","C0E0000E",62,0)
|
|---|
| 736 | w " <div class=footerBlock>"_$c(13,10)
|
|---|
| 737 | "RTN","C0E0000E",63,0)
|
|---|
| 738 | w " <p id=""footerText""> © 2004-2009 M/Gateway Developments Ltd All Rights Reserved</p>"_$c(13,10)
|
|---|
| 739 | "RTN","C0E0000E",64,0)
|
|---|
| 740 | w " </div>"_$c(13,10)
|
|---|
| 741 | "RTN","C0E0000E",65,0)
|
|---|
| 742 | w "</body>"_$c(13,10)
|
|---|
| 743 | "RTN","C0E0000E",66,0)
|
|---|
| 744 | w "</html>"_$c(13,10)
|
|---|
| 745 | "RTN","C0E0000E",67,0)
|
|---|
| 746 | QUIT
|
|---|
| 747 | "RTN","C0E0000F")
|
|---|
| 748 | 0^4^B33308637
|
|---|
| 749 | "RTN","C0E0000F",1,0)
|
|---|
| 750 | C0E0000F ; C0E EWD generated code; 3/1/10
|
|---|
| 751 | "RTN","C0E0000F",2,0)
|
|---|
| 752 | ;;1.0;C0E;;Mar 1, 2010 ;Build 6
|
|---|
| 753 | "RTN","C0E0000F",3,0)
|
|---|
| 754 | ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
|
|---|
| 755 | "RTN","C0E0000F",4,0)
|
|---|
| 756 | ;Compiled on Sun, 28 Feb 2010 19:55:22
|
|---|
| 757 | "RTN","C0E0000F",5,0)
|
|---|
| 758 | ;using Enterprise Web Developer (Build 790)
|
|---|
| 759 | "RTN","C0E0000F",6,0)
|
|---|
| 760 | QUIT
|
|---|
| 761 | "RTN","C0E0000F",7,0)
|
|---|
| 762 | ;
|
|---|
| 763 | "RTN","C0E0000F",8,0)
|
|---|
| 764 | run ;
|
|---|
| 765 | "RTN","C0E0000F",9,0)
|
|---|
| 766 | n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
|
|---|
| 767 | "RTN","C0E0000F",10,0)
|
|---|
| 768 | s ok=$$pre()
|
|---|
| 769 | "RTN","C0E0000F",11,0)
|
|---|
| 770 | i ok d body
|
|---|
| 771 | "RTN","C0E0000F",12,0)
|
|---|
| 772 | QUIT
|
|---|
| 773 | "RTN","C0E0000F",13,0)
|
|---|
| 774 | ;
|
|---|
| 775 | "RTN","C0E0000F",14,0)
|
|---|
| 776 | pre() ;
|
|---|
| 777 | "RTN","C0E0000F",15,0)
|
|---|
| 778 | ;
|
|---|
| 779 | "RTN","C0E0000F",16,0)
|
|---|
| 780 | n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
|
|---|
| 781 | "RTN","C0E0000F",17,0)
|
|---|
| 782 | ;
|
|---|
| 783 | "RTN","C0E0000F",18,0)
|
|---|
| 784 | s confirmText="Click OK if you're sure you want to delete this record"
|
|---|
| 785 | "RTN","C0E0000F",19,0)
|
|---|
| 786 | s sessionArray("ewd_isFirstPage")="0"
|
|---|
| 787 | "RTN","C0E0000F",20,0)
|
|---|
| 788 | s sessionArray("ewd_sessid_timeout")="1200"
|
|---|
| 789 | "RTN","C0E0000F",21,0)
|
|---|
| 790 | s sessionArray("ewd_prePageScript")=""
|
|---|
| 791 | "RTN","C0E0000F",22,0)
|
|---|
| 792 | s sessionArray("ewd_default_timeout")="1200"
|
|---|
| 793 | "RTN","C0E0000F",23,0)
|
|---|
| 794 | s sessionArray("ewd_persistRequest")="true"
|
|---|
| 795 | "RTN","C0E0000F",24,0)
|
|---|
| 796 | s sessionArray("ewd_pageTitle")=""
|
|---|
| 797 | "RTN","C0E0000F",25,0)
|
|---|
| 798 | s sessionArray("ewd_errorPage")="ewdError"
|
|---|
| 799 | "RTN","C0E0000F",26,0)
|
|---|
| 800 | s sessionArray("ewd_templatePrePageScript")=""
|
|---|
| 801 | "RTN","C0E0000F",27,0)
|
|---|
| 802 | s sessionArray("ewd_onErrorScript")=""
|
|---|
| 803 | "RTN","C0E0000F",28,0)
|
|---|
| 804 | s sessionArray("ewd_appName")="screenman"
|
|---|
| 805 | "RTN","C0E0000F",29,0)
|
|---|
| 806 | s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
|
|---|
| 807 | "RTN","C0E0000F",30,0)
|
|---|
| 808 | s sessionArray("ewd_translationMode")="0"
|
|---|
| 809 | "RTN","C0E0000F",31,0)
|
|---|
| 810 | s sessionArray("ewd_technology")="gtm"
|
|---|
| 811 | "RTN","C0E0000F",32,0)
|
|---|
| 812 | s sessionArray("ewd_pageType")="ajax"
|
|---|
| 813 | "RTN","C0E0000F",33,0)
|
|---|
| 814 | s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
|
|---|
| 815 | "RTN","C0E0000F",34,0)
|
|---|
| 816 | s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
|
|---|
| 817 | "RTN","C0E0000F",35,0)
|
|---|
| 818 | s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
|
|---|
| 819 | "RTN","C0E0000F",36,0)
|
|---|
| 820 | s sessid=$g(sessionArray("ewd_sessid"))
|
|---|
| 821 | "RTN","C0E0000F",37,0)
|
|---|
| 822 | i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
|
|---|
| 823 | "RTN","C0E0000F",38,0)
|
|---|
| 824 | . s Error=$p(Error,":",2,200)
|
|---|
| 825 | "RTN","C0E0000F",39,0)
|
|---|
| 826 | . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
|
|---|
| 827 | "RTN","C0E0000F",40,0)
|
|---|
| 828 | . s Error="EWD runtime error: "_Error
|
|---|
| 829 | "RTN","C0E0000F",41,0)
|
|---|
| 830 | i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
|
|---|
| 831 | "RTN","C0E0000F",42,0)
|
|---|
| 832 | . n errorPage
|
|---|
| 833 | "RTN","C0E0000F",43,0)
|
|---|
| 834 | . s errorPage=$g(sessionArray("ewd_errorPage"))
|
|---|
| 835 | "RTN","C0E0000F",44,0)
|
|---|
| 836 | . i errorPage="" s errorPage="ewdError"
|
|---|
| 837 | "RTN","C0E0000F",45,0)
|
|---|
| 838 | . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
|
|---|
| 839 | "RTN","C0E0000F",46,0)
|
|---|
| 840 | . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
|
|---|
| 841 | "RTN","C0E0000F",47,0)
|
|---|
| 842 | s stop=0
|
|---|
| 843 | "RTN","C0E0000F",48,0)
|
|---|
| 844 | i Error="" d i stop QUIT 0
|
|---|
| 845 | "RTN","C0E0000F",49,0)
|
|---|
| 846 | . n nextpage
|
|---|
| 847 | "RTN","C0E0000F",50,0)
|
|---|
| 848 | . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
|
|---|
| 849 | "RTN","C0E0000F",51,0)
|
|---|
| 850 | . i nextpage'="" d
|
|---|
| 851 | "RTN","C0E0000F",52,0)
|
|---|
| 852 | . . n x
|
|---|
| 853 | "RTN","C0E0000F",53,0)
|
|---|
| 854 | . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
|
|---|
| 855 | "RTN","C0E0000F",54,0)
|
|---|
| 856 | . . s stop=1
|
|---|
| 857 | "RTN","C0E0000F",55,0)
|
|---|
| 858 | i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
|
|---|
| 859 | "RTN","C0E0000F",56,0)
|
|---|
| 860 | . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
|
|---|
| 861 | "RTN","C0E0000F",57,0)
|
|---|
| 862 | . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
|
|---|
| 863 | "RTN","C0E0000F",58,0)
|
|---|
| 864 | w "HTTP/1.1 200 OK"_$c(13,10)
|
|---|
| 865 | "RTN","C0E0000F",59,0)
|
|---|
| 866 | s ctype="text/html"
|
|---|
| 867 | "RTN","C0E0000F",60,0)
|
|---|
| 868 | d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
|
|---|
| 869 | "RTN","C0E0000F",61,0)
|
|---|
| 870 | i $d(headers) d
|
|---|
| 871 | "RTN","C0E0000F",62,0)
|
|---|
| 872 | . n lcname,name
|
|---|
| 873 | "RTN","C0E0000F",63,0)
|
|---|
| 874 | . s name=""
|
|---|
| 875 | "RTN","C0E0000F",64,0)
|
|---|
| 876 | . f s name=$o(headers(name)) q:name="" d
|
|---|
| 877 | "RTN","C0E0000F",65,0)
|
|---|
| 878 | . . s lcname=$$zcvt^%zewdAPI(name,"l")
|
|---|
| 879 | "RTN","C0E0000F",66,0)
|
|---|
| 880 | . . i lcname="content-type" s ctype=headers(name) q
|
|---|
| 881 | "RTN","C0E0000F",67,0)
|
|---|
| 882 | . . w name_": "_headers(name)_$c(13,10)
|
|---|
| 883 | "RTN","C0E0000F",68,0)
|
|---|
| 884 | w "Content-type: "_ctype_$c(13,10)
|
|---|
| 885 | "RTN","C0E0000F",69,0)
|
|---|
| 886 | w $c(13,10)
|
|---|
| 887 | "RTN","C0E0000F",70,0)
|
|---|
| 888 | QUIT 1
|
|---|
| 889 | "RTN","C0E0000F",71,0)
|
|---|
| 890 | ;
|
|---|
| 891 | "RTN","C0E0000F",72,0)
|
|---|
| 892 | body ;
|
|---|
| 893 | "RTN","C0E0000F",73,0)
|
|---|
| 894 | if ($g(Error)="") d
|
|---|
| 895 | "RTN","C0E0000F",74,0)
|
|---|
| 896 | .w " <span>"_$c(13,10)
|
|---|
| 897 | "RTN","C0E0000F",75,0)
|
|---|
| 898 | .w " <div href='/ewd/screenman/ewdErrorRedirect.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ewdErrorRedirect")_"&ewd_urlNo=ewdAjaxErrorRedirect1' id=""zewdRef"">"_$c(13,10)
|
|---|
| 899 | "RTN","C0E0000F",76,0)
|
|---|
| 900 | .w "</div>"_$c(13,10)
|
|---|
| 901 | "RTN","C0E0000F",77,0)
|
|---|
| 902 | .w " </span>"_$c(13,10)
|
|---|
| 903 | "RTN","C0E0000F",78,0)
|
|---|
| 904 | .
|
|---|
| 905 | "RTN","C0E0000F",79,0)
|
|---|
| 906 | w "<span id=""ewdajaxonload"">"_$c(13,10)
|
|---|
| 907 | "RTN","C0E0000F",80,0)
|
|---|
| 908 | w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
|
|---|
| 909 | "RTN","C0E0000F",81,0)
|
|---|
| 910 | s id=""
|
|---|
| 911 | "RTN","C0E0000F",82,0)
|
|---|
| 912 | f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
|
|---|
| 913 | "RTN","C0E0000F",83,0)
|
|---|
| 914 | . w "idPointer = document.getElementById('"_id_"') ; "
|
|---|
| 915 | "RTN","C0E0000F",84,0)
|
|---|
| 916 | . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
|
|---|
| 917 | "RTN","C0E0000F",85,0)
|
|---|
| 918 | s id=""
|
|---|
| 919 | "RTN","C0E0000F",86,0)
|
|---|
| 920 | f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
|
|---|
| 921 | "RTN","C0E0000F",87,0)
|
|---|
| 922 | . w "idPointer = document.getElementById('"_id_"') ; "
|
|---|
| 923 | "RTN","C0E0000F",88,0)
|
|---|
| 924 | . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
|
|---|
| 925 | "RTN","C0E0000F",89,0)
|
|---|
| 926 | k ^%zewdSession("session","ewd_hasErrors")
|
|---|
| 927 | "RTN","C0E0000F",90,0)
|
|---|
| 928 | k ^%zewdSession("session","ewd_errorFields")
|
|---|
| 929 | "RTN","C0E0000F",91,0)
|
|---|
| 930 | k ^%zewdSession("session","ewd_idList")
|
|---|
| 931 | "RTN","C0E0000F",92,0)
|
|---|
| 932 | w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
|
|---|
| 933 | "RTN","C0E0000F",93,0)
|
|---|
| 934 | w "</span>"_$c(13,10)
|
|---|
| 935 | "RTN","C0E0000F",94,0)
|
|---|
| 936 | QUIT
|
|---|
| 937 | "RTN","C0E0000R")
|
|---|
| 938 | 0^6^B67797780
|
|---|
| 939 | "RTN","C0E0000R",1,0)
|
|---|
| 940 | C0E0000R ; C0E EWD generated code; 3/1/10
|
|---|
| 941 | "RTN","C0E0000R",2,0)
|
|---|
| 942 | ;;1.0;C0E;;Mar 1, 2010 ;Build 6
|
|---|
| 943 | "RTN","C0E0000R",3,0)
|
|---|
| 944 | ;GT.M version of page ewdErrorRedirect (screenman application)
|
|---|
| 945 | "RTN","C0E0000R",4,0)
|
|---|
| 946 | ;Compiled on Sun, 28 Feb 2010 19:55:22
|
|---|
| 947 | "RTN","C0E0000R",5,0)
|
|---|
| 948 | ;using Enterprise Web Developer (Build 790)
|
|---|
| 949 | "RTN","C0E0000R",6,0)
|
|---|
| 950 | QUIT
|
|---|
| 951 | "RTN","C0E0000R",7,0)
|
|---|
| 952 | ;
|
|---|
| 953 | "RTN","C0E0000R",8,0)
|
|---|
| 954 | run ;
|
|---|
| 955 | "RTN","C0E0000R",9,0)
|
|---|
| 956 | n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
|
|---|
| 957 | "RTN","C0E0000R",10,0)
|
|---|
| 958 | s ok=$$pre()
|
|---|
| 959 | "RTN","C0E0000R",11,0)
|
|---|
| 960 | i ok d body
|
|---|
| 961 | "RTN","C0E0000R",12,0)
|
|---|
| 962 | QUIT
|
|---|
| 963 | "RTN","C0E0000R",13,0)
|
|---|
| 964 | ;
|
|---|
| 965 | "RTN","C0E0000R",14,0)
|
|---|
| 966 | pre() ;
|
|---|
| 967 | "RTN","C0E0000R",15,0)
|
|---|
| 968 | ;
|
|---|
| 969 | "RTN","C0E0000R",16,0)
|
|---|
| 970 | n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
|
|---|
| 971 | "RTN","C0E0000R",17,0)
|
|---|
| 972 | ;
|
|---|
| 973 | "RTN","C0E0000R",18,0)
|
|---|
| 974 | s confirmText="Click OK if you're sure you want to delete this record"
|
|---|
| 975 | "RTN","C0E0000R",19,0)
|
|---|
| 976 | s sessionArray("ewd_isFirstPage")="0"
|
|---|
| 977 | "RTN","C0E0000R",20,0)
|
|---|
| 978 | s sessionArray("ewd_sessid_timeout")="1200"
|
|---|
| 979 | "RTN","C0E0000R",21,0)
|
|---|
| 980 | s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
|
|---|
| 981 | "RTN","C0E0000R",22,0)
|
|---|
| 982 | s sessionArray("ewd_default_timeout")="1200"
|
|---|
| 983 | "RTN","C0E0000R",23,0)
|
|---|
| 984 | s sessionArray("ewd_persistRequest")="true"
|
|---|
| 985 | "RTN","C0E0000R",24,0)
|
|---|
| 986 | s sessionArray("ewd_pageTitle")=""
|
|---|
| 987 | "RTN","C0E0000R",25,0)
|
|---|
| 988 | s sessionArray("ewd_errorPage")="ewdError"
|
|---|
| 989 | "RTN","C0E0000R",26,0)
|
|---|
| 990 | s sessionArray("ewd_templatePrePageScript")=""
|
|---|
| 991 | "RTN","C0E0000R",27,0)
|
|---|
| 992 | s sessionArray("ewd_onErrorScript")=""
|
|---|
| 993 | "RTN","C0E0000R",28,0)
|
|---|
| 994 | s sessionArray("ewd_appName")="screenman"
|
|---|
| 995 | "RTN","C0E0000R",29,0)
|
|---|
| 996 | s sessionArray("ewd_pageName")="ewdErrorRedirect"
|
|---|
| 997 | "RTN","C0E0000R",30,0)
|
|---|
| 998 | s sessionArray("ewd_translationMode")="0"
|
|---|
| 999 | "RTN","C0E0000R",31,0)
|
|---|
| 1000 | s sessionArray("ewd_technology")="gtm"
|
|---|
| 1001 | "RTN","C0E0000R",32,0)
|
|---|
| 1002 | s sessionArray("ewd_pageType")=""
|
|---|
| 1003 | "RTN","C0E0000R",33,0)
|
|---|
| 1004 | s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
|
|---|
| 1005 | "RTN","C0E0000R",34,0)
|
|---|
| 1006 | s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
|
|---|
| 1007 | "RTN","C0E0000R",35,0)
|
|---|
| 1008 | s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
|
|---|
| 1009 | "RTN","C0E0000R",36,0)
|
|---|
| 1010 | s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
|
|---|
| 1011 | "RTN","C0E0000R",37,0)
|
|---|
| 1012 | s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
|
|---|
| 1013 | "RTN","C0E0000R",38,0)
|
|---|
| 1014 | s sessid=$g(sessionArray("ewd_sessid"))
|
|---|
| 1015 | "RTN","C0E0000R",39,0)
|
|---|
| 1016 | i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
|
|---|
| 1017 | "RTN","C0E0000R",40,0)
|
|---|
| 1018 | . s Error=$p(Error,":",2,200)
|
|---|
| 1019 | "RTN","C0E0000R",41,0)
|
|---|
| 1020 | . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
|
|---|
| 1021 | "RTN","C0E0000R",42,0)
|
|---|
| 1022 | . s Error="EWD runtime error: "_Error
|
|---|
| 1023 | "RTN","C0E0000R",43,0)
|
|---|
| 1024 | i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
|
|---|
| 1025 | "RTN","C0E0000R",44,0)
|
|---|
| 1026 | . n errorPage
|
|---|
| 1027 | "RTN","C0E0000R",45,0)
|
|---|
| 1028 | . s errorPage=$g(sessionArray("ewd_errorPage"))
|
|---|
| 1029 | "RTN","C0E0000R",46,0)
|
|---|
| 1030 | . i errorPage="" s errorPage="ewdError"
|
|---|
| 1031 | "RTN","C0E0000R",47,0)
|
|---|
| 1032 | . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
|
|---|
| 1033 | "RTN","C0E0000R",48,0)
|
|---|
| 1034 | . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
|
|---|
| 1035 | "RTN","C0E0000R",49,0)
|
|---|
| 1036 | s stop=0
|
|---|
| 1037 | "RTN","C0E0000R",50,0)
|
|---|
| 1038 | i Error="" d i stop QUIT 0
|
|---|
| 1039 | "RTN","C0E0000R",51,0)
|
|---|
| 1040 | . n nextpage
|
|---|
| 1041 | "RTN","C0E0000R",52,0)
|
|---|
| 1042 | . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
|
|---|
| 1043 | "RTN","C0E0000R",53,0)
|
|---|
| 1044 | . i nextpage'="" d
|
|---|
| 1045 | "RTN","C0E0000R",54,0)
|
|---|
| 1046 | . . n x
|
|---|
| 1047 | "RTN","C0E0000R",55,0)
|
|---|
| 1048 | . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
|
|---|
| 1049 | "RTN","C0E0000R",56,0)
|
|---|
| 1050 | . . s stop=1
|
|---|
| 1051 | "RTN","C0E0000R",57,0)
|
|---|
| 1052 | i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
|
|---|
| 1053 | "RTN","C0E0000R",58,0)
|
|---|
| 1054 | . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
|
|---|
| 1055 | "RTN","C0E0000R",59,0)
|
|---|
| 1056 | . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
|
|---|
| 1057 | "RTN","C0E0000R",60,0)
|
|---|
| 1058 | w "HTTP/1.1 200 OK"_$c(13,10)
|
|---|
| 1059 | "RTN","C0E0000R",61,0)
|
|---|
| 1060 | s ctype="text/html"
|
|---|
| 1061 | "RTN","C0E0000R",62,0)
|
|---|
| 1062 | d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
|
|---|
| 1063 | "RTN","C0E0000R",63,0)
|
|---|
| 1064 | i $d(headers) d
|
|---|
| 1065 | "RTN","C0E0000R",64,0)
|
|---|
| 1066 | . n lcname,name
|
|---|
| 1067 | "RTN","C0E0000R",65,0)
|
|---|
| 1068 | . s name=""
|
|---|
| 1069 | "RTN","C0E0000R",66,0)
|
|---|
| 1070 | . f s name=$o(headers(name)) q:name="" d
|
|---|
| 1071 | "RTN","C0E0000R",67,0)
|
|---|
| 1072 | . . s lcname=$$zcvt^%zewdAPI(name,"l")
|
|---|
| 1073 | "RTN","C0E0000R",68,0)
|
|---|
| 1074 | . . i lcname="content-type" s ctype=headers(name) q
|
|---|
| 1075 | "RTN","C0E0000R",69,0)
|
|---|
| 1076 | . . w name_": "_headers(name)_$c(13,10)
|
|---|
| 1077 | "RTN","C0E0000R",70,0)
|
|---|
| 1078 | w "Content-type: "_ctype_$c(13,10)
|
|---|
| 1079 | "RTN","C0E0000R",71,0)
|
|---|
| 1080 | w $c(13,10)
|
|---|
| 1081 | "RTN","C0E0000R",72,0)
|
|---|
| 1082 | QUIT 1
|
|---|
| 1083 | "RTN","C0E0000R",73,0)
|
|---|
| 1084 | ;
|
|---|
| 1085 | "RTN","C0E0000R",74,0)
|
|---|
| 1086 | body ;
|
|---|
| 1087 | "RTN","C0E0000R",75,0)
|
|---|
| 1088 | w "<html>"_$c(13,10)
|
|---|
| 1089 | "RTN","C0E0000R",76,0)
|
|---|
| 1090 | w " <head>"_$c(13,10)
|
|---|
| 1091 | "RTN","C0E0000R",77,0)
|
|---|
| 1092 | w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
|
|---|
| 1093 | "RTN","C0E0000R",78,0)
|
|---|
| 1094 | w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
|
|---|
| 1095 | "RTN","C0E0000R",79,0)
|
|---|
| 1096 | w "</script>"_$c(13,10)
|
|---|
| 1097 | "RTN","C0E0000R",80,0)
|
|---|
| 1098 | w " <title>"_$c(13,10)
|
|---|
| 1099 | "RTN","C0E0000R",81,0)
|
|---|
| 1100 | w "Ajax Error Redirect page"_""
|
|---|
| 1101 | "RTN","C0E0000R",82,0)
|
|---|
| 1102 | w " </title>"_$c(13,10)
|
|---|
| 1103 | "RTN","C0E0000R",83,0)
|
|---|
| 1104 | w " <head>"_$c(13,10)
|
|---|
| 1105 | "RTN","C0E0000R",84,0)
|
|---|
| 1106 | w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
|
|---|
| 1107 | "RTN","C0E0000R",85,0)
|
|---|
| 1108 | w "Please wait...."_""
|
|---|
| 1109 | "RTN","C0E0000R",86,0)
|
|---|
| 1110 | w " </body>"_$c(13,10)
|
|---|
| 1111 | "RTN","C0E0000R",87,0)
|
|---|
| 1112 | w " </head>"_$c(13,10)
|
|---|
| 1113 | "RTN","C0E0000R",88,0)
|
|---|
| 1114 | w " <script language=""javascript"">"_$c(13,10)
|
|---|
| 1115 | "RTN","C0E0000R",89,0)
|
|---|
| 1116 | w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
|
|---|
| 1117 | "RTN","C0E0000R",90,0)
|
|---|
| 1118 | w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
|
|---|
| 1119 | "RTN","C0E0000R",91,0)
|
|---|
| 1120 | w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
|
|---|
| 1121 | "RTN","C0E0000R",92,0)
|
|---|
| 1122 | w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
|
|---|
| 1123 | "RTN","C0E0000R",93,0)
|
|---|
| 1124 | w " } ;"_$c(13,10)
|
|---|
| 1125 | "RTN","C0E0000R",94,0)
|
|---|
| 1126 | w " EWD.page.setErrorClass = function () { "_$c(13,10)
|
|---|
| 1127 | "RTN","C0E0000R",95,0)
|
|---|
| 1128 | w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
|
|---|
| 1129 | "RTN","C0E0000R",96,0)
|
|---|
| 1130 | w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("setErrorClasses^%zewdAPI")_"','','synch','','') ;"_$c(13,10)
|
|---|
| 1131 | "RTN","C0E0000R",97,0)
|
|---|
| 1132 | w " }"_$c(13,10)
|
|---|
| 1133 | "RTN","C0E0000R",98,0)
|
|---|
| 1134 | w " } ;"_$c(13,10)
|
|---|
| 1135 | "RTN","C0E0000R",99,0)
|
|---|
| 1136 | w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
|
|---|
| 1137 | "RTN","C0E0000R",100,0)
|
|---|
| 1138 | w " var json,x ;"_$c(13,10)
|
|---|
| 1139 | "RTN","C0E0000R",101,0)
|
|---|
| 1140 | w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
|
|---|
| 1141 | "RTN","C0E0000R",102,0)
|
|---|
| 1142 | w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
|
|---|
| 1143 | "RTN","C0E0000R",103,0)
|
|---|
| 1144 | w " eval(x) ;"_$c(13,10)
|
|---|
| 1145 | "RTN","C0E0000R",104,0)
|
|---|
| 1146 | w " }"_$c(13,10)
|
|---|
| 1147 | "RTN","C0E0000R",105,0)
|
|---|
| 1148 | w " else {"_$c(13,10)
|
|---|
| 1149 | "RTN","C0E0000R",106,0)
|
|---|
| 1150 | w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
|
|---|
| 1151 | "RTN","C0E0000R",107,0)
|
|---|
| 1152 | w " //eval(x) ;"_$c(13,10)
|
|---|
| 1153 | "RTN","C0E0000R",108,0)
|
|---|
| 1154 | w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
|
|---|
| 1155 | "RTN","C0E0000R",109,0)
|
|---|
| 1156 | w " eval(x) ;"_$c(13,10)
|
|---|
| 1157 | "RTN","C0E0000R",110,0)
|
|---|
| 1158 | w " //json=toJsonString(objName);"_$c(13,10)
|
|---|
| 1159 | "RTN","C0E0000R",111,0)
|
|---|
| 1160 | w " }"_$c(13,10)
|
|---|
| 1161 | "RTN","C0E0000R",112,0)
|
|---|
| 1162 | w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("saveJSON^%zewdAPI")_"&px1=' + objName + '&px2=' + json + '','','synch','','') ;"_$c(13,10)
|
|---|
| 1163 | "RTN","C0E0000R",113,0)
|
|---|
| 1164 | w " } ;"_$c(13,10)
|
|---|
| 1165 | "RTN","C0E0000R",114,0)
|
|---|
| 1166 | w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
|
|---|
| 1167 | "RTN","C0E0000R",115,0)
|
|---|
| 1168 | w " if (refresh) {"_$c(13,10)
|
|---|
| 1169 | "RTN","C0E0000R",116,0)
|
|---|
| 1170 | w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
|
|---|
| 1171 | "RTN","C0E0000R",117,0)
|
|---|
| 1172 | w " var objExists = ""undefined"" ;"_$c(13,10)
|
|---|
| 1173 | "RTN","C0E0000R",118,0)
|
|---|
| 1174 | w " }"_$c(13,10)
|
|---|
| 1175 | "RTN","C0E0000R",119,0)
|
|---|
| 1176 | w " else {"_$c(13,10)
|
|---|
| 1177 | "RTN","C0E0000R",120,0)
|
|---|
| 1178 | w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
|
|---|
| 1179 | "RTN","C0E0000R",121,0)
|
|---|
| 1180 | w " eval(x) ;"_$c(13,10)
|
|---|
| 1181 | "RTN","C0E0000R",122,0)
|
|---|
| 1182 | w " }"_$c(13,10)
|
|---|
| 1183 | "RTN","C0E0000R",123,0)
|
|---|
| 1184 | w " if (objExists == ""undefined"") {"_$c(13,10)
|
|---|
| 1185 | "RTN","C0E0000R",124,0)
|
|---|
| 1186 | w " var addRef = 0 ;"_$c(13,10)
|
|---|
| 1187 | "RTN","C0E0000R",125,0)
|
|---|
| 1188 | w " if (addRefCol) addRef = 1;"_$c(13,10)
|
|---|
| 1189 | "RTN","C0E0000R",126,0)
|
|---|
| 1190 | w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("getJSON^%zewdCompiler13")_"&px1=' + objName + '&px2=' + addRef + '','','synch','','') ;"_$c(13,10)
|
|---|
| 1191 | "RTN","C0E0000R",127,0)
|
|---|
| 1192 | w ""_""
|
|---|
| 1193 | "RTN","C0E0000R",128,0)
|
|---|
| 1194 | w " };"_$c(13,10)
|
|---|
| 1195 | "RTN","C0E0000R",129,0)
|
|---|
| 1196 | w " } ;"_$c(13,10)
|
|---|
| 1197 | "RTN","C0E0000R",130,0)
|
|---|
| 1198 | w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
|
|---|
| 1199 | "RTN","C0E0000R",131,0)
|
|---|
| 1200 | w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("mergeToJSObject^%zewdAPI")_"&px1=' + sessionName + '&px2=' + JSObjName + '','','synch','','') ;"_$c(13,10)
|
|---|
| 1201 | "RTN","C0E0000R",132,0)
|
|---|
| 1202 | w " } ;"_$c(13,10)
|
|---|
| 1203 | "RTN","C0E0000R",133,0)
|
|---|
| 1204 | w ""_""
|
|---|
| 1205 | "RTN","C0E0000R",134,0)
|
|---|
| 1206 | w " </script>"_$c(13,10)
|
|---|
| 1207 | "RTN","C0E0000R",135,0)
|
|---|
| 1208 | w " </head>"_$c(13,10)
|
|---|
| 1209 | "RTN","C0E0000R",136,0)
|
|---|
| 1210 | w "</html>"_$c(13,10)
|
|---|
| 1211 | "RTN","C0E0000R",137,0)
|
|---|
| 1212 | QUIT
|
|---|
| 1213 | "RTN","C0E0001I")
|
|---|
| 1214 | 0^7^B20709402
|
|---|
| 1215 | "RTN","C0E0001I",1,0)
|
|---|
| 1216 | C0E0001I ; C0E EWD generated code; 3/1/10
|
|---|
| 1217 | "RTN","C0E0001I",2,0)
|
|---|
| 1218 | ;;1.0;C0E;;Mar 1, 2010 ;Build 6
|
|---|
| 1219 | "RTN","C0E0001I",3,0)
|
|---|
| 1220 | ;GT.M version of page index (screenman application)
|
|---|
| 1221 | "RTN","C0E0001I",4,0)
|
|---|
| 1222 | ;Compiled on Sun, 28 Feb 2010 19:55:23
|
|---|
| 1223 | "RTN","C0E0001I",5,0)
|
|---|
| 1224 | ;using Enterprise Web Developer (Build 790)
|
|---|
| 1225 | "RTN","C0E0001I",6,0)
|
|---|
| 1226 | QUIT
|
|---|
| 1227 | "RTN","C0E0001I",7,0)
|
|---|
| 1228 | ;
|
|---|
| 1229 | "RTN","C0E0001I",8,0)
|
|---|
| 1230 | run ;
|
|---|
| 1231 | "RTN","C0E0001I",9,0)
|
|---|
| 1232 | n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
|
|---|
| 1233 | "RTN","C0E0001I",10,0)
|
|---|
| 1234 | s ok=$$pre()
|
|---|
| 1235 | "RTN","C0E0001I",11,0)
|
|---|
| 1236 | i ok d body
|
|---|
| 1237 | "RTN","C0E0001I",12,0)
|
|---|
| 1238 | QUIT
|
|---|
| 1239 | "RTN","C0E0001I",13,0)
|
|---|
| 1240 | ;
|
|---|
| 1241 | "RTN","C0E0001I",14,0)
|
|---|
| 1242 | pre() ;
|
|---|
| 1243 | "RTN","C0E0001I",15,0)
|
|---|
| 1244 | ;
|
|---|
| 1245 | "RTN","C0E0001I",16,0)
|
|---|
| 1246 | n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
|
|---|
| 1247 | "RTN","C0E0001I",17,0)
|
|---|
| 1248 | ;
|
|---|
| 1249 | "RTN","C0E0001I",18,0)
|
|---|
| 1250 | s confirmText="Click OK if you're sure you want to delete this record"
|
|---|
| 1251 | "RTN","C0E0001I",19,0)
|
|---|
| 1252 | s sessionArray("ewd_isFirstPage")="1"
|
|---|
| 1253 | "RTN","C0E0001I",20,0)
|
|---|
| 1254 | s sessionArray("ewd_sessid_timeout")="1200"
|
|---|
| 1255 | "RTN","C0E0001I",21,0)
|
|---|
| 1256 | s sessionArray("ewd_prePageScript")=""
|
|---|
| 1257 | "RTN","C0E0001I",22,0)
|
|---|
| 1258 | s sessionArray("ewd_default_timeout")="1200"
|
|---|
| 1259 | "RTN","C0E0001I",23,0)
|
|---|
| 1260 | s sessionArray("ewd_persistRequest")="true"
|
|---|
| 1261 | "RTN","C0E0001I",24,0)
|
|---|
| 1262 | s sessionArray("ewd_pageTitle")=""
|
|---|
| 1263 | "RTN","C0E0001I",25,0)
|
|---|
| 1264 | s sessionArray("ewd_errorPage")="ewdError"
|
|---|
| 1265 | "RTN","C0E0001I",26,0)
|
|---|
| 1266 | s sessionArray("ewd_templatePrePageScript")=""
|
|---|
| 1267 | "RTN","C0E0001I",27,0)
|
|---|
| 1268 | s sessionArray("ewd_onErrorScript")=""
|
|---|
| 1269 | "RTN","C0E0001I",28,0)
|
|---|
| 1270 | s sessionArray("ewd_appName")="screenman"
|
|---|
| 1271 | "RTN","C0E0001I",29,0)
|
|---|
| 1272 | s sessionArray("ewd_pageName")="index"
|
|---|
| 1273 | "RTN","C0E0001I",30,0)
|
|---|
| 1274 | s sessionArray("ewd_translationMode")="0"
|
|---|
| 1275 | "RTN","C0E0001I",31,0)
|
|---|
| 1276 | s sessionArray("ewd_technology")="gtm"
|
|---|
| 1277 | "RTN","C0E0001I",32,0)
|
|---|
| 1278 | s sessionArray("ewd_pageType")=""
|
|---|
| 1279 | "RTN","C0E0001I",33,0)
|
|---|
| 1280 | s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
|
|---|
| 1281 | "RTN","C0E0001I",34,0)
|
|---|
| 1282 | s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
|
|---|
| 1283 | "RTN","C0E0001I",35,0)
|
|---|
| 1284 | s sessid=$g(sessionArray("ewd_sessid"))
|
|---|
| 1285 | "RTN","C0E0001I",36,0)
|
|---|
| 1286 | i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
|
|---|
| 1287 | "RTN","C0E0001I",37,0)
|
|---|
| 1288 | . s Error=$p(Error,":",2,200)
|
|---|
| 1289 | "RTN","C0E0001I",38,0)
|
|---|
| 1290 | . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
|
|---|
| 1291 | "RTN","C0E0001I",39,0)
|
|---|
| 1292 | . s Error="EWD runtime error: "_Error
|
|---|
| 1293 | "RTN","C0E0001I",40,0)
|
|---|
| 1294 | i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
|
|---|
| 1295 | "RTN","C0E0001I",41,0)
|
|---|
| 1296 | . n errorPage
|
|---|
| 1297 | "RTN","C0E0001I",42,0)
|
|---|
| 1298 | . s errorPage=$g(sessionArray("ewd_errorPage"))
|
|---|
| 1299 | "RTN","C0E0001I",43,0)
|
|---|
| 1300 | . i errorPage="" s errorPage="ewdError"
|
|---|
| 1301 | "RTN","C0E0001I",44,0)
|
|---|
| 1302 | . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
|
|---|
| 1303 | "RTN","C0E0001I",45,0)
|
|---|
| 1304 | . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
|
|---|
| 1305 | "RTN","C0E0001I",46,0)
|
|---|
| 1306 | s stop=0
|
|---|
| 1307 | "RTN","C0E0001I",47,0)
|
|---|
| 1308 | i Error="" d i stop QUIT 0
|
|---|
| 1309 | "RTN","C0E0001I",48,0)
|
|---|
| 1310 | . n nextpage
|
|---|
| 1311 | "RTN","C0E0001I",49,0)
|
|---|
| 1312 | . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
|
|---|
| 1313 | "RTN","C0E0001I",50,0)
|
|---|
| 1314 | . i nextpage'="" d
|
|---|
| 1315 | "RTN","C0E0001I",51,0)
|
|---|
| 1316 | . . n x
|
|---|
| 1317 | "RTN","C0E0001I",52,0)
|
|---|
| 1318 | . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
|
|---|
| 1319 | "RTN","C0E0001I",53,0)
|
|---|
| 1320 | . . s stop=1
|
|---|
| 1321 | "RTN","C0E0001I",54,0)
|
|---|
| 1322 | i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
|
|---|
| 1323 | "RTN","C0E0001I",55,0)
|
|---|
| 1324 | . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
|
|---|
| 1325 | "RTN","C0E0001I",56,0)
|
|---|
| 1326 | . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
|
|---|
| 1327 | "RTN","C0E0001I",57,0)
|
|---|
| 1328 | w "HTTP/1.1 200 OK"_$c(13,10)
|
|---|
| 1329 | "RTN","C0E0001I",58,0)
|
|---|
| 1330 | s ctype="text/html"
|
|---|
| 1331 | "RTN","C0E0001I",59,0)
|
|---|
| 1332 | d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
|
|---|
| 1333 | "RTN","C0E0001I",60,0)
|
|---|
| 1334 | i $d(headers) d
|
|---|
| 1335 | "RTN","C0E0001I",61,0)
|
|---|
| 1336 | . n lcname,name
|
|---|
| 1337 | "RTN","C0E0001I",62,0)
|
|---|
| 1338 | . s name=""
|
|---|
| 1339 | "RTN","C0E0001I",63,0)
|
|---|
| 1340 | . f s name=$o(headers(name)) q:name="" d
|
|---|
| 1341 | "RTN","C0E0001I",64,0)
|
|---|
| 1342 | . . s lcname=$$zcvt^%zewdAPI(name,"l")
|
|---|
| 1343 | "RTN","C0E0001I",65,0)
|
|---|
| 1344 | . . i lcname="content-type" s ctype=headers(name) q
|
|---|
| 1345 | "RTN","C0E0001I",66,0)
|
|---|
| 1346 | . . w name_": "_headers(name)_$c(13,10)
|
|---|
| 1347 | "RTN","C0E0001I",67,0)
|
|---|
| 1348 | w "Content-type: "_ctype_$c(13,10)
|
|---|
| 1349 | "RTN","C0E0001I",68,0)
|
|---|
| 1350 | w $c(13,10)
|
|---|
| 1351 | "RTN","C0E0001I",69,0)
|
|---|
| 1352 | QUIT 1
|
|---|
| 1353 | "RTN","C0E0001I",70,0)
|
|---|
| 1354 | ;
|
|---|
| 1355 | "RTN","C0E0001I",71,0)
|
|---|
| 1356 | body ;
|
|---|
| 1357 | "RTN","C0E0001I",72,0)
|
|---|
| 1358 | w "<html>"_$c(13,10)
|
|---|
| 1359 | "RTN","C0E0001I",73,0)
|
|---|
| 1360 | w " <header>"_$c(13,10)
|
|---|
| 1361 | "RTN","C0E0001I",74,0)
|
|---|
| 1362 | w " <title>"_$c(13,10)
|
|---|
| 1363 | "RTN","C0E0001I",75,0)
|
|---|
| 1364 | w "Screenman Menu"_""
|
|---|
| 1365 | "RTN","C0E0001I",76,0)
|
|---|
| 1366 | w " </title>"_$c(13,10)
|
|---|
| 1367 | "RTN","C0E0001I",77,0)
|
|---|
| 1368 | w " </header>"_$c(13,10)
|
|---|
| 1369 | "RTN","C0E0001I",78,0)
|
|---|
| 1370 | w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
|
|---|
| 1371 | "RTN","C0E0001I",79,0)
|
|---|
| 1372 | w "Hello World"_""
|
|---|
| 1373 | "RTN","C0E0001I",80,0)
|
|---|
| 1374 | w " <br />"_$c(13,10)
|
|---|
| 1375 | "RTN","C0E0001I",81,0)
|
|---|
| 1376 | w " <br />"_$c(13,10)
|
|---|
| 1377 | "RTN","C0E0001I",82,0)
|
|---|
| 1378 | w " <a href='/ewd/screenman/test1.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("test1")_"&ewd_urlNo=index1'>"_$c(13,10)
|
|---|
| 1379 | "RTN","C0E0001I",83,0)
|
|---|
| 1380 | w "test1 page"_""
|
|---|
| 1381 | "RTN","C0E0001I",84,0)
|
|---|
| 1382 | w " </a>"_$c(13,10)
|
|---|
| 1383 | "RTN","C0E0001I",85,0)
|
|---|
| 1384 | w " </body>"_$c(13,10)
|
|---|
| 1385 | "RTN","C0E0001I",86,0)
|
|---|
| 1386 | w "</html>"_$c(13,10)
|
|---|
| 1387 | "RTN","C0E0001I",87,0)
|
|---|
| 1388 | QUIT
|
|---|
| 1389 | "RTN","C0E0002")
|
|---|
| 1390 | 0^8^B94303815
|
|---|
| 1391 | "RTN","C0E0002",1,0)
|
|---|
| 1392 | C0E0002 ; C0E EWD generated code; 3/1/10
|
|---|
| 1393 | "RTN","C0E0002",2,0)
|
|---|
| 1394 | ;;1.0;C0E;;Mar 1, 2010 ;Build 6
|
|---|
| 1395 | "RTN","C0E0002",3,0)
|
|---|
| 1396 | ;GT.M version of page test1 (screenman application)
|
|---|
| 1397 | "RTN","C0E0002",4,0)
|
|---|
| 1398 | ;Compiled on Sun, 28 Feb 2010 19:55:23
|
|---|
| 1399 | "RTN","C0E0002",5,0)
|
|---|
| 1400 | ;using Enterprise Web Developer (Build 790)
|
|---|
| 1401 | "RTN","C0E0002",6,0)
|
|---|
| 1402 | QUIT
|
|---|
| 1403 | "RTN","C0E0002",7,0)
|
|---|
| 1404 | ;
|
|---|
| 1405 | "RTN","C0E0002",8,0)
|
|---|
| 1406 | run ;
|
|---|
| 1407 | "RTN","C0E0002",9,0)
|
|---|
| 1408 | n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
|
|---|
| 1409 | "RTN","C0E0002",10,0)
|
|---|
| 1410 | s ok=$$pre()
|
|---|
| 1411 | "RTN","C0E0002",11,0)
|
|---|
| 1412 | i ok d body
|
|---|
| 1413 | "RTN","C0E0002",12,0)
|
|---|
| 1414 | QUIT
|
|---|
| 1415 | "RTN","C0E0002",13,0)
|
|---|
| 1416 | ;
|
|---|
| 1417 | "RTN","C0E0002",14,0)
|
|---|
| 1418 | pre() ;
|
|---|
| 1419 | "RTN","C0E0002",15,0)
|
|---|
| 1420 | ;
|
|---|
| 1421 | "RTN","C0E0002",16,0)
|
|---|
| 1422 | n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
|
|---|
| 1423 | "RTN","C0E0002",17,0)
|
|---|
| 1424 | ;
|
|---|
| 1425 | "RTN","C0E0002",18,0)
|
|---|
| 1426 | s confirmText="Click OK if you're sure you want to delete this record"
|
|---|
| 1427 | "RTN","C0E0002",19,0)
|
|---|
| 1428 | s sessionArray("ewd_isFirstPage")="0"
|
|---|
| 1429 | "RTN","C0E0002",20,0)
|
|---|
| 1430 | s sessionArray("ewd_sessid_timeout")="1200"
|
|---|
| 1431 | "RTN","C0E0002",21,0)
|
|---|
| 1432 | s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
|
|---|
| 1433 | "RTN","C0E0002",22,0)
|
|---|
| 1434 | s sessionArray("ewd_default_timeout")="1200"
|
|---|
| 1435 | "RTN","C0E0002",23,0)
|
|---|
| 1436 | s sessionArray("ewd_persistRequest")="true"
|
|---|
| 1437 | "RTN","C0E0002",24,0)
|
|---|
| 1438 | s sessionArray("ewd_pageTitle")=""
|
|---|
| 1439 | "RTN","C0E0002",25,0)
|
|---|
| 1440 | s sessionArray("ewd_errorPage")="ewdError"
|
|---|
| 1441 | "RTN","C0E0002",26,0)
|
|---|
| 1442 | s sessionArray("ewd_templatePrePageScript")=""
|
|---|
| 1443 | "RTN","C0E0002",27,0)
|
|---|
| 1444 | s sessionArray("ewd_onErrorScript")=""
|
|---|
| 1445 | "RTN","C0E0002",28,0)
|
|---|
| 1446 | s sessionArray("ewd_appName")="screenman"
|
|---|
| 1447 | "RTN","C0E0002",29,0)
|
|---|
| 1448 | s sessionArray("ewd_pageName")="test1"
|
|---|
| 1449 | "RTN","C0E0002",30,0)
|
|---|
| 1450 | s sessionArray("ewd_translationMode")="0"
|
|---|
| 1451 | "RTN","C0E0002",31,0)
|
|---|
| 1452 | s sessionArray("ewd_technology")="gtm"
|
|---|
| 1453 | "RTN","C0E0002",32,0)
|
|---|
| 1454 | s sessionArray("ewd_pageType")=""
|
|---|
| 1455 | "RTN","C0E0002",33,0)
|
|---|
| 1456 | s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
|
|---|
| 1457 | "RTN","C0E0002",34,0)
|
|---|
| 1458 | s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
|
|---|
| 1459 | "RTN","C0E0002",35,0)
|
|---|
| 1460 | s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
|
|---|
| 1461 | "RTN","C0E0002",36,0)
|
|---|
| 1462 | s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
|
|---|
| 1463 | "RTN","C0E0002",37,0)
|
|---|
| 1464 | s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
|
|---|
| 1465 | "RTN","C0E0002",38,0)
|
|---|
| 1466 | s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
|
|---|
| 1467 | "RTN","C0E0002",39,0)
|
|---|
| 1468 | d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
|
|---|
| 1469 | "RTN","C0E0002",40,0)
|
|---|
| 1470 | s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
|
|---|
| 1471 | "RTN","C0E0002",41,0)
|
|---|
| 1472 | s sessid=$g(sessionArray("ewd_sessid"))
|
|---|
| 1473 | "RTN","C0E0002",42,0)
|
|---|
| 1474 | i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
|
|---|
| 1475 | "RTN","C0E0002",43,0)
|
|---|
| 1476 | . s Error=$p(Error,":",2,200)
|
|---|
| 1477 | "RTN","C0E0002",44,0)
|
|---|
| 1478 | . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
|
|---|
| 1479 | "RTN","C0E0002",45,0)
|
|---|
| 1480 | . s Error="EWD runtime error: "_Error
|
|---|
| 1481 | "RTN","C0E0002",46,0)
|
|---|
| 1482 | i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
|
|---|
| 1483 | "RTN","C0E0002",47,0)
|
|---|
| 1484 | . n errorPage
|
|---|
| 1485 | "RTN","C0E0002",48,0)
|
|---|
| 1486 | . s errorPage=$g(sessionArray("ewd_errorPage"))
|
|---|
| 1487 | "RTN","C0E0002",49,0)
|
|---|
| 1488 | . i errorPage="" s errorPage="ewdError"
|
|---|
| 1489 | "RTN","C0E0002",50,0)
|
|---|
| 1490 | . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
|
|---|
| 1491 | "RTN","C0E0002",51,0)
|
|---|
| 1492 | . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
|
|---|
| 1493 | "RTN","C0E0002",52,0)
|
|---|
| 1494 | s stop=0
|
|---|
| 1495 | "RTN","C0E0002",53,0)
|
|---|
| 1496 | i Error="" d i stop QUIT 0
|
|---|
| 1497 | "RTN","C0E0002",54,0)
|
|---|
| 1498 | . n nextpage
|
|---|
| 1499 | "RTN","C0E0002",55,0)
|
|---|
| 1500 | . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
|
|---|
| 1501 | "RTN","C0E0002",56,0)
|
|---|
| 1502 | . i nextpage'="" d
|
|---|
| 1503 | "RTN","C0E0002",57,0)
|
|---|
| 1504 | . . n x
|
|---|
| 1505 | "RTN","C0E0002",58,0)
|
|---|
| 1506 | . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
|
|---|
| 1507 | "RTN","C0E0002",59,0)
|
|---|
| 1508 | . . s stop=1
|
|---|
| 1509 | "RTN","C0E0002",60,0)
|
|---|
| 1510 | i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
|
|---|
| 1511 | "RTN","C0E0002",61,0)
|
|---|
| 1512 | . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
|
|---|
| 1513 | "RTN","C0E0002",62,0)
|
|---|
| 1514 | . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
|
|---|
| 1515 | "RTN","C0E0002",63,0)
|
|---|
| 1516 | w "HTTP/1.1 200 OK"_$c(13,10)
|
|---|
| 1517 | "RTN","C0E0002",64,0)
|
|---|
| 1518 | s ctype="text/html"
|
|---|
| 1519 | "RTN","C0E0002",65,0)
|
|---|
| 1520 | d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
|
|---|
| 1521 | "RTN","C0E0002",66,0)
|
|---|
| 1522 | i $d(headers) d
|
|---|
| 1523 | "RTN","C0E0002",67,0)
|
|---|
| 1524 | . n lcname,name
|
|---|
| 1525 | "RTN","C0E0002",68,0)
|
|---|
| 1526 | . s name=""
|
|---|
| 1527 | "RTN","C0E0002",69,0)
|
|---|
| 1528 | . f s name=$o(headers(name)) q:name="" d
|
|---|
| 1529 | "RTN","C0E0002",70,0)
|
|---|
| 1530 | . . s lcname=$$zcvt^%zewdAPI(name,"l")
|
|---|
| 1531 | "RTN","C0E0002",71,0)
|
|---|
| 1532 | . . i lcname="content-type" s ctype=headers(name) q
|
|---|
| 1533 | "RTN","C0E0002",72,0)
|
|---|
| 1534 | . . w name_": "_headers(name)_$c(13,10)
|
|---|
| 1535 | "RTN","C0E0002",73,0)
|
|---|
| 1536 | w "Content-type: "_ctype_$c(13,10)
|
|---|
| 1537 | "RTN","C0E0002",74,0)
|
|---|
| 1538 | w $c(13,10)
|
|---|
| 1539 | "RTN","C0E0002",75,0)
|
|---|
| 1540 | QUIT 1
|
|---|
| 1541 | "RTN","C0E0002",76,0)
|
|---|
| 1542 | ;
|
|---|
| 1543 | "RTN","C0E0002",77,0)
|
|---|
| 1544 | body ;
|
|---|
| 1545 | "RTN","C0E0002",78,0)
|
|---|
| 1546 | w "<html>"_$c(13,10)
|
|---|
| 1547 | "RTN","C0E0002",79,0)
|
|---|
| 1548 | w " <head>"_$c(13,10)
|
|---|
| 1549 | "RTN","C0E0002",80,0)
|
|---|
| 1550 | w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
|
|---|
| 1551 | "RTN","C0E0002",81,0)
|
|---|
| 1552 | w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
|
|---|
| 1553 | "RTN","C0E0002",82,0)
|
|---|
| 1554 | w "</script>"_$c(13,10)
|
|---|
| 1555 | "RTN","C0E0002",83,0)
|
|---|
| 1556 | w " <script language=""javascript"">"_$c(13,10)
|
|---|
| 1557 | "RTN","C0E0002",84,0)
|
|---|
| 1558 | w ""_$c(13,10)
|
|---|
| 1559 | "RTN","C0E0002",85,0)
|
|---|
| 1560 | w "function ValidateTitle(value) {"_$c(13,10)
|
|---|
| 1561 | "RTN","C0E0002",86,0)
|
|---|
| 1562 | w "EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("VALIDATETITLE^C0CROB")_"&px1=' + value + '','','synch','','');"_$c(13,10)
|
|---|
| 1563 | "RTN","C0E0002",87,0)
|
|---|
| 1564 | w "}"_$c(13,10)
|
|---|
| 1565 | "RTN","C0E0002",88,0)
|
|---|
| 1566 | w ""_""
|
|---|
| 1567 | "RTN","C0E0002",89,0)
|
|---|
| 1568 | w " </script>"_$c(13,10)
|
|---|
| 1569 | "RTN","C0E0002",90,0)
|
|---|
| 1570 | w " <title>"_$c(13,10)
|
|---|
| 1571 | "RTN","C0E0002",91,0)
|
|---|
| 1572 | w "Screenman Test"_""
|
|---|
| 1573 | "RTN","C0E0002",92,0)
|
|---|
| 1574 | w " </title>"_$c(13,10)
|
|---|
| 1575 | "RTN","C0E0002",93,0)
|
|---|
| 1576 | w " <script language=""javascript"">"_$c(13,10)
|
|---|
| 1577 | "RTN","C0E0002",94,0)
|
|---|
| 1578 | w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
|
|---|
| 1579 | "RTN","C0E0002",95,0)
|
|---|
| 1580 | w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
|
|---|
| 1581 | "RTN","C0E0002",96,0)
|
|---|
| 1582 | w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
|
|---|
| 1583 | "RTN","C0E0002",97,0)
|
|---|
| 1584 | w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
|
|---|
| 1585 | "RTN","C0E0002",98,0)
|
|---|
| 1586 | w " } ;"_$c(13,10)
|
|---|
| 1587 | "RTN","C0E0002",99,0)
|
|---|
| 1588 | w " EWD.page.setErrorClass = function () { "_$c(13,10)
|
|---|
| 1589 | "RTN","C0E0002",100,0)
|
|---|
| 1590 | w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
|
|---|
| 1591 | "RTN","C0E0002",101,0)
|
|---|
| 1592 | w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("setErrorClasses^%zewdAPI")_"','','synch','','') ;"_$c(13,10)
|
|---|
| 1593 | "RTN","C0E0002",102,0)
|
|---|
| 1594 | w " }"_$c(13,10)
|
|---|
| 1595 | "RTN","C0E0002",103,0)
|
|---|
| 1596 | w " } ;"_$c(13,10)
|
|---|
| 1597 | "RTN","C0E0002",104,0)
|
|---|
| 1598 | w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
|
|---|
| 1599 | "RTN","C0E0002",105,0)
|
|---|
| 1600 | w " var json,x ;"_$c(13,10)
|
|---|
| 1601 | "RTN","C0E0002",106,0)
|
|---|
| 1602 | w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
|
|---|
| 1603 | "RTN","C0E0002",107,0)
|
|---|
| 1604 | w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
|
|---|
| 1605 | "RTN","C0E0002",108,0)
|
|---|
| 1606 | w " eval(x) ;"_$c(13,10)
|
|---|
| 1607 | "RTN","C0E0002",109,0)
|
|---|
| 1608 | w " }"_$c(13,10)
|
|---|
| 1609 | "RTN","C0E0002",110,0)
|
|---|
| 1610 | w " else {"_$c(13,10)
|
|---|
| 1611 | "RTN","C0E0002",111,0)
|
|---|
| 1612 | w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
|
|---|
| 1613 | "RTN","C0E0002",112,0)
|
|---|
| 1614 | w " //eval(x) ;"_$c(13,10)
|
|---|
| 1615 | "RTN","C0E0002",113,0)
|
|---|
| 1616 | w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
|
|---|
| 1617 | "RTN","C0E0002",114,0)
|
|---|
| 1618 | w " eval(x) ;"_$c(13,10)
|
|---|
| 1619 | "RTN","C0E0002",115,0)
|
|---|
| 1620 | w " //json=toJsonString(objName);"_$c(13,10)
|
|---|
| 1621 | "RTN","C0E0002",116,0)
|
|---|
| 1622 | w " }"_$c(13,10)
|
|---|
| 1623 | "RTN","C0E0002",117,0)
|
|---|
| 1624 | w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("saveJSON^%zewdAPI")_"&px1=' + objName + '&px2=' + json + '','','synch','','') ;"_$c(13,10)
|
|---|
| 1625 | "RTN","C0E0002",118,0)
|
|---|
| 1626 | w " } ;"_$c(13,10)
|
|---|
| 1627 | "RTN","C0E0002",119,0)
|
|---|
| 1628 | w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
|
|---|
| 1629 | "RTN","C0E0002",120,0)
|
|---|
| 1630 | w " if (refresh) {"_$c(13,10)
|
|---|
| 1631 | "RTN","C0E0002",121,0)
|
|---|
| 1632 | w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
|
|---|
| 1633 | "RTN","C0E0002",122,0)
|
|---|
| 1634 | w " var objExists = ""undefined"" ;"_$c(13,10)
|
|---|
| 1635 | "RTN","C0E0002",123,0)
|
|---|
| 1636 | w " }"_$c(13,10)
|
|---|
| 1637 | "RTN","C0E0002",124,0)
|
|---|
| 1638 | w " else {"_$c(13,10)
|
|---|
| 1639 | "RTN","C0E0002",125,0)
|
|---|
| 1640 | w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
|
|---|
| 1641 | "RTN","C0E0002",126,0)
|
|---|
| 1642 | w " eval(x) ;"_$c(13,10)
|
|---|
| 1643 | "RTN","C0E0002",127,0)
|
|---|
| 1644 | w " }"_$c(13,10)
|
|---|
| 1645 | "RTN","C0E0002",128,0)
|
|---|
| 1646 | w " if (objExists == ""undefined"") {"_$c(13,10)
|
|---|
| 1647 | "RTN","C0E0002",129,0)
|
|---|
| 1648 | w " var addRef = 0 ;"_$c(13,10)
|
|---|
| 1649 | "RTN","C0E0002",130,0)
|
|---|
| 1650 | w " if (addRefCol) addRef = 1;"_$c(13,10)
|
|---|
| 1651 | "RTN","C0E0002",131,0)
|
|---|
| 1652 | w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("getJSON^%zewdCompiler13")_"&px1=' + objName + '&px2=' + addRef + '','','synch','','') ;"_$c(13,10)
|
|---|
| 1653 | "RTN","C0E0002",132,0)
|
|---|
| 1654 | w ""_""
|
|---|
| 1655 | "RTN","C0E0002",133,0)
|
|---|
| 1656 | w " };"_$c(13,10)
|
|---|
| 1657 | "RTN","C0E0002",134,0)
|
|---|
| 1658 | w " } ;"_$c(13,10)
|
|---|
| 1659 | "RTN","C0E0002",135,0)
|
|---|
| 1660 | w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
|
|---|
| 1661 | "RTN","C0E0002",136,0)
|
|---|
| 1662 | w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("mergeToJSObject^%zewdAPI")_"&px1=' + sessionName + '&px2=' + JSObjName + '','','synch','','') ;"_$c(13,10)
|
|---|
| 1663 | "RTN","C0E0002",137,0)
|
|---|
| 1664 | w " } ;"_$c(13,10)
|
|---|
| 1665 | "RTN","C0E0002",138,0)
|
|---|
| 1666 | w ""_""
|
|---|
| 1667 | "RTN","C0E0002",139,0)
|
|---|
| 1668 | w " </script>"_$c(13,10)
|
|---|
| 1669 | "RTN","C0E0002",140,0)
|
|---|
| 1670 | w " </head>"_$c(13,10)
|
|---|
| 1671 | "RTN","C0E0002",141,0)
|
|---|
| 1672 | w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
|
|---|
| 1673 | "RTN","C0E0002",142,0)
|
|---|
| 1674 | w " <form action='/ewd/screenman/test1.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"' method=""post"" name=""ewdForm1"">"_$c(13,10)
|
|---|
| 1675 | "RTN","C0E0002",143,0)
|
|---|
| 1676 | w " <center>"_$c(13,10)
|
|---|
| 1677 | "RTN","C0E0002",144,0)
|
|---|
| 1678 | w "Edit an Existing User"_""
|
|---|
| 1679 | "RTN","C0E0002",145,0)
|
|---|
| 1680 | w " </center>"_$c(13,10)
|
|---|
| 1681 | "RTN","C0E0002",146,0)
|
|---|
| 1682 | w " <div id=""name"">"_$c(13,10)
|
|---|
| 1683 | "RTN","C0E0002",147,0)
|
|---|
| 1684 | w "NAME: "_$$getSessionValue^%zewdAPI("name",sessid)
|
|---|
| 1685 | "RTN","C0E0002",148,0)
|
|---|
| 1686 | w " </div>"_$c(13,10)
|
|---|
| 1687 | "RTN","C0E0002",149,0)
|
|---|
| 1688 | w " <hr />"_$c(13,10)
|
|---|
| 1689 | "RTN","C0E0002",150,0)
|
|---|
| 1690 | w "TITLE:"_""
|
|---|
| 1691 | "RTN","C0E0002",151,0)
|
|---|
| 1692 | w " <input id=""TITLE"" name=""TITLE"" onchange=""ValidateTitle(this.value)"" type=""text"" value='"_$$getSessionValue^%zewdAPI("TITLE",sessid)_"' />"_$c(13,10)
|
|---|
| 1693 | "RTN","C0E0002",152,0)
|
|---|
| 1694 | w " <br />"_$c(13,10)
|
|---|
| 1695 | "RTN","C0E0002",153,0)
|
|---|
| 1696 | w " <br />"_$c(13,10)
|
|---|
| 1697 | "RTN","C0E0002",154,0)
|
|---|
| 1698 | w "SSN:"_""
|
|---|
| 1699 | "RTN","C0E0002",155,0)
|
|---|
| 1700 | w " <input id=""SSN"" name=""SSN"" type=""text"" value='"_$$getSessionValue^%zewdAPI("SSN",sessid)_"' />"_$c(13,10)
|
|---|
| 1701 | "RTN","C0E0002",156,0)
|
|---|
| 1702 | w " <br />"_$c(13,10)
|
|---|
| 1703 | "RTN","C0E0002",157,0)
|
|---|
| 1704 | w " <br />"_$c(13,10)
|
|---|
| 1705 | "RTN","C0E0002",158,0)
|
|---|
| 1706 | w " <input id=""submit"" name=""submit"" onclick=""this.form.ewd_action.value=this.name ; this.form.ewd_pressed.value=this.name"" type=""submit"" value=""save"" />"_$c(13,10)
|
|---|
| 1707 | "RTN","C0E0002",159,0)
|
|---|
| 1708 | w " <input name=""ewd_action"" type=""hidden"" value="""" />"_$c(13,10)
|
|---|
| 1709 | "RTN","C0E0002",160,0)
|
|---|
| 1710 | w " <input name=""ewd_pressed"" type=""hidden"" value="""" />"_$c(13,10)
|
|---|
| 1711 | "RTN","C0E0002",161,0)
|
|---|
| 1712 | w " </form>"_$c(13,10)
|
|---|
| 1713 | "RTN","C0E0002",162,0)
|
|---|
| 1714 | w " </body>"_$c(13,10)
|
|---|
| 1715 | "RTN","C0E0002",163,0)
|
|---|
| 1716 | w "</html>"_$c(13,10)
|
|---|
| 1717 | "RTN","C0E0002",164,0)
|
|---|
| 1718 | QUIT
|
|---|
| 1719 | "SEC","^DIC",70050,70050,0,"AUDIT")
|
|---|
| 1720 | @
|
|---|
| 1721 | "SEC","^DIC",70050,70050,0,"DD")
|
|---|
| 1722 | @
|
|---|
| 1723 | "SEC","^DIC",70050,70050,0,"DEL")
|
|---|
| 1724 | @
|
|---|
| 1725 | "SEC","^DIC",70050,70050,0,"LAYGO")
|
|---|
| 1726 | @
|
|---|
| 1727 | "SEC","^DIC",70050,70050,0,"RD")
|
|---|
| 1728 | @
|
|---|
| 1729 | "SEC","^DIC",70050,70050,0,"WR")
|
|---|
| 1730 | @
|
|---|
| 1731 | "VER")
|
|---|
| 1732 | 8.0^22.0
|
|---|
| 1733 | "^DD",70050,70050,0)
|
|---|
| 1734 | FIELD^^1^5
|
|---|
| 1735 | "^DD",70050,70050,0,"DDA")
|
|---|
| 1736 | N
|
|---|
| 1737 | "^DD",70050,70050,0,"DT")
|
|---|
| 1738 | 3100301
|
|---|
| 1739 | "^DD",70050,70050,0,"ID",.02)
|
|---|
| 1740 | W " ",$P(^(0),U,2)
|
|---|
| 1741 | "^DD",70050,70050,0,"ID",.03)
|
|---|
| 1742 | W " ",$P(^(0),U,3)
|
|---|
| 1743 | "^DD",70050,70050,0,"IX","B",70050,.01)
|
|---|
| 1744 |
|
|---|
| 1745 | "^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
|
|---|
| 1746 |
|
|---|
| 1747 | "^DD",70050,70050,.01,0)
|
|---|
| 1748 | EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
|
|---|
| 1749 | "^DD",70050,70050,.01,1,0)
|
|---|
| 1750 | ^.1
|
|---|
| 1751 | "^DD",70050,70050,.01,1,1,0)
|
|---|
| 1752 | 70050^B
|
|---|
| 1753 | "^DD",70050,70050,.01,1,1,1)
|
|---|
| 1754 | S ^C0E(70050,"B",$E(X,1,30),DA)=""
|
|---|
| 1755 | "^DD",70050,70050,.01,1,1,2)
|
|---|
| 1756 | K ^C0E(70050,"B",$E(X,1,30),DA)
|
|---|
| 1757 | "^DD",70050,70050,.01,3)
|
|---|
| 1758 | NAMESPACED EWD COMPILED PAGE
|
|---|
| 1759 | "^DD",70050,70050,.01,"DT")
|
|---|
| 1760 | 3100301
|
|---|
| 1761 | "^DD",70050,70050,.02,0)
|
|---|
| 1762 | EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
|
|---|
| 1763 | "^DD",70050,70050,.02,3)
|
|---|
| 1764 | NAME OF THE EWD APPLICATION
|
|---|
| 1765 | "^DD",70050,70050,.02,"DT")
|
|---|
| 1766 | 3100303
|
|---|
| 1767 | "^DD",70050,70050,.03,0)
|
|---|
| 1768 | EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
|
|---|
| 1769 | "^DD",70050,70050,.03,3)
|
|---|
| 1770 | EWD PAGE NAME
|
|---|
| 1771 | "^DD",70050,70050,.03,"DT")
|
|---|
| 1772 | 3100301
|
|---|
| 1773 | "^DD",70050,70050,1,0)
|
|---|
| 1774 | DESCRIPTION^70050.01^^2;0
|
|---|
| 1775 | "^DD",70050,70050,2,0)
|
|---|
| 1776 | EWD SOURCE^70050.02^^1;0
|
|---|
| 1777 | "^DD",70050,70050.01,0)
|
|---|
| 1778 | DESCRIPTION SUB-FIELD^^.01^1
|
|---|
| 1779 | "^DD",70050,70050.01,0,"DT")
|
|---|
| 1780 | 3100301
|
|---|
| 1781 | "^DD",70050,70050.01,0,"NM","DESCRIPTION")
|
|---|
| 1782 |
|
|---|
| 1783 | "^DD",70050,70050.01,0,"UP")
|
|---|
| 1784 | 70050
|
|---|
| 1785 | "^DD",70050,70050.01,.01,0)
|
|---|
| 1786 | DESCRIPTION^Wx^^0;1
|
|---|
| 1787 | "^DD",70050,70050.01,.01,3)
|
|---|
| 1788 | DESCRIPTION OF THE EWD PAGE
|
|---|
| 1789 | "^DD",70050,70050.01,.01,"DT")
|
|---|
| 1790 | 3100301
|
|---|
| 1791 | "^DD",70050,70050.02,0)
|
|---|
| 1792 | EWD SOURCE SUB-FIELD^^.01^1
|
|---|
| 1793 | "^DD",70050,70050.02,0,"DT")
|
|---|
| 1794 | 3100301
|
|---|
| 1795 | "^DD",70050,70050.02,0,"NM","EWD SOURCE")
|
|---|
| 1796 |
|
|---|
| 1797 | "^DD",70050,70050.02,0,"UP")
|
|---|
| 1798 | 70050
|
|---|
| 1799 | "^DD",70050,70050.02,.01,0)
|
|---|
| 1800 | EWD SOURCE^WLx^^0;1
|
|---|
| 1801 | "^DD",70050,70050.02,.01,3)
|
|---|
| 1802 | EWD PAGE SOURCE CODE
|
|---|
| 1803 | "^DD",70050,70050.02,.01,"DT")
|
|---|
| 1804 | 3100301
|
|---|
| 1805 | "^DIC",70050,70050,0)
|
|---|
| 1806 | C0EWD ROUTINE MAP^70050
|
|---|
| 1807 | "^DIC",70050,70050,0,"GL")
|
|---|
| 1808 | ^C0E(70050,
|
|---|
| 1809 | "^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
|
|---|
| 1810 |
|
|---|
| 1811 | **END**
|
|---|
| 1812 | **END**
|
|---|
