ORWDX2 ;SLC/JM,AGP - Order dialog utilities ;Feb 22, 2024@11:19
Source file <ORWDX2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 6 | ORCDPS1 ORQOREP ORWDX ORWDX2 DCREASON ORWDXM1 ORWLRAP1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NXT() | ; -- Gets index in array
|
|
| EXTVAL(IVAL,DLG) | ; External value given a dlg ptr
|
|
| XROOT | ; Part of LOADRSP^ORWDX - moved here because of routine size
|
|
| DRAFT(ID) | ; -- Return 1 or 0 if editing an unsigned/unreleased or pending order
|
|
| TITR(LST,ILST) | ; Add titration response (when changing old titration order)
|
|
| CHKDOSES() | ; Returns true if doses may need to be modified
|
|
| DOSEINFO | ; Collect pointers to dose information
|
|
| FIXDOSES | ; Update doses for those saved before PSS*1*78 was installed
|
|
| DCREASON(LST) | ||
| SM(ERROR) | ; Send message to Radiology users
|
|
| CHKLABDIV(ORDITEM,ORXREF) | ; Compare user's signed in division to lab test
; division(s) |
| Name | Field # of Occurrence |
|---|---|
| $$ONEHR^ORACCESS | DCREASON+8 |
| $$EXT^ORCD | EXTVAL+5 |
| GETOC3^OROCAPI1 | XROOT+23, XROOT+24 |
| FORMID^ORWDX | XROOT+15 |
| $$PTR^ORWDXM1 | TITR+1 |
| $$DOSE^PSSORUTE | FIXDOSES+6, FIXDOSES+12 |
| DOSE^PSSORUTE | CHKDOSES+1 |
| ^XMD | SM+11 |
| $$GET^XPAR | SM+2 |
| GETLST^XPAR | DCREASON+10 |
| $$PATCH^XPDUTL | CHKDOSES+1 |
| $$NNT^XUAF4 | CHKLABDIV+12, CHKLABDIV+15 |
| $$PRNT^XUAF4 | CHKLABDIV+14 |
| RPC Name | Call Tags |
|---|---|
| ORWDX2 DCREASON | DCREASON |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | DCREASON+5 |
| ^DPT - [#2] | SM+6 |
| ^LAB(60 - [#60] | CHKLABDIV+7, CHKLABDIV+18, CHKLABDIV+21 |
| ^OR(100 - [#100] | XROOT+23, XROOT+24, DRAFT+4, SM+5 |
| ^ORD(100.02 - [#100.02] | DCREASON+6 |
| ^ORD(100.03 - [#100.03] | DCREASON+3, DCREASON+13 |
| ^ORD(100.05 - [#100.05] | XROOT+28, XROOT+29, XROOT+30 |
| ^ORD(101.41 - [#101.41] | EXTVAL+2, XROOT+5, XROOT+8 |
| ^ORD(101.43 - [#101.43] | SM+8, CHKLABDIV+5 |
| ^TMP("ORWDXMQ" | XROOT+39! |
| ^TMP("ORWTITR" | XROOT+38! |
| Name | Field # of Occurrence |
|---|---|
| ^( | DCREASON+3 |
| ^(0 | XROOT+4 |
| ^(8 | DRAFT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | DCREASON+1~, DCREASON+16 |
| ARRAY( | DCREASON+9*, DCREASON+15!, DCREASON+17, DCREASON+18 |
| CHKDOSE | XROOT+1~, XROOT+2*, XROOT+13, XROOT+19 |
| CNT | DCREASON+1~, DCREASON+12*, DCREASON+13 |
| CODE | FIXDOSES+1~, FIXDOSES+9*, FIXDOSES+10 |
| DFN | SM+1~, SM+5*, SM+6 |
| DLG | EXTVAL~, EXTVAL+2, EXTVAL+3, EXTVAL+4, EXTVAL+5, XROOT+4*, XROOT+5, XROOT+6, XROOT+8, XROOT+10 , XROOT+12 |
| DOSE | XROOT+1~ |
| DOSE( | DOSEINFO+2*, FIXDOSES+4, FIXDOSES+11, FIXDOSES+15 |
| DUZ(2 | CHKLABDIV+3, CHKLABDIV+12 |
| ERROR | DCREASON+1~, DCREASON+10, SM~, SM+4, SM+10 |
| ES | DRAFT+1~, DRAFT+4*, DRAFT+7 |
| >> I | XROOT+2*, XROOT+3*, XROOT+4, XROOT+7, XROOT+14, XROOT+16, XROOT+17 |
| ID | XROOT+5*, XROOT+6*, XROOT+8*, XROOT+10, XROOT+15, DRAFT~, DRAFT+2, DRAFT+3, DOSEINFO+1, DOSEINFO+2 |
| IDX | FIXDOSES+1~, FIXDOSES+8*, FIXDOSES+9, FIXDOSES+10, FIXDOSES+14*, FIXDOSES+15 |
| IEN | XROOT+27~*, XROOT+28, XROOT+29, XROOT+30, DRAFT+1~, DRAFT+3*, DRAFT+4, DCREASON+1~, DCREASON+3*, DCREASON+9 , DCREASON+13*, DCREASON+14 |
| IIDX | FIXDOSES+1~, FIXDOSES+2*, FIXDOSES+3*, FIXDOSES+4, FIXDOSES+5, FIXDOSES+9, FIXDOSES+10, FIXDOSES+11, FIXDOSES+15 |
| ILST | NXT+1*, NXT+2, XROOT+2*, XROOT+18, TITR~, DOSEINFO+1, DOSEINFO+2, DCREASON+1~, DCREASON+2*, DCREASON+14* , DCREASON+18* |
| >> INST | XROOT+4*, XROOT+10, DOSEINFO+1, DOSEINFO+2 |
| INSTR | XROOT+1~ |
| INSTR( | DOSEINFO+1*, FIXDOSES+3, FIXDOSES+4, FIXDOSES+5, FIXDOSES+9, FIXDOSES+10 |
| IVAL | EXTVAL~, EXTVAL+3, EXTVAL+4 |
| >> J | XROOT+16*, XROOT+17 |
| LST | XROOT+18, TITR~, DCREASON~ |
| LST( | XROOT+10*, XROOT+12*, XROOT+17*, XROOT+32*, XROOT+33*, XROOT+35*, XROOT+36*, TITR+1*, TITR+2*, TITR+3* , FIXDOSES+5, FIXDOSES+9, FIXDOSES+10*, FIXDOSES+11, FIXDOSES+15*, DCREASON+2*, DCREASON+14*, DCREASON+18* |
| MG | SM+1~, SM+2*, SM+3 |
| NAME | DCREASON+1~, DCREASON+13*, DCREASON+14, DCREASON+15, DCREASON+17*, DCREASON+18 |
| NEWDOSE | FIXDOSES+1~, FIXDOSES+6*, FIXDOSES+7, FIXDOSES+10, FIXDOSES+12*, FIXDOSES+13, FIXDOSES+15 |
| OI | SM+1~, SM+5*, SM+8 |
| OIP | SM+1~, SM+5* |
| OLDDOSE | FIXDOSES+1~, FIXDOSES+5*, FIXDOSES+6, FIXDOSES+7, FIXDOSES+11*, FIXDOSES+12, FIXDOSES+13 |
| OR0 | SM+1~, SM+5* |
| >> ORADDTITRRESP | XROOT+18 |
| ORDIALOG | EXTVAL+1~ |
| ORDIALOG( | EXTVAL+2*, EXTVAL+3*, EXTVAL+4 |
| ORDITEM | CHKLABDIV~, CHKLABDIV+5 |
| ORDIV | CHKLABDIV+8~, CHKLABDIV+14*, CHKLABDIV+15, CHKLABDIV+17*, CHKLABDIV+18, CHKLABDIV+21 |
| ORDIVS | CHKLABDIV+8~, CHKLABDIV+12*, CHKLABDIV+14, CHKLABDIV+15*, CHKLABDIV+17 |
| ORDIVS( | CHKLABDIV+14, CHKLABDIV+18, CHKLABDIV+21 |
| ORDIVS(1 | CHKLABDIV+12*, CHKLABDIV+13 |
| ORDIVS(2 | CHKLABDIV+15* |
| ORERR | SM+1~ |
| ORERR(1 | SM+6* |
| ORERR(2 | SM+7* |
| ORERR(3 | SM+8* |
| ORERR(4 | SM+9* |
| ORERR(5 | SM+10* |
| OREXIST | CHKLABDIV+8~, CHKLABDIV+17, CHKLABDIV+18*, CHKLABDIV+19 |
| ORIFN | XROOT+21~, XROOT+22*, XROOT+23, XROOT+24, XROOT+27, SM+1~, SM+4*, SM+5, SM+7 |
| ORINSTTYPES | CHKLABDIV+8~ |
| ORINSTTYPES( | CHKLABDIV+13 |
| ORINSTTYPES("CBOC" | CHKLABDIV+10* |
| ORINSTTYPES("OCMC" | CHKLABDIV+10* |
| ORINSTTYPES("OCS" | CHKLABDIV+10* |
| ORINSTTYPES("OPC" | CHKLABDIV+11* |
| ORINSTTYPES("RO-OC" | CHKLABDIV+11* |
| ORLABOK | CHKLABDIV+8~, CHKLABDIV+16*, CHKLABDIV+19*, CHKLABDIV+20, CHKLABDIV+21*, CHKLABDIV+22 |
| ORTESTIEN | CHKLABDIV+4~, CHKLABDIV+5*, CHKLABDIV+6, CHKLABDIV+7, CHKLABDIV+18, CHKLABDIV+21 |
| ORXREF | CHKLABDIV~, CHKLABDIV+2 |
| OVRIDE | XROOT+21~, XROOT+26*, XROOT+27, XROOT+28*, XROOT+31, XROOT+33 |
| REMCOM | XROOT+21~, XROOT+26*, XROOT+27, XROOT+29, XROOT+30*, XROOT+34, XROOT+36 |
| RET | XROOT+21~, XROOT+23, XROOT+24, XROOT+25 |
| RET( | XROOT+27 |
| >> ROOT | XROOT+3, XROOT+4, XROOT+7, XROOT+14, XROOT+16, XROOT+17, XROOT+20, XROOT+22, XROOT+37, XROOT+39 |
| >> RSPID | XROOT+15 |
| SEQARR | DCREASON+1~, DCREASON+10, DCREASON+12 |
| SEQARR( | DCREASON+13 |
| STS | DRAFT+1~, DRAFT+4*, DRAFT+5, DRAFT+6, DRAFT+7 |
| >> TRANS | XROOT+15 |
| U | EXTVAL+2, XROOT+4, XROOT+5, XROOT+8, XROOT+10, XROOT+23, XROOT+24, DRAFT+4, DCREASON+4, DCREASON+5 , DCREASON+6, DCREASON+7, DCREASON+8, DCREASON+9, DCREASON+13, DCREASON+14, CHKLABDIV+2, CHKLABDIV+5, CHKLABDIV+12, CHKLABDIV+13 , CHKLABDIV+14, CHKLABDIV+15, CHKLABDIV+21 |
| >> VAL | XROOT+7*, XROOT+11, XROOT+12, DOSEINFO+2 |
| X | XROOT+1~, XROOT+15, XROOT+29~*, XROOT+30, DCREASON+1~, DCREASON+3*, DCREASON+4, DCREASON+5, DCREASON+6, DCREASON+7 , DCREASON+8, DCREASON+9 |
| XMDUZ | SM+1~, SM+2* |
| XMSUB | SM+1~, SM+3* |
| XMTEXT | SM+1~, SM+4* |
| XMY | SM+1! |
| XMY("G." | SM+3* |
| Name | Field # of Occurrence |
|---|---|
| $T(DOSE^PSSORUTE | CHKDOSES+1 |