ORQ11 ;SLC/DCM - Get patient orders in context ;May 13, 2020@10:30:45
Source file <ORQ11.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOP | ; -- main loop through "ACT" x-ref
|
|
| AWIN | ;Jump in here to add active orders to AW context
|
|
| AW | ; -- loop through "AW" x-ref
|
|
| LP1 | ; -- main secondary loop
|
|
| ALL1 | ; 1 -- secondary pass for All, Recent Orders, Unsigned
|
|
| CUR | ; 2 -- Active/Current
|
|
| CUR1 | ; 2 -- secondary pass for Active/Current
|
|
| CURX | ||
| DC1 | ; 3 -- secondary pass for DC
|
|
| COM1 | ; 4 -- secondary pass for Completed/Expired
|
|
| EXG | ; 5 -- Expiring
|
|
| EXG1 | ; 5 -- secondary pass for Expiring
|
|
| ACT | ; 6 -- Recent Activity (Order Summary)
|
|
| PEN1 | ; 7 -- secondary pass for Pending
|
|
| UVR1 | ; 8 -- secondary pass for Unverified; 29 for Outpatient
; Include if: unverified, released, inpt, not repl/canc/lapsed |
|
| UVN1 | ; 9 -- secondary pass for Unverified/Nurse; 30 for Outpatient
; Include if: unverified, released, inpt, not repl/canc/lapsed |
|
| UVC1 | ; 10 -- secondary pass for Unverified/Clerk; 31 for Outpatient
; Include if: unverified, released, inpt, not repl/canc/lapsed |
|
| INPT() | ; -- Returns 1 or 0, if inpt order using X0=^OR(100,IFN,0)
|
|
| OUTPT() | ; -- Returns 1 or 0, if outpt order using X0=^OR(100,IFN,0) ;P*515
|
|
| CLNOR() | ; -- Returns 1 or 0, if IMO clinic order ;P*515
|
|
| SIG | ; 11 -- Unsigned
|
|
| FLG1 | ; 12 -- secondary pass for Flagged
|
|
| VP1 | ; 13 -- secondary pass for Verbal/Phone
|
|
| VPU1 | ; 14 -- secondary pass for Verbal/Phone Unsigned
|
|
| HLD1 | ; 18 -- secondary pass for On Hold
|
|
| NEW | ; 19 -- New Orders, plus other unsigned orders by current provider
|
|
| NW1 | ||
| CHT1 | ; 20 -- secondary pass for Chart Review; 32 for Outpatient
; Include if: unverified, released, inpt, not repl/canc/lapsed |
|
| CHTSUM | ; 21 -- secondary pass for Chart copy summary
; Included based on Nature of Order |
|
| LPS1 | ; 22 -- secondary pass for Lapsed
|
|
| AVT1 | ; 23 -- secondary pass for Active/Pending sts only
|
|
| QUIT | ; -- stop
|
|
| UAPM | ;
|
|
| DM | ; DISCHARGE MEDS 9-2-03 ACTIVE, PENDING, DC < 7 DAYS AND EXPIRED LESS THAN 90 DAYS
|
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |
| 100.008 | GET1^DIQ |
| ^ORD(100.98 - [#100.98] | GET1^DIQ |
| ^HOLIDAY - [#40.5] | Classic Fileman Calls |
