Routine: ORWDX

Information

ORWDX ;SLC/KCM,REV,JLI - Order dialog utilities ;Feb 16, 2024@13:21

Package	Total	Call Graph
Order Entry Results Reporting	12	(EN,EN2)^ORCSEND $$TYPE^OREVNTX (BHS,BTS)^ORMBLD SAVE^ORMEVNT1 $$ISTITR^ORUTL3 (DLGDEF,FNDINFO,WRLST1)^ORWDX1 ($$CHKLABDIV,SM,XROOT)^ORWDX2 SAVE^ORWDX3 FORMID^ORWDXM $$CHKACT^ORWDXR $$GETTMP^ORWTITR ($$LCKEVT,$$LOCK,$$LOCK1,UNLEVT,UNLK1,UNLOCK)^ORX2
Kernel	1	$$NOW^XLFDT
Toolkit	1	$$GET^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 29

Package	Total	Caller Graph
Order Entry Results Reporting	26	ORAM ORAREN ORCMEDT8 ORCSLT ORWDX AGAIN ORWDX DGNM ORWDX DGRP ORWDX DISMSG ORWDX DLGDEF ORWDX DLGID ORWDX DLGQUIK ORWDX FORMID ORWDX LOADRSP ORWDX LOCK ORWDX LOCK ORDER ORWDX MSG ORWDX ORDITM ORWDX SAVE ORWDX SEND ORWDX SENDED ORWDX SENDP ORWDX UNLKOTH ORWDX UNLOCK ORWDX UNLOCK ORDER ORWDX WRLST ORWDX2
Enterprise Health Management Platform	2	HMPWBM2 HMPWBSO
Radiology Nuclear Medicine	1	RAORDR1

Entry Points

Name	Comments	DBIA/ICR reference
ORDITM(Y,FROM,DIR,XREF,QOCALL,ACCESS)	; Subset of orderable items ; Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name
ODITMBC(Y,XREF,ODLST)	;
FNDINFO(Y,ODIEN)	;
DLGDEF(LST,DLG)	; Format mapping for a dlg
DLGQUIK(LST,QO)	;(NOT USED)
LOADRSP(LST,RSPID,TRANS,ORREN)
TITR(ORIFN,ORREN,ROOT,ORADDTITRRESP)	; Special handling for outpatient med titration orders
SAVE(REC,ORVP,ORNP,ORL,DLG,ORDG,ORIT,ORIFN,ORDIALOG,ORDEA,ORAPPT,ORSRC,OREVTDF,INDICAT)	; ; ORVP=DFN, ORNP=Provider, ORL=Location, DLG=Order Dialog, ; ORDG=Display Group, ORIT=Quick Order Dialog, ORAPPT=Appointment
SENDED(ORWLST,ORIENS,TS,LOC)	; Release EDOs to svc
SEND(ORWLST,DFN,ORNP,ORL,ES,ORWREC)	; Sign ; DFN=Patient, ORNP=Provider, ORL=Location, ES=Encrypted ES code ; ORWREC(n)=ORIFN;Action^Signature Sts^Release Sts^Nature of Order
SEND1
DLGID(VAL,ORIFN)	; return dlg IEN for order
FORMID(VAL,ORIFN)	; Base dlg FormID for an order
AGAIN(VAL,DLG)	; return true to keep dlg for another order
DGRP(VAL,DLG)	; Display grp pointer for a dlg
DGNM(VAL,NM)	; Display grp pointer for name
WRLST(LST,LOC)	; List of dlgs for writing orders
MSG(LST,IEN)	; Msg text for orderable item
DISMSG(VAL,IEN)	; Disabled mge for ordering dlg
LOCK(OK,DFN)	; Attempt to lock pt for ordering
UNLOCK(OK,DFN)	; Unlock pt for ordering
LOCKORD(OK,ORIFN)	; Attempt to lock order
UNLKORD(OK,ORIFN)	; Unlock order
UNLKOTH(OK,ORIFN)	; Unlock pt not by this session

External References

