ORCSAVE2 ;SLC/MKB-Utilities to update an order ;Jun 03, 2020@15:21:13
Source file <ORCSAVE2.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 14 | $$SIGNREQD^ORCACT1 $$PTR^ORCD $$MEALTIME^ORCDFHO $$NEXTCOLL^ORCDLR1 DELALRT^ORCSAVE1 CANCEL^ORCSAVE2 CANCEL^ORCSEND (NOTIF,UNOTIF)^ORCSIGN (RS,S1,S2,SETALL,SK,SS,WK,WS)^ORDD100 (EK,ES,OI1,OI2)^ORDD100A (DELOCC,SAVEOC)^OROCAPI1 IMTYPSEL^ORWDRA32 DT^ORWU $$SIGSTS^ORX1 |
VA FileMan | 4 | ^%DT FILE^DICN (,FILE)^DIE ^DIK |
Emergency Department Integration Software | 1 | (COMP,VER)^EDPFMON |
Inpatient Medications | 1 | $$RESOLVE^PSJORPOE |
Kernel | 1 | ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT |
Toolkit | 1 | GETLST^XPAR |
Name | Comments | DBIA/ICR reference |
---|---|---|
STATUS(IFN,ST) | ; -- Update status of order
|
|
CKPARENT(ORIFN) | ; -- Update status of parent order, if appropriate
|
|
RELEASE(ORDER,ACTION,WHEN,WHO,NATURE) | ; -- Mark order as released to service
|
|
FIXRAD(DA,TYPE) | ; -- Fix Radiology Orders with start dates that are no longer valid
|
|
STARTDT(DA) | ; -- resolve Start and Stop dates from Responses
|
|
STRT | ||
STOP | ||
NEXT | ; -- Resolve next lab collection to FM date/time
|
|
AM | ; -- Resolve AM lab collection to FM date/time
|
|
ADMIN(START) | ; -- Resolve next/closest administration times to FM date/time
|
|
SIGN(DA,WHO,WHEN,HOW,WHAT) | ; -- affix ES to order
|
|
SIGSTS(IFN,ACT) | ; -- Set SigSts for backdoor orders [Called from ^ORM* rtns]
; Expects ORNATR, ORVP, ORNP to be defined |
|
UNVEIL(IFN) | ; -- unveil new order
|
|
DELETE(ORDER) | ; -- delete order [action]
|
|
VERIFY(IFN,DA,TYPE,WHO,WHEN) | ; -- order verified
|
|
COMP(IFN,WHO,WHEN) | ; -- order completed
|
|
DATES(DA,START,STOP) | ; -- Update start/stop dates for order DA
|
|
OC | ; -- Save order checks in ORCHECK() in ^OR(100,+ORIFN,9) ON SIGNATURE IN CPRS
|
|
VALUE(IFN,ID,INST) | ; -- Returns value of prompt by identifier ID
|
|
SC(ORX,ORIFN) | ; -- save responses to SC questions
|
|
CANCEL(ORDER) | ; -- cancel order [action]
|
|
LAPSE(ORDER) | ; -- lapse order [action]
|
|
ALPS(DA,ORACT,TYPE) | ;set the lapse index ^OR(100,"ALPS")
|
|
RESP(IFN,PRMT,VAL,INST) | ; -- update a single Response VALue
|
Name | Field # of Occurrence |
---|---|
^%DT | STRT+2, STOP+2 |
FILE^DICN | RESP+11 |
^DIE | CANCEL+6, CANCEL+8, LAPSE+6, LAPSE+10 |
FILE^DIE | FIXRAD+17 |
^DIK | RESP+13 |
COMP^EDPFMON | COMP+4 |
VER^EDPFMON | VERIFY+6 |
$$SIGNREQD^ORCACT1 | SIGSTS+3 |
$$PTR^ORCD | ADMIN+7, ADMIN+8, ADMIN+9 |
$$MEALTIME^ORCDFHO | STARTDT+4 |
$$NEXTCOLL^ORCDLR1 | NEXT+6, AM+7 |
DELALRT^ORCSAVE1 | LAPSE+6 |
CANCEL^ORCSAVE2 | DELETE+2 |
CANCEL^ORCSEND | STATUS+7 |
NOTIF^ORCSIGN | SIGSTS+6 |
UNOTIF^ORCSIGN | STATUS+7 |
RS^ORDD100 | RELEASE+11 |
S1^ORDD100 | SIGN+6 |
S2^ORDD100 | SIGN+2 |
SETALL^ORDD100 | STATUS+9 |
SK^ORDD100 | DATES+3 |
SS^ORDD100 | STRT+3, DATES+5 |
WK^ORDD100 | DATES+3 |
WS^ORDD100 | STRT, STRT+3, DATES+5 |
EK^ORDD100A | DATES+8 |
ES^ORDD100A | STOP+3, DATES+8 |
OI1^ORDD100A | STRT+3, DATES+5 |
OI2^ORDD100A | DATES+3 |
DELOCC^OROCAPI1 | OC+2 |
SAVEOC^OROCAPI1 | OC+22 |
IMTYPSEL^ORWDRA32 | FIXRAD+4 |
DT^ORWU | FIXRAD+10 |
$$SIGSTS^ORX1 | SIGSTS+3 |
$$RESOLVE^PSJORPOE | ADMIN+12 |
$$DT^XLFDT | FIXRAD+9 |
$$FMADD^XLFDT | STOP |
$$FMTE^XLFDT | FIXRAD+12 |
$$NOW^XLFDT | STATUS+4, RELEASE+1, VERIFY+4, COMP+1, OC+9, OC+35, ALPS+5 |
GETLST^XPAR | NEXT+4, AM+4 |
FileNo | Call Tags |
---|---|
^OR(100 - [#100] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^OR(100 - [#100] | STATUS+1, STATUS+4, STATUS+5*, CKPARENT+2, CKPARENT+4, CKPARENT+5!, CKPARENT+6, CKPARENT+9, CKPARENT+10!, CKPARENT+11 , RELEASE+2, RELEASE+7*, RELEASE+9, FIXRAD+1, FIXRAD+2, FIXRAD+7, FIXRAD+14, STARTDT+2, STRT+3*, STOP+3* , ADMIN+3, ADMIN+4, SIGN+2, SIGN+5*, SIGSTS+2, SIGSTS+4!, SIGSTS+5*, SIGSTS+6*, UNVEIL+1*, VERIFY+5* , COMP+3*, DATES+2, DATES+4*, DATES+8*, OC+1, VALUE+1, VALUE+3, SC+1, SC+2, SC+4* , CANCEL+3, LAPSE+2, LAPSE+3, ALPS+2, ALPS+3, ALPS+4*, ALPS+5*, RESP+4, RESP+9, RESP+11* , RESP+12* |
^ORD(100.01 - [#100.01] | STATUS+2 |
^ORD(100.02 - [#100.02] | RELEASE+3 |
^ORD(100.05 - [#100.05] | OC+26*, OC+33*, OC+34*, OC+35* |
^ORD(100.98 - [#100.98] | FIXRAD+7, STARTDT+2 |
^ORD(101.41 - [#101.41] | RESP+1, RESP+3, RESP+10 |
^ORD(101.43 - [#101.43] | ADMIN+10 |
^SC - [#44] | NEXT+3, AM+3 |
^TMP($J | VERIFY+2, OC+20, OC+30, OC+31, OC+33, OC+34, OC+36! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | STARTDT+1~, STRT+2*, STOP+2* |
ACT | SIGSTS~, SIGSTS+2, SIGSTS+4, SIGSTS+5, SIGSTS+6 |
ACTION | RELEASE~, RELEASE+1*, RELEASE+2, RELEASE+7, RELEASE+11 |
ACTIVE | CKPARENT+1~, CKPARENT+8*, CKPARENT+14*, CKPARENT+16 |
ALLDONE | CKPARENT+1~, CKPARENT+8*, CKPARENT+9, CKPARENT+14*, CKPARENT+15 |
ALLRELSD | CKPARENT+1~, CKPARENT+3*, CKPARENT+4, CKPARENT+6*, CKPARENT+7 |
AM | AM+1~, AM+5*, AM+6, AM+7 |
CH | CKPARENT+1~, CKPARENT+4*, CKPARENT+5, CKPARENT+6, CKPARENT+9*, CKPARENT+10, CKPARENT+11 |
CHSTS | CKPARENT+1~, CKPARENT+6*, CKPARENT+11*, CKPARENT+12, CKPARENT+13, CKPARENT+14 |
CNT | OC+3~, OC+4*, OC+8*, OC+9, OC+10, OC+12, OC+14, OC+15, OC+17, OC+18 , OC+19, OC+20 |
COMP | CKPARENT+1~, CKPARENT+8*, CKPARENT+13*, CKPARENT+15 |
DA | STATUS+3~, FIXRAD~, FIXRAD+1, FIXRAD+2, FIXRAD+7, FIXRAD+9, FIXRAD+13, FIXRAD+14, FIXRAD+16, STARTDT~ , STARTDT+2, STARTDT+4, STRT, STRT+3, STOP, STOP+1, STOP+3, ADMIN+2, ADMIN+3, ADMIN+4 , ADMIN+5, ADMIN+6, SIGN~, SIGN+1, SIGN+2, SIGN+5, SIGN+6, VERIFY~, VERIFY+1, VERIFY+5 , DATES~, DATES+1, DATES+2, DATES+3, DATES+4, DATES+5, DATES+8, CANCEL+1~, CANCEL+5*, CANCEL+8!* , LAPSE+4~, LAPSE+5*, LAPSE+8~, LAPSE+9*, LAPSE+10, ALPS~, ALPS+2, ALPS+3, ALPS+4, ALPS+5 , RESP+2~, RESP+4*, RESP+5, RESP+12 |
DA(1 | CANCEL+5*, LAPSE+5*, RESP+7*, RESP+13* |
DC | CKPARENT+1~, CKPARENT+8*, CKPARENT+12*, CKPARENT+15 |
DIC | RESP+6~, RESP+7* |
DIC("DR" | RESP+8* |
DIC(0 | RESP+7* |
DIE | CANCEL+1~, CANCEL+5*, CANCEL+8*, LAPSE+4~, LAPSE+5*, LAPSE+8~, LAPSE+9* |
DIK | RESP+2~, RESP+13* |
DLG | RESP+6~, RESP+9*, RESP+10 |
DO | RESP+6~ |
DR | CANCEL+1~, CANCEL+6*, CANCEL+8*, LAPSE+4~, LAPSE+6*, LAPSE+8~, LAPSE+9* |
DUZ | RELEASE+1, SIGN+3, VERIFY+4, COMP+1, OC+9 |
DUZ(2 | NEXT+3, AM+3 |
ENT | NEXT+1~, NEXT+3*, NEXT+4, AM+1~, AM+3*, AM+4 |
ERROR | FIXRAD+15~ |
FDA | FIXRAD+15~ |
FDA(100 | FIXRAD+16* |
FLD | VERIFY+3~*, VERIFY+5 |
HOW | SIGN~, SIGN+3, SIGN+6 |
I | FIXRAD+3~, FIXRAD+5*, FIXRAD+6*, ADMIN+1~, ADMIN+4*, ADMIN+5, ADMIN+7*, ADMIN+8, OC+3~, OC+5* , OC+6, OC+7, OC+9, OC+12, VALUE+2~*, VALUE+3*, SC+2~, SC+3* |
ID | VALUE~, VALUE+1, VALUE+3, RESP+2~, RESP+3*, RESP+4, RESP+8 |
IFN | STATUS~, STATUS+1, STATUS+4, STATUS+5, STATUS+6, STATUS+7, STATUS+9, SIGSTS~, SIGSTS+2, SIGSTS+3 , SIGSTS+4, SIGSTS+5, SIGSTS+6, UNVEIL~, UNVEIL+1, VERIFY~, VERIFY+1, VERIFY+5, VERIFY+6, COMP~ , COMP+1, COMP+2, COMP+3, COMP+4, VALUE~, VALUE+1, VALUE+3, RESP~, RESP+1*, RESP+4 , RESP+7, RESP+9, RESP+11, RESP+12, RESP+13 |
INST | VALUE~, VALUE+2*, VALUE+3, RESP~, RESP+2*, RESP+4, RESP+8 |
J | OC+3~, OC+6*, OC+7 |
LAPS | CKPARENT+1~, CKPARENT+8*, CKPARENT+11*, CKPARENT+15 |
LOC | ADMIN+1~, ADMIN+3*, ADMIN+9*, ADMIN+12 |
NATURE | RELEASE~, RELEASE+3 |
NEXT | NEXT+1~, NEXT+7* |
NODE0 | STATUS+3~ |
NODE3 | STATUS+3~, STATUS+4*, STATUS+5*, STATUS+8 |
NOW | NEXT+1~, NEXT+5*, NEXT+6*, NEXT+7, AM+1~, AM+5*, AM+6 |
OC | OC+3~, OC+7*, OC+9, OC+10 |
OCINST | OC+25~*, OC+26, OC+28~, OC+29*, OC+33, OC+34, OC+35 |
OCTXT | OC+28~*, OC+31 |
OI | ADMIN+1~, ADMIN+5*, ADMIN+9*, ADMIN+10*, ADMIN+12 |
OR0 | RELEASE+2~*, RELEASE+3*, RELEASE+4*, RELEASE+6*, RELEASE+7, RELEASE+8, RELEASE+9, SIGSTS+2~*, SIGSTS+4, SIGSTS+6 , ALPS+1~, ALPS+2*, ALPS+3 |
OR5 | SC+2~*, SC+3*, SC+4 |
ORA | CANCEL+1~, CANCEL+2*, CANCEL+3, CANCEL+5, CANCEL+7, LAPSE+1~*, LAPSE+2, LAPSE+3, LAPSE+5, LAPSE+7 , LAPSE+10 |
ORACT | ALPS~, ALPS+2, ALPS+4 |
>> ORCHECK( | OC+5, OC+6, OC+7 |
>> ORCHECK("OK" | OC+12 |
>> ORCOMMENTS( | OC+14 |
ORCROC | OC+3~, OC+23 |
ORCROC( | OC+18*, OC+24, OC+26 |
ORCROCI | OC+24~*, OC+25, OC+26 |
ORDAY | NEXT+1~, NEXT+5*, NEXT+6*, NEXT+7, AM+1~, AM+6*, AM+7 |
>> ORDCNTRL | STATUS+6 |
ORDER | RELEASE~, RELEASE+2, RELEASE+7, RELEASE+8, RELEASE+9, RELEASE+11, DELETE~, DELETE+2, CANCEL~, CANCEL+2* , CANCEL+3, CANCEL+5, CANCEL+8, LAPSE~, LAPSE+1, LAPSE+2, LAPSE+3, LAPSE+5, LAPSE+6, LAPSE+9 |
ORDG | FIXRAD+3~, FIXRAD+7*, FIXRAD+8, STARTDT+1~, STARTDT+2*, STARTDT+3, STARTDT+4 |
>> ORDIALOG( | ADMIN+7, ADMIN+8, ADMIN+9 |
ORDLGS | FIXRAD+3~, FIXRAD+5*, FIXRAD+6*, FIXRAD+8 |
ORGLOB | OC+16~, OC+17*, OC+20 |
ORI | OC+16~, OC+19*, OC+20* |
ORICNT | OC+16~, OC+19*, OC+20* |
ORIFN | CKPARENT~, CKPARENT+2, CKPARENT+4, CKPARENT+5, CKPARENT+7, CKPARENT+9, CKPARENT+10, CKPARENT+15, CKPARENT+16, OC+1 , OC+2, OC+5, OC+6, OC+7, OC+9, OC+12, OC+14, SC~, SC+1, SC+2 , SC+4 |
ORK | OC+3~, OC+21, OC+22 |
ORK( | OC+9*, OC+10*, OC+12*, OC+14*, OC+15, OC+17, OC+18, OC+19*, OC+20*, OC+27 , OC+28 |
ORKI | OC+3~, OC+27*, OC+28, OC+29 |
>> ORL | NEXT+3, AM+3 |
ORLAB | STARTDT+1~, STARTDT+3*, STOP, STOP+1 |
ORLOG | ALPS+1~, ALPS+3*, ALPS+4 |
ORMONOI | OC+30~*, OC+31, OC+33, OC+34 |
ORMONOQ | OC+30~*, OC+32* |
>> ORNATR | SIGSTS+3 |
ORNOW | STATUS+3~, STATUS+4*, STATUS+5, STATUS+6 |
OROCRET | OC+3~, OC+22 |
OROCRET( | OC+25, OC+29 |
>> ORREASONS( | OC+12 |
ORRULE | OC+16~, OC+17*, OC+19, OC+20 |
ORSTS | CKPARENT+1~, CKPARENT+2*, CKPARENT+3, CKPARENT+15*, CKPARENT+16 |
ORT | STARTDT+1~, STARTDT+3*, STARTDT+4*, STRT, STOP+1 |
ORTIME | NEXT+1~, NEXT+4, AM+1~, AM+4 |
ORTIME( | NEXT+5, NEXT+7, AM+6, AM+7 |
ORTIME(0 | AM+5 |
ORVP | STATUS+3~, STATUS+4*, RELEASE+11, ADMIN+8, SIGSTS+4, SIGSTS+6, ALPS+1~, ALPS+3*, ALPS+4 |
ORX | SC~, CANCEL+1~, CANCEL+4* |
ORX( | SC+3 |
P | SC+2~*, SC+3* |
PAT | ADMIN+1~, ADMIN+3*, ADMIN+8*, ADMIN+12 |
PRMT | RESP~, RESP+1*, RESP+3, RESP+8, RESP+10 |
PROV | STATUS+3~ |
RADINFO | FIXRAD+3~, FIXRAD+4 |
RADINFO( | FIXRAD+6 |
SCH | ADMIN+1~, ADMIN+5*, ADMIN+8*, ADMIN+12 |
ST | STATUS~, STATUS+1, STATUS+2, STATUS+5, STATUS+6, STATUS+7 |
START | FIXRAD+3~, FIXRAD+9*, FIXRAD+10, ADMIN~, ADMIN+12, DATES~, DATES+1, DATES+2, DATES+4 |
STARTFM | FIXRAD+3~, FIXRAD+10*, FIXRAD+11, FIXRAD+14 |
STOP | DATES~, DATES+6, DATES+8 |
TODAY | FIXRAD+3~, FIXRAD+9*, FIXRAD+11, FIXRAD+12, FIXRAD+16 |
TODAYEXT | FIXRAD+3~, FIXRAD+12*, FIXRAD+13 |
TYPE | FIXRAD~, FIXRAD+14, VERIFY~, VERIFY+1, VERIFY+3, ALPS~, ALPS+4 |
U | STATUS+1, STATUS+4, STATUS+5, STATUS+7, STATUS+8, CKPARENT+2, CKPARENT+6, CKPARENT+11, CKPARENT+12, CKPARENT+13 , RELEASE+3, RELEASE+4, RELEASE+6, RELEASE+8, RELEASE+9, FIXRAD+2, FIXRAD+6, FIXRAD+7, FIXRAD+8, FIXRAD+14 , STARTDT+2, STARTDT+3, STRT+3, STOP+3, NEXT+3, NEXT+7, AM+3, AM+7, ADMIN+3, ADMIN+4 , ADMIN+10, ADMIN+12, SIGN+3, SIGSTS+2, SIGSTS+5, UNVEIL+1, VERIFY+1, VERIFY+5, COMP+3, DATES+2 , DATES+4, DATES+8, OC+9, OC+10, OC+18, OC+35, VALUE+3, SC+3, ALPS+3, RESP+3 , RESP+4, RESP+9 |
VAL | RESP~, RESP+1*, RESP+5, RESP+11, RESP+12 |
WHAT | SIGN~, SIGN+1*, SIGN+2, SIGN+5, SIGN+6 |
WHEN | RELEASE~, RELEASE+1*, RELEASE+6, RELEASE+11, SIGN~, SIGN+3, VERIFY~, VERIFY+4*, VERIFY+5, COMP~ , COMP+1*, COMP+2, COMP+3 |
WHO | RELEASE~, RELEASE+1*, RELEASE+6, SIGN~, SIGN+3, VERIFY~, VERIFY+4*, VERIFY+5, COMP~, COMP+1* , COMP+3 |
X | STARTDT+1~, STRT*, STRT+1, STOP*, STOP+1*, NEXT+7*, AM+7*, ADMIN+12*, SIGN+2~*, SIGN+3* , SIGN+5, SIGSTS+2~, SIGSTS+3*, SIGSTS+5, SIGSTS+6, ALPS+1~, RESP+6~, RESP+10* |
XACT | STATUS+3~ |
Y | STARTDT+1~, STRT+2*, STRT+3, STOP, STOP+2*, STOP+3, ADMIN+1~, ADMIN+12*, VALUE+2~*, VALUE+3* , VALUE+4, RESP+11 |
Name | Field # of Occurrence |
---|---|
$T(COMP^EDPFMON | COMP+4 |
$T(VER^EDPFMON | VERIFY+6 |