ORCSAVE2 ;SLC/MKB-Utilities to update an order ;Jun 18, 2025@14:43:58
Source file <ORCSAVE2.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 15 | $$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 $$OLDCODE^ORSPECAUTH IMTYPSEL^ORWDRA32 DT^ORWU $$SIGSTS^ORX1 |
| VA FileMan | 4 | ^%DT FILE^DICN (,FILE,UPDATE)^DIE ^DIK |
| Emergency Department Integration Software | 1 | (COMP,VER)^EDPFMON |
| Inpatient Medications | 1 | $$RESOLVE^PSJORPOE |
| Kernel | 1 | ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT |
| PCE Patient Care Encounter | 1 | $$FINDBYCODE^PXSPECAUTH |
| 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 (from an older rpc that after 33CON will not be used by CPRS)
|
|
| 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 |
| UPDATE^DIE | SC+11 |
| ^DIK | SC+9, 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 |
| $$OLDCODE^ORSPECAUTH | SC+8 |
| IMTYPSEL^ORWDRA32 | FIXRAD+4 |
| DT^ORWU | FIXRAD+10 |
| $$SIGSTS^ORX1 | SIGSTS+3 |
| $$RESOLVE^PSJORPOE | ADMIN+12 |
| $$FINDBYCODE^PXSPECAUTH | SC+8 |
| $$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+9 , 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, SC+9~*, 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 | SC+9*, 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 | SC+9~*, 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~, SC+6~ |
| FDA | FIXRAD+15~, SC+6~ |
| FDA( | SC+10* |
| 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 |
| IENS | SC+6~, SC+10* |
| 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+7 |
| 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+9, SC+10 |
| 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~ |
| PXIEN | SC+6~, SC+8*, SC+9, SC+10 |
| PXNM | SC+6~, SC+8* |
| SC+6~, SC+7*, SC+8 | |
| 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, SC+7, ALPS+3 , RESP+3, RESP+4, RESP+9 |
| VAL | RESP~, RESP+1*, RESP+5, RESP+11, RESP+12 |
| VALUE | SC+6~, SC+7*, SC+9, SC+10 |
| 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 |