Name	Field # of Occurrence
EN^ORCSEND	SEND1+16
EN2^ORCSEND	SENDED+25
$$TYPE^OREVNTX	SENDED+29
BHS^ORMBLD	SENDED+17, SEND1+14
BTS^ORMBLD	SENDED+32, SEND1+22
SAVE^ORMEVNT1	SENDED+29
$$ISTITR^ORUTL3	LOADRSP+14
DLGDEF^ORWDX1	DLGDEF+1
FNDINFO^ORWDX1	FNDINFO+1
WRLST1^ORWDX1	WRLST+1
$$CHKLABDIV^ORWDX2	ORDITM+18
SM^ORWDX2	SEND1+25
XROOT^ORWDX2	LOADRSP+9, LOADRSP+10, LOADRSP+15, LOADRSP+17
SAVE^ORWDX3	SAVE+4
FORMID^ORWDXM	FORMID+4
$$CHKACT^ORWDXR	SEND1+10
$$GETTMP^ORWTITR	TITR+5
$$LCKEVT^ORX2	SENDED+11
$$LOCK^ORX2	LOCK+1
$$LOCK1^ORX2	SENDED+20, SEND1+15, LOCKORD+1
UNLEVT^ORX2	SENDED+33
UNLK1^ORX2	SENDED+22, SENDED+25, SEND1+16, UNLKORD+1
UNLOCK^ORX2	UNLOCK+1
$$NOW^XLFDT	ORDITM+8
$$GET^XPAR	ORDITM+6

Used in RPC

