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 |