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~ |