ORQ12 ; slc/dcm - Get patient orders in context ;Mar 04, 2019@14:04:01
Source file <ORQ12.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET(IFN,NEWD,DETAIL,ACTOR) | ; -- Setup TMP array
; IFN=ifn of order ; NEWD=3rd subscript in ^TMP("ORR",$J, node (ORLIST) ; DETAIL=see description in ^ORQ1 |
|
| TEXT(ORTX,ORIFN,WIDTH,ORUGROUP) | ; -- Returns text of order ORIFN in ORTX(#) ;RTW UAP
|
|
| T1 | ||
| LASTXT(IFN) | ||
| LAST(CODE) | ; -- Return DA of last occurence of CODE action
|
|
| ACTION(X) | ; -- Returns text of action X
|
|
| DATETIME(X) | ; -- Returns date/time in format 00/00/00@00:00am
|
|
| NAME(X) | ; -- Returns name as Lname,F
|
|
| ADD | ; -- Add text X to ORTX()
|
|
| EXPD | ; -- loop through ^XTMP("ORAE" to get expired orders
|
|
| GETEIE(IFN,NEWD,DETAIL,ACTOR) | ; -- Setup TMP array
; IFN=ifn of order ; NEWD=3rd subscript in ^TMP("ORR",$J, node (ORLIST) ; DETAIL=see description in ^ORQ1 |
|
| GETSTAT(ITEM) | ;
|
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |