ORWORR ; SLC/KCM/JLI - Retrieve Orders for Broker ; Nov 18, 2022@12:08:57
Source file <ORWORR.m>
| 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
|
| 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 |