RPC Name	Call Tags
ORWDX ORDITM	ORDITM
ORWDX DLGDEF	DLGDEF
ORWDX DLGQUIK	DLGQUIK
ORWDX SAVE	SAVE
ORWDX SEND	SEND
ORWDX WRLST	WRLST
ORWDX LOADRSP	LOADRSP
ORWDX FORMID	FORMID
ORWDX LOCK	LOCK
ORWDX UNLOCK	UNLOCK
ORWDX MSG	MSG
ORWDX DGRP	DGRP
ORWDX DLGID	DLGID
ORWDX AGAIN	AGAIN
ORWDX DISMSG	DISMSG
ORWDX SENDP	SENDP
ORWDX LOCK ORDER	LOCKORD
ORWDX UNLOCK ORDER	UNLKORD
ORWDX DGNM	DGNM
ORWDX SENDED	SENDED
ORWDX UNLKOTH	UNLKOTH

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	SENDED+5, SEND1+2
^OR(100 - [#100]	TITR+10, TITR+11, SENDED+8, SENDED+14, SENDED+16, SENDED+18, SENDED+22, SENDED+23, SENDED+24, SENDED+28 , SEND1+7, SEND1+8, SEND1+9, SEND1+13, SEND1+19, DLGID+1, FORMID+2
^ORD(100.98 - [#100.98]	DGNM+1
^ORD(101.41 - [#101.41]	AGAIN+1, DGRP+1, DGRP+2, DISMSG+1
^ORD(101.43 - [#101.43]	ORDITM+4, ORDITM+9, ORDITM+10, ORDITM+11, ORDITM+16, MSG+2
^TMP($J	LOADRSP+6!, LOADRSP+8*
^XTMP("ORPTLK-"	UNLKOTH+1!

Label References

Name	Line Occurrences
FNDINFO	ODITMBC+3
LOADRSP	DLGQUIK+1
TITR	LOADRSP+14

Naked Globals

Name	Field # of Occurrence
^(	MSG+2
^(0	SENDED+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	SEND1+24~, SEND1+25*
ACCESS	ORDITM~, ORDITM+5, ORDITM+15
CHKLAB	ORDITM+2~, ORDITM+5*, ORDITM+15
CNT	ORDITM+2~, ORDITM+8, ORDITM+9, ODITMBC+1~, ODITMBC+2, ODITMBC+3*
CODE	ORDITM+2~, ORDITM+15, ORDITM+16, ORDITM+17
CURTM	ORDITM+2~, ORDITM+8*, ORDITM+12
DEFROUTE	ORDITM+2~, ORDITM+5*
DFN	SEND~, SEND1+1, LOCK~, LOCK+1, UNLOCK~, UNLOCK+1
DIR	ORDITM~, ORDITM+9, ORDITM+10
DLG	DLGDEF~, DLGDEF+1, LOADRSP+4~, SAVE~, FORMID+1~, FORMID+2, FORMID+3, FORMID+4, AGAIN~, AGAIN+1 , DGRP~, DGRP+1, DGRP+2
DTXT	ORDITM+2~
ES	SEND~
EVENT	SENDED+1~
EVENT(	SENDED+10, SENDED+11*, SENDED+33
FROM	ORDITM~, ORDITM+4, ORDITM+9*, ORDITM+10, ORDITM+11, ORDITM+14
I	ORDITM+2~, ORDITM+8, ORDITM+9, ORDITM+19, ORDITM+20, ORDITM+21, LOADRSP+4~, SENDED+2~, SENDED+5, SEND1~ , SEND1+2, SEND1+24~, SEND1+25, MSG+1~, MSG+2
ID	LOADRSP+4~
IEN	ORDITM+2~, ORDITM+10*, ORDITM+11, ORDITM+16, ORDITM+18, ORDITM+20, ORDITM+21, MSG~, MSG+2, DISMSG~ , DISMSG+1
ILST	LOADRSP+4~
INDICAT	SAVE~
INST	LOADRSP+4~
J	LOADRSP+4~, SENDED+1~, SENDED+33*
LOC	SENDED~, SENDED+3*, SENDED+23, WRLST~
LOCK	SENDED+1~, SENDED+10, SENDED+11, SENDED+12, SENDED+21
LST	DLGDEF~, DLGDEF+1, DLGQUIK~, DLGQUIK+1, LOADRSP~, WRLST~, MSG~
LST(	MSG+2*
NM	ODITMBC+1~, ODITMBC+2*, DGNM~, DGNM+1
ODIEN	FNDINFO~, FNDINFO+1
ODLST	ODITMBC~
ODLST(	ODITMBC+3
OK	SENDED+1~, SENDED+20, SENDED+21, SEND1+15~, SEND1+16, LOCK~, LOCK+1, UNLOCK~, UNLOCK+1, LOCKORD~ , LOCKORD+1, UNLKORD~, UNLKORD+1, UNLKOTH~, UNLKOTH+1*
OR3	SENDED+1~, SENDED+22*
ORADDTITRRESP	LOADRSP+4~, LOADRSP+14, TITR~, TITR+12*
ORAPPT	SAVE~
ORBEF	SEND1~, SEND1+6, SEND1+8, SEND1+19
ORDA	SENDED+1~, SENDED+13*, SENDED+18
ORDEA	SAVE~
ORDERID	SEND1~, SEND1+5*, SEND1+7, SEND1+8, SEND1+9, SEND1+10, SEND1+13, SEND1+15, SEND1+16, SEND1+17 , SEND1+19
ORDG	SAVE~
ORDIALOG	SAVE~
ORDSTART	ORDITM+2~, ORDITM+4*, ORDITM+14
OREVTDF	SAVE~
ORIENS	SENDED~
ORIENS(	SENDED+6, SENDED+7, SENDED+22, SENDED+25, SENDED+28, SENDED+29
ORIFN	LOADRSP+11~, LOADRSP+12, LOADRSP+13, LOADRSP+14, TITR~, TITR+5, TITR+10, TITR+11, SAVE~, SENDED+1~ , SENDED+7, SENDED+8, SENDED+13, SENDED+14, SENDED+16, SENDED+18, SENDED+20, SENDED+22, SENDED+23, SENDED+24 , DLGID~, DLGID+1, FORMID~, FORMID+2, LOCKORD~, LOCKORD+1, UNLKORD~, UNLKORD+1, UNLKOTH~, UNLKOTH+1
ORIT	SAVE~
ORIX	SENDED+1~, SENDED+3, SENDED+6, SENDED+7, SENDED+12, SENDED+22, SENDED+25, SENDED+26, SENDED+28, SENDED+29 , SENDED+31
ORL	SAVE~, SEND~, SEND1+1*
ORL(2	SEND1+1*
ORLAB	SENDED+2~, SENDED+16, SENDED+17, SENDED+32, SEND1~, SEND1+13, SEND1+14, SEND1+22
ORLABOK	ORDITM+2~
ORLOC	LOADRSP+4~
ORLR	SENDED+2~, SEND1~
ORLR(	SENDED+5, SENDED+16, SEND1+2, SEND1+13
ORLRFILTER	ORDITM+3~, ORDITM+6*, ORDITM+18
ORNATURE	SENDED+1~, SENDED+19*, SENDED+25
ORNP	SAVE~, SEND~
ORREN	LOADRSP~, LOADRSP+14, TITR~, TITR+4, TITR+9
ORRESPIEN	TITR+1~, TITR+10*, TITR+11
ORSIGST	SENDED+1~, SENDED+19*, SENDED+25
ORSRC	SAVE~
ORTESTIEN	ORDITM+2~
ORVP	SAVE~, SENDED+1~, SENDED+14, SENDED+17, SENDED+32, SEND1~, SEND1+1, SEND1+14, SEND1+22
ORWERR	SENDED+1~, SENDED+3, SENDED+6, SENDED+12, SENDED+20, SENDED+25, SENDED+26, SEND1~, SEND1+4, SEND1+10* , SEND1+11, SEND1+12, SEND1+15, SEND1+16, SEND1+18
ORWI	SEND1~, SEND1+3*, SEND1+4, SEND1+17, SEND1+18, SEND1+21
ORWLST	SENDED~, SEND~, SEND1+1*, SEND1+23
ORWLST(	SENDED+7, SENDED+12, SENDED+26, SENDED+31, SEND1+17, SEND1+18, SEND1+21*, SEND1+25
ORWNATR	SEND1~, SEND1+5, SEND1+9, SEND1+10, SEND1+16
ORWREC	SEND~
ORWREC(	SEND1+3, SEND1+4
ORWREL	SEND1~, SEND1+5*, SEND1+10, SEND1+16, SEND1+19
ORWSIG	SEND1~, SEND1+5*, SEND1+10, SEND1+16, SEND1+20
PTEVT	SENDED+1~, SENDED+8, SENDED+9, SENDED+10, SENDED+11, SENDED+28, SENDED+29
QO	DLGQUIK~, DLGQUIK+1
QOCALL	ORDITM~, ORDITM+7*, ORDITM+13, ORDITM+14
REC	SAVE~
ROOT	LOADRSP+4~, LOADRSP+5, LOADRSP+9, LOADRSP+13, LOADRSP+14, LOADRSP+15, LOADRSP+16, TITR~, TITR+5*
RSPID	LOADRSP~, LOADRSP+7, LOADRSP+8, LOADRSP+9, LOADRSP+10, LOADRSP+12, LOADRSP+15
TRANS	LOADRSP~
TS	SENDED~, SENDED+24
U	ORDITM+12, ORDITM+13, ORDITM+14, ORDITM+15, ORDITM+16, ORDITM+20, ORDITM+21, SENDED+8, SENDED+14, SENDED+16 , SENDED+19, SENDED+20, SENDED+23, SENDED+24, SENDED+28, SENDED+31, SEND1+5, SEND1+8, SEND1+13, SEND1+15 , SEND1+19, SEND1+21, DLGID+1, FORMID+2, AGAIN+1, DGRP+2, DISMSG+1
VAL	LOADRSP+4~, DLGID~, DLGID+1, DLGID+2, FORMID~, FORMID+2, FORMID+4, AGAIN~, AGAIN+1, DGRP~ , DGRP+2, DGNM~, DGNM+1, DISMSG~, DISMSG+1*
X	ORDITM+2~, ORDITM+11, ORDITM+12, ORDITM+13, ORDITM+14, ORDITM+20, ORDITM+21, SENDED+1~, SENDED+5, SENDED+30* , SENDED+31, SEND1~, SEND1+2, SEND1+4, SEND1+5, SEND1+17, SEND1+19, SEND1+20*, SEND1+21
XREF	ORDITM~, ORDITM+4, ORDITM+5, ORDITM+6, ORDITM+9, ORDITM+10, ORDITM+11, ORDITM+18, ODITMBC~, ODITMBC+2
XRF	ODITMBC+1~, ODITMBC+2*
Y	ORDITM~, ODITMBC~, ODITMBC+3, FNDINFO~, FNDINFO+1
Y(	ORDITM+20, ORDITM+21

Marked Items

Name	Field # of Occurrence
$T(BHS^ORMBLD	SENDED+17, SEND1+14

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDX

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 29

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items