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 |