Routine: ORWDXM4

Package	Total	Call Graph
Order Entry Results Reporting	8	($$NMSP,$$VAL,GETDLG,GETORDER)^ORCD GETIMES^ORCDLR1 CHANGED^ORCDPS (MEDXFER,PS)^ORWDPS3 (DO,EL,IV,LR,OP,RA,UD)^ORWDXM2 VB^ORWDXM4 $$DEFDLG^ORWDXQ GETTXT^ORWORR
Kernel	1	$$NOW^XLFDT
Outpatient Pharmacy	1	OEL^PSOORRL
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Order Entry Results Reporting	3	ORCMEDT1 ORWDXM1 ORWDXM4

Entry Points

Name	Comments	DBIA/ICR reference
SETERR(ID,X)	; sets LST to rejection with error message
VB	; setup environment for VBECS ; -- setup ORTIME, ORIMTIME arrays
MEDXFER	; -- setup ORDIALOG for a med that is transferred (from SETUP)
CHGSTS(ECAT,IFN)	; return 1 if out to in or in to out
XENV	; end case
SETUP	; -- setup dialog (continued from ORWDXM1) ; if xfer med order, setup ORDIALOG differently
VBASK(I)	; set the ORASK variable for child component prompts in VBECS order
MEDOK(OI,CAT)	; return 1 if med may be ordered for this patient category
ISMED(IFN)	; return 1 if this is a pharmacy order
IN2OUT	; -- make inpatient responses into outpatient
VBQO(IFN)	;Check to see if it's a good VBECS QO
SETUPS	; -- setup for specific types of dialogs (continued from ORWDXM1) ; pharmacy uses ORCAT to know order package
OUT2IN	; make outpatient responses into inpatient
PTR(NAME)	; -- Returns pointer to OR GTX NAME (copied from ORCMED)

External References

