ORQ1 ;slc/dcm-Get orders for a patient. ; 08 May 2002 2:12 PM
Source file <ORQ1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ; -- start here
|
|
| LIST | ;Get entry in ^TMP("ORR",$J,ORLIST)
|
|
| POP | ||
| EN0 | ; where order status=#:
; 1 => Discontinued (dc) 6 => Active (a) 11 => Unreleased (u) ; 2 => Complete (c) 7 => Expired (e) 12 => DC/Edit (dce) ; 3 => Hold (h) 8 => Scheduled (s) 13 => Cancelled (x) ; 4 => Flagged (?) 9 => Partial Results (pr) 14 => Lapsed (l) ; 5 => Pending (p) 10 => Delayed (d) 15 => Renewed (rn) ; 99 => No Status (') ; EXPAND=ifn of parent order, used to expand child orders ; SDATE =Start date ; EDATE =End date ; DETAIL=Data to be returned (optional, default=0): ; 0 => ^TMP("ORR",$J,ORLIST,i) = order # ; 1 => ^TMP("ORR",$J,ORLIST,i) = order #^display group^when entered^ ; start d/t^stop d/t^status^sts abbrv ; ^TMP("ORR",$J,ORLIST,i,"TX",j) = order text ; MULT =0:Don't allow multiple occurrances of order ; =1:Allow multiple occurances ; XREF =cross reference to use instead of ACT (AW for completed orders) ; GETKID=includes children of multiple orders ; EVENT =ptr to Patient Event file #100.2, for orders tied to an event |
|
| ENQ | ||
| GRP(DG) | ;Setup display groups
|
|
| EN(PAT,GROUP,FLG,EXPAND,SDATE,EDATE,DETAIL,MULT,XREF,GETKID,EVENT) | ;Get orders
; Returns orders in ^TMP("ORR",$J,ORLIST,i) for defined context: |
|
| PROC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(100.98 - [#100.98] | EN1+2, GRP+4, PROC |
| ^TMP("ORGOTIT" | ENQ! |
| ^TMP("ORR" | LIST+2, LIST+3, LIST+4*, LIST+5 |
| Name | Line Occurrences |
|---|---|
| @( | EN1+12, GRP+4 |
| ENQ | EN1+11 |
| GRP | EN1+8 |
| LIST | EN1+8, LIST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DETAIL | EN~, EN1+3* |
| DG | GRP~, GRP+3, PROC*, PROC+1 |
| DT | EN1+7, EN1+10 |
| EDATE | EN~, EN1+4*, EN1+5*, EN1+7*, EN1+8* |
| EVENT | EN~, EN1+11 |
| EXPAND | EN~ |
| FLG | EN~, EN1+3*, EN1+7, EN1+11, EN1+12 |
| GETKID | EN~ |
| GROUP | EN~, EN1+2*, EN1+8 |
| LAPSE | EN1+1~, EN1+9*, EN1+10* |
| MEM | GRP+2~, GRP+3*, GRP+4*, POP*, PROC, PROC+1* |
| MULT | EN~, EN1+3* |
| ORGRP | EN1+1~ |
| ORGRP( | GRP+3*, PROC+1* |
| >> ORLIST | LIST+1*, LIST+2, LIST+3, LIST+4, LIST+5 |
| ORLST | EN1+1~, EN1+8* |
| PAT | EN~, EN1+1 |
| SDATE | EN~, EN1+4*, EN1+6*, EN1+7*, EN1+8* |
| STK | GRP+2~, GRP+3*, GRP+4, POP*, PROC, PROC+1* |
| STK( | GRP+3*, GRP+4, POP, PROC*, PROC+1* |
| STK(0 | GRP+3* |
| U | EN1+11, EN1+12 |
| X | EN1+1~, EN1+4*, EN1+8* |
| XREF | EN~ |