ORQ12 ; slc/dcm - Get patient orders in context ;21-Nov-2011 11:46;PLS
Source file <ORQ12.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | $$NOW^XLFDT |
Order Entry Results Reporting | 1 | LP1^ORQ11 |
Registration | 1 | $$LOWER^VALM1 |
Package | Total | Caller Graph |
---|---|---|
Order Entry Results Reporting | 28 | ORCACT ORCACT2 ORCDFH ORCDFHTF ORCDLR1 ORCFLAG ORCHTAB3 ORCMENU1 ORCXPND1 ORKOR ORPR01 ORPRS03 ORPRS04 ORPRS11 ORQ11 ORQ13 ORQ2 ORQ20 ORQOR1 ORSNAST1 ORSNAST2 ORU4 ORWDFH ORWDXA ORWOR2 ORWORR ORX8 ORY134 |
Care Management | 2 | ORRCACK ORRCOR |
IHS Changes To Lab | 2 | BLRLB400 BLRLBMEC |
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 |
|
DATETIME(X) | ; -- Returns date/time in format 00/00/00@00:00am
|
|
NAME(X) | ; -- Returns name as Lname,F
|
|
ACTION(X) | ; -- Returns text of action X
|
|
T1 | ||
ADD | ; -- Add text X to ORTX()
|
|
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 |
|
LASTXT(IFN) | ; -- Returns action with latest text for order IFN
|
|
TEXT(ORTX,ORIFN,WIDTH) | ; -- Returns text of order ORIFN in ORTX(#)
|
|
LAST(CODE) | ; -- Return DA of last occurence of CODE action
|
|
EXPD | ; -- loop through ^XTMP("ORAE" to get expired orders
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(9.4 - [#9.4] | TEXT+10 |
^OR(100 - [#100] | GET+8, TEXT+4, TEXT+6, TEXT+18, T1, T1+1, T1+7, LASTXT+2, LAST+2, LAST+3 , EXPD+6, EXPD+8, EXPD+12, GETEIE+6 |
^ORD(100.01 - [#100.01] | GET+10, GETEIE+8 |
^ORD(100.03 - [#100.03] | T1+6, GETEIE+11 |
^ORD(100.98 - [#100.98] | GET+9, TEXT+8, GETEIE+7 |
^ORD(101.41 - [#101.41] | T1+3 |
^TMP("ORGOTIT" | GET+6*, EXPD+1!, EXPD+5, EXPD+16!, GETEIE+12* |
^TMP("ORR" | GET+7*, GET+13*, GET+14*, EXPD+15*, GETEIE+13*, GETEIE+14*, GETEIE+15* |
^TMP("ORSORT" | EXPD+1!, EXPD+10*, EXPD+11, EXPD+12, EXPD+16! |
^VA(200 - [#200] | NAME+1 |
^XTMP("ORAE" | EXPD+4, EXPD+5 |
Name | Line Occurrences |
---|---|
$$ACTION | TEXT+11 |
$$DATETIME | T1+7 |
$$LASTXT | TEXT+17 |
$$NAME | T1+7 |
ADD | TEXT+8, TEXT+11, TEXT+13, TEXT+15, TEXT+18, TEXT+19, T1+1, T1+3, T1+5, T1+6 , T1+7 |
T1 | TEXT+9 |
TEXT | GET+14, GETEIE+15 |
Name | Field # of Occurrence |
---|---|
^( | TEXT+18, T1+1, LASTXT+2 |
^(0 | EXPD+12 |
^(3 | GET+8, TEXT+6, EXPD+12, GETEIE+6 |
^(4 | GET+8, GETEIE+6 |
^(6 | GET+8, TEXT+6, GETEIE+6 |
^(8 | TEXT+6 |
^(9 | T1+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTOR | GET~, GET+6, GET+7, GET+13, EXPD+2~, EXPD+13*, GETEIE~, GETEIE+12, GETEIE+13, GETEIE+14 |
CODE | LAST~, LAST+2, LAST+3 |
D | DATETIME+1~, DATETIME+2*, DATETIME+4 |
DA | LAST+1~, LAST+2*, LAST+3*, LAST+4 |
DCREAS | GETEIE+5~, GETEIE+10*, GETEIE+11 |
DETAIL | GET~, GET+7, GETEIE~, GETEIE+13 |
DG | GET+5~, GET+9*, GET+13, GETEIE+5~, GETEIE+7*, GETEIE+14 |
DLG | TEXT+1~, T1+3* |
>> EDATE | EXPD+3*, EXPD+4 |
ENTERD | GET+5~, GET+11*, GET+13, GETEIE+5~, GETEIE+9*, GETEIE+14 |
FIRST | TEXT+1~, T1*, T1+1 |
I | LASTXT+1~, LASTXT+2*, NAME+2*, ADD+1~, ADD+4* |
IFN | GET~, GET+6, GET+7, GET+8, GET+13, GET+14, LASTXT~, LASTXT+2, EXPD+2~, EXPD+5* , EXPD+6, EXPD+8, EXPD+10, EXPD+12*, GETEIE~, GETEIE+6, GETEIE+12, GETEIE+13, GETEIE+14, GETEIE+15 |
IOST | TEXT+16 |
>> MULT | EXPD+5 |
NEWD | GET~, GET+7, GET+13, GET+14, GETEIE~, GETEIE+13, GETEIE+14, GETEIE+15 |
NOW | EXPD+2~, EXPD+3* |
OR0 | TEXT+1~, TEXT+6*, TEXT+8, TEXT+10, T1+3 |
OR3 | TEXT+1~, TEXT+6*, TEXT+12, TEXT+13, TEXT+14, T1+6 |
OR6 | TEXT+1~, TEXT+6*, T1+6 |
ORACT | TEXT+1~, TEXT+3*, TEXT+4*, TEXT+6, T1+7 |
>> ORFLG | T1+7 |
>> ORGRP( | EXPD+4 |
ORI | TEXT+1~, TEXT+15*, TEXT+18*, T1+1* |
ORIFN | TEXT~, TEXT+3*, TEXT+4, TEXT+6, T1, T1+1, T1+7, LAST+2, LAST+3 |
ORIG | TEXT+14~*, TEXT+17, TEXT+18 |
ORIGTA | TEXT+14~, TEXT+17*, TEXT+18 |
>> ORIGVIEW | TEXT+9, TEXT+12, T1+2, ACTION+2 |
ORJ | TEXT+1~ |
>> ORLIST | EXPD+15 |
>> ORLST | GET+6*, GET+7, GET+13, GET+14, EXPD+15, GETEIE+12*, GETEIE+13, GETEIE+14, GETEIE+15 |
ORREP | EXPD+2~, EXPD+8*, EXPD+9 |
ORTA | TEXT+1~, T1*, T1+1 |
ORTX | TEXT~, TEXT+2!, TEXT+7*, ADD+1, ADD+2*, ADD+3, ADD+4, ADD+5*, ADD+6* |
ORTX( | ADD+1, ADD+2*, ADD+3*, ADD+4*, ADD+5* |
ORTX(1 | TEXT+7*, TEXT+10* |
ORX | TEXT+1~, TEXT+6*, TEXT+11, TEXT+12, T1, T1+5, T1+6, T1+7* |
>> PAT | EXPD+4, EXPD+5 |
>> SDATE | EXPD+3*, EXPD+4 |
START | GET+5~, GET+11*, GET+13, GETEIE+5~, GETEIE+9*, GETEIE+14 |
STAT | GET+5~, GET+10*, GET+13, GETEIE+5~, GETEIE+8*, GETEIE+14 |
STOP | GET+5~, GET+11*, GET+13, GETEIE+5~, GETEIE+9*, GETEIE+14 |
T | DATETIME+1~, DATETIME+2*, DATETIME+4 |
T1 | DATETIME+1~, DATETIME+2*, DATETIME+3*, DATETIME+4 |
TM | EXPD+2~, EXPD+4*, EXPD+5, EXPD+10, EXPD+11*, EXPD+12 |
TO | EXPD+2~, EXPD+3*, EXPD+4*, EXPD+5, EXPD+10, EXPD+11*, EXPD+12 |
TXT | GET+5~, GET+14, GETEIE+5~, GETEIE+15 |
U | GET+9, GET+10, GET+11, GET+13, TEXT+4, TEXT+8, TEXT+10, TEXT+11, TEXT+12, TEXT+13 , TEXT+14, T1, T1+3, T1+5, T1+6, T1+7, NAME+1, EXPD+6, EXPD+8, EXPD+13 , GETEIE+7, GETEIE+8, GETEIE+9, GETEIE+10, GETEIE+14 |
USTS | EXPD+2~, EXPD+6*, EXPD+7 |
WIDTH | TEXT~, TEXT+2*, ADD+3, ADD+4, ADD+5 |
X | TEXT+1~, TEXT+8*, TEXT+11*, TEXT+13*, TEXT+15*, TEXT+18*, TEXT+19*, T1+1*, T1+3*, T1+5* , T1+6*, T1+7*, ACTION~, ACTION+2, DATETIME~, DATETIME+2, NAME~, NAME+1, ADD+2*, ADD+3 , ADD+4, EXPD+2~ |
X0 | GET+5~, GET+8*, GET+9, GET+11, EXPD+2~, EXPD+12*, GETEIE+5~, GETEIE+6*, GETEIE+7, GETEIE+9 |
X3 | GET+5~, GET+8*, GET+10, EXPD+2~, EXPD+12*, EXPD+13, GETEIE+5~, GETEIE+6*, GETEIE+8 |
X4 | GET+5~, GET+8*, GETEIE+5~, GETEIE+6* |
X6 | GET+5~, GET+8*, GETEIE+5~, GETEIE+6*, GETEIE+10 |
X7 | EXPD+2~ |
X8 | EXPD+2~ |
>> XQAID | T1+7 |
Y | TEXT+1~, T1+3!, LASTXT+1~*, LASTXT+2*, LASTXT+3, ACTION+1~, ACTION+2*, ACTION+3, DATETIME+1~, DATETIME+4* , DATETIME+5, NAME+1~, NAME+2*, NAME+3*, NAME+4, ADD+1~*, ADD+2*, ADD+3, ADD+4*, ADD+5* , ADD+6* |
Z | DATETIME+1~, DATETIME+2*, DATETIME+3*, DATETIME+4, NAME+1~*, NAME+2, ADD+4*, ADD+5* |