©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ORCSAVE2 ;SLC/MKB-Utilities to update an order ;14-May-2010 11:23;PLS
Source file <ORCSAVE2.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 9 | $$SIGNREQD^ORCACT1 $$PTR^ORCD $$MEALTIME^ORCDFHO $$NEXTCOLL^ORCDLR1 CANCEL^ORCSEND (NOTIF,UNOTIF)^ORCSIGN (RS,S1,S2,SETALL,SK,SS,WK,WS)^ORDD100 (EK,ES,OI1,OI2)^ORDD100A $$SIGSTS^ORX1 |
| VA Fileman | 4 | ^%DT FILE^DICN ^DIE ^DIK |
| Inpatient Medications | 1 | $$RESOLVE^PSJORPOE |
| Kernel | 1 | ($$FMADD,$$NOW)^XLFDT |
| Toolkit | 1 | GETLST^XPAR |
| Uncategorized | 1 | (COMP,VER)^EDPFMON |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COMP(IFN,WHO,WHEN) | ; -- order completed
|
|
| STOP | ||
| CANCEL(ORDER) | ; -- cancel order [action]
|
|
| SIGN(DA,WHO,WHEN,HOW,WHAT) | ; -- affix ES to order
|
|
| STATUS(IFN,ST) | ; -- Update status of order
|
|
| UNVEIL(IFN) | ; -- unveil new order
|
|
| STARTDT(DA) | ; -- resolve Start and Stop dates from Responses
|
|
| CKPARENT(ORIFN) | ; -- Update status of parent order, if appropriate
|
|
| SC(ORX,ORIFN) | ; -- save responses to SC questions
|
|
| NEXT | ; -- Resolve next lab collection to FM date/time
|
|
| ALPS(DA,ORACT,TYPE) | ;set the lapse index ^OR(100,"ALPS")
|
|
| DELETE(ORDER) | ; -- delete order [action]
|
|
| ADMIN(START) | ; -- Resolve next/closest administration times to FM date/time
|
|
| VALUE(IFN,ID,INST) | ; -- Returns value of prompt by identifier ID
|
|
| AM | ; -- Resolve AM lab collection to FM date/time
|
|
| VERIFY(IFN,DA,TYPE,WHO,WHEN) | ; -- order verified
|
|
| CVTDATE(X) | ; Converts space-delimited time to @-delimited
|
|
| SIGSTS(IFN,ACT) | ; -- Set SigSts for backdoor orders [Called from ^ORM* rtns]
; Expects ORNATR, ORVP, ORNP to be defined |
|
| LAPSE(ORDER) | ; -- lapse order [action]
|
|
| RELEASE(ORDER,ACTION,WHEN,WHO,NATURE) | ; -- Mark order as released to service
|
|
| OC | ; -- Save order checks in ORCHECK() in ^OR(100,+ORIFN,9)
|
|
| STRT | ||
| DATES(DA,START,STOP) | ; -- Update start/stop dates for order DA
|
|
| RESP(IFN,PRMT,VAL,INST) | ; -- update a single Response VALue
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | STRT+4, STOP+4 |
| FILE^DICN | RESP+11 |
| ^DIE | CANCEL+6, CANCEL+8, LAPSE+6, LAPSE+10 |
| ^DIK | DELETE+2, DELETE+3, DELETE+4, RESP+13 |
| COMP^EDPFMON | COMP+4 |
| VER^EDPFMON | VERIFY+5 |
| $$SIGNREQD^ORCACT1 | SIGSTS+3 |
| $$PTR^ORCD | ADMIN+7, ADMIN+8, ADMIN+9 |
| $$MEALTIME^ORCDFHO | STARTDT+4 |
| $$NEXTCOLL^ORCDLR1 | NEXT+6, AM+7 |
| CANCEL^ORCSEND | STATUS+7 |
| NOTIF^ORCSIGN | SIGSTS+6 |
| UNOTIF^ORCSIGN | STATUS+7 |
| RS^ORDD100 | RELEASE+10 |
| S1^ORDD100 | SIGN+6 |
| S2^ORDD100 | SIGN+2 |
| SETALL^ORDD100 | STATUS+9 |
| SK^ORDD100 | DATES+3 |
| SS^ORDD100 | STRT+5, DATES+5 |
| WK^ORDD100 | DATES+3 |
| WS^ORDD100 | STRT, STRT+5, DATES+5 |
| EK^ORDD100A | DATES+8 |
| ES^ORDD100A | STOP+5, DATES+8 |
| OI1^ORDD100A | STRT+5, DATES+5 |
| OI2^ORDD100A | DATES+3 |
| $$SIGSTS^ORX1 | SIGSTS+3 |
| $$RESOLVE^PSJORPOE | ADMIN+12 |
| $$FMADD^XLFDT | STOP |
| $$NOW^XLFDT | STATUS+4, RELEASE+1, VERIFY+3, COMP+1, OC+2, 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+8, STARTDT+2, STRT+5*, STOP+5*, ADMIN+3, ADMIN+4, SIGN+2, SIGN+5* , SIGSTS+2, SIGSTS+4!, SIGSTS+5*, SIGSTS+6*, UNVEIL+1*, DELETE+3, VERIFY+4*, COMP+3*, DATES+2, DATES+4* , DATES+8*, OC+1!, OC+7*, OC+8*, OC+9*, 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.98 - [#100.98] | 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 |
| Name | Line Occurrences |
|---|---|
| $$CVTDATE | STRT+4, STOP+4 |
| $$VALUE | STARTDT+4, STRT, STOP, STOP+1, ADMIN+5 |
| ADMIN | STRT+1 |
| ALPS | LAPSE+10 |
| AM | STRT+1 |
| CKPARENT | STATUS+8 |
| DATES | STATUS+6, COMP+2 |
| NEXT | STRT+1 |
| STARTDT | RELEASE+8 |
| STATUS | CKPARENT+7, CKPARENT+15, CKPARENT+16, COMP+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | STATUS+4, NEXT+3, AM+3 |
| ^(1 | OC+8*, VALUE+3 |
| ^(3 | STATUS+1, CKPARENT+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | STARTDT+1~, STRT+4*, STOP+4* |
| ACT | SIGSTS~, SIGSTS+2, SIGSTS+4, SIGSTS+5, SIGSTS+6 |
| ACTION | RELEASE~, RELEASE+1*, RELEASE+2, RELEASE+7, RELEASE+10 |
| 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 |
| CDL | OC+2~, OC+3*, OC+4, OC+5, OC+6 |
| 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+2~*, OC+7*, OC+8, OC+9 |
| COMP | CKPARENT+1~, CKPARENT+8*, CKPARENT+13*, CKPARENT+15 |
| DA | STATUS+3~, STARTDT~, STARTDT+2, STARTDT+4, STRT, STRT+5, STOP, STOP+1, STOP+5, ADMIN+2 , ADMIN+3, ADMIN+4, ADMIN+5, ADMIN+6, SIGN~, SIGN+1, SIGN+2, SIGN+5, SIGN+6, DELETE+1~ , DELETE+2*, DELETE+3*, DELETE+4!*, VERIFY~, VERIFY+1, VERIFY+4, 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 | DELETE+2*, DELETE+3*, CANCEL+5*, LAPSE+5*, RESP+7*, RESP+13* |
| DAD | DELETE+1~, DELETE+3* |
| 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 | DELETE+1~, DELETE+2*, DELETE+3*, DELETE+4*, 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+3, COMP+1, OC+6 |
| DUZ(2 | NEXT+3, AM+3 |
| ENT | NEXT+1~, NEXT+3*, NEXT+4, AM+1~, AM+3*, AM+4 |
| FLD | VERIFY+2~*, VERIFY+4 |
| HOW | SIGN~, SIGN+3, SIGN+6 |
| I | ADMIN+1~, ADMIN+4*, ADMIN+5, ADMIN+7*, ADMIN+8, OC+2~, OC+4*, OC+5, 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+4, VERIFY+5, 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 |
| LAPS | CKPARENT+1~, CKPARENT+8*, CKPARENT+11*, CKPARENT+15 |
| LOC | ADMIN+1~, ADMIN+3*, ADMIN+9*, ADMIN+12 |
| >> MODE | OC+6 |
| 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+2~*, OC+6 |
| OC | OC+2~, OC+5*, OC+7, OC+8 |
| OI | ADMIN+1~, ADMIN+5*, ADMIN+9*, ADMIN+10*, ADMIN+12 |
| OR0 | RELEASE+2~*, RELEASE+3*, RELEASE+4*, RELEASE+6*, RELEASE+7, RELEASE+8, 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+3, OC+4, OC+5 |
| >> ORCHECK("OK" | OC+6 |
| 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+10, DELETE~, DELETE+2, DELETE+3, DELETE+4, CANCEL~ , CANCEL+2*, CANCEL+3, CANCEL+5, CANCEL+8, LAPSE~, LAPSE+1, LAPSE+2, LAPSE+3, LAPSE+5, LAPSE+9 |
| ORDG | STARTDT+1~, STARTDT+2*, STARTDT+3, STARTDT+4 |
| >> ORDIALOG( | ADMIN+7, ADMIN+8, ADMIN+9 |
| ORIFN | CKPARENT~, CKPARENT+2, CKPARENT+4, CKPARENT+5, CKPARENT+7, CKPARENT+9, CKPARENT+10, CKPARENT+15, CKPARENT+16, OC+1 , OC+3, OC+4, OC+5, OC+7, OC+8, OC+9, SC~, SC+1, SC+2, SC+4 |
| >> ORL | NEXT+3, AM+3 |
| ORLAB | STARTDT+1~, STARTDT+3*, STOP, STOP+1 |
| ORLOG | ALPS+1~, ALPS+3*, ALPS+4 |
| >> ORNATR | SIGSTS+3 |
| ORNOW | STATUS+3~, STATUS+4*, STATUS+5, STATUS+6 |
| 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+10, ADMIN+8, SIGSTS+4, SIGSTS+6, ALPS+1~, ALPS+3*, ALPS+4 |
| ORX | SC~, CANCEL+1~, CANCEL+4* |
| ORX( | SC+3 |
| OVERIDE | OC+2~, OC+6*, OC+8 |
| 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~ |
| SCH | ADMIN+1~, ADMIN+5*, ADMIN+8*, ADMIN+12 |
| ST | STATUS~, STATUS+1, STATUS+2, STATUS+5, STATUS+6, STATUS+7 |
| START | ADMIN~, ADMIN+12, DATES~, DATES+1, DATES+2, DATES+4 |
| STOP | DATES~, DATES+6, DATES+8 |
| TYPE | VERIFY~, VERIFY+1, VERIFY+2, 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, STARTDT+2, STARTDT+3, STRT+5, STOP+5, NEXT+3, NEXT+7 , AM+3, AM+7, ADMIN+3, ADMIN+4, ADMIN+10, ADMIN+12, SIGN+3, SIGSTS+2, SIGSTS+5, UNVEIL+1 , DELETE+3, VERIFY+1, VERIFY+4, COMP+3, DATES+2, DATES+4, DATES+8, OC+6, OC+8, OC+9 , 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+10, SIGN~, SIGN+3, VERIFY~, VERIFY+3*, VERIFY+4, COMP~ , COMP+1*, COMP+2, COMP+3 |
| WHO | RELEASE~, RELEASE+1*, RELEASE+6, SIGN~, SIGN+3, VERIFY~, VERIFY+3*, VERIFY+4, COMP~, COMP+1* , COMP+3 |
| X | STARTDT+1~, STRT*, STRT+1, STRT+4*, STOP*, STOP+1*, STOP+4*, 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* , CVTDATE~, CVTDATE+2, CVTDATE+3 |
| XACT | STATUS+3~ |
| Y | STARTDT+1~, STRT+4*, STRT+5, STOP, STOP+4*, STOP+5, ADMIN+1~, ADMIN+12*, VALUE+2~*, VALUE+3* , VALUE+4, RESP+11, CVTDATE+1~, CVTDATE+2*, CVTDATE+3 |
| Name | Field # of Occurrence |
|---|---|
| $T(COMP^EDPFMON | COMP+4 |
| $T(VER^EDPFMON | VERIFY+5 |