Name	Field # of Occurrence
$$GET1^DIQ	VBQO+7
$$NMSP^ORCD	ISMED+2
$$VAL^ORCD	MEDXFER+15
GETDLG^ORCD	SETUP+15, MEDXFER+13
GETORDER^ORCD	SETUP+16, MEDXFER+14
GETIMES^ORCDLR1	VB+2
CHANGED^ORCDPS	OUT2IN+2
MEDXFER^ORWDPS3	MEDXFER+3
PS^ORWDPS3	SETUPS+16
DO^ORWDXM2	SETUPS+10
EL^ORWDXM2	SETUPS+11
IV^ORWDXM2	SETUPS+13
LR^ORWDXM2	SETUPS+9
OP^ORWDXM2	SETUPS+14, SETUPS+15
RA^ORWDXM2	SETUPS+8
UD^ORWDXM2	SETUPS+12
VB^ORWDXM4	SETUPS+17
$$DEFDLG^ORWDXQ	SETUP+12
GETTXT^ORWORR	SETERR+1
OEL^PSOORRL	IN2OUT+5, OUT2IN+4
$$NOW^XLFDT	MEDXFER+17

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	CHGSTS+5
^OR(100 - [#100]	SETUP+6, MEDXFER+9, IN2OUT+4, OUT2IN+3, CHGSTS+2, CHGSTS+4, ISMED+1
^ORD(100.98 - [#100.98]	SETUPS+6, VBQO+7
^ORD(101.41 - [#101.41]	SETUP+9, SETUPS+2, SETUPS+3, SETUPS+7, SETUPS+8, SETUPS+9, SETUPS+10, SETUPS+11, SETUPS+12, SETUPS+13 , SETUPS+14, SETUPS+15, SETUPS+16, SETUPS+17, SETUPS+18, MEDXFER+6, MEDXFER+7, MEDXFER+8, MEDXFER+12, PTR+1 , VB+5, 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+7, VBASK+4
^TMP("PS"	MEDXFER+5!, IN2OUT+5, OUT2IN+4

Label References

Name	Line Occurrences
$$CHGSTS	SETUP+3
$$ISMED	SETUP+3
$$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+3
OUT2IN	MEDXFER+21
SETERR	MEDXFER+11, MEDXFER+16, MEDXFER+17
XENV	SETUPS+8, SETUPS+9, SETUPS+10, SETUPS+11, SETUPS+12, SETUPS+13, SETUPS+14, SETUPS+15, SETUPS+16, SETUPS+17

Naked Globals

Name	Field # of Occurrence
^(	MEDXFER+17
^(0	SETUP+6, IN2OUT+4, OUT2IN+3, VB+7, VBQO+6

Local Variables

Legend:

>>	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+6
FDLG	MEDXFER+5~, MEDXFER+7*, MEDXFER+10
I	IN2OUT+1~, IN2OUT+3, VB+5~, VB+6, VBASK~, VBASK+3, VBQO+4~
ID	SETERR~, SETERR+1
IFN	CHGSTS~, CHGSTS+2, CHGSTS+4, ISMED~, ISMED+1, VBQO~, VBQO+3, VBQO+6
>> LST	SETERR+1
>> LST(	SETERR+2*
>> LST(0	SETERR+2*
NAME	PTR~, PTR+1
OCAT	CHGSTS+1~, CHGSTS+2, CHGSTS+5, CHGSTS+6
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+3, SETUPS+2, SETUPS+4, SETUPS+5, SETUPS+6, MEDXFER+16
>> ORCOMP	VB+4, VB+8
>> ORDG	SETUP+6, SETUP+11, SETUP+12, SETUPS+6, MEDXFER+12*
>> ORDIALOG	SETUP+6, SETUP+10, SETUP+12, SETUP+15, SETUPS+2, SETUPS+3, SETUPS+8, SETUPS+9, SETUPS+10, SETUPS+11 , SETUPS+12, SETUPS+13, SETUPS+14, SETUPS+15, SETUPS+16, SETUPS+17, SETUPS+18, MEDXFER+10, MEDXFER+11, MEDXFER+12 , MEDXFER+13, MEDXFER+20, MEDXFER+21, VBASK+1
>> ORDIALOG(	SETUPS+7, 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+6, VBASK+3
>> OREVENT("EFFECTIVE"	SETUPS+6, SETUPS+7
ORI	OUT2IN+1~, OUT2IN+11, OUT2IN+12
>> ORIMO	SETUPS+4
>> ORIT	SETUP+3, SETUP+6, SETUP+7, SETUP+9, SETUP+10, SETUP+13, MEDXFER+9, MEDXFER+11, MEDXFER+14, MEDXFER+16 , MEDXFER+17, IN2OUT+4, OUT2IN+3
ORP	OUT2IN+1~, OUT2IN+10*, OUT2IN+11
>> ORQUIT	SETUPS+18*
>> ORTAS	VB+4, VB+10
>> ORTEST	VB+4, VB+9
>> ORVP	IN2OUT+5, OUT2IN+4
>> ORWMODE	SETUP+3, SETUP+5
>> ORWP94	MEDXFER+3
>> ORWPSWRG	SETUPS+4*
P	MEDOK+1~, MEDOK+2, VB+5~, VB+6, VBASK+2~*, VBASK+3, VBQO+4~
PKG	CHGSTS+1~, CHGSTS+4, CHGSTS+5, ISMED+1~, ISMED+2
PKGID	IN2OUT+1~, IN2OUT+4, IN2OUT+5, OUT2IN+1~, OUT2IN+3, OUT2IN+4
PROMPT	OUT2IN+1~, OUT2IN+11*, OUT2IN+12
RESULT	VBQO+4~, VBQO+5*, VBQO+9
>> RSPREF	SETUP+7, SETUP+13, SETUP+16
TNS	VBQO+4~
U	SETUP+6, SETUP+10, SETUP+11, 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, CHGSTS+4, CHGSTS+5, ISMED+1 , VB+7, VB+8, VB+9, VBQO+3, VBQO+6, VBQO+7
UDLG	MEDXFER+5~, MEDXFER+6*, MEDXFER+10, MEDXFER+21
X	SETUPS+7, SETERR~, SETERR+2, VB+5~, VB+6, VB+7, VB+8, VB+9, VB+10
X0	SETUP+9~, SETUP+10, SETUP+11, VB+5~, VB+7, VB+8

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDXM4

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: