©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
ORWDXR ; SLC/KCM/JDL - Utilites for Order Actions;25-Jun-2013 21:52;PLS
Source file <ORWDXR.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 8 | ($$ISCLOZ,ALLWORD)^ORALWORD $$VALID^ORCACT0 ($$NMSP,$$PTR,GETDLG,GETORDER)^ORCD RESETID^ORCDPS (D1,SIG)^ORCDPS2 RN^ORCSAVE $$VALUE^ORCSAVE2 GETBYIFN^ORWORR |
| IHS Changes To Pharmacy | 1 | $$GETCMF1^APSPFNC1 |
| Kernel | 1 | $$UP^XLFSTR |
| Pharmacy Data Management | 1 | DOSE^PSSORUTL |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 4 | ORWDX ORWDX1 ORWDXA ORWPS |
| IHS Changes To Pharmacy | 1 | APSPES4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VAL(ORIFN,ID) | ; Return value for order response
|
|
| ISREL(VAL,ORIFN) | ; Return true if an order has been released
|
|
| GETPKG(Y,IFN) | ;Get package for an order
|
|
| CHKACT(ORDERID,ORWSIG,ORWREL,ORWNATR) | ; Return error if can't sign/release order
|
|
| ORCPLX(ORY,ORID,ORACT) | ;Return children orders of the complex order
|
|
| RNWFLDS(LST,ORIFN) | ; Return fields for renew action
; LST(0)=RenewType^Start^Stop^Refills^Pickup^Pharmacy^CMF LST(n)=Comments |
|
| WPVAL(TXT,ORIFN,ID) | ; Return word processing value
|
|
| CANRN(ORY,ORID) | ; Check conjunction for renew.
; All conjunctioni = "And" return 1 ; Has a "Then" return 0 |
|
| XC1 | ; end case
|
|
| STR(PTR) | ; -- Return word processing text as long string for comparison
|
|
| GTORITM(Y,ORIFN) | ;-- Get back the orderable item IEN
|
|
| ACTDCREA(DCIEN) | ; Valid DC Reason
|
|
| ISNOW(ORY,ORID) | ; Is first time now order?
|
|
| ISCPLX(ORY,ORID) | ; 1: is complex order 0: is not
|
|
| RENEW(REC,ORIFN,ORVP,ORNP,ORL,FLDS,CPLX,ORAPPT) | ; Renew an order
|
| Name | Field # of Occurrence |
|---|---|
| $$GETCMF1^APSPFNC1 | RENEW+64, RNWFLDS+14 |
| $$GET1^DIQ | RNWFLDS+10 |
| $$ISCLOZ^ORALWORD | RNWFLDS+26 |
| ALLWORD^ORALWORD | RNWFLDS+36 |
| $$VALID^ORCACT0 | XC1+2 |
| $$NMSP^ORCD | ISCPLX+4, ORCPLX+4, CANRN+6 |
| $$PTR^ORCD | RENEW+16, RENEW+27, RENEW+28, RENEW+29, RENEW+32, RENEW+33, RENEW+34, RENEW+42, RENEW+43, RENEW+44 , RENEW+49, RENEW+55, RENEW+56, RENEW+57, RENEW+58, RENEW+59, RENEW+61, RENEW+62, RENEW+65, RENEW+67 , RENEW+73, RENEW+74 |
| GETDLG^ORCD | RENEW+15, RENEW+20 |
| GETORDER^ORCD | RENEW+15 |
| RESETID^ORCDPS | RENEW+39 |
| D1^ORCDPS2 | RENEW+37 |
| SIG^ORCDPS2 | RENEW+40 |
| RN^ORCSAVE | RENEW+76 |
| $$VALUE^ORCSAVE2 | GTORITM+2 |
| GETBYIFN^ORWORR | RENEW+77 |
| DOSE^PSSORUTL | RENEW+36 |
| $$UP^XLFSTR | STR+3, STR+4 |
| RPC Name | Call Tags |
|---|---|
| ORWDXR ISREL | ISREL |
| ORWDXR RNWFLDS | RNWFLDS |
| ORWDXR RENEW | RENEW |
| ORWDXR GTORITM | GTORITM |
| ORWDXR GETPKG | GETPKG |
| ORWDXR ORCPLX | ORCPLX |
| ORWDXR CANRN | CANRN |
| ORWDXR ISCPLX | ISCPLX |
| ORWDXR ISNOW | ISNOW |
| FileNo | Call Tags |
|---|---|
| ^APSPOPHM - [#9009033.9] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | ACTDCREA+4, RNWFLDS+4, GETPKG+5 |
| ^OR(100 - [#100] | ISREL+1, RENEW+9, RENEW+14, RENEW+23, RENEW+31, RNWFLDS+3, RNWFLDS+22, RNWFLDS+24, RNWFLDS+33, VAL+1 , VAL+2, WPVAL+1, WPVAL+2, CHKACT+7, GETPKG+4, ISCPLX+1, ISCPLX+3, ISCPLX+8, ISCPLX+12, ISCPLX+13 , ORCPLX+1, ORCPLX+3, ORCPLX+8, ORCPLX+10, ORCPLX+14, ORCPLX+16, CANRN+3, CANRN+5, CANRN+12, CANRN+14 , CANRN+18, CANRN+19, ISNOW+2, ISNOW+4, ISNOW+5 |
| ^ORD(100.01 - [#100.01] | CANRN+15 |
| ^ORD(100.02 - [#100.02] | ACTDCREA+5 |
| ^ORD(100.03 - [#100.03] | ACTDCREA+2 |
| ^ORD(100.98 - [#100.98] | RNWFLDS+4 |
| ^ORD(101.41 - [#101.41] | RENEW+19, RENEW+21, RENEW+24, RENEW+29 |
| ^ORD(101.43 - [#101.43] | RENEW+35 |
| ^TMP("ORWORD" | RENEW+22, RENEW+23*, RENEW+50!, RENEW+52*, RENEW+53*, RENEW+54, RENEW+68!, RENEW+70*, RENEW+71*, RENEW+72 |
| ^XUSEC("ORES" | CHKACT+4, CHKACT+5 |
| Name | Line Occurrences |
|---|---|
| $$STR | RENEW+74, RENEW+75 |
| $$VAL | RNWFLDS+9, RNWFLDS+14, RNWFLDS+16 |
| ISNOW | ORCPLX+12 |
| XC1 | CHKACT+4, CHKACT+5, CHKACT+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | WPVAL+2, CANRN+20 |
| ^("NOW" | ISCPLX+12 |
| ^(0 | ORCPLX+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTIVE | CANRN+13~, CANRN+15*, CANRN+16 |
| ARRY | STR+1~, STR+2*, STR+3, STR+4 |
| CANRENEW | CANRN+8~, CANRN+10*, CANRN+16*, CANRN+17, CANRN+20*, CANRN+21, CANRN+22 |
| CHID | CANRN+11~, CANRN+12*, CANRN+14 |
| CHLDCNT | ORCPLX+6~, ORCPLX+7*, ORCPLX+8*, ORCPLX+9 |
| CMF | RENEW+47~, RENEW+63*, RENEW+64*, RENEW+65 |
| CPLX | RENEW~, RENEW+6*, RENEW+16 |
| DA | VAL+1~*, VAL+2, WPVAL+1~*, WPVAL+2 |
| DCIEN | ACTDCREA~, ACTDCREA+2 |
| DG | RNWFLDS+2~, RNWFLDS+3*, RNWFLDS+4*, RNWFLDS+5 |
| DRUG | RENEW+30~, RENEW+38*, RENEW+39 |
| DT | RENEW+53, RENEW+71 |
| DUZ | CHKACT+4, CHKACT+5 |
| FLDS | RENEW~ |
| FLDS( | RENEW+69, RENEW+70 |
| FLDS("ORCHECK" | RENEW+12 |
| FLDS("SSDENYRSN" | RENEW+58 |
| FLDS("SSREFREQ" | RENEW+48, RENEW+51, RENEW+52 |
| FLDS("SSRREQIEN" | RENEW+56 |
| FLDS(1 | RENEW+26, RENEW+27, RENEW+28, RENEW+29, RENEW+41, RENEW+43, RENEW+44, RENEW+60, RENEW+61, RENEW+63 |
| FST | RENEW+4~, RENEW+5* |
| FSTDOSE | RENEW+4~, RENEW+5*, RENEW+16*, RENEW+17 |
| I | RENEW+51*, RENEW+52, RENEW+53, RENEW+69*, RENEW+70, RENEW+71, WPVAL+2*, STR+1~, STR+3*, STR+4* |
| ID | VAL~, VAL+1, WPVAL~, WPVAL+1 |
| IDX | ORCPLX+6~, ORCPLX+7*, ORCPLX+10*, ORCPLX+12, ORCPLX+14, ORCPLX+16, ORCPLX+18 |
| IFN | GETPKG~, GETPKG+2, GETPKG+3 |
| INDX | CANRN+8~, CANRN+9*, CANRN+18*, CANRN+19 |
| INDY | CANRN+8~, CANRN+19*, CANRN+20 |
| ISNOW | ORCPLX+2~, ORCPLX+11*, ORCPLX+12, ORCPLX+13 |
| LACT | ORCPLX+2~, ORCPLX+11*, ORCPLX+15*, ORCPLX+17*, ORCPLX+18 |
| LST | RNWFLDS~, RNWFLDS+31! |
| LST(0 | RNWFLDS+5*, RNWFLDS+6, RNWFLDS+14*, RNWFLDS+16*, RNWFLDS+18*, RNWFLDS+19*, RNWFLDS+21*, RNWFLDS+26*, RNWFLDS+28, RNWFLDS+30 , RNWFLDS+32* |
| LST(1 | RNWFLDS+37* |
| NOWID | ISCPLX+6~, ISCPLX+7*, ISCPLX+12*, ISCPLX+13 |
| NOWVAL | ISCPLX+6~, ISCPLX+7*, ISCPLX+13*, ISCPLX+14 |
| NUMCHDS | ISCPLX+6~, ISCPLX+8*, ISCPLX+9, ISCPLX+10 |
| OELACT | ORCPLX+2~, ORCPLX+11*, ORCPLX+16*, ORCPLX+17 |
| ORACT | CHKACT+1~, CHKACT+3*, CHKACT+4*, CHKACT+5*, CHKACT+6*, CHKACT+7*, XC1+2, ORCPLX~ |
| ORAPPT | RENEW~, RENEW+7* |
| ORCAT | RENEW+2~, RENEW+14*, RENEW+30~, RENEW+31*, RENEW+36, RENEW+39 |
| ORCHECK | RENEW+2~, RENEW+12* |
| ORDA | RENEW+2~, RENEW+77 |
| ORDERID | CHKACT~, CHKACT+7, XC1+2, GETPKG+1~, GETPKG+3*, GETPKG+4 |
| ORDFN | RNWFLDS+29~, RNWFLDS+33*, RNWFLDS+34, RNWFLDS+35*, RNWFLDS+36 |
| ORDG | RENEW+1~, RENEW+10* |
| ORDIALOG | RENEW+3~, RENEW+14*, RENEW+15, RENEW+19*, RENEW+20 |
| ORDIALOG( | RENEW+17!, RENEW+22*, RENEW+25*, RENEW+27*, RENEW+28*, RENEW+29, RENEW+33, RENEW+34, RENEW+42!, RENEW+43* , RENEW+44*, RENEW+54*, RENEW+55!, RENEW+56*, RENEW+57!, RENEW+58*, RENEW+59!, RENEW+61*, RENEW+62!, RENEW+65* , RENEW+72*, RENEW+75*, STR+2 |
| ORDIALOG("B" | RENEW+16 |
| ORDOSE | RENEW+30~, RENEW+36 |
| ORDOSE("DD" | RENEW+38 |
| ORDRUG | RENEW+30~, RENEW+33*, RENEW+38 |
| ORDUZ | RENEW+2~ |
| OREVENT | RENEW+2~ |
| ORID | ISCPLX~, ISCPLX+1, ISCPLX+3, ISCPLX+8, ISCPLX+12, ISCPLX+13, ORCPLX~, ORCPLX+1, ORCPLX+3, ORCPLX+8 , ORCPLX+10, CANRN~, CANRN+3, CANRN+5, CANRN+12, CANRN+18, CANRN+19, ISNOW~, ISNOW+2, ISNOW+4 , ISNOW+5 |
| ORIFN | ISREL~, ISREL+1, RENEW~, RENEW+9, RENEW+14, RENEW+15, RENEW+23, RENEW+31, RENEW+64, RENEW+77* , RNWFLDS~, RNWFLDS+3*, RNWFLDS+9, RNWFLDS+14, RNWFLDS+16, RNWFLDS+22, RNWFLDS+24, RNWFLDS+33, RNWFLDS+36, VAL~ , VAL+1, VAL+2, WPVAL~, WPVAL+1, WPVAL+2, GTORITM~, GTORITM+1*, GTORITM+2 |
| ORL | RENEW~, RENEW+8* |
| ORL(2 | RENEW+8* |
| ORLOG | RENEW+2~ |
| ORNEW | RENEW+2~ |
| ORNP | RENEW~ |
| OROI | RNWFLDS+2~, RNWFLDS+22*, RNWFLDS+23, RNWFLDS+24*, RNWFLDS+25, RNWFLDS+26 |
| ORPKG | RENEW+2~, RENEW+11* |
| ORSTS | RENEW+2~, CANRN+13~*, CANRN+14*, CANRN+16 |
| ORTMP | RNWFLDS+29~, RNWFLDS+30*, RNWFLDS+32 |
| ORTS | RENEW+2~ |
| ORVP | RENEW~, RENEW+8*, RENEW+36 |
| ORWERR | CHKACT+1~, XC1+1*, XC1+2*, XC1+3 |
| ORWNATR | CHKACT~, CHKACT+6, XC1+2 |
| ORWPSOI | RENEW+30~, RENEW+34*, RENEW+35*, RENEW+36 |
| ORWREL | CHKACT~, CHKACT+6, CHKACT+7 |
| ORWSIG | CHKACT~, CHKACT+4, CHKACT+5 |
| ORY | RNWFLDS+29~, RNWFLDS+36, RNWFLDS+37, ISCPLX~, ISCPLX+9*, ISCPLX+11*, ISCPLX+14*, ORCPLX~, CANRN~, CANRN+17* , CANRN+22*, ISNOW~, ISNOW+6* |
| ORY( | ORCPLX+18* |
| PHM | RNWFLDS+8~, RNWFLDS+9*, RNWFLDS+10*, RNWFLDS+14 |
| PI | RENEW+73~, RENEW+74*, RENEW+75 |
| PKG | RNWFLDS+2~, RNWFLDS+3*, RNWFLDS+4*, RNWFLDS+5, ISCPLX+2~, ISCPLX+3*, ISCPLX+4*, ISCPLX+5, ORCPLX+2~, ORCPLX+3* , ORCPLX+4*, ORCPLX+5, CANRN+4~, CANRN+5*, CANRN+6*, CANRN+7 |
| PKGID | GETPKG+1~, GETPKG+4*, GETPKG+5 |
| PRMT | RENEW+3~, RENEW+21*, RENEW+22, RENEW+23, RENEW+24*, RENEW+25, RENEW+49*, RENEW+50, RENEW+52, RENEW+53 , RENEW+54, RENEW+67*, RENEW+68, RENEW+70, RENEW+71, RENEW+72 |
| PROMPT | RENEW+30~, RENEW+32* |
| PTR | STR~, STR+2 |
| REC | RENEW~, RENEW+77* |
| REFILLS | RNWFLDS+2~ |
| RNWTYPE | RNWFLDS+2~ |
| SCH | ISNOW+1~, ISNOW+3*, ISNOW+4*, ISNOW+5*, ISNOW+6 |
| SIG | RENEW+73~*, RENEW+75 |
| SSREFREQ | RENEW+47~ |
| START | RNWFLDS+2~ |
| STOP | RNWFLDS+2~ |
| STS | ISREL+1~*, ISREL+2 |
| TXT | WPVAL~ |
| TXT( | WPVAL+2* |
| U | ACTDCREA+3, ACTDCREA+4, ACTDCREA+5, ISREL+1, RENEW+10, RENEW+11, RENEW+13, RENEW+14, RENEW+16, RENEW+25 , RENEW+27, RENEW+28, RENEW+31, RENEW+35, RENEW+43, RENEW+44, RENEW+53, RENEW+60, RENEW+61, RENEW+63 , RENEW+71, RNWFLDS+3, RNWFLDS+4, RNWFLDS+14, RNWFLDS+16, RNWFLDS+18, RNWFLDS+19, RNWFLDS+21, RNWFLDS+26, RNWFLDS+28 , RNWFLDS+33, CHKACT+7, GETPKG+4, GETPKG+5, ISCPLX+3, ISCPLX+8, ORCPLX+3, ORCPLX+8, ORCPLX+15, CANRN+5 , CANRN+14 |
| VAL | ISREL~, ISREL+2* |
| X | ACTDCREA+1~, ACTDCREA+2*, ACTDCREA+3, ACTDCREA+4, ACTDCREA+5, RENEW+73~, RENEW+74*, RENEW+75, STR+1~, STR+4* |
| X0 | RENEW+3~, RENEW+9*, RENEW+10, RENEW+11, RENEW+13, RENEW+14, RENEW+25, RNWFLDS+2~, RNWFLDS+3* |
| X3 | ORCPLX+6~, ORCPLX+14*, ORCPLX+15 |
| Y | STR+1~, STR+3*, STR+4*, STR+5*, STR+6, GTORITM~, GTORITM+2*, GETPKG~, GETPKG+3*, GETPKG+5* |