ORWORR ; SLC/KCM/JLI - Retrieve Orders for Broker ; Nov 18, 2022@12:08:57
Source file <ORWORR.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 8 | $$INITIALS^ORCHTAB2 CSCHECK^ORDEA $$CHKORD^OREVNTX1 EN^ORQ1 TEXT^ORQ12 $$ISTITR^ORUTL3 PKI^ORWDPS1 (GET1,GET2)^ORWORR1 |
VA FileMan | 2 | (NOW,YMD)^%DTC $$GET1^DIQ |
Kernel | 1 | $$DEA^XUSER |
Outpatient Pharmacy | 1 | ($$PARK,$$SUSP)^PSO52EX |
Toolkit | 1 | $$GET^XPAR |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
GET(LST,DFN,FILTER,GROUPS) | ; procedure
|
|
AGET(REF,DFN,FILTER,GROUPS,DTFROM,DTTHRU,EVENT,ORRECIP) | ;Get abbrev. event delayed order list for patient
; returns ^TMP("ORR",$J,ORLIST,n)=IFN^DGrp^ActTm ; see input parameters above ; -- from ORWORR ; -- section uses ORQ1 to get orders list rather than XGET -- |
|
RGET(REF,DFN,FILTER,GROUPS,DTFROM,DTTHRU,EVENT) | ;Orders of AutoDC/Release Event
|
|
XGET | ; retrieval algorithm before all the AC xref changes
|
|
EXIT | ||
DOGET | ; Here to filter orders
|
|
DOALL | ; Here to get all orders (no filter by status)
|
|
DOCUR | ; Here to get all current orders
|
|
ACKILL | ; called only from DOCUR - kill AC xref
; K ^OR(100,"AC",DFN,TIME,IFN,ACT) ; let ORQ1 kill if for now |
|
GET4V11(LST,TXTVW,ORYD,IFNLST) | ; get order fields TEMP
|
|
GET4LST(LST,IFNLST) | ; get order fields for list of orders
|
|
GET41 | ||
GETBYIFN(LST,IFN) | ; procedure
; get fields for single order ; .LST(n)=described above in GET ; IFN=internal entry # for order |
|
GETFLDS | ; used by entry points to place order fields into list
; expects IDX=sequence #, IFN=order, X0=node 0, X3=node 3, LST=results ; LST(IDX)=~IFN^Grp^OrdTm^StrtTm^StopTm^Sts^Sig^Nrs^Clk^PrvID^PrvNam^Act^Flagged[^DCType]^ChartRev^DEA#^^DigSig^LOC^[DCORIGNAL]^IsPendingDCorder^IsDelayOrder^ParkedStatus^^PackagePrefix |
|
RSTRT() | ; return start date from responses
|
|
RSTOP() | ; return stop date from responses
|
|
GETTXT(LST,IFN) | ; get text of an order
|
|
XPND(AGRP) | ; procedure
; Expand display group (GROUPS defined outside of call) |
|
GETPKG(Y,IFN) | ; get order pkg
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | EXIT+1 |
YMD^%DTC | DOCUR+4 |
$$GET1^DIQ | AGET+10 |
$$INITIALS^ORCHTAB2 | GETFLDS+16, GETFLDS+17, GETFLDS+18 |
CSCHECK^ORDEA | GETFLDS+55 |
$$CHKORD^OREVNTX1 | GETFLDS+43 |
EN^ORQ1 | GET+15, AGET+22, AGET+25 |
TEXT^ORQ12 | GETFLDS+64, GETTXT+2 |
$$ISTITR^ORUTL3 | GETFLDS+68 |
PKI^ORWDPS1 | GETFLDS+28 |
GET1^ORWORR1 | AGET+26 |
GET2^ORWORR1 | AGET+23 |
$$PARK^PSO52EX | GETFLDS+13 |
$$SUSP^PSO52EX | GETFLDS+14 |
$$GET^XPAR | DOCUR+2 |
$$DEA^XUSER | GETFLDS+5 |
RPC Name | Call Tags |
---|---|
ORWORR GET | GET |
ORWORR GET4LST | GET4V11 |
ORWORR AGET | AGET |
ORWORR GETTXT | GETTXT |
ORWORR GETBYIFN | GETBYIFN |
ORWORR RGET | RGET |
FileNo | Call Tags |
---|---|
^ORD(100.98 - [#100.98] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(9.4 - [#9.4] | GETFLDS+26, GETFLDS+50, GETFLDS+51, GETFLDS+52, GETFLDS+53, GETFLDS+62, GETPKG+5 |
^DPT - [#2] | AGET+16, GETFLDS+25, GETFLDS+49 |
^OR(100 - [#100] | GET+17, DOGET+1, DOGET+2, DOGET+4, DOGET+5, DOALL+1, DOALL+2, DOALL+4, DOALL+5, DOCUR+6 , DOCUR+7, DOCUR+9, DOCUR+10, GET41+5, GETBYIFN+7, GETBYIFN+9, GETFLDS+10, GETFLDS+15, GETFLDS+20, GETFLDS+21 , GETFLDS+23, GETFLDS+40, GETFLDS+47, GETFLDS+65, GETFLDS+66, GETFLDS+72, GETFLDS+73, GETFLDS+75, GETFLDS+76, GETFLDS+77 , RSTRT+1, RSTOP+1 |
^ORD(100.7 - [#100.7] | GETFLDS+27 |
^ORD(100.98 - [#100.98] | XGET+5, GETFLDS+35, XPND+3, XPND+4 |
^SC - [#44] | GETFLDS+38 |
^TMP("ORR" | GET+13!, GET+16, GET+19!, AGET+8!, AGET+14*, AGET+15* |
^TMP("ORRJD" | AGET+8! |
^VA(200 - [#200] | GETFLDS+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | EXIT+1~, EXIT+2, DOCUR+1~, DOCUR+4 |
>> %H | DOCUR+3* |
%I | EXIT+1~ |
ACT | GET+12~, GET+17*, XGET+1~, DOCUR+9*, DOCUR+10, GET41~, GET41+4*, GET41+5, GETBYIFN+5~, GETBYIFN+8* , GETBYIFN+9, GETFLDS+6, GETFLDS+10, GETFLDS+13, GETFLDS+14, GETFLDS+15, GETFLDS+20, GETFLDS+21 |
ACTID | GET41~, GETBYIFN+5~, GETFLDS+6*, GETFLDS+9, GETFLDS+10, GETFLDS+42 |
AGRP | XPND~, XPND+3, XPND+4 |
AOCTXT | DOCUR+1~, DOCUR+4*, DOCUR+13, DOCUR+15 |
CHLD | XPND+2~, XPND+4* |
CSTS | GET+12~, GET41~, GETBYIFN+5~, GETFLDS+7*, GETFLDS+8*, GETFLDS+11 |
DEA | GET+12~, XGET+1~, GET41~, GETBYIFN+5~, GETFLDS+5*, GETFLDS+19 |
DFN | GET~, GET+15, AGET~, AGET+13, AGET+16, AGET+22, AGET+25, RGET~, RGET+3, XGET+2* , DOGET+1, DOGET+2, DOGET+4, DOALL+1, DOALL+2, DOALL+4, DOCUR+6, DOCUR+7, DOCUR+9 |
DGID | GETFLDS+31~, GETFLDS+33*, GETFLDS+34, GETFLDS+35 |
DGNAM | GETFLDS+31~, GETFLDS+35* |
DGRP | XGET+1~, DOGET+2*, DOGET+3, DOGET+4, DOALL+2*, DOALL+3, DOALL+4 |
DTFROM | AGET~, AGET+17*, AGET+19, AGET+22, AGET+25, RGET~, RGET+3 |
DTTHRU | AGET~, AGET+18*, AGET+19*, AGET+22, AGET+25, RGET~, RGET+3 |
DUZ | GETFLDS+27 |
EVENT | AGET~, AGET+20*, AGET+22, AGET+25, RGET~, RGET+3 |
EVTDCREL | AGET+21, RGET+1~, RGET+2* |
EVTNAME | AGET+6~, AGET+7* |
EYE | GET+12~, GET+16* |
FILTER | GET~, GET+14*, GET+15, AGET~, AGET+9*, AGET+11*, AGET+12, AGET+22, AGET+25, RGET~ , RGET+3, XGET+3*, XGET+7, XGET+8, XGET+9, XGET+10, XGET+11, XGET+12, XGET+13, XGET+14 , XGET+15, XGET+16, XGET+17, XGET+18, XGET+19, XGET+20 |
GROUPS | GET~, GET+14*, GET+15, AGET~, AGET+9*, AGET+10, AGET+22, AGET+25, RGET~, RGET+3 , XGET+4, XGET+5*, XGET+6, DOGET+3, DOALL+3 |
GROUPS( | DOGET+3, DOALL+3, XPND+3* |
I | AGET+6~, GETFLDS+73*, XPND+2~, XPND+3*, XPND+4* |
ID | XGET+1~, GET41~, GETBYIFN+5~, GETFLDS+6*, GETFLDS+11, GETFLDS+64 |
IDX | GET+12~, GET+14*, XGET+1~, XGET+2*, GET41~, GET41+2*, GETBYIFN+5~, GETBYIFN+6*, GETFLDS+6*, GETFLDS+11 , GETFLDS+13, GETFLDS+14, GETFLDS+15, GETFLDS+16, GETFLDS+17, GETFLDS+18, GETFLDS+19, GETFLDS+20, GETFLDS+29, GETFLDS+39 , GETFLDS+40, GETFLDS+42, GETFLDS+43, GETFLDS+54, GETFLDS+56, GETFLDS+57, GETFLDS+62, GETFLDS+67*, GETFLDS+70*, GETFLDS+71 , GETFLDS+72*, GETFLDS+73*, GETFLDS+80* |
IFN | GET+12~, GET+16*, GET+17*, AGET+6~, XGET+1~, DOGET+4*, DOGET+5, DOALL+4*, DOALL+5, DOCUR+7* , DOCUR+9, DOCUR+10, GET41~, GET41+3*, GET41+4*, GET41+5, GETBYIFN~, GETBYIFN+4, GETBYIFN+7, GETBYIFN+8 , GETBYIFN+9*, GETFLDS+6, GETFLDS+10, GETFLDS+13, GETFLDS+14, GETFLDS+15, GETFLDS+20, GETFLDS+21, GETFLDS+23, GETFLDS+40 , GETFLDS+43, GETFLDS+47, GETFLDS+65, GETFLDS+66, GETFLDS+68, GETFLDS+72, GETFLDS+73, GETFLDS+75, GETFLDS+76, GETFLDS+77 , RSTRT+1, RSTOP+1, GETTXT~, GETTXT+1*, GETTXT+2, GETPKG~, GETPKG+2, GETPKG+3 |
IFNIDX | GET41~, GET41+2*, GET41+3* |
IFNLST | GET4V11~, GET4LST~ |
IFNLST( | GET41+3 |
LN | GET+12~, XGET+1~, GET41~, GETBYIFN+5~, GETFLDS+65*, GETFLDS+66*, GETFLDS+67* |
LOC | GET41+1~, GETFLDS+32*, GETFLDS+37*, GETFLDS+38*, GETFLDS+39 |
LST | GET~, GET+14*, XGET+2*, EXIT, GET4V11~, GET4LST~, GET41+2*, GETBYIFN~, GETBYIFN+6*, GETFLDS+6* , GETTXT~, GETTXT+2 |
LST( | GETFLDS+11*, GETFLDS+13*, GETFLDS+14*, GETFLDS+15*, GETFLDS+16*, GETFLDS+17*, GETFLDS+18*, GETFLDS+19*, GETFLDS+20*, GETFLDS+29* , GETFLDS+39*, GETFLDS+40*, GETFLDS+42*, GETFLDS+43*, GETFLDS+54*, GETFLDS+56*, GETFLDS+57*, GETFLDS+62*, GETFLDS+67*, GETFLDS+71* , GETFLDS+72*, GETFLDS+73*, GETFLDS+79*, GETFLDS+80* |
LST(1 | EXIT+2* |
LST(2 | EXIT+2* |
MASK | XGET+1~, DOCUR+5*, DOCUR+15 |
MULT | AGET+6~, AGET+12*, AGET+22, AGET+25 |
OI | GETFLDS+22~, GETFLDS+23*, GETFLDS+28, GETFLDS+45~, GETFLDS+47*, GETFLDS+55 |
>> OR(100 | GETPKG+4 |
ORCAT | GETFLDS+22~, GETFLDS+25*, GETFLDS+28, GETFLDS+45~, GETFLDS+49* |
ORCONSUB | GETFLDS+45~, GETFLDS+55, GETFLDS+56, GETFLDS+57 |
ORCSPKG | GETFLDS+45~, GETFLDS+46*, GETFLDS+50*, GETFLDS+51*, GETFLDS+52*, GETFLDS+53*, GETFLDS+54, GETFLDS+55 |
ORDERID | GETPKG+1~, GETPKG+3*, GETPKG+4 |
ORIFN | GET+12~, AGET+6~ |
ORIGVIEW | GET41~, GETBYIFN+5~, GETFLDS+63* |
ORIND | GET41~, GETFLDS+67*, GETFLDS+79 |
ORLIST | GET+12~, GET+16, AGET+6~ |
ORPKIU | GETFLDS+22~, GETFLDS+27*, GETFLDS+28 |
ORRECIP | AGET~ |
ORUGROUP | AGET+5!, AGET+10*, GETFLDS+12*, GETFLDS+64, GETFLDS+66 |
ORVP | GETFLDS+22~, GETFLDS+24*, GETFLDS+25, GETFLDS+28, GETFLDS+45~, GETFLDS+48*, GETFLDS+49 |
ORWARD | AGET+6~, AGET+16* |
ORWTS | AGET+6~, AGET+11* |
>> ORX | GETFLDS+69*, GETFLDS+71 |
>> ORY | GETFLDS+28, GETFLDS+29 |
ORYD | AGET+6~, GET4V11~, GETBYIFN+5~, GETBYIFN+6*, GETFLDS+45~, GETFLDS+63 |
PASS | XGET+1~, XGET+9*, XGET+10*, XGET+11*, XGET+12*, XGET+13*, XGET+15*, XGET+16*, XGET+17*, XGET+18* , XGET+19*, XGET+20*, DOGET+7 |
PKG | GETFLDS+22~, GETFLDS+24*, GETFLDS+26, GETFLDS+45~, GETFLDS+48*, GETFLDS+50, GETFLDS+51, GETFLDS+52, GETFLDS+53 |
PKGID | GETFLDS+60~, GETFLDS+61*, GETFLDS+62, GETPKG+1~, GETPKG+4*, GETPKG+5 |
PRV | GET+12~, XGET+1~, GET41~, GETBYIFN+5~, GETFLDS+3*, GETFLDS+4*, GETFLDS+5, GETFLDS+11 |
PTEVTID | AGET+6~, AGET+7* |
REF | AGET~, RGET~, RGET+3 |
STOP | GET+12~, DOCUR+1~, DOCUR+11*, DOCUR+15, GET41~, GETBYIFN+5~, GETFLDS+10*, GETFLDS+11 |
STRT | GET+12~, GET41~, GETBYIFN+5~, GETFLDS+9*, GETFLDS+11 |
STS | DOCUR+1~, DOCUR+11*, DOCUR+12, DOCUR+15 |
TIME | XGET+1~, DOGET+1*, DOGET+2, DOGET+4, DOALL+1*, DOALL+2, DOALL+4, DOCUR+6*, DOCUR+7, DOCUR+9 |
TOT | AGET+6~ |
TXT | GET+12~, XGET+1~, GET41~, GETBYIFN+5~, GETFLDS+64! |
TXT( | GETFLDS+65*, GETFLDS+66*, GETFLDS+67 |
TXT(0 | GETFLDS+65, GETFLDS+66 |
TXTVW | AGET+6~, GET4V11~, GETBYIFN+5~, GETFLDS+63 |
U | AGET+11, AGET+12, DOGET+6, DOGET+7, DOALL+6, DOCUR+11, DOCUR+12, DOCUR+13, DOCUR+14, GETBYIFN+8 , GETFLDS+3, GETFLDS+4, GETFLDS+6, GETFLDS+7, GETFLDS+8, GETFLDS+9, GETFLDS+10, GETFLDS+11, GETFLDS+13, GETFLDS+14 , GETFLDS+15, GETFLDS+16, GETFLDS+17, GETFLDS+18, GETFLDS+19, GETFLDS+20, GETFLDS+25, GETFLDS+29, GETFLDS+33, GETFLDS+35 , GETFLDS+37, GETFLDS+38, GETFLDS+39, GETFLDS+40, GETFLDS+42, GETFLDS+43, GETFLDS+49, GETFLDS+54, GETFLDS+56, GETFLDS+57 , GETFLDS+61, GETFLDS+62, GETFLDS+63, XPND+4, GETPKG+4, GETPKG+5 |
X | XGET+1~, EXIT+1~, DOCUR+2*, DOCUR+3*, DOCUR+4 |
X0 | GET+12~, GET+17*, XGET+1~, DOGET+5*, DOALL+5*, DOCUR+10*, DOCUR+11, GET41~, GET41+5*, GETBYIFN+5~ , GETBYIFN+7*, GETFLDS+9, GETFLDS+10, GETFLDS+11, GETFLDS+21, GETFLDS+24, GETFLDS+33, GETFLDS+37, GETFLDS+48, GETFLDS+61 |
X3 | GET+12~, GET+17*, XGET+1~, DOGET+5*, DOGET+6, DOGET+7, DOALL+5*, DOALL+6, DOCUR+10*, DOCUR+11 , DOCUR+12, GET41~, GET41+5*, GETBYIFN+5~, GETBYIFN+7*, GETBYIFN+8, GETFLDS+7, GETFLDS+8, GETFLDS+9, GETFLDS+10 , GETFLDS+13, GETFLDS+14 |
X8 | GET+12~, GET+17*, DOCUR+10*, DOCUR+13, DOCUR+14, GET41~, GET41+5*, GETBYIFN+5~, GETBYIFN+9*, GETFLDS+3 , GETFLDS+6, GETFLDS+7, GETFLDS+8, GETFLDS+9, GETFLDS+11, GETFLDS+16, GETFLDS+17, GETFLDS+18, GETFLDS+63 |
Y | GETPKG~, GETPKG+3*, GETPKG+5* |
Z | GETFLDS+76~*, GETFLDS+77*, GETFLDS+78*, GETFLDS+79, GETFLDS+80 |