ORWDXM4 ; SLC/KCM - Order Dialogs, Menus;05/09/17 ;Jun 21, 2022@14:26:46
Source file <ORWDXM4.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 10 | ($$NMSP,$$VAL,GETDLG,GETORDER)^ORCD ($$COLLTYPE,GETIMES)^ORCDLR1 CHANGED^ORCDPS $$LAB60^ORCDVBEC (MEDXFER,PS)^ORWDPS3 RTC^ORWDSD1 (DO,EL,IV,LR,LRICTMOK,OP,RA,UD)^ORWDXM2 VB^ORWDXM4 $$DEFDLG^ORWDXQ GETTXT^ORWORR |
| Kernel | 1 | $$NOW^XLFDT |
| Outpatient Pharmacy | 1 | OEL^PSOORRL |
| VA FileMan | 1 | $$GET1^DIQ |
| 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 | 3 | ORCMEDT1 ORWDXM1 ORWDXM4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETUP | ; -- setup dialog (continued from ORWDXM1)
; if xfer med order, setup ORDIALOG differently |
|
| SETUPS | ; -- setup for specific types of dialogs (continued from ORWDXM1)
; pharmacy uses ORCAT to know order package |
|
| XENV | ; end case
|
|
| MEDXFER | ; -- setup ORDIALOG for a med that is transferred (from SETUP)
|
|
| IN2OUT | ; -- make inpatient responses into outpatient
|
|
| OUT2IN | ; make outpatient responses into inpatient
|
|
| PTR(NAME) | ; -- Returns pointer to OR GTX NAME (copied from ORCMED)
|
|
| MEDOK(OI,CAT) | ||
| CHGSTS(ECAT,IFN) | ||
| ISMED(IFN) | ||
| SETERR(ID,X) | ||
| VB | ; setup environment for VBECS
; -- setup ORTIME, ORIMTIME arrays |
|
| VBASK(I) | ; set the ORASK variable for child component prompts in VBECS order
|
|
| VBQO(IFN) | ;Check to see if it's a good VBECS QO
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | VBQO+7 |
| $$NMSP^ORCD | ISMED+2 |
| $$VAL^ORCD | MEDXFER+15 |
| GETDLG^ORCD | SETUP+14, MEDXFER+13 |
| GETORDER^ORCD | SETUP+15, MEDXFER+14 |
| $$COLLTYPE^ORCDLR1 | VB+21 |
| GETIMES^ORCDLR1 | VB+2, VB+18 |
| CHANGED^ORCDPS | OUT2IN+2 |
| $$LAB60^ORCDVBEC | VB+15 |
| MEDXFER^ORWDPS3 | MEDXFER+3 |
| PS^ORWDPS3 | SETUPS+27 |
| RTC^ORWDSD1 | SETUPS+29 |
| DO^ORWDXM2 | SETUPS+19 |
| EL^ORWDXM2 | SETUPS+20 |
| IV^ORWDXM2 | SETUPS+23, SETUPS+24 |
| LR^ORWDXM2 | SETUPS+17, SETUPS+18 |
| LRICTMOK^ORWDXM2 | VB+24 |
| OP^ORWDXM2 | SETUPS+25, SETUPS+26 |
| RA^ORWDXM2 | SETUPS+16 |
| UD^ORWDXM2 | SETUPS+21, SETUPS+22 |
| VB^ORWDXM4 | SETUPS+28 |
| $$DEFDLG^ORWDXQ | SETUP+11 |
| GETTXT^ORWORR | SETERR+1 |
| OEL^PSOORRL | IN2OUT+5, OUT2IN+4 |
| $$NOW^XLFDT | MEDXFER+17 |
| FileNo | Call Tags |
|---|---|
| ^DIC(9.4 - [#9.4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | VB+16 |
| ^OR(100 - [#100] | SETUP+5, MEDXFER+9, IN2OUT+4, OUT2IN+3, CHGSTS+2, ISMED+1 |
| ^ORD(100.98 - [#100.98] | SETUPS+6, VBQO+7 |
| ^ORD(101.41 - [#101.41] | SETUP+8, SETUPS+2, SETUPS+3, SETUPS+7, SETUPS+10, SETUPS+13, SETUPS+14, SETUPS+17, SETUPS+18, SETUPS+19 , SETUPS+20, SETUPS+21, SETUPS+22, SETUPS+23, SETUPS+24, SETUPS+25, SETUPS+26, SETUPS+27, SETUPS+28, SETUPS+29 , SETUPS+30, MEDXFER+6, MEDXFER+7, MEDXFER+8, MEDXFER+12, PTR+1, VB+6, VB+19, VB+23, VBASK+1 , VBASK+2, VBQO+3, VBQO+6 |
| ^ORD(101.43 - [#101.43] | MEDXFER+17, IN2OUT+8, IN2OUT+11, IN2OUT+12, OUT2IN+6, OUT2IN+7, MEDOK+2, VB+8, VBASK+4 |
| ^TMP("PS" | MEDXFER+5!, IN2OUT+5, OUT2IN+4 |
| Name | Line Occurrences |
|---|---|
| $$CHGSTS | SETUP+2 |
| $$ISMED | SETUP+2 |
| $$MEDOK | MEDXFER+16 |
| $$PTR | MEDXFER+18, MEDXFER+19, IN2OUT+2, IN2OUT+3, IN2OUT+6, IN2OUT+8, IN2OUT+9, IN2OUT+13, OUT2IN+5, OUT2IN+8 , OUT2IN+9, OUT2IN+11 |
| IN2OUT | MEDXFER+20 |
| MEDXFER | SETUP+2 |
| OUT2IN | MEDXFER+21 |
| SETERR | MEDXFER+11, MEDXFER+16, MEDXFER+17 |
| XENV | SETUPS+16, SETUPS+17, SETUPS+18, SETUPS+19, SETUPS+20, SETUPS+21, SETUPS+22, SETUPS+23, SETUPS+24, SETUPS+25 , SETUPS+26, SETUPS+27, SETUPS+28, SETUPS+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CAT | MEDOK~, MEDOK+1 |
| DDRUG | IN2OUT+1~, IN2OUT+5*, IN2OUT+6, IN2OUT+9, IN2OUT+11, IN2OUT+12, OUT2IN+1~, OUT2IN+4*, OUT2IN+5, OUT2IN+6 , OUT2IN+7 |
| DLG | MEDXFER+5~, MEDXFER+9*, MEDXFER+10 |
| DOSE | IN2OUT+1~, IN2OUT+2*, IN2OUT+8 |
| ECAT | CHGSTS~, CHGSTS+3 |
| >> EDITONLY | VB+21* |
| FDLG | MEDXFER+5~, MEDXFER+7*, MEDXFER+10 |
| I | IN2OUT+1~, IN2OUT+3*, VB+5~, VB+7*, VB+13~, VB+14*, VBASK~, VBASK+3, VBQO+4~ |
| ID | SETERR~, SETERR+1 |
| IFN | CHGSTS~, CHGSTS+2, ISMED~, ISMED+1, VBQO~, VBQO+3, VBQO+6 |
| LC | VB+13~*, VB+14, VB+16*, VB+17 |
| >> LST | SETERR+1 |
| >> LST( | SETERR+2* |
| >> LST(0 | SETERR+2* |
| NAME | PTR~, PTR+1 |
| OCAT | CHGSTS+1~, CHGSTS+2*, CHGSTS+3 |
| ODG | VBQO+4~, VBQO+6*, VBQO+7* |
| ODLG | MEDXFER+5~, MEDXFER+8*, MEDXFER+10, MEDXFER+20 |
| ODP | VBQO+4~, VBQO+6*, VBQO+7*, VBQO+8 |
| OI | MEDXFER+5~, MEDXFER+15*, MEDXFER+16, MEDXFER+17, IN2OUT+8, IN2OUT+11, IN2OUT+12*, IN2OUT+13, OUT2IN+6, OUT2IN+7* , OUT2IN+8, MEDOK~, MEDOK+2, VBASK+3~*, VBASK+4 |
| ONE | OUT2IN+1~, OUT2IN+9*, OUT2IN+12 |
| >> ORASK | VBASK+4* |
| >> ORCAT | SETUP+2, SETUPS+2*, SETUPS+4, SETUPS+5*, SETUPS+6, MEDXFER+16 |
| ORCODE | SETUPS+11~, SETUPS+14*! |
| >> ORCOLLCT | VB+20*, VB+21*, VB+22 |
| >> ORCOMP | VB+4*, VB+9* |
| >> ORDG | SETUP+5*, SETUP+10*, SETUP+11, SETUPS+6, MEDXFER+12* |
| >> ORDIALOG | SETUP+5*, SETUP+9*, SETUP+11*, SETUP+14, SETUPS+2, SETUPS+3, SETUPS+10, SETUPS+14, SETUPS+17, SETUPS+18 , SETUPS+19, SETUPS+20, SETUPS+21, SETUPS+22, SETUPS+23, SETUPS+24, SETUPS+25, SETUPS+26, SETUPS+27, SETUPS+28 , SETUPS+29, SETUPS+30, MEDXFER+10*, MEDXFER+11, MEDXFER+12, MEDXFER+13, MEDXFER+20, MEDXFER+21, VBASK+1 |
| >> ORDIALOG( | SETUPS+7*, SETUPS+13, MEDXFER+18!, MEDXFER+19!, IN2OUT+2, IN2OUT+3!, IN2OUT+6*, IN2OUT+8*, IN2OUT+9*, IN2OUT+13* , OUT2IN+5*, OUT2IN+8*, OUT2IN+9, OUT2IN+12!, VB+7, VB+20, VBASK+3 |
| >> OREVENT("EFFECTIVE" | SETUPS+6, SETUPS+7 |
| ORI | OUT2IN+1~, OUT2IN+11*, OUT2IN+12* |
| >> ORIMO | SETUPS+4 |
| >> ORIMTIME | VB+18 |
| >> ORIT | SETUP+2, SETUP+5, SETUP+6, SETUP+8, SETUP+9, SETUP+12, MEDXFER+9, MEDXFER+11, MEDXFER+14, MEDXFER+16 , MEDXFER+17, IN2OUT+4, OUT2IN+3 |
| ORP | OUT2IN+1~, OUT2IN+10*, OUT2IN+11 |
| ORPRMPT1 | SETUPS+11~, SETUPS+13* |
| ORPRMPT2 | SETUPS+11~, SETUPS+13*, SETUPS+14 |
| >> ORQUIT | SETUPS+30* |
| ORRAORD | SETUPS+9~*, SETUPS+11*, SETUPS+16 |
| >> ORSEX | SETUPS+12 |
| >> ORTAS | VB+4*, VB+11* |
| >> ORTEST | VB+4*, VB+10*, VB+14 |
| >> ORTEST("Lab C | ollSamp" , VB+12, VB+17* |
| >> ORTIME | VB+18 |
| >> ORTYPE | SETUPS+12 |
| >> ORVP | IN2OUT+5, OUT2IN+4 |
| >> ORWMODE | SETUP+2, SETUP+4 |
| >> ORWP94 | MEDXFER+3 |
| >> ORWPSWRG | SETUPS+4*, SETUPS+15* |
| P | MEDOK+1~*, MEDOK+2, VB+5~, VB+6*, VB+7, VBASK+2~*, VBASK+3, VBQO+4~ |
| PKG | ISMED+1~*, ISMED+2 |
| PKGID | IN2OUT+1~, IN2OUT+4*, IN2OUT+5, OUT2IN+1~, OUT2IN+3*, OUT2IN+4 |
| PROMPT | OUT2IN+1~, OUT2IN+11*, OUT2IN+12, VB+5~, VB+19*, VB+20, VB+23* |
| RESULT | VBQO+4~, VBQO+5*, VBQO+9 |
| >> RSPREF | SETUP+6*, SETUP+12*, SETUP+15 |
| T | VB+13~, VB+15*, VB+16 |
| TNS | VBQO+4~ |
| U | SETUP+5, SETUP+9, SETUP+10, MEDXFER+9, MEDXFER+12, IN2OUT+4, IN2OUT+6, IN2OUT+8, IN2OUT+9, IN2OUT+11 , IN2OUT+12, OUT2IN+3, OUT2IN+5, OUT2IN+6, OUT2IN+7, MEDOK+2, CHGSTS+2, ISMED+1, VB+8, VB+9 , VB+10, VB+14, VB+16, VBQO+3, VBQO+6, VBQO+7 |
| UDLG | MEDXFER+5~, MEDXFER+6*, MEDXFER+10, MEDXFER+21 |
| V | VB+13~, VB+14*, VB+15 |
| X | SETUPS+7, SETERR~, SETERR+2, VB+5~, VB+7*, VB+8*, VB+9, VB+10, VB+11 |
| X0 | SETUP+8~*, SETUP+9, SETUP+10, VB+5~, VB+8*, VB+9 |
| Y | SETUPS+14~*, SETUPS+15 |