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