[1240] | 1 | KIDS Distribution saved on Jan 30, 2008@13:26:12
|
---|
| 2 | EDP Facility Build 1.0 T2
|
---|
| 3 | **KIDS**:EDP FACILITY 1.0^
|
---|
| 4 |
|
---|
| 5 | **INSTALL NAME**
|
---|
| 6 | EDP FACILITY 1.0
|
---|
| 7 | "BLD",6765,0)
|
---|
| 8 | EDP FACILITY 1.0^^0^3080130^n
|
---|
| 9 | "BLD",6765,1,0)
|
---|
| 10 | ^^4^4^3080130^
|
---|
| 11 | "BLD",6765,1,1,0)
|
---|
| 12 | This installed the options, security keys, and remote procedures that are
|
---|
| 13 | "BLD",6765,1,2,0)
|
---|
| 14 | used with the EDIS (Emergency Department Information System) web
|
---|
| 15 | "BLD",6765,1,3,0)
|
---|
| 16 | application. Most of the application runs on the EDIS server. This
|
---|
| 17 | "BLD",6765,1,4,0)
|
---|
| 18 | build installs only the components that run at a local facility.
|
---|
| 19 | "BLD",6765,4,0)
|
---|
| 20 | ^9.64PA^232^1
|
---|
| 21 | "BLD",6765,4,232,0)
|
---|
| 22 | 232
|
---|
| 23 | "BLD",6765,4,232,222)
|
---|
| 24 | y^y^f^^^^n
|
---|
| 25 | "BLD",6765,4,"B",232,232)
|
---|
| 26 |
|
---|
| 27 | "BLD",6765,6.3)
|
---|
| 28 | 12
|
---|
| 29 | "BLD",6765,"INIT")
|
---|
| 30 | EDPYPST
|
---|
| 31 | "BLD",6765,"KRN",0)
|
---|
| 32 | ^9.67PA^8989.52^19
|
---|
| 33 | "BLD",6765,"KRN",.4,0)
|
---|
| 34 | .4
|
---|
| 35 | "BLD",6765,"KRN",.401,0)
|
---|
| 36 | .401
|
---|
| 37 | "BLD",6765,"KRN",.402,0)
|
---|
| 38 | .402
|
---|
| 39 | "BLD",6765,"KRN",.403,0)
|
---|
| 40 | .403
|
---|
| 41 | "BLD",6765,"KRN",.5,0)
|
---|
| 42 | .5
|
---|
| 43 | "BLD",6765,"KRN",.84,0)
|
---|
| 44 | .84
|
---|
| 45 | "BLD",6765,"KRN",3.6,0)
|
---|
| 46 | 3.6
|
---|
| 47 | "BLD",6765,"KRN",3.8,0)
|
---|
| 48 | 3.8
|
---|
| 49 | "BLD",6765,"KRN",9.2,0)
|
---|
| 50 | 9.2
|
---|
| 51 | "BLD",6765,"KRN",9.8,0)
|
---|
| 52 | 9.8
|
---|
| 53 | "BLD",6765,"KRN",9.8,"NM",0)
|
---|
| 54 | ^9.68A^9^9
|
---|
| 55 | "BLD",6765,"KRN",9.8,"NM",1,0)
|
---|
| 56 | EDPFAA^^0^B4733089
|
---|
| 57 | "BLD",6765,"KRN",9.8,"NM",2,0)
|
---|
| 58 | EDPFLEX^^0^B795410
|
---|
| 59 | "BLD",6765,"KRN",9.8,"NM",3,0)
|
---|
| 60 | EDPFMON^^0^B17795750
|
---|
| 61 | "BLD",6765,"KRN",9.8,"NM",4,0)
|
---|
| 62 | EDPFMRG^^0^B842644
|
---|
| 63 | "BLD",6765,"KRN",9.8,"NM",5,0)
|
---|
| 64 | EDPFPER^^0^B2333867
|
---|
| 65 | "BLD",6765,"KRN",9.8,"NM",6,0)
|
---|
| 66 | EDPFPTL^^0^B2639044
|
---|
| 67 | "BLD",6765,"KRN",9.8,"NM",7,0)
|
---|
| 68 | EDPFPTS^^0^B7170775
|
---|
| 69 | "BLD",6765,"KRN",9.8,"NM",8,0)
|
---|
| 70 | EDPFRPC^^0^B1979072
|
---|
| 71 | "BLD",6765,"KRN",9.8,"NM",9,0)
|
---|
| 72 | EDPX^^0^B6480298
|
---|
| 73 | "BLD",6765,"KRN",9.8,"NM","B","EDPFAA",1)
|
---|
| 74 |
|
---|
| 75 | "BLD",6765,"KRN",9.8,"NM","B","EDPFLEX",2)
|
---|
| 76 |
|
---|
| 77 | "BLD",6765,"KRN",9.8,"NM","B","EDPFMON",3)
|
---|
| 78 |
|
---|
| 79 | "BLD",6765,"KRN",9.8,"NM","B","EDPFMRG",4)
|
---|
| 80 |
|
---|
| 81 | "BLD",6765,"KRN",9.8,"NM","B","EDPFPER",5)
|
---|
| 82 |
|
---|
| 83 | "BLD",6765,"KRN",9.8,"NM","B","EDPFPTL",6)
|
---|
| 84 |
|
---|
| 85 | "BLD",6765,"KRN",9.8,"NM","B","EDPFPTS",7)
|
---|
| 86 |
|
---|
| 87 | "BLD",6765,"KRN",9.8,"NM","B","EDPFRPC",8)
|
---|
| 88 |
|
---|
| 89 | "BLD",6765,"KRN",9.8,"NM","B","EDPX",9)
|
---|
| 90 |
|
---|
| 91 | "BLD",6765,"KRN",19,0)
|
---|
| 92 | 19
|
---|
| 93 | "BLD",6765,"KRN",19,"NM",0)
|
---|
| 94 | ^9.68A^15^15
|
---|
| 95 | "BLD",6765,"KRN",19,"NM",1,0)
|
---|
| 96 | EDPF TRACKING MENU ALL^^0
|
---|
| 97 | "BLD",6765,"KRN",19,"NM",2,0)
|
---|
| 98 | EDPF TRACKING MENU CLINICIAN^^0
|
---|
| 99 | "BLD",6765,"KRN",19,"NM",3,0)
|
---|
| 100 | EDPF TRACKING MENU SIGNIN^^0
|
---|
| 101 | "BLD",6765,"KRN",19,"NM",4,0)
|
---|
| 102 | EDPF TRACKING MENU TRIAGE^^0
|
---|
| 103 | "BLD",6765,"KRN",19,"NM",5,0)
|
---|
| 104 | EDPF TRACKING SYSTEM^^0
|
---|
| 105 | "BLD",6765,"KRN",19,"NM",6,0)
|
---|
| 106 | EDPF TRACKING VIEW BOARD^^0
|
---|
| 107 | "BLD",6765,"KRN",19,"NM",7,0)
|
---|
| 108 | EDPF TRACKING VIEW CONFIGURE^^0
|
---|
| 109 | "BLD",6765,"KRN",19,"NM",8,0)
|
---|
| 110 | EDPF TRACKING VIEW DISPOSITION^^0
|
---|
| 111 | "BLD",6765,"KRN",19,"NM",9,0)
|
---|
| 112 | EDPF TRACKING VIEW EDIT CLOSED^^0
|
---|
| 113 | "BLD",6765,"KRN",19,"NM",10,0)
|
---|
| 114 | EDPF TRACKING VIEW REPORTS^^0
|
---|
| 115 | "BLD",6765,"KRN",19,"NM",11,0)
|
---|
| 116 | EDPF TRACKING VIEW SIGNIN^^0
|
---|
| 117 | "BLD",6765,"KRN",19,"NM",12,0)
|
---|
| 118 | EDPF TRACKING VIEW STAFF^^0
|
---|
| 119 | "BLD",6765,"KRN",19,"NM",13,0)
|
---|
| 120 | EDPF TRACKING VIEW TRIAGE^^0
|
---|
| 121 | "BLD",6765,"KRN",19,"NM",14,0)
|
---|
| 122 | EDPF TRACKING VIEW UPDATE^^0
|
---|
| 123 | "BLD",6765,"KRN",19,"NM",15,0)
|
---|
| 124 | EDPFLOGLISTENER^^0
|
---|
| 125 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU ALL",1)
|
---|
| 126 |
|
---|
| 127 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU CLINICIAN",2)
|
---|
| 128 |
|
---|
| 129 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU SIGNIN",3)
|
---|
| 130 |
|
---|
| 131 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU TRIAGE",4)
|
---|
| 132 |
|
---|
| 133 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING SYSTEM",5)
|
---|
| 134 |
|
---|
| 135 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW BOARD",6)
|
---|
| 136 |
|
---|
| 137 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW CONFIGURE",7)
|
---|
| 138 |
|
---|
| 139 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW DISPOSITION",8)
|
---|
| 140 |
|
---|
| 141 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW EDIT CLOSED",9)
|
---|
| 142 |
|
---|
| 143 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW REPORTS",10)
|
---|
| 144 |
|
---|
| 145 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW SIGNIN",11)
|
---|
| 146 |
|
---|
| 147 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW STAFF",12)
|
---|
| 148 |
|
---|
| 149 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW TRIAGE",13)
|
---|
| 150 |
|
---|
| 151 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW UPDATE",14)
|
---|
| 152 |
|
---|
| 153 | "BLD",6765,"KRN",19,"NM","B","EDPFLOGLISTENER",15)
|
---|
| 154 |
|
---|
| 155 | "BLD",6765,"KRN",19.1,0)
|
---|
| 156 | 19.1
|
---|
| 157 | "BLD",6765,"KRN",19.1,"NM",0)
|
---|
| 158 | ^9.68A^3^3
|
---|
| 159 | "BLD",6765,"KRN",19.1,"NM",1,0)
|
---|
| 160 | EDPR EXPORT^^0
|
---|
| 161 | "BLD",6765,"KRN",19.1,"NM",2,0)
|
---|
| 162 | EDPR PROVIDER^^0
|
---|
| 163 | "BLD",6765,"KRN",19.1,"NM",3,0)
|
---|
| 164 | EDPR XREF^^0
|
---|
| 165 | "BLD",6765,"KRN",19.1,"NM","B","EDPR EXPORT",1)
|
---|
| 166 |
|
---|
| 167 | "BLD",6765,"KRN",19.1,"NM","B","EDPR PROVIDER",2)
|
---|
| 168 |
|
---|
| 169 | "BLD",6765,"KRN",19.1,"NM","B","EDPR XREF",3)
|
---|
| 170 |
|
---|
| 171 | "BLD",6765,"KRN",101,0)
|
---|
| 172 | 101
|
---|
| 173 | "BLD",6765,"KRN",101,"NM",0)
|
---|
| 174 | ^9.68A^9^9
|
---|
| 175 | "BLD",6765,"KRN",101,"NM",1,0)
|
---|
| 176 | EDP CHECK-IN^^0
|
---|
| 177 | "BLD",6765,"KRN",101,"NM",2,0)
|
---|
| 178 | EDP MONITOR^^0
|
---|
| 179 | "BLD",6765,"KRN",101,"NM",3,0)
|
---|
| 180 | FH EVSEND OR^^2
|
---|
| 181 | "BLD",6765,"KRN",101,"NM",4,0)
|
---|
| 182 | GMRC EVSEND OR^^2
|
---|
| 183 | "BLD",6765,"KRN",101,"NM",5,0)
|
---|
| 184 | LR7O CH EVSEND OR^^2
|
---|
| 185 | "BLD",6765,"KRN",101,"NM",6,0)
|
---|
| 186 | OR EVSEND ORG^^2
|
---|
| 187 | "BLD",6765,"KRN",101,"NM",7,0)
|
---|
| 188 | PS EVSEND OR^^2
|
---|
| 189 | "BLD",6765,"KRN",101,"NM",8,0)
|
---|
| 190 | RA EVSEND OR^^2
|
---|
| 191 | "BLD",6765,"KRN",101,"NM",9,0)
|
---|
| 192 | SDAM APPOINTMENT EVENTS^^2
|
---|
| 193 | "BLD",6765,"KRN",101,"NM","B","EDP CHECK-IN",1)
|
---|
| 194 |
|
---|
| 195 | "BLD",6765,"KRN",101,"NM","B","EDP MONITOR",2)
|
---|
| 196 |
|
---|
| 197 | "BLD",6765,"KRN",101,"NM","B","FH EVSEND OR",3)
|
---|
| 198 |
|
---|
| 199 | "BLD",6765,"KRN",101,"NM","B","GMRC EVSEND OR",4)
|
---|
| 200 |
|
---|
| 201 | "BLD",6765,"KRN",101,"NM","B","LR7O CH EVSEND OR",5)
|
---|
| 202 |
|
---|
| 203 | "BLD",6765,"KRN",101,"NM","B","OR EVSEND ORG",6)
|
---|
| 204 |
|
---|
| 205 | "BLD",6765,"KRN",101,"NM","B","PS EVSEND OR",7)
|
---|
| 206 |
|
---|
| 207 | "BLD",6765,"KRN",101,"NM","B","RA EVSEND OR",8)
|
---|
| 208 |
|
---|
| 209 | "BLD",6765,"KRN",101,"NM","B","SDAM APPOINTMENT EVENTS",9)
|
---|
| 210 |
|
---|
| 211 | "BLD",6765,"KRN",409.61,0)
|
---|
| 212 | 409.61
|
---|
| 213 | "BLD",6765,"KRN",771,0)
|
---|
| 214 | 771
|
---|
| 215 | "BLD",6765,"KRN",870,0)
|
---|
| 216 | 870
|
---|
| 217 | "BLD",6765,"KRN",8989.51,0)
|
---|
| 218 | 8989.51
|
---|
| 219 | "BLD",6765,"KRN",8989.51,"NM",0)
|
---|
| 220 | ^9.68A^2^2
|
---|
| 221 | "BLD",6765,"KRN",8989.51,"NM",1,0)
|
---|
| 222 | EDPF LOCATION^^0
|
---|
| 223 | "BLD",6765,"KRN",8989.51,"NM",2,0)
|
---|
| 224 | EDPF SERVER^^0
|
---|
| 225 | "BLD",6765,"KRN",8989.51,"NM","B","EDPF LOCATION",1)
|
---|
| 226 |
|
---|
| 227 | "BLD",6765,"KRN",8989.51,"NM","B","EDPF SERVER",2)
|
---|
| 228 |
|
---|
| 229 | "BLD",6765,"KRN",8989.52,0)
|
---|
| 230 | 8989.52
|
---|
| 231 | "BLD",6765,"KRN",8994,0)
|
---|
| 232 | 8994
|
---|
| 233 | "BLD",6765,"KRN",8994,"NM",0)
|
---|
| 234 | ^9.68A^1^1
|
---|
| 235 | "BLD",6765,"KRN",8994,"NM",1,0)
|
---|
| 236 | EDPFRPC CMD^^0
|
---|
| 237 | "BLD",6765,"KRN",8994,"NM","B","EDPFRPC CMD",1)
|
---|
| 238 |
|
---|
| 239 | "BLD",6765,"KRN","B",.4,.4)
|
---|
| 240 |
|
---|
| 241 | "BLD",6765,"KRN","B",.401,.401)
|
---|
| 242 |
|
---|
| 243 | "BLD",6765,"KRN","B",.402,.402)
|
---|
| 244 |
|
---|
| 245 | "BLD",6765,"KRN","B",.403,.403)
|
---|
| 246 |
|
---|
| 247 | "BLD",6765,"KRN","B",.5,.5)
|
---|
| 248 |
|
---|
| 249 | "BLD",6765,"KRN","B",.84,.84)
|
---|
| 250 |
|
---|
| 251 | "BLD",6765,"KRN","B",3.6,3.6)
|
---|
| 252 |
|
---|
| 253 | "BLD",6765,"KRN","B",3.8,3.8)
|
---|
| 254 |
|
---|
| 255 | "BLD",6765,"KRN","B",9.2,9.2)
|
---|
| 256 |
|
---|
| 257 | "BLD",6765,"KRN","B",9.8,9.8)
|
---|
| 258 |
|
---|
| 259 | "BLD",6765,"KRN","B",19,19)
|
---|
| 260 |
|
---|
| 261 | "BLD",6765,"KRN","B",19.1,19.1)
|
---|
| 262 |
|
---|
| 263 | "BLD",6765,"KRN","B",101,101)
|
---|
| 264 |
|
---|
| 265 | "BLD",6765,"KRN","B",409.61,409.61)
|
---|
| 266 |
|
---|
| 267 | "BLD",6765,"KRN","B",771,771)
|
---|
| 268 |
|
---|
| 269 | "BLD",6765,"KRN","B",870,870)
|
---|
| 270 |
|
---|
| 271 | "BLD",6765,"KRN","B",8989.51,8989.51)
|
---|
| 272 |
|
---|
| 273 | "BLD",6765,"KRN","B",8989.52,8989.52)
|
---|
| 274 |
|
---|
| 275 | "BLD",6765,"KRN","B",8994,8994)
|
---|
| 276 |
|
---|
| 277 | "BLD",6765,"PRE")
|
---|
| 278 | EDPYCHK
|
---|
| 279 | "BLD",6765,"QUES",0)
|
---|
| 280 | ^9.62^^
|
---|
| 281 | "BLD",6765,"REQB",0)
|
---|
| 282 | ^9.611^^
|
---|
| 283 | "FIA",232)
|
---|
| 284 | ED ACTIVE LOG
|
---|
| 285 | "FIA",232,0)
|
---|
| 286 | ^EDP(232,
|
---|
| 287 | "FIA",232,0,0)
|
---|
| 288 | 232
|
---|
| 289 | "FIA",232,0,1)
|
---|
| 290 | y^y^f^^^^n
|
---|
| 291 | "FIA",232,0,10)
|
---|
| 292 |
|
---|
| 293 | "FIA",232,0,11)
|
---|
| 294 |
|
---|
| 295 | "FIA",232,0,"RLRO")
|
---|
| 296 |
|
---|
| 297 | "FIA",232,232)
|
---|
| 298 | 0
|
---|
| 299 | "INIT")
|
---|
| 300 | EDPYPST
|
---|
| 301 | "KRN",19,13497,-1)
|
---|
| 302 | 0^5
|
---|
| 303 | "KRN",19,13497,0)
|
---|
| 304 | EDPF TRACKING SYSTEM^ED Tracking System - Facility^^B^^^^^^^^
|
---|
| 305 | "KRN",19,13497,1,0)
|
---|
| 306 | ^^1^1^3071207^
|
---|
| 307 | "KRN",19,13497,1,1,0)
|
---|
| 308 | Context option for ED Tracking System RPC calls at local facility.
|
---|
| 309 | "KRN",19,13497,99.1)
|
---|
| 310 | 61001,51187
|
---|
| 311 | "KRN",19,13497,"RPC",0)
|
---|
| 312 | ^19.05P^6^1
|
---|
| 313 | "KRN",19,13497,"RPC",6,0)
|
---|
| 314 | EDPFRPC CMD
|
---|
| 315 | "KRN",19,13497,"U")
|
---|
| 316 | ED TRACKING SYSTEM - FACILITY
|
---|
| 317 | "KRN",19,13498,-1)
|
---|
| 318 | 0^11
|
---|
| 319 | "KRN",19,13498,0)
|
---|
| 320 | EDPF TRACKING VIEW SIGNIN^Sign In Patient^^M^^^^^^^^
|
---|
| 321 | "KRN",19,13498,10,0)
|
---|
| 322 | ^19.01IP^1^1
|
---|
| 323 | "KRN",19,13498,10,1,0)
|
---|
| 324 | 13497
|
---|
| 325 | "KRN",19,13498,10,1,"^")
|
---|
| 326 | EDPF TRACKING SYSTEM
|
---|
| 327 | "KRN",19,13498,99)
|
---|
| 328 | 61006,69169
|
---|
| 329 | "KRN",19,13498,"U")
|
---|
| 330 | SIGN IN PATIENT
|
---|
| 331 | "KRN",19,13499,-1)
|
---|
| 332 | 0^13
|
---|
| 333 | "KRN",19,13499,0)
|
---|
| 334 | EDPF TRACKING VIEW TRIAGE^Triage Patient^^M^^^^^^^^
|
---|
| 335 | "KRN",19,13499,10,0)
|
---|
| 336 | ^19.01IP^1^1
|
---|
| 337 | "KRN",19,13499,10,1,0)
|
---|
| 338 | 13497
|
---|
| 339 | "KRN",19,13499,10,1,"^")
|
---|
| 340 | EDPF TRACKING SYSTEM
|
---|
| 341 | "KRN",19,13499,99)
|
---|
| 342 | 61006,69210
|
---|
| 343 | "KRN",19,13499,"U")
|
---|
| 344 | TRIAGE PATIENT
|
---|
| 345 | "KRN",19,13500,-1)
|
---|
| 346 | 0^14
|
---|
| 347 | "KRN",19,13500,0)
|
---|
| 348 | EDPF TRACKING VIEW UPDATE^Update Tracking Board^^M^^^^^^^^
|
---|
| 349 | "KRN",19,13500,10,0)
|
---|
| 350 | ^19.01IP^1^1
|
---|
| 351 | "KRN",19,13500,10,1,0)
|
---|
| 352 | 13497
|
---|
| 353 | "KRN",19,13500,10,1,"^")
|
---|
| 354 | EDPF TRACKING SYSTEM
|
---|
| 355 | "KRN",19,13500,99)
|
---|
| 356 | 61006,69219
|
---|
| 357 | "KRN",19,13500,"U")
|
---|
| 358 | UPDATE TRACKING BOARD
|
---|
| 359 | "KRN",19,13501,-1)
|
---|
| 360 | 0^8
|
---|
| 361 | "KRN",19,13501,0)
|
---|
| 362 | EDPF TRACKING VIEW DISPOSITION^Disposition Patient^^M^^^^^^^^
|
---|
| 363 | "KRN",19,13501,10,0)
|
---|
| 364 | ^19.01IP^1^1
|
---|
| 365 | "KRN",19,13501,10,1,0)
|
---|
| 366 | 13497
|
---|
| 367 | "KRN",19,13501,10,1,"^")
|
---|
| 368 | EDPF TRACKING SYSTEM
|
---|
| 369 | "KRN",19,13501,99)
|
---|
| 370 | 61006,69114
|
---|
| 371 | "KRN",19,13501,"U")
|
---|
| 372 | DISPOSITION PATIENT
|
---|
| 373 | "KRN",19,13502,-1)
|
---|
| 374 | 0^9
|
---|
| 375 | "KRN",19,13502,0)
|
---|
| 376 | EDPF TRACKING VIEW EDIT CLOSED^Edit Closed Patient^^M^^^^^^^^
|
---|
| 377 | "KRN",19,13502,10,0)
|
---|
| 378 | ^19.01IP^1^1
|
---|
| 379 | "KRN",19,13502,10,1,0)
|
---|
| 380 | 13497
|
---|
| 381 | "KRN",19,13502,10,1,"^")
|
---|
| 382 | EDPF TRACKING SYSTEM
|
---|
| 383 | "KRN",19,13502,99)
|
---|
| 384 | 61006,69143
|
---|
| 385 | "KRN",19,13502,"U")
|
---|
| 386 | EDIT CLOSED PATIENT
|
---|
| 387 | "KRN",19,13503,-1)
|
---|
| 388 | 0^6
|
---|
| 389 | "KRN",19,13503,0)
|
---|
| 390 | EDPF TRACKING VIEW BOARD^Display Board^^M^^^^^^^^
|
---|
| 391 | "KRN",19,13503,10,0)
|
---|
| 392 | ^19.01IP^1^1
|
---|
| 393 | "KRN",19,13503,10,1,0)
|
---|
| 394 | 13497
|
---|
| 395 | "KRN",19,13503,10,1,"^")
|
---|
| 396 | EDPF TRACKING SYSTEM
|
---|
| 397 | "KRN",19,13503,99)
|
---|
| 398 | 61006,69081
|
---|
| 399 | "KRN",19,13503,"U")
|
---|
| 400 | DISPLAY BOARD
|
---|
| 401 | "KRN",19,13504,-1)
|
---|
| 402 | 0^10
|
---|
| 403 | "KRN",19,13504,0)
|
---|
| 404 | EDPF TRACKING VIEW REPORTS^Tracking Reports^^M^^^^^^^^
|
---|
| 405 | "KRN",19,13504,10,0)
|
---|
| 406 | ^19.01IP^1^1
|
---|
| 407 | "KRN",19,13504,10,1,0)
|
---|
| 408 | 13497
|
---|
| 409 | "KRN",19,13504,10,1,"^")
|
---|
| 410 | EDPF TRACKING SYSTEM
|
---|
| 411 | "KRN",19,13504,99)
|
---|
| 412 | 61006,69156
|
---|
| 413 | "KRN",19,13504,"U")
|
---|
| 414 | TRACKING REPORTS
|
---|
| 415 | "KRN",19,13505,-1)
|
---|
| 416 | 0^7
|
---|
| 417 | "KRN",19,13505,0)
|
---|
| 418 | EDPF TRACKING VIEW CONFIGURE^Configure Tracking Board^^M^^^^^^^^
|
---|
| 419 | "KRN",19,13505,10,0)
|
---|
| 420 | ^19.01IP^1^1
|
---|
| 421 | "KRN",19,13505,10,1,0)
|
---|
| 422 | 13497
|
---|
| 423 | "KRN",19,13505,10,1,"^")
|
---|
| 424 | EDPF TRACKING SYSTEM
|
---|
| 425 | "KRN",19,13505,99)
|
---|
| 426 | 61006,69100
|
---|
| 427 | "KRN",19,13505,"U")
|
---|
| 428 | CONFIGURE TRACKING BOARD
|
---|
| 429 | "KRN",19,13506,-1)
|
---|
| 430 | 0^12
|
---|
| 431 | "KRN",19,13506,0)
|
---|
| 432 | EDPF TRACKING VIEW STAFF^Assign Staff^^M^^^^^^^^
|
---|
| 433 | "KRN",19,13506,10,0)
|
---|
| 434 | ^19.01IP^1^1
|
---|
| 435 | "KRN",19,13506,10,1,0)
|
---|
| 436 | 13497
|
---|
| 437 | "KRN",19,13506,10,1,"^")
|
---|
| 438 | EDPF TRACKING SYSTEM
|
---|
| 439 | "KRN",19,13506,99)
|
---|
| 440 | 61006,69203
|
---|
| 441 | "KRN",19,13506,"U")
|
---|
| 442 | ASSIGN STAFF
|
---|
| 443 | "KRN",19,13507,-1)
|
---|
| 444 | 0^1
|
---|
| 445 | "KRN",19,13507,0)
|
---|
| 446 | EDPF TRACKING MENU ALL^All Tracking Views^^M^^^^^^^^
|
---|
| 447 | "KRN",19,13507,10,0)
|
---|
| 448 | ^19.01IP^9^9
|
---|
| 449 | "KRN",19,13507,10,1,0)
|
---|
| 450 | 13498^^10
|
---|
| 451 | "KRN",19,13507,10,1,"^")
|
---|
| 452 | EDPF TRACKING VIEW SIGNIN
|
---|
| 453 | "KRN",19,13507,10,2,0)
|
---|
| 454 | 13499^^20
|
---|
| 455 | "KRN",19,13507,10,2,"^")
|
---|
| 456 | EDPF TRACKING VIEW TRIAGE
|
---|
| 457 | "KRN",19,13507,10,3,0)
|
---|
| 458 | 13500^^30
|
---|
| 459 | "KRN",19,13507,10,3,"^")
|
---|
| 460 | EDPF TRACKING VIEW UPDATE
|
---|
| 461 | "KRN",19,13507,10,4,0)
|
---|
| 462 | 13501^^40
|
---|
| 463 | "KRN",19,13507,10,4,"^")
|
---|
| 464 | EDPF TRACKING VIEW DISPOSITION
|
---|
| 465 | "KRN",19,13507,10,5,0)
|
---|
| 466 | 13502^^50
|
---|
| 467 | "KRN",19,13507,10,5,"^")
|
---|
| 468 | EDPF TRACKING VIEW EDIT CLOSED
|
---|
| 469 | "KRN",19,13507,10,6,0)
|
---|
| 470 | 13503^^60
|
---|
| 471 | "KRN",19,13507,10,6,"^")
|
---|
| 472 | EDPF TRACKING VIEW BOARD
|
---|
| 473 | "KRN",19,13507,10,7,0)
|
---|
| 474 | 13506^^70
|
---|
| 475 | "KRN",19,13507,10,7,"^")
|
---|
| 476 | EDPF TRACKING VIEW STAFF
|
---|
| 477 | "KRN",19,13507,10,8,0)
|
---|
| 478 | 13504^^80
|
---|
| 479 | "KRN",19,13507,10,8,"^")
|
---|
| 480 | EDPF TRACKING VIEW REPORTS
|
---|
| 481 | "KRN",19,13507,10,9,0)
|
---|
| 482 | 13505^^90
|
---|
| 483 | "KRN",19,13507,10,9,"^")
|
---|
| 484 | EDPF TRACKING VIEW CONFIGURE
|
---|
| 485 | "KRN",19,13507,99)
|
---|
| 486 | 61006,69308
|
---|
| 487 | "KRN",19,13507,99.1)
|
---|
| 488 | 60985,48124
|
---|
| 489 | "KRN",19,13507,"U")
|
---|
| 490 | ALL TRACKING VIEWS
|
---|
| 491 | "KRN",19,13510,-1)
|
---|
| 492 | 0^15
|
---|
| 493 | "KRN",19,13510,0)
|
---|
| 494 | EDPFLOGLISTENER^Listen for changes in tracking log.^^S^^^^^^^^EMERGENCY DEPARTMENT
|
---|
| 495 | "KRN",19,13510,25)
|
---|
| 496 | EDPFMRG
|
---|
| 497 | "KRN",19,13510,220)
|
---|
| 498 | ^R^^N^Y^N
|
---|
| 499 | "KRN",19,13510,"U")
|
---|
| 500 | LISTEN FOR CHANGES IN TRACKING
|
---|
| 501 | "KRN",19,13511,-1)
|
---|
| 502 | 0^3
|
---|
| 503 | "KRN",19,13511,0)
|
---|
| 504 | EDPF TRACKING MENU SIGNIN^Sign-in Tracking Views^^M^^^^^^^^
|
---|
| 505 | "KRN",19,13511,10,0)
|
---|
| 506 | ^19.01IP^2^2
|
---|
| 507 | "KRN",19,13511,10,1,0)
|
---|
| 508 | 13498^^10
|
---|
| 509 | "KRN",19,13511,10,1,"^")
|
---|
| 510 | EDPF TRACKING VIEW SIGNIN
|
---|
| 511 | "KRN",19,13511,10,2,0)
|
---|
| 512 | 13503^^20
|
---|
| 513 | "KRN",19,13511,10,2,"^")
|
---|
| 514 | EDPF TRACKING VIEW BOARD
|
---|
| 515 | "KRN",19,13511,99)
|
---|
| 516 | 61006,69828
|
---|
| 517 | "KRN",19,13511,99.1)
|
---|
| 518 | 61018,67859
|
---|
| 519 | "KRN",19,13511,"U")
|
---|
| 520 | SIGN-IN TRACKING VIEWS
|
---|
| 521 | "KRN",19,13512,-1)
|
---|
| 522 | 0^4
|
---|
| 523 | "KRN",19,13512,0)
|
---|
| 524 | EDPF TRACKING MENU TRIAGE^Triage Tracking Views^^M^^^^^^^^
|
---|
| 525 | "KRN",19,13512,10,0)
|
---|
| 526 | ^19.01IP^2^2
|
---|
| 527 | "KRN",19,13512,10,1,0)
|
---|
| 528 | 13499^^10
|
---|
| 529 | "KRN",19,13512,10,1,"^")
|
---|
| 530 | EDPF TRACKING VIEW TRIAGE
|
---|
| 531 | "KRN",19,13512,10,2,0)
|
---|
| 532 | 13503^^20
|
---|
| 533 | "KRN",19,13512,10,2,"^")
|
---|
| 534 | EDPF TRACKING VIEW BOARD
|
---|
| 535 | "KRN",19,13512,99)
|
---|
| 536 | 61006,69855
|
---|
| 537 | "KRN",19,13512,"U")
|
---|
| 538 | TRIAGE TRACKING VIEWS
|
---|
| 539 | "KRN",19,13513,-1)
|
---|
| 540 | 0^2
|
---|
| 541 | "KRN",19,13513,0)
|
---|
| 542 | EDPF TRACKING MENU CLINICIAN^Clinician Tracking Views^^M^^^^^^^^
|
---|
| 543 | "KRN",19,13513,10,0)
|
---|
| 544 | ^19.01IP^3^3
|
---|
| 545 | "KRN",19,13513,10,1,0)
|
---|
| 546 | 13500^^10
|
---|
| 547 | "KRN",19,13513,10,1,"^")
|
---|
| 548 | EDPF TRACKING VIEW UPDATE
|
---|
| 549 | "KRN",19,13513,10,2,0)
|
---|
| 550 | 13501^^20
|
---|
| 551 | "KRN",19,13513,10,2,"^")
|
---|
| 552 | EDPF TRACKING VIEW DISPOSITION
|
---|
| 553 | "KRN",19,13513,10,3,0)
|
---|
| 554 | 13503^^30
|
---|
| 555 | "KRN",19,13513,10,3,"^")
|
---|
| 556 | EDPF TRACKING VIEW BOARD
|
---|
| 557 | "KRN",19,13513,99)
|
---|
| 558 | 61006,69882
|
---|
| 559 | "KRN",19,13513,"U")
|
---|
| 560 | CLINICIAN TRACKING VIEWS
|
---|
| 561 | "KRN",19.1,594,-1)
|
---|
| 562 | 0^1
|
---|
| 563 | "KRN",19.1,594,0)
|
---|
| 564 | EDPR EXPORT^Allows CSV Export of Report
|
---|
| 565 | "KRN",19.1,594,1,0)
|
---|
| 566 | ^^2^2^3071221^
|
---|
| 567 | "KRN",19.1,594,1,1,0)
|
---|
| 568 | Allows export of report using tab delimited values for use in Excel and
|
---|
| 569 | "KRN",19.1,594,1,2,0)
|
---|
| 570 | other products.
|
---|
| 571 | "KRN",19.1,595,-1)
|
---|
| 572 | 0^2
|
---|
| 573 | "KRN",19.1,595,0)
|
---|
| 574 | EDPR PROVIDER^Allow Provider Report
|
---|
| 575 | "KRN",19.1,595,1,0)
|
---|
| 576 | ^^2^2^3071221^
|
---|
| 577 | "KRN",19.1,595,1,1,0)
|
---|
| 578 | Allows access to the provider report in the reports menu for the ED
|
---|
| 579 | "KRN",19.1,595,1,2,0)
|
---|
| 580 | package.
|
---|
| 581 | "KRN",19.1,596,-1)
|
---|
| 582 | 0^3
|
---|
| 583 | "KRN",19.1,596,0)
|
---|
| 584 | EDPR XREF^Allow Pt Xref Report
|
---|
| 585 | "KRN",19.1,596,1,0)
|
---|
| 586 | ^^2^2^3071221^
|
---|
| 587 | "KRN",19.1,596,1,1,0)
|
---|
| 588 | Allows use of the patient cross reference report in the list of reports
|
---|
| 589 | "KRN",19.1,596,1,2,0)
|
---|
| 590 | for the emergency department.
|
---|
| 591 | "KRN",101,1302,-1)
|
---|
| 592 | 2^9
|
---|
| 593 | "KRN",101,1302,0)
|
---|
| 594 | SDAM APPOINTMENT EVENTS^Appointment Event Driver^^X^10000000020^^^^^^^16
|
---|
| 595 | "KRN",101,1302,10,0)
|
---|
| 596 | ^101.01PA^20^20
|
---|
| 597 | "KRN",101,1302,10,20,0)
|
---|
| 598 | 5601^^^
|
---|
| 599 | "KRN",101,1302,10,20,"^")
|
---|
| 600 | EDP CHECK-IN
|
---|
| 601 | "KRN",101,2690,-1)
|
---|
| 602 | 2^8
|
---|
| 603 | "KRN",101,2690,0)
|
---|
| 604 | RA EVSEND OR^Radiology event sent to OE/RR^^X^10000000179^^^^^^^31
|
---|
| 605 | "KRN",101,2690,10,0)
|
---|
| 606 | ^101.01PA^4^4
|
---|
| 607 | "KRN",101,2690,10,4,0)
|
---|
| 608 | 5600^^^
|
---|
| 609 | "KRN",101,2690,10,4,"^")
|
---|
| 610 | EDP MONITOR
|
---|
| 611 | "KRN",101,3336,-1)
|
---|
| 612 | 2^5
|
---|
| 613 | "KRN",101,3336,0)
|
---|
| 614 | LR7O CH EVSEND OR^LAB => OE/RR ORDER MESSAGE EVENT^^X^10000000179^^^^^^^
|
---|
| 615 | "KRN",101,3336,10,0)
|
---|
| 616 | ^101.01PA^4^4
|
---|
| 617 | "KRN",101,3336,10,4,0)
|
---|
| 618 | 5600^^^
|
---|
| 619 | "KRN",101,3336,10,4,"^")
|
---|
| 620 | EDP MONITOR
|
---|
| 621 | "KRN",101,3373,-1)
|
---|
| 622 | 2^7
|
---|
| 623 | "KRN",101,3373,0)
|
---|
| 624 | PS EVSEND OR^Send Pharmacy orders to CPRS.^^X^10000000179^^^^^^^18
|
---|
| 625 | "KRN",101,3373,10,0)
|
---|
| 626 | ^101.01PA^6^6
|
---|
| 627 | "KRN",101,3373,10,6,0)
|
---|
| 628 | 5600^^2^
|
---|
| 629 | "KRN",101,3373,10,6,"^")
|
---|
| 630 | EDP MONITOR
|
---|
| 631 | "KRN",101,3392,-1)
|
---|
| 632 | 2^4
|
---|
| 633 | "KRN",101,3392,0)
|
---|
| 634 | GMRC EVSEND OR^Consults event sent to OE/RR^^X^10000000179^^^^^^^294
|
---|
| 635 | "KRN",101,3392,10,0)
|
---|
| 636 | ^101.01PA^5^5
|
---|
| 637 | "KRN",101,3392,10,5,0)
|
---|
| 638 | 5600^^^
|
---|
| 639 | "KRN",101,3392,10,5,"^")
|
---|
| 640 | EDP MONITOR
|
---|
| 641 | "KRN",101,3411,-1)
|
---|
| 642 | 2^3
|
---|
| 643 | "KRN",101,3411,0)
|
---|
| 644 | FH EVSEND OR^FH --> OR event messages^^X^10000000179^^^^^^^
|
---|
| 645 | "KRN",101,3411,10,0)
|
---|
| 646 | ^101.01PA^3^3
|
---|
| 647 | "KRN",101,3411,10,3,0)
|
---|
| 648 | 5600^^^
|
---|
| 649 | "KRN",101,3411,10,3,"^")
|
---|
| 650 | EDP MONITOR
|
---|
| 651 | "KRN",101,3536,-1)
|
---|
| 652 | 2^6
|
---|
| 653 | "KRN",101,3536,0)
|
---|
| 654 | OR EVSEND ORG^OE/RR => GENERIC MESSAGE EVENT^^X^10000000179^^^^^^^
|
---|
| 655 | "KRN",101,3536,10,0)
|
---|
| 656 | ^101.01PA^3^3
|
---|
| 657 | "KRN",101,3536,10,3,0)
|
---|
| 658 | 5600^^^
|
---|
| 659 | "KRN",101,3536,10,3,"^")
|
---|
| 660 | EDP MONITOR
|
---|
| 661 | "KRN",101,5600,-1)
|
---|
| 662 | 0^2
|
---|
| 663 | "KRN",101,5600,0)
|
---|
| 664 | EDP MONITOR^Monitor order messages for EDP Log^^A^^^^^^^^
|
---|
| 665 | "KRN",101,5600,20)
|
---|
| 666 | D EN^EDPFMON(.XQORMSG)
|
---|
| 667 | "KRN",101,5600,99)
|
---|
| 668 | 60981,2250
|
---|
| 669 | "KRN",101,5601,-1)
|
---|
| 670 | 0^1
|
---|
| 671 | "KRN",101,5601,0)
|
---|
| 672 | EDP CHECK-IN^Monitor for ED check-in^^A^^^^^^^^
|
---|
| 673 | "KRN",101,5601,1,0)
|
---|
| 674 | ^101.06^2^2^3071228^^^
|
---|
| 675 | "KRN",101,5601,1,1,0)
|
---|
| 676 | This protocol will monitor the Scheduling event for patients being
|
---|
| 677 | "KRN",101,5601,1,2,0)
|
---|
| 678 | checked-in to the Emergency Department.
|
---|
| 679 | "KRN",101,5601,20)
|
---|
| 680 | D SDAM^EDPFMON
|
---|
| 681 | "KRN",101,5601,99)
|
---|
| 682 | 60984,42497
|
---|
| 683 | "KRN",8989.51,510,-1)
|
---|
| 684 | 0^1
|
---|
| 685 | "KRN",8989.51,510,0)
|
---|
| 686 | EDPF LOCATION^Local ED Hospital Location^0^^ED LOCATION
|
---|
| 687 | "KRN",8989.51,510,1)
|
---|
| 688 | P^44^Enter the Hospital Location that is the local Emergency Department.
|
---|
| 689 | "KRN",8989.51,510,3)
|
---|
| 690 | I $P(^(0),U,3)'="W"
|
---|
| 691 | "KRN",8989.51,510,20,0)
|
---|
| 692 | ^8989.512^2^2^3071220^
|
---|
| 693 | "KRN",8989.51,510,20,1,0)
|
---|
| 694 | This parameter holds the Hospital Location file #44 ien of the local
|
---|
| 695 | "KRN",8989.51,510,20,2,0)
|
---|
| 696 | Emergency Department.
|
---|
| 697 | "KRN",8989.51,510,30,0)
|
---|
| 698 | ^8989.513I^1^1
|
---|
| 699 | "KRN",8989.51,510,30,1,0)
|
---|
| 700 | 1^4.2
|
---|
| 701 | "KRN",8989.51,511,-1)
|
---|
| 702 | 0^2
|
---|
| 703 | "KRN",8989.51,511,0)
|
---|
| 704 | EDPF SERVER^EDIS Server^0^^Domain Address
|
---|
| 705 | "KRN",8989.51,511,1)
|
---|
| 706 | F^^Enter the domain name for the EDIS server.
|
---|
| 707 | "KRN",8989.51,511,30,0)
|
---|
| 708 | ^8989.513I^2^2
|
---|
| 709 | "KRN",8989.51,511,30,1,0)
|
---|
| 710 | 5^4.2
|
---|
| 711 | "KRN",8989.51,511,30,2,0)
|
---|
| 712 | 10^9.4
|
---|
| 713 | "KRN",8994,2528,-1)
|
---|
| 714 | 0^1
|
---|
| 715 | "KRN",8994,2528,0)
|
---|
| 716 | EDPFRPC CMD^CMD^EDPFRPC^2
|
---|
| 717 | "MBREQ")
|
---|
| 718 | 0
|
---|
| 719 | "ORD",3,19.1)
|
---|
| 720 | 19.1;3;1;;KEY^XPDTA1;;;KEYF2^XPDIA1;;KEYDEL^XPDIA1
|
---|
| 721 | "ORD",3,19.1,0)
|
---|
| 722 | SECURITY KEY
|
---|
| 723 | "ORD",15,101)
|
---|
| 724 | 101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA
|
---|
| 725 | "ORD",15,101,0)
|
---|
| 726 | PROTOCOL
|
---|
| 727 | "ORD",16,8994)
|
---|
| 728 | 8994;16;1;;;;;;;RPCDEL^XPDIA1
|
---|
| 729 | "ORD",16,8994,0)
|
---|
| 730 | REMOTE PROCEDURE
|
---|
| 731 | "ORD",18,19)
|
---|
| 732 | 19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
|
---|
| 733 | "ORD",18,19,0)
|
---|
| 734 | OPTION
|
---|
| 735 | "ORD",20,8989.51)
|
---|
| 736 | 8989.51;20;;;PAR1E1^XPDTA2;PAR1F1^XPDIA3;PAR1E1^XPDIA3;PAR1F2^XPDIA3;;PAR1DEL^XPDIA3(%)
|
---|
| 737 | "ORD",20,8989.51,0)
|
---|
| 738 | PARAMETER DEFINITION
|
---|
| 739 | "PRE")
|
---|
| 740 | EDPYCHK
|
---|
| 741 | "QUES","XPF1",0)
|
---|
| 742 | Y
|
---|
| 743 | "QUES","XPF1","??")
|
---|
| 744 | ^D REP^XPDH
|
---|
| 745 | "QUES","XPF1","A")
|
---|
| 746 | Shall I write over your |FLAG| File
|
---|
| 747 | "QUES","XPF1","B")
|
---|
| 748 | YES
|
---|
| 749 | "QUES","XPF1","M")
|
---|
| 750 | D XPF1^XPDIQ
|
---|
| 751 | "QUES","XPF2",0)
|
---|
| 752 | Y
|
---|
| 753 | "QUES","XPF2","??")
|
---|
| 754 | ^D DTA^XPDH
|
---|
| 755 | "QUES","XPF2","A")
|
---|
| 756 | Want my data |FLAG| yours
|
---|
| 757 | "QUES","XPF2","B")
|
---|
| 758 | YES
|
---|
| 759 | "QUES","XPF2","M")
|
---|
| 760 | D XPF2^XPDIQ
|
---|
| 761 | "QUES","XPI1",0)
|
---|
| 762 | YO
|
---|
| 763 | "QUES","XPI1","??")
|
---|
| 764 | ^D INHIBIT^XPDH
|
---|
| 765 | "QUES","XPI1","A")
|
---|
| 766 | Want KIDS to INHIBIT LOGONs during the install
|
---|
| 767 | "QUES","XPI1","B")
|
---|
| 768 | YES
|
---|
| 769 | "QUES","XPI1","M")
|
---|
| 770 | D XPI1^XPDIQ
|
---|
| 771 | "QUES","XPM1",0)
|
---|
| 772 | PO^VA(200,:EM
|
---|
| 773 | "QUES","XPM1","??")
|
---|
| 774 | ^D MG^XPDH
|
---|
| 775 | "QUES","XPM1","A")
|
---|
| 776 | Enter the Coordinator for Mail Group '|FLAG|'
|
---|
| 777 | "QUES","XPM1","B")
|
---|
| 778 |
|
---|
| 779 | "QUES","XPM1","M")
|
---|
| 780 | D XPM1^XPDIQ
|
---|
| 781 | "QUES","XPO1",0)
|
---|
| 782 | Y
|
---|
| 783 | "QUES","XPO1","??")
|
---|
| 784 | ^D MENU^XPDH
|
---|
| 785 | "QUES","XPO1","A")
|
---|
| 786 | Want KIDS to Rebuild Menu Trees Upon Completion of Install
|
---|
| 787 | "QUES","XPO1","B")
|
---|
| 788 | YES
|
---|
| 789 | "QUES","XPO1","M")
|
---|
| 790 | D XPO1^XPDIQ
|
---|
| 791 | "QUES","XPZ1",0)
|
---|
| 792 | Y
|
---|
| 793 | "QUES","XPZ1","??")
|
---|
| 794 | ^D OPT^XPDH
|
---|
| 795 | "QUES","XPZ1","A")
|
---|
| 796 | Want to DISABLE Scheduled Options, Menu Options, and Protocols
|
---|
| 797 | "QUES","XPZ1","B")
|
---|
| 798 | YES
|
---|
| 799 | "QUES","XPZ1","M")
|
---|
| 800 | D XPZ1^XPDIQ
|
---|
| 801 | "QUES","XPZ2",0)
|
---|
| 802 | Y
|
---|
| 803 | "QUES","XPZ2","??")
|
---|
| 804 | ^D RTN^XPDH
|
---|
| 805 | "QUES","XPZ2","A")
|
---|
| 806 | Want to MOVE routines to other CPUs
|
---|
| 807 | "QUES","XPZ2","B")
|
---|
| 808 | NO
|
---|
| 809 | "QUES","XPZ2","M")
|
---|
| 810 | D XPZ2^XPDIQ
|
---|
| 811 | "RTN")
|
---|
| 812 | 11
|
---|
| 813 | "RTN","EDPFAA")
|
---|
| 814 | 0^1^B4733089
|
---|
| 815 | "RTN","EDPFAA",1,0)
|
---|
| 816 | EDPFAA ;SLC/KCM - RPC Calls to Facility
|
---|
| 817 | "RTN","EDPFAA",2,0)
|
---|
| 818 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 819 | "RTN","EDPFAA",3,0)
|
---|
| 820 | ;
|
---|
| 821 | "RTN","EDPFAA",4,0)
|
---|
| 822 | SESS ; set up session
|
---|
| 823 | "RTN","EDPFAA",5,0)
|
---|
| 824 | N X
|
---|
| 825 | "RTN","EDPFAA",6,0)
|
---|
| 826 | S X("duz")=DUZ
|
---|
| 827 | "RTN","EDPFAA",7,0)
|
---|
| 828 | S X("userNm")=$P($G(^VA(200,DUZ,0)),U)
|
---|
| 829 | "RTN","EDPFAA",8,0)
|
---|
| 830 | S X("site")=DUZ(2)
|
---|
| 831 | "RTN","EDPFAA",9,0)
|
---|
| 832 | S X("siteNm")=$$NAME^XUAF4(X("site"))
|
---|
| 833 | "RTN","EDPFAA",10,0)
|
---|
| 834 | S X("station")=$$STA^XUAF4(DUZ(2))
|
---|
| 835 | "RTN","EDPFAA",11,0)
|
---|
| 836 | S X("time")=$$NOW^XLFDT
|
---|
| 837 | "RTN","EDPFAA",12,0)
|
---|
| 838 | S X("rptExport")=($D(^XUSEC("EDPR EXPORT",DUZ))>0)
|
---|
| 839 | "RTN","EDPFAA",13,0)
|
---|
| 840 | S X("rptProvider")=($D(^XUSEC("EDPR PROVIDER",DUZ))>0)
|
---|
| 841 | "RTN","EDPFAA",14,0)
|
---|
| 842 | S X("rptXRef")=($D(^XUSEC("EDPR XREF",DUZ))>0)
|
---|
| 843 | "RTN","EDPFAA",15,0)
|
---|
| 844 | S X("progMode")=($D(^XUSEC("XUPROGMODE",DUZ))>0)
|
---|
| 845 | "RTN","EDPFAA",16,0)
|
---|
| 846 | ;
|
---|
| 847 | "RTN","EDPFAA",17,0)
|
---|
| 848 | S X("timeOut")=$$GET^XPAR("USR^SYS","ORWOR TIMEOUT CHART",1,"I")
|
---|
| 849 | "RTN","EDPFAA",18,0)
|
---|
| 850 | S:'X("timeOut") X("timeOut")=$G(DTIME) S:'X("timeOut") X("timeOut")=300
|
---|
| 851 | "RTN","EDPFAA",19,0)
|
---|
| 852 | S X("timeOut")=X("timeOut")*1000 ; milliseconds
|
---|
| 853 | "RTN","EDPFAA",20,0)
|
---|
| 854 | S X("countDown")=$$GET^XPAR("USR^SYS^PKG","ORWOR TIMEOUT COUNTDOWN",1,"I")
|
---|
| 855 | "RTN","EDPFAA",21,0)
|
---|
| 856 | S:'X("countDown") X("countDown")=10
|
---|
| 857 | "RTN","EDPFAA",22,0)
|
---|
| 858 | S X("countDown")=X("countDown")*1000 ; milliseconds
|
---|
| 859 | "RTN","EDPFAA",23,0)
|
---|
| 860 | D XML^EDPX($$XMLA^EDPX("user",.X))
|
---|
| 861 | "RTN","EDPFAA",24,0)
|
---|
| 862 | Q
|
---|
| 863 | "RTN","EDPFAA",25,0)
|
---|
| 864 | ;
|
---|
| 865 | "RTN","EDPFAA",26,0)
|
---|
| 866 | VIEWS ; Return views allowed for this user
|
---|
| 867 | "RTN","EDPFAA",27,0)
|
---|
| 868 | N I,X,ID
|
---|
| 869 | "RTN","EDPFAA",28,0)
|
---|
| 870 | F I=1:1 S X=$P($T(OPTIONS+I),";",3,99) Q:X="zzzzz" D
|
---|
| 871 | "RTN","EDPFAA",29,0)
|
---|
| 872 | . I $$ACCESS^XQCHK(DUZ,$P(X,U)) D
|
---|
| 873 | "RTN","EDPFAA",30,0)
|
---|
| 874 | . . D XML^EDPX($$XMLS^EDPX("view",$P(X,U,3),$P(X,U,2)))
|
---|
| 875 | "RTN","EDPFAA",31,0)
|
---|
| 876 | Q
|
---|
| 877 | "RTN","EDPFAA",32,0)
|
---|
| 878 | OPTIONS ;; options visible in Tracking System
|
---|
| 879 | "RTN","EDPFAA",33,0)
|
---|
| 880 | ;;EDPF TRACKING VIEW SIGNIN^Sign In^1
|
---|
| 881 | "RTN","EDPFAA",34,0)
|
---|
| 882 | ;;EDPF TRACKING VIEW TRIAGE^Triage^2
|
---|
| 883 | "RTN","EDPFAA",35,0)
|
---|
| 884 | ;;EDPF TRACKING VIEW UPDATE^Update^3
|
---|
| 885 | "RTN","EDPFAA",36,0)
|
---|
| 886 | ;;EDPF TRACKING VIEW DISPOSITION^Disposition^4
|
---|
| 887 | "RTN","EDPFAA",37,0)
|
---|
| 888 | ;;EDPF TRACKING VIEW EDIT CLOSED^Edit Closed^5
|
---|
| 889 | "RTN","EDPFAA",38,0)
|
---|
| 890 | ;;EDPF TRACKING VIEW BOARD^Display Board^6
|
---|
| 891 | "RTN","EDPFAA",39,0)
|
---|
| 892 | ;;EDPF TRACKING VIEW STAFF^Assign Staff^7
|
---|
| 893 | "RTN","EDPFAA",40,0)
|
---|
| 894 | ;;EDPF TRACKING VIEW REPORTS^Reports^8
|
---|
| 895 | "RTN","EDPFAA",41,0)
|
---|
| 896 | ;;EDPF TRACKING VIEW CONFIGURE^Configure^9
|
---|
| 897 | "RTN","EDPFAA",42,0)
|
---|
| 898 | ;;zzzzz
|
---|
| 899 | "RTN","EDPFLEX")
|
---|
| 900 | 0^2^B795410
|
---|
| 901 | "RTN","EDPFLEX",1,0)
|
---|
| 902 | EDPFLEX ;SLC/KCM - Lexicon Utilities
|
---|
| 903 | "RTN","EDPFLEX",2,0)
|
---|
| 904 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 905 | "RTN","EDPFLEX",3,0)
|
---|
| 906 | ;
|
---|
| 907 | "RTN","EDPFLEX",4,0)
|
---|
| 908 | ICD(TEXT) ; Return Lexicon hits for TEXT
|
---|
| 909 | "RTN","EDPFLEX",5,0)
|
---|
| 910 | N LEX,X,Y,I,CODE,NAME,ITEM
|
---|
| 911 | "RTN","EDPFLEX",6,0)
|
---|
| 912 | D CONFIG^LEXSET("GMPL","PL1",DT)
|
---|
| 913 | "RTN","EDPFLEX",7,0)
|
---|
| 914 | D LOOK^LEXA(TEXT,"GMPL",999,"",DT)
|
---|
| 915 | "RTN","EDPFLEX",8,0)
|
---|
| 916 | D XML^EDPX("<items>")
|
---|
| 917 | "RTN","EDPFLEX",9,0)
|
---|
| 918 | S I=0 F S I=$O(LEX("LIST",I)) Q:I<1 D
|
---|
| 919 | "RTN","EDPFLEX",10,0)
|
---|
| 920 | . S X=$P(LEX("LIST",I),U,2)
|
---|
| 921 | "RTN","EDPFLEX",11,0)
|
---|
| 922 | . S CODE=$P($P(X,"ICD-9-CM ",2),")") Q:'$L(CODE)
|
---|
| 923 | "RTN","EDPFLEX",12,0)
|
---|
| 924 | . S NAME=$P(X," (ICD-9-CM")
|
---|
| 925 | "RTN","EDPFLEX",13,0)
|
---|
| 926 | . S:$E(NAME,$L(NAME))="*" NAME=$E(NAME,1,$L(NAME)-2)
|
---|
| 927 | "RTN","EDPFLEX",14,0)
|
---|
| 928 | . S ITEM("icd")=CODE,ITEM("text")=NAME
|
---|
| 929 | "RTN","EDPFLEX",15,0)
|
---|
| 930 | . S Y=$$XMLA^EDPX("item",.ITEM) D XML^EDPX(Y)
|
---|
| 931 | "RTN","EDPFLEX",16,0)
|
---|
| 932 | D XML^EDPX("</items>")
|
---|
| 933 | "RTN","EDPFLEX",17,0)
|
---|
| 934 | Q
|
---|
| 935 | "RTN","EDPFMON")
|
---|
| 936 | 0^3^B17795750
|
---|
| 937 | "RTN","EDPFMON",1,0)
|
---|
| 938 | EDPFMON ;SLC/MKB - ED Monitor at facility
|
---|
| 939 | "RTN","EDPFMON",2,0)
|
---|
| 940 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 941 | "RTN","EDPFMON",3,0)
|
---|
| 942 | ;
|
---|
| 943 | "RTN","EDPFMON",4,0)
|
---|
| 944 | EN(MSG) ; -- main entry point for EDP MONITOR where MSG contains HL7 msg
|
---|
| 945 | "RTN","EDPFMON",5,0)
|
---|
| 946 | N EDMSG,PKG,MSH,PID,PV1,ORC,DFN,LOG
|
---|
| 947 | "RTN","EDPFMON",6,0)
|
---|
| 948 | S EDMSG=$S($L($G(MSG)):MSG,1:"MSG"),MSH=0 ;MSG="NAME" or MSG(#)
|
---|
| 949 | "RTN","EDPFMON",7,0)
|
---|
| 950 | F S MSH=$O(@EDMSG@(MSH)) Q:MSH'>0 Q:$E(@EDMSG@(MSH),1,3)="MSH"
|
---|
| 951 | "RTN","EDPFMON",8,0)
|
---|
| 952 | Q:'MSH ;no message/header
|
---|
| 953 | "RTN","EDPFMON",9,0)
|
---|
| 954 | S PKG=$$PKG($P(@EDMSG@(MSH),"|",3)) Q:'$L(PKG) ;unknown or not tracked
|
---|
| 955 | "RTN","EDPFMON",10,0)
|
---|
| 956 | S DFN=$$PID Q:DFN<1 ;missing patient
|
---|
| 957 | "RTN","EDPFMON",11,0)
|
---|
| 958 | S LOG=+$O(^EDP(232,"C",DFN,0)) Q:LOG<1 ;not in ED now
|
---|
| 959 | "RTN","EDPFMON",12,0)
|
---|
| 960 | S LOG=+$P(^EDP(232,LOG,0),U) Q:LOG<1
|
---|
| 961 | "RTN","EDPFMON",13,0)
|
---|
| 962 | S ORC=0 F S ORC=$O(@EDMSG@(+ORC)) Q:ORC'>0 I $E(@EDMSG@(ORC),1,3)="ORC" D
|
---|
| 963 | "RTN","EDPFMON",14,0)
|
---|
| 964 | . N ORDCNTRL,ORIFN,STS,RTN
|
---|
| 965 | "RTN","EDPFMON",15,0)
|
---|
| 966 | . S ORC=ORC_U_@EDMSG@(ORC),ORDCNTRL=$TR($P(ORC,"|",2),"@","P")
|
---|
| 967 | "RTN","EDPFMON",16,0)
|
---|
| 968 | . Q:'$L(ORDCNTRL)
|
---|
| 969 | "RTN","EDPFMON",17,0)
|
---|
| 970 | . S ORIFN=$P($P(ORC,"|",3),U),STS=$P(ORC,"|",6)
|
---|
| 971 | "RTN","EDPFMON",18,0)
|
---|
| 972 | . S RTN=$S("NW^OK^SN^XR"[ORDCNTRL:"NEW",1:"UPD")
|
---|
| 973 | "RTN","EDPFMON",19,0)
|
---|
| 974 | . D @RTN
|
---|
| 975 | "RTN","EDPFMON",20,0)
|
---|
| 976 | Q
|
---|
| 977 | "RTN","EDPFMON",21,0)
|
---|
| 978 | ;
|
---|
| 979 | "RTN","EDPFMON",22,0)
|
---|
| 980 | PKG(NAME) ; -- Returns package code
|
---|
| 981 | "RTN","EDPFMON",23,0)
|
---|
| 982 | I NAME="RADIOLOGY"!(NAME="IMAGING") Q "R"
|
---|
| 983 | "RTN","EDPFMON",24,0)
|
---|
| 984 | I NAME="LABORATORY" Q "L"
|
---|
| 985 | "RTN","EDPFMON",25,0)
|
---|
| 986 | I NAME="PHARMACY" Q "M"
|
---|
| 987 | "RTN","EDPFMON",26,0)
|
---|
| 988 | I NAME="CONSULTS" Q "C"
|
---|
| 989 | "RTN","EDPFMON",27,0)
|
---|
| 990 | I NAME="PROCEDURES" Q "C"
|
---|
| 991 | "RTN","EDPFMON",28,0)
|
---|
| 992 | I NAME="DIETETICS" Q "A"
|
---|
| 993 | "RTN","EDPFMON",29,0)
|
---|
| 994 | I NAME="ORDER ENTRY" Q "A"
|
---|
| 995 | "RTN","EDPFMON",30,0)
|
---|
| 996 | Q ""
|
---|
| 997 | "RTN","EDPFMON",31,0)
|
---|
| 998 | ;
|
---|
| 999 | "RTN","EDPFMON",32,0)
|
---|
| 1000 | PID() ; -- Returns patient DFN from PID segment in current msg
|
---|
| 1001 | "RTN","EDPFMON",33,0)
|
---|
| 1002 | N I,Y,SEG S I=MSH
|
---|
| 1003 | "RTN","EDPFMON",34,0)
|
---|
| 1004 | F S I=$O(@EDMSG@(I)) Q:I'>0 S SEG=$E(@EDMSG@(I),1,3) Q:SEG="ORC" I SEG="PID" S Y=+$P(@EDMSG@(I),"|",4) Q
|
---|
| 1005 | "RTN","EDPFMON",35,0)
|
---|
| 1006 | Q Y
|
---|
| 1007 | "RTN","EDPFMON",36,0)
|
---|
| 1008 | ;
|
---|
| 1009 | "RTN","EDPFMON",37,0)
|
---|
| 1010 | NEW ; -- add new order to patient log
|
---|
| 1011 | "RTN","EDPFMON",38,0)
|
---|
| 1012 | N MSG,START,URG
|
---|
| 1013 | "RTN","EDPFMON",39,0)
|
---|
| 1014 | S START=$$VALUE^ORX8(ORIFN,"START")
|
---|
| 1015 | "RTN","EDPFMON",40,0)
|
---|
| 1016 | I "NOW"'[START,"TODAY"'[START Q ;others?
|
---|
| 1017 | "RTN","EDPFMON",41,0)
|
---|
| 1018 | S URG=$$VALUE^ORX8(ORIFN,"URGENCY",1,"E") S:'$L(URG) URG="ROUTINE"
|
---|
| 1019 | "RTN","EDPFMON",42,0)
|
---|
| 1020 | S MSG(1)="command=newOrder"
|
---|
| 1021 | "RTN","EDPFMON",43,0)
|
---|
| 1022 | S MSG(2)="id="_LOG
|
---|
| 1023 | "RTN","EDPFMON",44,0)
|
---|
| 1024 | S MSG(3)="orifn="_+ORIFN
|
---|
| 1025 | "RTN","EDPFMON",45,0)
|
---|
| 1026 | S MSG(4)="pkg="_PKG
|
---|
| 1027 | "RTN","EDPFMON",46,0)
|
---|
| 1028 | S MSG(5)="sts="_"N"
|
---|
| 1029 | "RTN","EDPFMON",47,0)
|
---|
| 1030 | S MSG(6)="stat="_(URG="STAT"!(URG="ASAP"))
|
---|
| 1031 | "RTN","EDPFMON",48,0)
|
---|
| 1032 | S MSG(7)="release="_$$NOW^XLFDT
|
---|
| 1033 | "RTN","EDPFMON",49,0)
|
---|
| 1034 | D SEND(.MSG)
|
---|
| 1035 | "RTN","EDPFMON",50,0)
|
---|
| 1036 | Q
|
---|
| 1037 | "RTN","EDPFMON",51,0)
|
---|
| 1038 | ;
|
---|
| 1039 | "RTN","EDPFMON",52,0)
|
---|
| 1040 | UPD ; -- update state of order in log
|
---|
| 1041 | "RTN","EDPFMON",53,0)
|
---|
| 1042 | I ORDCNTRL="RE" D STS("C") Q
|
---|
| 1043 | "RTN","EDPFMON",54,0)
|
---|
| 1044 | I "CA^DC^OC^OD^CR^DR"[ORDCNTRL D DEL Q ;??
|
---|
| 1045 | "RTN","EDPFMON",55,0)
|
---|
| 1046 | I PKG="L",ORDCNTRL="SC" D STS("A") Q
|
---|
| 1047 | "RTN","EDPFMON",56,0)
|
---|
| 1048 | I PKG="R",ORDCNTRL="SC" D STS("A") Q
|
---|
| 1049 | "RTN","EDPFMON",57,0)
|
---|
| 1050 | I PKG="C","SC^XX"[ORDCNTRL D STS("A") Q
|
---|
| 1051 | "RTN","EDPFMON",58,0)
|
---|
| 1052 | I PKG="M" D Q
|
---|
| 1053 | "RTN","EDPFMON",59,0)
|
---|
| 1054 | . I "RO^XX^ZV"[ORDCNTRL D STS("A") Q
|
---|
| 1055 | "RTN","EDPFMON",60,0)
|
---|
| 1056 | . Q:ORDCNTRL'="SC" Q:'$L(STS)
|
---|
| 1057 | "RTN","EDPFMON",61,0)
|
---|
| 1058 | . I "DC^ZE^RP"[STS D STS("C") Q
|
---|
| 1059 | "RTN","EDPFMON",62,0)
|
---|
| 1060 | . D STS("A")
|
---|
| 1061 | "RTN","EDPFMON",63,0)
|
---|
| 1062 | I PKG="A","SC^XX"[ORDCNTRL D Q
|
---|
| 1063 | "RTN","EDPFMON",64,0)
|
---|
| 1064 | . I "DC^ZE"[STS D STS("C") Q
|
---|
| 1065 | "RTN","EDPFMON",65,0)
|
---|
| 1066 | . D STS("A")
|
---|
| 1067 | "RTN","EDPFMON",66,0)
|
---|
| 1068 | Q
|
---|
| 1069 | "RTN","EDPFMON",67,0)
|
---|
| 1070 | ;
|
---|
| 1071 | "RTN","EDPFMON",68,0)
|
---|
| 1072 | STS(DA,X) ; -- update status
|
---|
| 1073 | "RTN","EDPFMON",69,0)
|
---|
| 1074 | N MSG
|
---|
| 1075 | "RTN","EDPFMON",70,0)
|
---|
| 1076 | S MSG(1)="command=updateOrder"
|
---|
| 1077 | "RTN","EDPFMON",71,0)
|
---|
| 1078 | S MSG(2)="id="_LOG
|
---|
| 1079 | "RTN","EDPFMON",72,0)
|
---|
| 1080 | S MSG(3)="orifn="_+ORIFN
|
---|
| 1081 | "RTN","EDPFMON",73,0)
|
---|
| 1082 | S MSG(4)="sts="_X
|
---|
| 1083 | "RTN","EDPFMON",74,0)
|
---|
| 1084 | D SEND(.MSG)
|
---|
| 1085 | "RTN","EDPFMON",75,0)
|
---|
| 1086 | Q
|
---|
| 1087 | "RTN","EDPFMON",76,0)
|
---|
| 1088 | ;
|
---|
| 1089 | "RTN","EDPFMON",77,0)
|
---|
| 1090 | DEL ; -- remove order
|
---|
| 1091 | "RTN","EDPFMON",78,0)
|
---|
| 1092 | N MSG
|
---|
| 1093 | "RTN","EDPFMON",79,0)
|
---|
| 1094 | S MSG(1)="command=deleteOrder"
|
---|
| 1095 | "RTN","EDPFMON",80,0)
|
---|
| 1096 | S MSG(2)="id="_LOG
|
---|
| 1097 | "RTN","EDPFMON",81,0)
|
---|
| 1098 | S MSG(3)="orifn="_+ORIFN
|
---|
| 1099 | "RTN","EDPFMON",82,0)
|
---|
| 1100 | D SEND(.MSG)
|
---|
| 1101 | "RTN","EDPFMON",83,0)
|
---|
| 1102 | Q
|
---|
| 1103 | "RTN","EDPFMON",84,0)
|
---|
| 1104 | ;
|
---|
| 1105 | "RTN","EDPFMON",85,0)
|
---|
| 1106 | VER(ORIFN) ; -- update status when ORIFN verified
|
---|
| 1107 | "RTN","EDPFMON",86,0)
|
---|
| 1108 | N SITE,DFN,LOG,DA S ORIFN=+$G(ORIFN)
|
---|
| 1109 | "RTN","EDPFMON",87,0)
|
---|
| 1110 | S DFN=+$P($G(^OR(100,ORIFN,0)),U,2) Q:DFN<1
|
---|
| 1111 | "RTN","EDPFMON",88,0)
|
---|
| 1112 | S LOG=+$O(^EDP(232,"C",DFN,0)) Q:LOG<1 ;not in ED
|
---|
| 1113 | "RTN","EDPFMON",89,0)
|
---|
| 1114 | S LOG=+$P(^EDP(232,LOG,0),U) Q:LOG<1
|
---|
| 1115 | "RTN","EDPFMON",90,0)
|
---|
| 1116 | N MSG
|
---|
| 1117 | "RTN","EDPFMON",91,0)
|
---|
| 1118 | S MSG(1)="command=verifyOrder"
|
---|
| 1119 | "RTN","EDPFMON",92,0)
|
---|
| 1120 | S MSG(2)="id="_LOG
|
---|
| 1121 | "RTN","EDPFMON",93,0)
|
---|
| 1122 | S MSG(3)="orifn="_ORIFN
|
---|
| 1123 | "RTN","EDPFMON",94,0)
|
---|
| 1124 | D SEND(.MSG)
|
---|
| 1125 | "RTN","EDPFMON",95,0)
|
---|
| 1126 | Q
|
---|
| 1127 | "RTN","EDPFMON",96,0)
|
---|
| 1128 | ;
|
---|
| 1129 | "RTN","EDPFMON",97,0)
|
---|
| 1130 | COMP(ORIFN) ; -- update status when ORIFN completed
|
---|
| 1131 | "RTN","EDPFMON",98,0)
|
---|
| 1132 | N SITE,DFN,LOG,DA S ORIFN=+$G(ORIFN)
|
---|
| 1133 | "RTN","EDPFMON",99,0)
|
---|
| 1134 | S DFN=+$P($G(^OR(100,ORIFN,0)),U,2) Q:DFN<1
|
---|
| 1135 | "RTN","EDPFMON",100,0)
|
---|
| 1136 | S LOG=+$O(^EDP(232,"C",DFN,0)) Q:LOG<1 ;not in ED
|
---|
| 1137 | "RTN","EDPFMON",101,0)
|
---|
| 1138 | S LOG=+$P(^EDP(232,LOG,0),U) Q:LOG<1
|
---|
| 1139 | "RTN","EDPFMON",102,0)
|
---|
| 1140 | N MSG
|
---|
| 1141 | "RTN","EDPFMON",103,0)
|
---|
| 1142 | S MSG(1)="command=completeOrder"
|
---|
| 1143 | "RTN","EDPFMON",104,0)
|
---|
| 1144 | S MSG(2)="id="_LOG
|
---|
| 1145 | "RTN","EDPFMON",105,0)
|
---|
| 1146 | S MSG(3)="orifn="_ORIFN
|
---|
| 1147 | "RTN","EDPFMON",106,0)
|
---|
| 1148 | D SEND(.MSG)
|
---|
| 1149 | "RTN","EDPFMON",107,0)
|
---|
| 1150 | Q
|
---|
| 1151 | "RTN","EDPFMON",108,0)
|
---|
| 1152 | ;
|
---|
| 1153 | "RTN","EDPFMON",109,0)
|
---|
| 1154 | ; -- Monitor SDAM APPOINTMENT EVENTS for patients checking-in to ED
|
---|
| 1155 | "RTN","EDPFMON",110,0)
|
---|
| 1156 | ;
|
---|
| 1157 | "RTN","EDPFMON",111,0)
|
---|
| 1158 | SDAM ; -- send bulletin on check-in
|
---|
| 1159 | "RTN","EDPFMON",112,0)
|
---|
| 1160 | Q:$G(SDAMEVT)'=4 ;only looking for check-in events for ED
|
---|
| 1161 | "RTN","EDPFMON",113,0)
|
---|
| 1162 | Q:$P(SDATA,U,4)'=$$GET^XPAR("ALL","EDPF LOCATION")
|
---|
| 1163 | "RTN","EDPFMON",114,0)
|
---|
| 1164 | N DFN,DATE,HLOC
|
---|
| 1165 | "RTN","EDPFMON",115,0)
|
---|
| 1166 | S DFN=+$P(SDATA,U,2),DATE=+$P(SDATA,U,3),HLOC=+$P(SDATA,U,4)
|
---|
| 1167 | "RTN","EDPFMON",116,0)
|
---|
| 1168 | ; your code goes here :)
|
---|
| 1169 | "RTN","EDPFMON",117,0)
|
---|
| 1170 | N MSG
|
---|
| 1171 | "RTN","EDPFMON",118,0)
|
---|
| 1172 | S MSG(1)="command=patientCheckIn"
|
---|
| 1173 | "RTN","EDPFMON",119,0)
|
---|
| 1174 | S MSG(2)="dfn="_DFN
|
---|
| 1175 | "RTN","EDPFMON",120,0)
|
---|
| 1176 | S MSG(3)="ptNm="_$P(^DPT(DFN,0),U)
|
---|
| 1177 | "RTN","EDPFMON",121,0)
|
---|
| 1178 | S MSG(4)="ssn="_$P(^DPT(DFN,0),U,9)
|
---|
| 1179 | "RTN","EDPFMON",122,0)
|
---|
| 1180 | S MSG(5)="hloc="_HLOC
|
---|
| 1181 | "RTN","EDPFMON",123,0)
|
---|
| 1182 | S MSG(6)="site="_$$STA^XUAF4(DUZ(2))
|
---|
| 1183 | "RTN","EDPFMON",124,0)
|
---|
| 1184 | S MSG(7)="time="_$$NOW^XLFDT
|
---|
| 1185 | "RTN","EDPFMON",125,0)
|
---|
| 1186 | D SEND(.MSG)
|
---|
| 1187 | "RTN","EDPFMON",126,0)
|
---|
| 1188 | Q
|
---|
| 1189 | "RTN","EDPFMON",127,0)
|
---|
| 1190 | SEND(MSG) ; Send update message to EDIS server
|
---|
| 1191 | "RTN","EDPFMON",128,0)
|
---|
| 1192 | N DOMAIN S DOMAIN=$$GET^XPAR("ALL","EDPF SERVER",1,"Q")
|
---|
| 1193 | "RTN","EDPFMON",129,0)
|
---|
| 1194 | Q:'$L(DOMAIN)
|
---|
| 1195 | "RTN","EDPFMON",130,0)
|
---|
| 1196 | ;
|
---|
| 1197 | "RTN","EDPFMON",131,0)
|
---|
| 1198 | N XMSUB,XMY,XMTEXT,EDPMSG
|
---|
| 1199 | "RTN","EDPFMON",132,0)
|
---|
| 1200 | S XMSUB="EDIS Update Event"
|
---|
| 1201 | "RTN","EDPFMON",133,0)
|
---|
| 1202 | S XMTEXT="MSG("
|
---|
| 1203 | "RTN","EDPFMON",134,0)
|
---|
| 1204 | S XMY("S.EDPSERVER@"_DOMAIN)=""
|
---|
| 1205 | "RTN","EDPFMON",135,0)
|
---|
| 1206 | D ^XMD
|
---|
| 1207 | "RTN","EDPFMON",136,0)
|
---|
| 1208 | Q
|
---|
| 1209 | "RTN","EDPFMRG")
|
---|
| 1210 | 0^4^B842644
|
---|
| 1211 | "RTN","EDPFMRG",1,0)
|
---|
| 1212 | EDPFMRG ;SLC/KCM - Maintain facility list of active entries
|
---|
| 1213 | "RTN","EDPFMRG",2,0)
|
---|
| 1214 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 1215 | "RTN","EDPFMRG",3,0)
|
---|
| 1216 | ;
|
---|
| 1217 | "RTN","EDPFMRG",4,0)
|
---|
| 1218 | INMAIL ; process incoming mail
|
---|
| 1219 | "RTN","EDPFMRG",5,0)
|
---|
| 1220 | ;
|
---|
| 1221 | "RTN","EDPFMRG",6,0)
|
---|
| 1222 | ; message formats --
|
---|
| 1223 | "RTN","EDPFMRG",7,0)
|
---|
| 1224 | ; registerLog:logEntry:dfn
|
---|
| 1225 | "RTN","EDPFMRG",8,0)
|
---|
| 1226 | ; removeLog:logEntry
|
---|
| 1227 | "RTN","EDPFMRG",9,0)
|
---|
| 1228 | ;
|
---|
| 1229 | "RTN","EDPFMRG",10,0)
|
---|
| 1230 | N I
|
---|
| 1231 | "RTN","EDPFMRG",11,0)
|
---|
| 1232 | F I=1:1 X XMREC Q:XMER<0 D
|
---|
| 1233 | "RTN","EDPFMRG",12,0)
|
---|
| 1234 | . I $P(XMRG,":")="registerLog" D REG($P(XMRG,":",2),$P(XMRG,":",3))
|
---|
| 1235 | "RTN","EDPFMRG",13,0)
|
---|
| 1236 | . I $P(XMRG,":")="removeLog" D REM($P(XMRG,":",2))
|
---|
| 1237 | "RTN","EDPFMRG",14,0)
|
---|
| 1238 | Q
|
---|
| 1239 | "RTN","EDPFMRG",15,0)
|
---|
| 1240 | REG(LOG,DFN) ; register new patient for events
|
---|
| 1241 | "RTN","EDPFMRG",16,0)
|
---|
| 1242 | N FDA,FDAIEN,DIERR,ERR
|
---|
| 1243 | "RTN","EDPFMRG",17,0)
|
---|
| 1244 | S FDA(232,"+1,",.01)=LOG
|
---|
| 1245 | "RTN","EDPFMRG",18,0)
|
---|
| 1246 | S FDA(232,"+1,",.02)=DFN
|
---|
| 1247 | "RTN","EDPFMRG",19,0)
|
---|
| 1248 | D UPDATE^DIE("","FDA","FDAIEN","ERR")
|
---|
| 1249 | "RTN","EDPFMRG",20,0)
|
---|
| 1250 | I $D(DIERR) ; send a message?
|
---|
| 1251 | "RTN","EDPFMRG",21,0)
|
---|
| 1252 | Q
|
---|
| 1253 | "RTN","EDPFMRG",22,0)
|
---|
| 1254 | REM(LOG) ; remove new patient for events
|
---|
| 1255 | "RTN","EDPFMRG",23,0)
|
---|
| 1256 | N DA,DIK
|
---|
| 1257 | "RTN","EDPFMRG",24,0)
|
---|
| 1258 | S DA=$O(^EDP(232,"B",LOG,0)) Q:'DA
|
---|
| 1259 | "RTN","EDPFMRG",25,0)
|
---|
| 1260 | S DIK="^EDP(232,"
|
---|
| 1261 | "RTN","EDPFMRG",26,0)
|
---|
| 1262 | D ^DIK
|
---|
| 1263 | "RTN","EDPFMRG",27,0)
|
---|
| 1264 | Q
|
---|
| 1265 | "RTN","EDPFPER")
|
---|
| 1266 | 0^5^B2333867
|
---|
| 1267 | "RTN","EDPFPER",1,0)
|
---|
| 1268 | EDPFPER ;SLC/KCM - Lookup Persons at Facility
|
---|
| 1269 | "RTN","EDPFPER",2,0)
|
---|
| 1270 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 1271 | "RTN","EDPFPER",3,0)
|
---|
| 1272 | ;
|
---|
| 1273 | "RTN","EDPFPER",4,0)
|
---|
| 1274 | MATCH(MATCH,PTYP) ; Return a matching list of providers
|
---|
| 1275 | "RTN","EDPFPER",5,0)
|
---|
| 1276 | S MATCH=$$UP^XLFSTR(MATCH)
|
---|
| 1277 | "RTN","EDPFPER",6,0)
|
---|
| 1278 | D XML^EDPX("<personType>"_PTYP_"</personType>")
|
---|
| 1279 | "RTN","EDPFPER",7,0)
|
---|
| 1280 | I PTYP="N" D NURS
|
---|
| 1281 | "RTN","EDPFPER",8,0)
|
---|
| 1282 | I PTYP'="N" D PROV
|
---|
| 1283 | "RTN","EDPFPER",9,0)
|
---|
| 1284 | Q
|
---|
| 1285 | "RTN","EDPFPER",10,0)
|
---|
| 1286 | PROV ; match providers
|
---|
| 1287 | "RTN","EDPFPER",11,0)
|
---|
| 1288 | N NM,PRV,X0,X
|
---|
| 1289 | "RTN","EDPFPER",12,0)
|
---|
| 1290 | S NM=$O(^VA(200,"AK.PROVIDER",MATCH),-1)
|
---|
| 1291 | "RTN","EDPFPER",13,0)
|
---|
| 1292 | F S NM=$O(^VA(200,"AK.PROVIDER",NM)) Q:$E(NM,1,$L(MATCH))'=MATCH D
|
---|
| 1293 | "RTN","EDPFPER",14,0)
|
---|
| 1294 | . S PRV=0 F S PRV=$O(^VA(200,"AK.PROVIDER",NM,PRV)) Q:'PRV D
|
---|
| 1295 | "RTN","EDPFPER",15,0)
|
---|
| 1296 | . . I '$$PROVIDER^XUSER(PRV) Q
|
---|
| 1297 | "RTN","EDPFPER",16,0)
|
---|
| 1298 | . . S X0=^VA(200,PRV,0)
|
---|
| 1299 | "RTN","EDPFPER",17,0)
|
---|
| 1300 | . . S X("nm")=NM
|
---|
| 1301 | "RTN","EDPFPER",18,0)
|
---|
| 1302 | . . S X("itl")=$P(X0,U,2)
|
---|
| 1303 | "RTN","EDPFPER",19,0)
|
---|
| 1304 | . . I X("itl")="" S X("itl")=$E($P(NM,",",2))_$E(NM)
|
---|
| 1305 | "RTN","EDPFPER",20,0)
|
---|
| 1306 | . . S X("duz")=PRV
|
---|
| 1307 | "RTN","EDPFPER",21,0)
|
---|
| 1308 | . . D XML^EDPX($$XMLA^EDPX("staff",.X))
|
---|
| 1309 | "RTN","EDPFPER",22,0)
|
---|
| 1310 | Q
|
---|
| 1311 | "RTN","EDPFPER",23,0)
|
---|
| 1312 | NURS ; match nurses
|
---|
| 1313 | "RTN","EDPFPER",24,0)
|
---|
| 1314 | N NM,NRS
|
---|
| 1315 | "RTN","EDPFPER",25,0)
|
---|
| 1316 | S NM=$O(^VA(200,"B",MATCH),-1)
|
---|
| 1317 | "RTN","EDPFPER",26,0)
|
---|
| 1318 | F S NM=$O(^VA(200,"B",NM)) Q:$E(NM,1,$L(MATCH))'=MATCH D
|
---|
| 1319 | "RTN","EDPFPER",27,0)
|
---|
| 1320 | . S NRS=0 F S NRS=$O(^VA(200,"B",NM,NRS)) Q:'NRS D
|
---|
| 1321 | "RTN","EDPFPER",28,0)
|
---|
| 1322 | . . I '$D(^NURSF(210,"B",NRS)) Q
|
---|
| 1323 | "RTN","EDPFPER",29,0)
|
---|
| 1324 | . . I '$$ACTIVE^XUSER(NRS) Q
|
---|
| 1325 | "RTN","EDPFPER",30,0)
|
---|
| 1326 | . . S X0=^VA(200,NRS,0)
|
---|
| 1327 | "RTN","EDPFPER",31,0)
|
---|
| 1328 | . . S X("nm")=NM
|
---|
| 1329 | "RTN","EDPFPER",32,0)
|
---|
| 1330 | . . S X("itl")=$P(X0,U,2)
|
---|
| 1331 | "RTN","EDPFPER",33,0)
|
---|
| 1332 | . . I X("itl")="" S X("itl")=$E($P(NM,",",2))_$E(NM)
|
---|
| 1333 | "RTN","EDPFPER",34,0)
|
---|
| 1334 | . . S X("duz")=NRS
|
---|
| 1335 | "RTN","EDPFPER",35,0)
|
---|
| 1336 | . . D XML^EDPX($$XMLA^EDPX("staff",.X))
|
---|
| 1337 | "RTN","EDPFPER",36,0)
|
---|
| 1338 | Q
|
---|
| 1339 | "RTN","EDPFPTL")
|
---|
| 1340 | 0^6^B2639044
|
---|
| 1341 | "RTN","EDPFPTL",1,0)
|
---|
| 1342 | EDPFPTL ;SLC/KCM - Select Patient at Facility
|
---|
| 1343 | "RTN","EDPFPTL",2,0)
|
---|
| 1344 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 1345 | "RTN","EDPFPTL",3,0)
|
---|
| 1346 | ;
|
---|
| 1347 | "RTN","EDPFPTL",4,0)
|
---|
| 1348 | MATCH(MATCH) ; return XML of matching patients
|
---|
| 1349 | "RTN","EDPFPTL",5,0)
|
---|
| 1350 | S MATCH=$$UP^XLFSTR(MATCH)
|
---|
| 1351 | "RTN","EDPFPTL",6,0)
|
---|
| 1352 | Q:MATCH=""
|
---|
| 1353 | "RTN","EDPFPTL",7,0)
|
---|
| 1354 | ;
|
---|
| 1355 | "RTN","EDPFPTL",8,0)
|
---|
| 1356 | S:+MATCH MATCH=$TR(MATCH,"-","")
|
---|
| 1357 | "RTN","EDPFPTL",9,0)
|
---|
| 1358 | ;
|
---|
| 1359 | "RTN","EDPFPTL",10,0)
|
---|
| 1360 | N LST
|
---|
| 1361 | "RTN","EDPFPTL",11,0)
|
---|
| 1362 | I MATCH?1U4N D LAST4(MATCH,.LST)
|
---|
| 1363 | "RTN","EDPFPTL",12,0)
|
---|
| 1364 | I MATCH?9N.1U D SSN(MATCH,.LST)
|
---|
| 1365 | "RTN","EDPFPTL",13,0)
|
---|
| 1366 | D LNAM(MATCH,.LST)
|
---|
| 1367 | "RTN","EDPFPTL",14,0)
|
---|
| 1368 | I LST=0 D NONE
|
---|
| 1369 | "RTN","EDPFPTL",15,0)
|
---|
| 1370 | I LST>0 D LIST(.LST)
|
---|
| 1371 | "RTN","EDPFPTL",16,0)
|
---|
| 1372 | Q
|
---|
| 1373 | "RTN","EDPFPTL",17,0)
|
---|
| 1374 | ;
|
---|
| 1375 | "RTN","EDPFPTL",18,0)
|
---|
| 1376 | NONE ; create a "no matches" list
|
---|
| 1377 | "RTN","EDPFPTL",19,0)
|
---|
| 1378 | N X
|
---|
| 1379 | "RTN","EDPFPTL",20,0)
|
---|
| 1380 | S X("name")="No matches found."
|
---|
| 1381 | "RTN","EDPFPTL",21,0)
|
---|
| 1382 | S X("ssn")="",X("dob")="",X("dfn")=0
|
---|
| 1383 | "RTN","EDPFPTL",22,0)
|
---|
| 1384 | D XML^EDPX($$XMLA^EDPX("ptlk",.X))
|
---|
| 1385 | "RTN","EDPFPTL",23,0)
|
---|
| 1386 | Q
|
---|
| 1387 | "RTN","EDPFPTL",24,0)
|
---|
| 1388 | LIST(LST) ; list names that match
|
---|
| 1389 | "RTN","EDPFPTL",25,0)
|
---|
| 1390 | N I,X,DFN
|
---|
| 1391 | "RTN","EDPFPTL",26,0)
|
---|
| 1392 | S I=0 F S I=$O(LST(I)) Q:'I D
|
---|
| 1393 | "RTN","EDPFPTL",27,0)
|
---|
| 1394 | . S DFN=LST(I)
|
---|
| 1395 | "RTN","EDPFPTL",28,0)
|
---|
| 1396 | . S X("name")=$P(^DPT(DFN,0),U)
|
---|
| 1397 | "RTN","EDPFPTL",29,0)
|
---|
| 1398 | . S X("ssn")=$$SSN^DPTLK1(DFN) ; DG249
|
---|
| 1399 | "RTN","EDPFPTL",30,0)
|
---|
| 1400 | . S X("dob")=$$DOB^DPTLK1(DFN) ; DG249
|
---|
| 1401 | "RTN","EDPFPTL",31,0)
|
---|
| 1402 | . S X("dfn")=DFN
|
---|
| 1403 | "RTN","EDPFPTL",32,0)
|
---|
| 1404 | . D XML^EDPX($$XMLA^EDPX("ptlk",.X))
|
---|
| 1405 | "RTN","EDPFPTL",33,0)
|
---|
| 1406 | Q
|
---|
| 1407 | "RTN","EDPFPTL",34,0)
|
---|
| 1408 | LAST4(X,Y) ; find matches on X9999 (BS5)
|
---|
| 1409 | "RTN","EDPFPTL",35,0)
|
---|
| 1410 | N DFN S DFN=0,Y=0
|
---|
| 1411 | "RTN","EDPFPTL",36,0)
|
---|
| 1412 | F S DFN=$O(^DPT("BS5",X,DFN)) Q:'DFN S Y=Y+1,Y(Y)=DFN
|
---|
| 1413 | "RTN","EDPFPTL",37,0)
|
---|
| 1414 | Q
|
---|
| 1415 | "RTN","EDPFPTL",38,0)
|
---|
| 1416 | SSN(X,Y) ; find matches on 999999999 (SSN)
|
---|
| 1417 | "RTN","EDPFPTL",39,0)
|
---|
| 1418 | N DFN S DFN=0,Y=0
|
---|
| 1419 | "RTN","EDPFPTL",40,0)
|
---|
| 1420 | F S DFN=$O(^DPT("SSN",X,DFN)) Q:'DFN S Y=Y+1,Y(Y)=DFN
|
---|
| 1421 | "RTN","EDPFPTL",41,0)
|
---|
| 1422 | Q
|
---|
| 1423 | "RTN","EDPFPTL",42,0)
|
---|
| 1424 | LNAM(X,Y) ; find matches on name (B)
|
---|
| 1425 | "RTN","EDPFPTL",43,0)
|
---|
| 1426 | N DFN,NAME
|
---|
| 1427 | "RTN","EDPFPTL",44,0)
|
---|
| 1428 | S NAME=$O(^DPT("B",X),-1),Y=0
|
---|
| 1429 | "RTN","EDPFPTL",45,0)
|
---|
| 1430 | F S NAME=$O(^DPT("B",NAME)) Q:$E(NAME,1,$L(X))'=X Q:NAME="" D
|
---|
| 1431 | "RTN","EDPFPTL",46,0)
|
---|
| 1432 | . S DFN=0 F S DFN=$O(^DPT("B",NAME,DFN)) Q:'DFN S Y=Y+1,Y(Y)=DFN
|
---|
| 1433 | "RTN","EDPFPTL",47,0)
|
---|
| 1434 | Q
|
---|
| 1435 | "RTN","EDPFPTS")
|
---|
| 1436 | 0^7^B7170775
|
---|
| 1437 | "RTN","EDPFPTS",1,0)
|
---|
| 1438 | EDPFPTS ;SLC/MKB - Patient look-up Utilities at Facility
|
---|
| 1439 | "RTN","EDPFPTS",2,0)
|
---|
| 1440 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 1441 | "RTN","EDPFPTS",3,0)
|
---|
| 1442 | ;
|
---|
| 1443 | "RTN","EDPFPTS",4,0)
|
---|
| 1444 | SEC(DFN) ; Check for sensitive record, patient record flags
|
---|
| 1445 | "RTN","EDPFPTS",5,0)
|
---|
| 1446 | N I,N,X,Y,EDI,EDPY,SP,PRF,EDPT,EDPN,PN,EDPX
|
---|
| 1447 | "RTN","EDPFPTS",6,0)
|
---|
| 1448 | ; check for sensitive record
|
---|
| 1449 | "RTN","EDPFPTS",7,0)
|
---|
| 1450 | D PTSEC^DGSEC4(.EDPY,DFN,1) S Y=$G(EDPY(1)) ;IA #3027
|
---|
| 1451 | "RTN","EDPFPTS",8,0)
|
---|
| 1452 | S SP("value")="false",SP("mayAccess")="true" I Y>0 D
|
---|
| 1453 | "RTN","EDPFPTS",9,0)
|
---|
| 1454 | . S SP("value")="true"
|
---|
| 1455 | "RTN","EDPFPTS",10,0)
|
---|
| 1456 | . S I=2,X=$G(EDPY(2))
|
---|
| 1457 | "RTN","EDPFPTS",11,0)
|
---|
| 1458 | . F S I=$O(EDPY(I)) Q:I<1 S X=X_$C(13,10)_EDPY(I)
|
---|
| 1459 | "RTN","EDPFPTS",12,0)
|
---|
| 1460 | . S SP("text")="SENSITIVE PATIENT WARNING" ;X
|
---|
| 1461 | "RTN","EDPFPTS",13,0)
|
---|
| 1462 | . I Y>2 S SP("mayAccess")="false"
|
---|
| 1463 | "RTN","EDPFPTS",14,0)
|
---|
| 1464 | . E S SP("getAck")=$S(Y=2:"true",1:"false")
|
---|
| 1465 | "RTN","EDPFPTS",15,0)
|
---|
| 1466 | D XML^EDPX("<sensitivePatient>")
|
---|
| 1467 | "RTN","EDPFPTS",16,0)
|
---|
| 1468 | D XMLE^EDPX(.SP)
|
---|
| 1469 | "RTN","EDPFPTS",17,0)
|
---|
| 1470 | D XML^EDPX("</sensitivePatient>")
|
---|
| 1471 | "RTN","EDPFPTS",18,0)
|
---|
| 1472 | PRF ; get Patient Record Flags
|
---|
| 1473 | "RTN","EDPFPTS",19,0)
|
---|
| 1474 | K EDPY Q:$$GETACT^DGPFAPI(DFN,"EDPY")'>0
|
---|
| 1475 | "RTN","EDPFPTS",20,0)
|
---|
| 1476 | D XML^EDPX("<patientRecordFlags>")
|
---|
| 1477 | "RTN","EDPFPTS",21,0)
|
---|
| 1478 | S EDI=0 F S EDI=$O(EDPY(EDI)) Q:EDI<1 K PRF D
|
---|
| 1479 | "RTN","EDPFPTS",22,0)
|
---|
| 1480 | . S PRF("assignmentStatus")="Active"
|
---|
| 1481 | "RTN","EDPFPTS",23,0)
|
---|
| 1482 | . S PRF("assignTS")=$P($G(EDPY(EDI,"ASSIGNDT")),U)
|
---|
| 1483 | "RTN","EDPFPTS",24,0)
|
---|
| 1484 | . S PRF("approved")=$P($G(EDPY(EDI,"APPRVBY")),U,2)
|
---|
| 1485 | "RTN","EDPFPTS",25,0)
|
---|
| 1486 | . S PRF("nextReviewDT")=$P($G(EDPY(EDI,"REVIEWDT")),U)
|
---|
| 1487 | "RTN","EDPFPTS",26,0)
|
---|
| 1488 | . S PRF("name")=$P($G(EDPY(EDI,"FLAG")),U,2)
|
---|
| 1489 | "RTN","EDPFPTS",27,0)
|
---|
| 1490 | . S PRF("type")=$P($G(EDPY(EDI,"FLAGTYPE")),U,2)
|
---|
| 1491 | "RTN","EDPFPTS",28,0)
|
---|
| 1492 | . S PRF("category")=$P($G(EDPY(EDI,"CATEGORY")),U,2)
|
---|
| 1493 | "RTN","EDPFPTS",29,0)
|
---|
| 1494 | . S PRF("ownerSite")=$P($G(EDPY(EDI,"OWNER")),U,2)
|
---|
| 1495 | "RTN","EDPFPTS",30,0)
|
---|
| 1496 | . S PRF("originatingSite")=$P($G(EDPY(EDI,"ORIGSITE")),U,2)
|
---|
| 1497 | "RTN","EDPFPTS",31,0)
|
---|
| 1498 | . S X=$$XMLA^EDPX("flag",.PRF),X=$TR(X,"/") D XML^EDPX(X)
|
---|
| 1499 | "RTN","EDPFPTS",32,0)
|
---|
| 1500 | . S N=1,X=$G(EDPY(EDI,"NARR",1,0))
|
---|
| 1501 | "RTN","EDPFPTS",33,0)
|
---|
| 1502 | . F S N=$O(EDPY(EDI,"NARR",N)) Q:N<1 S X=X_$C(13,10)_$G(EDPY(EDI,"NARR",N,0))
|
---|
| 1503 | "RTN","EDPFPTS",34,0)
|
---|
| 1504 | . S X="<text>"_$$ESC^EDPX(X)_"</text>" D XML^EDPX(X)
|
---|
| 1505 | "RTN","EDPFPTS",35,0)
|
---|
| 1506 | . ;linked progress notes?
|
---|
| 1507 | "RTN","EDPFPTS",36,0)
|
---|
| 1508 | . ;D GETTITLE^TIUPRF2(.EDPT,DFN,EDI),GETNOTES^TIUPRF2(.EDPN,DFN,EDPT,1)
|
---|
| 1509 | "RTN","EDPFPTS",37,0)
|
---|
| 1510 | . I $O(EDPN(0)) D
|
---|
| 1511 | "RTN","EDPFPTS",38,0)
|
---|
| 1512 | .. D XML^EDPX("<notes>")
|
---|
| 1513 | "RTN","EDPFPTS",39,0)
|
---|
| 1514 | .. S N=0 F S N=$O(EDPN(N)) Q:N<1 K PN S X=EDPN(N) D
|
---|
| 1515 | "RTN","EDPFPTS",40,0)
|
---|
| 1516 | ... S PN("id")=+X,PN("action")=$P(X,U,2),PN("author")=$P(X,U,4)
|
---|
| 1517 | "RTN","EDPFPTS",41,0)
|
---|
| 1518 | ... S PN("noteTS")=9999999-N
|
---|
| 1519 | "RTN","EDPFPTS",42,0)
|
---|
| 1520 | ... D TGET^TIUSRVR1(.EDPX,+X)
|
---|
| 1521 | "RTN","EDPFPTS",43,0)
|
---|
| 1522 | ... S X=$$XMLA^EDPX("note",.PN),X=$TR(X,"/") D XML^EDPX(X)
|
---|
| 1523 | "RTN","EDPFPTS",44,0)
|
---|
| 1524 | ... S I=1,X=$G(@EDPX@(1))
|
---|
| 1525 | "RTN","EDPFPTS",45,0)
|
---|
| 1526 | ... F S I=$O(@EDPX@(I)) Q:I<1 S X=X_$C(13,10)_$G(@EDPX@(I))
|
---|
| 1527 | "RTN","EDPFPTS",46,0)
|
---|
| 1528 | ... S X="<text>"_$$ESC^EDPX(X)_"</text>" D XML^EDPX(X)
|
---|
| 1529 | "RTN","EDPFPTS",47,0)
|
---|
| 1530 | ... D XML^EDPX("</note>")
|
---|
| 1531 | "RTN","EDPFPTS",48,0)
|
---|
| 1532 | .. D XML^EDPX("</notes>")
|
---|
| 1533 | "RTN","EDPFPTS",49,0)
|
---|
| 1534 | . D XML^EDPX("</flag>")
|
---|
| 1535 | "RTN","EDPFPTS",50,0)
|
---|
| 1536 | D XML^EDPX("</patientRecordFlags>")
|
---|
| 1537 | "RTN","EDPFPTS",51,0)
|
---|
| 1538 | Q
|
---|
| 1539 | "RTN","EDPFPTS",52,0)
|
---|
| 1540 | ;
|
---|
| 1541 | "RTN","EDPFPTS",53,0)
|
---|
| 1542 | LOG(DFN) ; Make entry in security log for sensitive patient access
|
---|
| 1543 | "RTN","EDPFPTS",54,0)
|
---|
| 1544 | N EDPY,X
|
---|
| 1545 | "RTN","EDPFPTS",55,0)
|
---|
| 1546 | D NOTICE^DGSEC4(.EDPY,DFN) ;IA #3027
|
---|
| 1547 | "RTN","EDPFPTS",56,0)
|
---|
| 1548 | S X=$S(EDPY:"ok",1:"fail")
|
---|
| 1549 | "RTN","EDPFPTS",57,0)
|
---|
| 1550 | D XML^EDPX("<save status='"_X_"' />")
|
---|
| 1551 | "RTN","EDPFPTS",58,0)
|
---|
| 1552 | Q
|
---|
| 1553 | "RTN","EDPFRPC")
|
---|
| 1554 | 0^8^B1979072
|
---|
| 1555 | "RTN","EDPFRPC",1,0)
|
---|
| 1556 | EDPFRPC ;SLC/KCM - Facility Front Controller for ED Tracking
|
---|
| 1557 | "RTN","EDPFRPC",2,0)
|
---|
| 1558 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 1559 | "RTN","EDPFRPC",3,0)
|
---|
| 1560 | ;
|
---|
| 1561 | "RTN","EDPFRPC",4,0)
|
---|
| 1562 | CMD(EDPXML,REQ) ; process command and return XML
|
---|
| 1563 | "RTN","EDPFRPC",5,0)
|
---|
| 1564 | ;
|
---|
| 1565 | "RTN","EDPFRPC",6,0)
|
---|
| 1566 | N EDPFAIL,CMD
|
---|
| 1567 | "RTN","EDPFRPC",7,0)
|
---|
| 1568 | S CMD=$G(REQ("command"))
|
---|
| 1569 | "RTN","EDPFRPC",8,0)
|
---|
| 1570 | ;
|
---|
| 1571 | "RTN","EDPFRPC",9,0)
|
---|
| 1572 | ; switch on command
|
---|
| 1573 | "RTN","EDPFRPC",10,0)
|
---|
| 1574 | ;
|
---|
| 1575 | "RTN","EDPFRPC",11,0)
|
---|
| 1576 | ; ---------------------------------
|
---|
| 1577 | "RTN","EDPFRPC",12,0)
|
---|
| 1578 | ;
|
---|
| 1579 | "RTN","EDPFRPC",13,0)
|
---|
| 1580 | ; initUser
|
---|
| 1581 | "RTN","EDPFRPC",14,0)
|
---|
| 1582 | ; return <user />
|
---|
| 1583 | "RTN","EDPFRPC",15,0)
|
---|
| 1584 | ; <view />...
|
---|
| 1585 | "RTN","EDPFRPC",16,0)
|
---|
| 1586 | I CMD="initUser" D G OUT
|
---|
| 1587 | "RTN","EDPFRPC",17,0)
|
---|
| 1588 | . D SESS^EDPFAA,VIEWS^EDPFAA
|
---|
| 1589 | "RTN","EDPFRPC",18,0)
|
---|
| 1590 | ;
|
---|
| 1591 | "RTN","EDPFRPC",19,0)
|
---|
| 1592 | ; ---------------------------------
|
---|
| 1593 | "RTN","EDPFRPC",20,0)
|
---|
| 1594 | ;
|
---|
| 1595 | "RTN","EDPFRPC",21,0)
|
---|
| 1596 | ; matchPatients
|
---|
| 1597 | "RTN","EDPFRPC",22,0)
|
---|
| 1598 | ; return <ptlk />...<ptlk />
|
---|
| 1599 | "RTN","EDPFRPC",23,0)
|
---|
| 1600 | I CMD="matchPatients" D G OUT
|
---|
| 1601 | "RTN","EDPFRPC",24,0)
|
---|
| 1602 | . D MATCH^EDPFPTL(REQ("partial"))
|
---|
| 1603 | "RTN","EDPFRPC",25,0)
|
---|
| 1604 | ;
|
---|
| 1605 | "RTN","EDPFRPC",26,0)
|
---|
| 1606 | ; ---------------------------------
|
---|
| 1607 | "RTN","EDPFRPC",27,0)
|
---|
| 1608 | ;
|
---|
| 1609 | "RTN","EDPFRPC",28,0)
|
---|
| 1610 | ; matchPersons
|
---|
| 1611 | "RTN","EDPFRPC",29,0)
|
---|
| 1612 | ; return <per />...<per />
|
---|
| 1613 | "RTN","EDPFRPC",30,0)
|
---|
| 1614 | I CMD="matchPersons" D G OUT
|
---|
| 1615 | "RTN","EDPFRPC",31,0)
|
---|
| 1616 | . D MATCH^EDPFPER(REQ("partial"),REQ("personType"))
|
---|
| 1617 | "RTN","EDPFRPC",32,0)
|
---|
| 1618 | ;
|
---|
| 1619 | "RTN","EDPFRPC",33,0)
|
---|
| 1620 | ; ---------------------------------
|
---|
| 1621 | "RTN","EDPFRPC",34,0)
|
---|
| 1622 | ;
|
---|
| 1623 | "RTN","EDPFRPC",35,0)
|
---|
| 1624 | ; getPatientRecordFlags
|
---|
| 1625 | "RTN","EDPFRPC",36,0)
|
---|
| 1626 | ; return <sensitivePatient>
|
---|
| 1627 | "RTN","EDPFRPC",37,0)
|
---|
| 1628 | ; <patientRecordFlags>
|
---|
| 1629 | "RTN","EDPFRPC",38,0)
|
---|
| 1630 | I CMD="getPatientRecordFlags" D G OUT
|
---|
| 1631 | "RTN","EDPFRPC",39,0)
|
---|
| 1632 | . D SEC^EDPFPTS(REQ("patient"))
|
---|
| 1633 | "RTN","EDPFRPC",40,0)
|
---|
| 1634 | ;
|
---|
| 1635 | "RTN","EDPFRPC",41,0)
|
---|
| 1636 | ; ---------------------------------
|
---|
| 1637 | "RTN","EDPFRPC",42,0)
|
---|
| 1638 | ;
|
---|
| 1639 | "RTN","EDPFRPC",43,0)
|
---|
| 1640 | ; saveSecurityLog
|
---|
| 1641 | "RTN","EDPFRPC",44,0)
|
---|
| 1642 | ; return <save />
|
---|
| 1643 | "RTN","EDPFRPC",45,0)
|
---|
| 1644 | I CMD="saveSecurityLog" D G OUT
|
---|
| 1645 | "RTN","EDPFRPC",46,0)
|
---|
| 1646 | . D LOG^EDPFPTS(REQ("patient"))
|
---|
| 1647 | "RTN","EDPFRPC",47,0)
|
---|
| 1648 | ;
|
---|
| 1649 | "RTN","EDPFRPC",48,0)
|
---|
| 1650 | ; ---------------------------------
|
---|
| 1651 | "RTN","EDPFRPC",49,0)
|
---|
| 1652 | ;
|
---|
| 1653 | "RTN","EDPFRPC",50,0)
|
---|
| 1654 | ;
|
---|
| 1655 | "RTN","EDPFRPC",51,0)
|
---|
| 1656 | ; getLexiconMatches
|
---|
| 1657 | "RTN","EDPFRPC",52,0)
|
---|
| 1658 | ; return <items><item />...</items>
|
---|
| 1659 | "RTN","EDPFRPC",53,0)
|
---|
| 1660 | I CMD="getLexiconMatches" D G OUT
|
---|
| 1661 | "RTN","EDPFRPC",54,0)
|
---|
| 1662 | . D ICD^EDPFLEX(REQ("text"))
|
---|
| 1663 | "RTN","EDPFRPC",55,0)
|
---|
| 1664 | ;
|
---|
| 1665 | "RTN","EDPFRPC",56,0)
|
---|
| 1666 | ; ---------------------------------
|
---|
| 1667 | "RTN","EDPFRPC",57,0)
|
---|
| 1668 | ;
|
---|
| 1669 | "RTN","EDPFRPC",58,0)
|
---|
| 1670 | ; else
|
---|
| 1671 | "RTN","EDPFRPC",59,0)
|
---|
| 1672 | D XML^EDPX("<error msg='"_$$MSG^EDPX(2300010)_"' />")
|
---|
| 1673 | "RTN","EDPFRPC",60,0)
|
---|
| 1674 | ; end switch
|
---|
| 1675 | "RTN","EDPFRPC",61,0)
|
---|
| 1676 | ;
|
---|
| 1677 | "RTN","EDPFRPC",62,0)
|
---|
| 1678 | OUT ; end switch
|
---|
| 1679 | "RTN","EDPFRPC",63,0)
|
---|
| 1680 | Q
|
---|
| 1681 | "RTN","EDPX")
|
---|
| 1682 | 0^9^B6480298
|
---|
| 1683 | "RTN","EDPX",1,0)
|
---|
| 1684 | EDPX ;SLC/KCM - Common Utilities
|
---|
| 1685 | "RTN","EDPX",2,0)
|
---|
| 1686 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 1687 | "RTN","EDPX",3,0)
|
---|
| 1688 | ;
|
---|
| 1689 | "RTN","EDPX",4,0)
|
---|
| 1690 | ESC(X) ; Escape for XML transmission
|
---|
| 1691 | "RTN","EDPX",5,0)
|
---|
| 1692 | Q $ZCONVERT(X,"O","HTML")
|
---|
| 1693 | "RTN","EDPX",6,0)
|
---|
| 1694 | ;
|
---|
| 1695 | "RTN","EDPX",7,0)
|
---|
| 1696 | UES(X) ; Unescape XML
|
---|
| 1697 | "RTN","EDPX",8,0)
|
---|
| 1698 | Q $ZCONVERT(X,"I","HTML")
|
---|
| 1699 | "RTN","EDPX",9,0)
|
---|
| 1700 | ;
|
---|
| 1701 | "RTN","EDPX",10,0)
|
---|
| 1702 | UESREQ(REQ) ; Unescape HTTP post
|
---|
| 1703 | "RTN","EDPX",11,0)
|
---|
| 1704 | N I,X
|
---|
| 1705 | "RTN","EDPX",12,0)
|
---|
| 1706 | S X="" F S X=$O(REQ(X)) Q:X="" D
|
---|
| 1707 | "RTN","EDPX",13,0)
|
---|
| 1708 | . S I=0 F S I=$O(REQ(X,I)) Q:'I D
|
---|
| 1709 | "RTN","EDPX",14,0)
|
---|
| 1710 | . . S REQ(X,I)=$ZCONVERT(REQ(X,I),"I","HTML")
|
---|
| 1711 | "RTN","EDPX",15,0)
|
---|
| 1712 | Q
|
---|
| 1713 | "RTN","EDPX",16,0)
|
---|
| 1714 | VAL(X,R) ; Returns parameter value or null
|
---|
| 1715 | "RTN","EDPX",17,0)
|
---|
| 1716 | ; HTTP passes HTML-escaped values in an array as REC(param,1)
|
---|
| 1717 | "RTN","EDPX",18,0)
|
---|
| 1718 | Q $G(R(X,1))
|
---|
| 1719 | "RTN","EDPX",19,0)
|
---|
| 1720 | ;
|
---|
| 1721 | "RTN","EDPX",20,0)
|
---|
| 1722 | NVPARSE(LST,IN) ; Parses tab delimited name-value pairs into array
|
---|
| 1723 | "RTN","EDPX",21,0)
|
---|
| 1724 | N I,X,TAB,NM,VAL
|
---|
| 1725 | "RTN","EDPX",22,0)
|
---|
| 1726 | S TAB=$C(9)
|
---|
| 1727 | "RTN","EDPX",23,0)
|
---|
| 1728 | F I=1:1:$L(IN,TAB) S X=$P(IN,TAB,I),NM=$P(X,"="),VAL=$P(X,"=",2,999) S:$L(NM) LST(NM)=VAL
|
---|
| 1729 | "RTN","EDPX",24,0)
|
---|
| 1730 | Q
|
---|
| 1731 | "RTN","EDPX",25,0)
|
---|
| 1732 | XMLS(TAG,DATA,LBL) ; Return XML node as <TAG data="9" label="XXX" />
|
---|
| 1733 | "RTN","EDPX",26,0)
|
---|
| 1734 | Q "<"_TAG_" data="""_$$ESC(DATA)_""" label="""_$$ESC(LBL)_""" />"
|
---|
| 1735 | "RTN","EDPX",27,0)
|
---|
| 1736 | ;
|
---|
| 1737 | "RTN","EDPX",28,0)
|
---|
| 1738 | XMLA(TAG,ATT,END) ; Return XML node as <TAG att1="a" att2="b"... />
|
---|
| 1739 | "RTN","EDPX",29,0)
|
---|
| 1740 | N NODE S NODE="<"_TAG_" "
|
---|
| 1741 | "RTN","EDPX",30,0)
|
---|
| 1742 | N X
|
---|
| 1743 | "RTN","EDPX",31,0)
|
---|
| 1744 | S X="" F S X=$O(ATT(X)) Q:X="" I $L(ATT(X)) S NODE=NODE_X_"="""_$$ESC(ATT(X))_""" "
|
---|
| 1745 | "RTN","EDPX",32,0)
|
---|
| 1746 | S NODE=NODE_$G(END,"/")_">"
|
---|
| 1747 | "RTN","EDPX",33,0)
|
---|
| 1748 | Q NODE
|
---|
| 1749 | "RTN","EDPX",34,0)
|
---|
| 1750 | ;
|
---|
| 1751 | "RTN","EDPX",35,0)
|
---|
| 1752 | XMLE(SRC) ; Append list to XML array as elements
|
---|
| 1753 | "RTN","EDPX",36,0)
|
---|
| 1754 | N X,NODE
|
---|
| 1755 | "RTN","EDPX",37,0)
|
---|
| 1756 | S X="" F S X=$O(SRC(X)) Q:X="" D
|
---|
| 1757 | "RTN","EDPX",38,0)
|
---|
| 1758 | . S NODE="<"_X_">"_$$ESC(SRC(X))_"</"_X_">"
|
---|
| 1759 | "RTN","EDPX",39,0)
|
---|
| 1760 | . D XML(NODE)
|
---|
| 1761 | "RTN","EDPX",40,0)
|
---|
| 1762 | Q
|
---|
| 1763 | "RTN","EDPX",41,0)
|
---|
| 1764 | XML(X) ; Add a line of XML to be returned
|
---|
| 1765 | "RTN","EDPX",42,0)
|
---|
| 1766 | S EDPXML=$G(EDPXML)+1
|
---|
| 1767 | "RTN","EDPX",43,0)
|
---|
| 1768 | S EDPXML(EDPXML)=X
|
---|
| 1769 | "RTN","EDPX",44,0)
|
---|
| 1770 | Q
|
---|
| 1771 | "RTN","EDPX",45,0)
|
---|
| 1772 | CODE(X) ; Return internal value for a code
|
---|
| 1773 | "RTN","EDPX",46,0)
|
---|
| 1774 | Q $O(^EDPB(233.1,"B",X,0))
|
---|
| 1775 | "RTN","EDPX",47,0)
|
---|
| 1776 | ;
|
---|
| 1777 | "RTN","EDPX",48,0)
|
---|
| 1778 | MSG(MSG) ; Write out error message
|
---|
| 1779 | "RTN","EDPX",49,0)
|
---|
| 1780 | I MSG=1 S X="some error"
|
---|
| 1781 | "RTN","EDPX",50,0)
|
---|
| 1782 | I MSG=2300001 S X="Station Number is missing"
|
---|
| 1783 | "RTN","EDPX",51,0)
|
---|
| 1784 | I MSG=2300002 S X="Patient is already active in log"
|
---|
| 1785 | "RTN","EDPX",52,0)
|
---|
| 1786 | I MSG=2300003 S X="Unable to create lock for new record"
|
---|
| 1787 | "RTN","EDPX",53,0)
|
---|
| 1788 | I MSG=2300004 S X="Error creating new record"
|
---|
| 1789 | "RTN","EDPX",54,0)
|
---|
| 1790 | I MSG=2300005 S X="Error creating sub-record"
|
---|
| 1791 | "RTN","EDPX",55,0)
|
---|
| 1792 | I MSG=2300006 S X="Missing log record"
|
---|
| 1793 | "RTN","EDPX",56,0)
|
---|
| 1794 | I MSG=2300007 S X="Missing log IEN"
|
---|
| 1795 | "RTN","EDPX",57,0)
|
---|
| 1796 | I MSG=2300008 S X="Error updating record"
|
---|
| 1797 | "RTN","EDPX",58,0)
|
---|
| 1798 | I MSG=2300009 S X="Error updating sub-record"
|
---|
| 1799 | "RTN","EDPX",59,0)
|
---|
| 1800 | I MSG=2300010 S X="Command missing or not recognized"
|
---|
| 1801 | "RTN","EDPX",60,0)
|
---|
| 1802 | I MSG=2300011 S X="Unknown report type"
|
---|
| 1803 | "RTN","EDPX",61,0)
|
---|
| 1804 | I MSG=2300012 S X="Missing or invalid date range"
|
---|
| 1805 | "RTN","EDPX",62,0)
|
---|
| 1806 | I MSG=2300013 S X="Shift times not defined for this site"
|
---|
| 1807 | "RTN","EDPX",63,0)
|
---|
| 1808 | Q $$ESC^EDPX(X)
|
---|
| 1809 | "RTN","EDPYCHK")
|
---|
| 1810 | 0^^B1074868
|
---|
| 1811 | "RTN","EDPYCHK",1,0)
|
---|
| 1812 | EDPYCHK ;SLC/KCM - Environmental Check for facility install
|
---|
| 1813 | "RTN","EDPYCHK",2,0)
|
---|
| 1814 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 1815 | "RTN","EDPYCHK",3,0)
|
---|
| 1816 | ;This routine will check to see if the user is in a production account
|
---|
| 1817 | "RTN","EDPYCHK",4,0)
|
---|
| 1818 | ;if they are then the user will not be allowed to install this
|
---|
| 1819 | "RTN","EDPYCHK",5,0)
|
---|
| 1820 | ;patch/build/bundle
|
---|
| 1821 | "RTN","EDPYCHK",6,0)
|
---|
| 1822 | ;
|
---|
| 1823 | "RTN","EDPYCHK",7,0)
|
---|
| 1824 | I $$PROD^XUPROD D
|
---|
| 1825 | "RTN","EDPYCHK",8,0)
|
---|
| 1826 | .W !,"You are attempting to install this software into your production account."
|
---|
| 1827 | "RTN","EDPYCHK",9,0)
|
---|
| 1828 | .W !,"At this time, this software is not ready for a production install."
|
---|
| 1829 | "RTN","EDPYCHK",10,0)
|
---|
| 1830 | .W !!,"Please verify the account you're attempting to install into."
|
---|
| 1831 | "RTN","EDPYCHK",11,0)
|
---|
| 1832 | .W !!,"INSTALLATION ABORTED!"
|
---|
| 1833 | "RTN","EDPYCHK",12,0)
|
---|
| 1834 | .S XPDABORT=1
|
---|
| 1835 | "RTN","EDPYCHK",13,0)
|
---|
| 1836 | Q
|
---|
| 1837 | "RTN","EDPYPST")
|
---|
| 1838 | 0^^B469700
|
---|
| 1839 | "RTN","EDPYPST",1,0)
|
---|
| 1840 | EDPYPST ;SLC/KCM - Post-init for facility install
|
---|
| 1841 | "RTN","EDPYPST",2,0)
|
---|
| 1842 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 12
|
---|
| 1843 | "RTN","EDPYPST",3,0)
|
---|
| 1844 | ;
|
---|
| 1845 | "RTN","EDPYPST",4,0)
|
---|
| 1846 | UPDSVR ; Update domain information on the central server after install
|
---|
| 1847 | "RTN","EDPYPST",5,0)
|
---|
| 1848 | D EN^XPAR("SYS","EDPF SERVER",1,"EDIS-SQA.FO-SLC.MED.VA.GOV")
|
---|
| 1849 | "RTN","EDPYPST",6,0)
|
---|
| 1850 | N MSG
|
---|
| 1851 | "RTN","EDPYPST",7,0)
|
---|
| 1852 | S MSG(1)="command=sendDomain"
|
---|
| 1853 | "RTN","EDPYPST",8,0)
|
---|
| 1854 | S MSG(2)="domain="_$$KSP^XUPARAM("WHERE")
|
---|
| 1855 | "RTN","EDPYPST",9,0)
|
---|
| 1856 | S MSG(3)="station="_$$STA^XUAF4($$KSP^XUPARAM("INST"))
|
---|
| 1857 | "RTN","EDPYPST",10,0)
|
---|
| 1858 | D SEND^EDPFMON(.MSG)
|
---|
| 1859 | "RTN","EDPYPST",11,0)
|
---|
| 1860 | Q
|
---|
| 1861 | "SEC","^DIC",232,232,0,"AUDIT")
|
---|
| 1862 | @
|
---|
| 1863 | "SEC","^DIC",232,232,0,"DD")
|
---|
| 1864 | @
|
---|
| 1865 | "SEC","^DIC",232,232,0,"DEL")
|
---|
| 1866 | @
|
---|
| 1867 | "SEC","^DIC",232,232,0,"LAYGO")
|
---|
| 1868 | @
|
---|
| 1869 | "SEC","^DIC",232,232,0,"RD")
|
---|
| 1870 | @
|
---|
| 1871 | "SEC","^DIC",232,232,0,"WR")
|
---|
| 1872 | @
|
---|
| 1873 | "VER")
|
---|
| 1874 | 8.0^22.0
|
---|
| 1875 | "^DD",232,232,0)
|
---|
| 1876 | FIELD^^.02^2
|
---|
| 1877 | "^DD",232,232,0,"DT")
|
---|
| 1878 | 3071228
|
---|
| 1879 | "^DD",232,232,0,"IX","B",232,.01)
|
---|
| 1880 |
|
---|
| 1881 | "^DD",232,232,0,"IX","C",232,.02)
|
---|
| 1882 |
|
---|
| 1883 | "^DD",232,232,0,"NM","ED ACTIVE LOG")
|
---|
| 1884 |
|
---|
| 1885 | "^DD",232,232,.01,0)
|
---|
| 1886 | LOG ENTRY^RNJ11,0^^0;1^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
|
---|
| 1887 | "^DD",232,232,.01,1,0)
|
---|
| 1888 | ^.1
|
---|
| 1889 | "^DD",232,232,.01,1,1,0)
|
---|
| 1890 | 232^B
|
---|
| 1891 | "^DD",232,232,.01,1,1,1)
|
---|
| 1892 | S ^EDP(232,"B",$E(X,1,30),DA)=""
|
---|
| 1893 | "^DD",232,232,.01,1,1,2)
|
---|
| 1894 | K ^EDP(232,"B",$E(X,1,30),DA)
|
---|
| 1895 | "^DD",232,232,.01,3)
|
---|
| 1896 | Type a Number between 1 and 99999999999, 0 Decimal Digits
|
---|
| 1897 | "^DD",232,232,.01,"DT")
|
---|
| 1898 | 3071228
|
---|
| 1899 | "^DD",232,232,.02,0)
|
---|
| 1900 | PATIENT^P2'^DPT(^0;2^Q
|
---|
| 1901 | "^DD",232,232,.02,1,0)
|
---|
| 1902 | ^.1
|
---|
| 1903 | "^DD",232,232,.02,1,1,0)
|
---|
| 1904 | 232^C
|
---|
| 1905 | "^DD",232,232,.02,1,1,1)
|
---|
| 1906 | S ^EDP(232,"C",$E(X,1,30),DA)=""
|
---|
| 1907 | "^DD",232,232,.02,1,1,2)
|
---|
| 1908 | K ^EDP(232,"C",$E(X,1,30),DA)
|
---|
| 1909 | "^DD",232,232,.02,1,1,"DT")
|
---|
| 1910 | 3071228
|
---|
| 1911 | "^DD",232,232,.02,"DT")
|
---|
| 1912 | 3071228
|
---|
| 1913 | "^DIC",232,232,0)
|
---|
| 1914 | ED ACTIVE LOG^232
|
---|
| 1915 | "^DIC",232,232,0,"GL")
|
---|
| 1916 | ^EDP(232,
|
---|
| 1917 | "^DIC",232,"B","ED ACTIVE LOG",232)
|
---|
| 1918 |
|
---|
| 1919 | **END**
|
---|
| 1920 | **END**
|
---|