©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
ORWDX ; SLC/KCM/REV/JLI - Order dialog utilities ;20-Nov-2012 10:12;PLS
Source file <ORWDX.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 13 | ($$INPT,$$PTR,GETDLG1)^ORCD (EN,XX)^ORCSAVE (EN,EN2)^ORCSEND $$TYPE^OREVNTX (BHS,BTS)^ORMBLD SAVE^ORMEVNT1 $$DGRP^ORMLR (DELPI,DLGDEF,FNDINFO,WRLST1)^ORWDX1 XROOT^ORWDX2 FORMID^ORWDXM $$CHKACT^ORWDXR GETBYIFN^ORWORR ($$LCKEVT,$$LOCK,$$LOCK1,UNLEVT,UNLK1,UNLOCK)^ORX2 |
| Kernel | 1 | $$NOW^XLFDT |
| Toolkit | 1 | $$GET^XPAR |
| VA Fileman | 1 | UPDATE^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | ORCMEDT8 ORWDX2 |
| IHS Changes To Pharmacy | 1 | APSPESLP |
| IHS Electronic Health Record | 1 | BEHOOGP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ODITMBC(Y,XREF,ODLST) | ;
|
|
| SEND1 | ||
| DLGDEF(LST,DLG) | ; Format mapping for a dlg
|
|
| LOCK(OK,DFN) | ; Attempt to lock pt for ordering
|
|
| DGNM(VAL,NM) | ; Display grp pointer for name
|
|
| AGAIN(VAL,DLG) | ; return true to keep dlg for another order
|
|
| FORMID(VAL,ORIFN) | ; Base dlg FormID for an order
|
|
| UNLKOTH(OK,ORIFN) | ; Unlock pt not by this session
|
|
| DLGID(VAL,ORIFN) | ; return dlg IEN for order
|
|
| ORDITM(Y,FROM,DIR,XREF) | ; Subset of orderable items
; Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name |
|
| LOCKORD(OK,ORIFN) | ; Attempt to lock order
|
|
| DLGQUIK(LST,QO) | ;(NOT USED)
|
|
| SAVE(REC,ORVP,ORNP,ORL,DLG,ORDG,ORIT,ORIFN,ORDIALOG,ORDEA,ORAPPT,ORSRC,OREVTDF) | ;
; ORVP=DFN, ORNP=Provider, ORL=Location, DLG=Order Dialog, ; ORDG=Display Group, ORIT=Quick Order Dialog, ORAPPT=Appointment |
|
| WRLST(LST,LOC) | ; List of dlgs for writing orders
|
|
| FNDINFO(Y,ODIEN) | ;
|
|
| DGRP(VAL,DLG) | ; Display grp pointer for a dlg
|
|
| LOADRSP(LST,RSPID,TRANS) | ; Load responses from 101.41 or 100
; RSPID: C123456;1-3243 = cached copy, 134-3234 = cached quick ; X123456;1 = change order, 134 = quick dialog |
|
| MSG(LST,IEN) | ; Msg text for orderable item
|
|
| MEDREC | ;IHS/MSC/REC/PLS - If dosage form is Miscellaneous set order action to validate
|
|
| SENDED(ORWLST,ORIENS,TS,LOC) | ; Release EDOs to svc
|
|
| DISMSG(VAL,IEN) | ; Disabled mge for ordering dlg
|
|
| UNLKORD(OK,ORIFN) | ; Unlock order
|
|
| SEND(ORWLST,DFN,ORNP,ORL,ES,ORWREC) | ; Sign
; DFN=Patient, ORNP=Provider, ORL=Location, ES=Encrypted ES code ; ORWREC(n)=ORIFN;Action^Signature Sts^Release Sts^Nature of Order |
|
| UNLOCK(OK,DFN) | ; Unlock pt for ordering
|
| Name | Field # of Occurrence |
|---|---|
| UPDATE^DIE | MEDREC+13, MEDREC+21 |
| $$INPT^ORCD | SAVE+20 |
| $$PTR^ORCD | SAVE+38 |
| GETDLG1^ORCD | SAVE+46 |
| EN^ORCSAVE | SAVE+57 |
| XX^ORCSAVE | SAVE+64 |
| EN^ORCSEND | SEND1+16 |
| EN2^ORCSEND | SENDED+19 |
| $$TYPE^OREVNTX | SENDED+23 |
| BHS^ORMBLD | SEND1+14 |
| BTS^ORMBLD | SEND1+22 |
| SAVE^ORMEVNT1 | SENDED+23 |
| $$DGRP^ORMLR | SAVE+39 |
| DELPI^ORWDX1 | SAVE+55 |
| DLGDEF^ORWDX1 | DLGDEF+1 |
| FNDINFO^ORWDX1 | FNDINFO+1 |
| WRLST1^ORWDX1 | WRLST+1 |
| XROOT^ORWDX2 | LOADRSP+4, LOADRSP+5, LOADRSP+6, LOADRSP+8 |
| FORMID^ORWDXM | FORMID+4 |
| $$CHKACT^ORWDXR | SEND1+10 |
| GETBYIFN^ORWORR | SAVE+58, SAVE+65 |
| $$LCKEVT^ORX2 | SENDED+8 |
| $$LOCK^ORX2 | LOCK+1 |
| $$LOCK1^ORX2 | SENDED+14, SEND1+15, LOCKORD+1 |
| UNLEVT^ORX2 | SENDED+26 |
| UNLK1^ORX2 | SENDED+16, SENDED+19, SEND1+16, UNLKORD+1 |
| UNLOCK^ORX2 | UNLOCK+1 |
| $$NOW^XLFDT | ORDITM+4 |
| $$GET^XPAR | MEDREC+9 |
| RPC Name | Call Tags |
|---|---|
| ORWDX ORDITM | ORDITM |
| ORWDX DLGDEF | DLGDEF |
| ORWDX DLGQUIK | DLGQUIK |
| ORWDX SAVE | SAVE |
| ORWDX SEND | SEND |
| ORWDX WRLST | WRLST |
| ORWDX LOADRSP | LOADRSP |
| ORWDX FORMID | FORMID |
| ORWDX LOCK | LOCK |
| ORWDX UNLOCK | UNLOCK |
| ORWDX MSG | MSG |
| ORWDX DGRP | DGRP |
| ORWDX DLGID | DLGID |
| ORWDX AGAIN | AGAIN |
| ORWDX DISMSG | DISMSG |
| ORWDX SENDP | SENDP |
| ORWDX LOCK ORDER | LOCKORD |
| ORWDX UNLOCK ORDER | UNLKORD |
| ORWDX DGNM | DGNM |
| ORWDX SENDED | SENDED |
| ORWDX UNLKOTH | UNLKOTH |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | SAVE+52, SAVE+53, SEND1+2 |
| ^DPT - [#2] | SAVE+14 |
| ^OR(100 - [#100] | SAVE+7, SAVE+8, SAVE+62, MEDREC+4, MEDREC+5, MEDREC+10, MEDREC+16, MEDREC+17, SENDED+5, SENDED+11 , SENDED+12, SENDED+16, SENDED+17*, SENDED+18*, SENDED+22, SEND1+7, SEND1+8, SEND1+9, SEND1+13, SEND1+19 , DLGID+1, FORMID+2 |
| ^ORD(100.98 - [#100.98] | SAVE+14, SAVE+37, DGNM+1 |
| ^ORD(101.41 - [#101.41] | SAVE+29, SAVE+30, SAVE+31, SAVE+33, SAVE+42, SAVE+43, SAVE+49, SAVE+50, MEDREC+2, MEDREC+3 , AGAIN+1, DGRP+1, DGRP+2, DISMSG+1 |
| ^ORD(101.43 - [#101.43] | ORDITM+5, ORDITM+6, ORDITM+7, ORDITM+10, SAVE+39, MEDREC+6, MEDREC+7, MSG+2 |
| ^PS(50.7 - [#50.7] | MEDREC+8 |
| ^TMP("ORECALL" | SAVE+59* |
| ^XTMP("ORPTLK-" | UNLKOTH+1! |
| Name | Line Occurrences |
|---|---|
| FNDINFO | ODITMBC+3 |
| LOADRSP | DLGQUIK+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MSG+2 |
| ^(0 | SENDED+13 |
| ^(3 | SAVE+62 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BEHFDA | MEDREC+11~, MEDREC+19~ |
| BEHFDA( | MEDREC+12*, MEDREC+20* |
| CNT | ORDITM+2~, ORDITM+4*, ORDITM+5, ODITMBC+1~, ODITMBC+2*, ODITMBC+3* |
| CURTM | ORDITM+2~, ORDITM+4*, ORDITM+8 |
| DEFROUTE | ORDITM+2~, ORDITM+3*, ORDITM+10*, ORDITM+11, ORDITM+12 |
| DFN | SEND~, SEND1+1, LOCK~, LOCK+1, UNLOCK~, UNLOCK+1 |
| DIR | ORDITM~, ORDITM+5, ORDITM+6 |
| DLG | DLGDEF~, DLGDEF+1, LOADRSP+3~, SAVE~, SAVE+12*, SAVE+28, SAVE+29*, SAVE+30*, SAVE+31*, SAVE+32 , SAVE+34, SAVE+35, SAVE+42, SAVE+43, MEDREC+9, FORMID+1~, FORMID+2*, FORMID+3, FORMID+4, AGAIN~ , AGAIN+1, DGRP~, DGRP+1*, DGRP+2 |
| DTXT | ORDITM+2~ |
| ES | SEND~ |
| EVENT | SENDED+1~ |
| EVENT( | SENDED+7, SENDED+8*, SENDED+26 |
| FROM | ORDITM~, ORDITM+5*, ORDITM+6, ORDITM+7 |
| I | ORDITM+2~, ORDITM+4*, ORDITM+5, ORDITM+9*, ORDITM+11, ORDITM+12, LOADRSP+3~, SEND1~, SEND1+2*, MSG+1~ , MSG+2* |
| ID | LOADRSP+3~ |
| IDF | MEDREC+1~, MEDREC+8*, MEDREC+9 |
| IEN | ORDITM+2~, ORDITM+6*, ORDITM+7, ORDITM+10, ORDITM+11, ORDITM+12, MSG~, MSG+2, DISMSG~, DISMSG+1 |
| ILST | LOADRSP+3~ |
| INSPRMT | SAVE+50~*, SAVE+51 |
| INST | LOADRSP+3~ |
| J | LOADRSP+3~, SENDED+1~, SENDED+26* |
| LOC | SENDED~, SENDED+2*, SENDED+17, WRLST~ |
| LOCK | SENDED+1~, SENDED+7*, SENDED+8*, SENDED+9, SENDED+15 |
| LST | DLGDEF~, DLGDEF+1, DLGQUIK~, DLGQUIK+1, LOADRSP~, WRLST~, MSG~ |
| LST( | MSG+2* |
| NM | ODITMBC+1~, ODITMBC+2*, DGNM~, DGNM+1 |
| NVA | MEDREC+1~, MEDREC+6* |
| OD | MEDREC+1~, MEDREC+2*, MEDREC+3 |
| ODID | MEDREC+1~, MEDREC+3*, MEDREC+4 |
| ODIEN | FNDINFO~, FNDINFO+1 |
| ODLST | ODITMBC~ |
| ODLST( | ODITMBC+3 |
| OI | SAVE+38~*, SAVE+39 |
| OK | SENDED+1~, SENDED+14*, SENDED+15, SEND1+15~*, SEND1+16, LOCK~, LOCK+1*, UNLOCK~, UNLOCK+1*, LOCKORD~ , LOCKORD+1*, UNLKORD~, UNLKORD+1*, UNLKOTH~, UNLKOTH+1* |
| ONPASS | SAVE+3~ |
| OR0 | SAVE+61~, SAVE+62*, SAVE+63 |
| OR3 | SENDED+1~, SENDED+16* |
| OR8 | MEDREC+10~*, MEDREC+12, MEDREC+14, MEDREC+16~*, MEDREC+17, MEDREC+20, MEDREC+22 |
| ORACTION | MEDREC+17~*, MEDREC+18 |
| ORAPPT | SAVE~ |
| ORBEF | SEND1~, SEND1+6*, SEND1+8*, SEND1+19 |
| ORCAT | SAVE+3~, SAVE+20*, SAVE+32*, SAVE+34*, SAVE+35*, SAVE+47*, SAVE+52, SAVE+53 |
| ORCATFN | SAVE+3~, SAVE+12*, SAVE+47 |
| ORCHECK | SAVE+3~, SAVE+41* |
| ORDA | SAVE+3~, SAVE+65, SENDED+1~, SENDED+10*, SENDED+12 |
| ORDEA | SAVE~ |
| ORDERID | SEND1~, SEND1+5*, SEND1+7, SEND1+8, SEND1+9, SEND1+10, SEND1+13, SEND1+15, SEND1+16, SEND1+17 , SEND1+19 |
| ORDG | SAVE~, SAVE+14, SAVE+37, SAVE+39*, SAVE+40!, SAVE+62* |
| ORDIALOG | SAVE~, SAVE+42*, SAVE+43*, SAVE+46, SAVE+59 |
| ORDIALOG( | SAVE+33*, SAVE+38, SAVE+51* |
| ORDIALOG("ORCHECK" | SAVE+41! |
| ORDIALOG("OREVENT" | SAVE+17! |
| ORDIALOG("ORLEAD" | SAVE+44 |
| ORDIALOG("ORSLOG" | SAVE+16! |
| ORDIALOG("ORTRAIL" | SAVE+45 |
| ORDIALOG("ORTS" | SAVE+14!, SAVE+15! |
| ORDIALOG("WP" | SAVE+9, SAVE+10, SAVE+11! |
| ORDID | MEDREC+1~, MEDREC+4*, MEDREC+5 |
| ORDITEM | MEDREC+1~, MEDREC+5*, MEDREC+6, MEDREC+7 |
| ORDUZ | SAVE+3~ |
| OREVENT | SAVE+3~, SAVE+17*, SAVE+63* |
| OREVENT("EFFECTIVE" | SAVE+32, SAVE+33 |
| OREVENT("TS" | SAVE+63* |
| OREVTDF | SAVE~ |
| OREVTYPE | SAVE+3~ |
| ORIENS | SENDED~ |
| ORIENS( | SENDED+3, SENDED+4, SENDED+16, SENDED+19, SENDED+22, SENDED+23 |
| ORIFN | SAVE~, SAVE+6, SAVE+7, SAVE+8, SAVE+56, SAVE+58, SAVE+62, SAVE+65*, MEDREC+4, MEDREC+5 , MEDREC+10, MEDREC+12, MEDREC+16, MEDREC+17, MEDREC+20, SENDED+1~, SENDED+4*, SENDED+5, SENDED+10, SENDED+11 , SENDED+12, SENDED+14, SENDED+16, SENDED+17, SENDED+18, DLGID~, DLGID+1, FORMID~, FORMID+2, LOCKORD~ , LOCKORD+1, UNLKORD~, UNLKORD+1, UNLKOTH~, UNLKOTH+1 |
| ORIT | SAVE~, SAVE+29, SAVE+30, SAVE+31, SAVE+40! |
| ORIX | SENDED+1~, SENDED+2*, SENDED+3*, SENDED+4, SENDED+9, SENDED+16, SENDED+19, SENDED+20, SENDED+22, SENDED+23 , SENDED+25 |
| ORL | SAVE~, SAVE+36*, SEND~, SEND1+1* |
| ORL(2 | SAVE+36*, SEND1+1* |
| ORLAB | SEND1~, SEND1+13, SEND1+14*, SEND1+22 |
| ORLEAD | SAVE+3~, SAVE+44* |
| ORLOC | LOADRSP+3~ |
| ORLOG | SAVE+3~, SAVE+16* |
| ORLR | SEND1~ |
| ORLR( | SEND1+2*, SEND1+13 |
| ORNATURE | SENDED+1~, SENDED+13*, SENDED+19 |
| ORNEW | SAVE+3~ |
| ORNP | SAVE~, SEND~ |
| ORPKG | SAVE+3~, SAVE+52*, SAVE+53* |
| ORSIGST | SENDED+1~, SENDED+13*, SENDED+19 |
| ORSRC | SAVE~, SAVE+54* |
| ORSTS | SAVE+3~, SAVE+62*, SAVE+63 |
| ORTRAIL | SAVE+3~, SAVE+45* |
| ORTS | SAVE+3~, SAVE+15* |
| ORVP | SAVE~, SAVE+14, SAVE+36*, SENDED+1~, SENDED+11*, SEND1~, SEND1+1*, SEND1+14, SEND1+22 |
| ORWERR | SENDED+1~, SENDED+2*, SENDED+3, SENDED+9*, SENDED+14*, SENDED+19, SENDED+20, SEND1~, SEND1+4*, SEND1+10* , SEND1+11*, SEND1+12, SEND1+15*, SEND1+16, SEND1+18 |
| ORWI | SEND1~, SEND1+3*, SEND1+4, SEND1+17, SEND1+18, SEND1+21 |
| ORWLST | SENDED~, SEND~, SEND1+1* |
| ORWLST( | SENDED+4*, SENDED+9*, SENDED+20*, SENDED+25*, SEND1+17*, SEND1+18*, SEND1+21* |
| ORWNATR | SEND1~, SEND1+5*, SEND1+9*, SEND1+10, SEND1+16 |
| ORWP94 | SAVE+3~, SAVE+28*, SAVE+33, SAVE+48 |
| ORWREC | SEND~ |
| ORWREC( | SEND1+3, SEND1+4 |
| ORWREL | SEND1~, SEND1+5*, SEND1+10, SEND1+16, SEND1+19 |
| ORWSIG | SEND1~, SEND1+5*, SEND1+10, SEND1+16, SEND1+20 |
| POI | MEDREC+1~, MEDREC+7*, MEDREC+8 |
| PTEVT | SENDED+1~, SENDED+5*, SENDED+6, SENDED+7, SENDED+8, SENDED+22*, SENDED+23 |
| QO | DLGQUIK~, DLGQUIK+1 |
| REC | SAVE~, SAVE+58*, SAVE+65* |
| REC( | MEDREC+14*, MEDREC+22* |
| ROOT | LOADRSP+3~*, LOADRSP+4*, LOADRSP+5*, LOADRSP+6*, LOADRSP+7 |
| RSPID | LOADRSP~, LOADRSP+4, LOADRSP+5, LOADRSP+6 |
| SIGPRMT | SAVE+49~*, SAVE+51 |
| SUB | SAVE+38~, SAVE+39* |
| TRANS | LOADRSP~ |
| TS | SENDED~, SENDED+18 |
| U | ORDITM+8, ORDITM+9, ORDITM+10, ORDITM+11, ORDITM+12, SAVE+12, SAVE+14, SAVE+39, SAVE+62, SAVE+63 , MEDREC+3, MEDREC+6, MEDREC+7, MEDREC+8, MEDREC+17, MEDREC+22, SENDED+5, SENDED+11, SENDED+13, SENDED+14 , SENDED+17, SENDED+18, SENDED+22, SENDED+25, SEND1+5, SEND1+8, SEND1+13, SEND1+15, SEND1+19, SEND1+21 , DLGID+1, FORMID+2, AGAIN+1, DGRP+2, DISMSG+1 |
| VAL | LOADRSP+3~, DLGID~, DLGID+1*, DLGID+2*, FORMID~, FORMID+2*, FORMID+4, AGAIN~, AGAIN+1*, DGRP~ , DGRP+2*, DGNM~, DGNM+1*, DISMSG~, DISMSG+1* |
| X | ORDITM+2~, ORDITM+7*, ORDITM+8, ORDITM+9, ORDITM+11, ORDITM+12, SENDED+1~, SENDED+24*, SENDED+25, SEND1~ , SEND1+2*, SEND1+4*, SEND1+5, SEND1+17*, SEND1+19*, SEND1+20*, SEND1+21 |
| XCNT | SAVE+4~, SAVE+5*, SAVE+7*, SAVE+8 |
| XCOMM | SAVE+4~, SAVE+5*, SAVE+8*, SAVE+9, SAVE+10, SAVE+11 |
| XDONE | SAVE+4~, SAVE+9*, SAVE+10*, SAVE+11 |
| XREF | ORDITM~, ORDITM+5, ORDITM+6, ORDITM+7, ORDITM+10, ODITMBC~, ODITMBC+2 |
| XRF | ODITMBC+1~, ODITMBC+2* |
| XX | SAVE+4~, SAVE+9*, SAVE+10 |
| Y | ORDITM~, ODITMBC~, ODITMBC+3, FNDINFO~, FNDINFO+1 |
| Y( | ORDITM+11*, ORDITM+12* |
| Name | Field # of Occurrence |
|---|---|
| $T(BHS^ORMBLD | SEND1+14 |