Routine: ORWDX

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Order Entry Results Reporting	13	($$INPT,$$PTR,GETDLG1)^ORCD (EN,XX)^ORCSAVE (EN,EN2)^ORCSEND $$TYPE^OREVNTX (BHS,BTS)^ORMBLD SAVE^ORMEVNT1 $$DGRP^ORMLR (DELPI,DLGDEF,FNDINFO,WRLST1)^ORWDX1 XROOT^ORWDX2 FORMID^ORWDXM $$CHKACT^ORWDXR GETBYIFN^ORWORR ($$LCKEVT,$$LOCK,$$LOCK1,UNLEVT,UNLK1,UNLOCK)^ORX2
Kernel	1	$$NOW^XLFDT
Toolkit	1	$$GET^XPAR
VA Fileman	1	UPDATE^DIE

Package	Total	Caller Graph
Order Entry Results Reporting	2	ORCMEDT8 ORWDX2
IHS Changes To Pharmacy	1	APSPESLP
IHS Electronic Health Record	1	BEHOOGP

Package

Total

Caller Graph

Order Entry Results Reporting

ORCMEDT8 ORWDX2

IHS Changes To Pharmacy

APSPESLP

IHS Electronic Health Record

BEHOOGP

Entry Points

Name	Comments	DBIA/ICR reference
ODITMBC(Y,XREF,ODLST)	;
SEND1
DLGDEF(LST,DLG)	; Format mapping for a dlg
LOCK(OK,DFN)	; Attempt to lock pt for ordering
DGNM(VAL,NM)	; Display grp pointer for name
AGAIN(VAL,DLG)	; return true to keep dlg for another order
FORMID(VAL,ORIFN)	; Base dlg FormID for an order
UNLKOTH(OK,ORIFN)	; Unlock pt not by this session
DLGID(VAL,ORIFN)	; return dlg IEN for order
ORDITM(Y,FROM,DIR,XREF)	; Subset of orderable items ; Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name
LOCKORD(OK,ORIFN)	; Attempt to lock order
DLGQUIK(LST,QO)	;(NOT USED)
SAVE(REC,ORVP,ORNP,ORL,DLG,ORDG,ORIT,ORIFN,ORDIALOG,ORDEA,ORAPPT,ORSRC,OREVTDF)	; ; ORVP=DFN, ORNP=Provider, ORL=Location, DLG=Order Dialog, ; ORDG=Display Group, ORIT=Quick Order Dialog, ORAPPT=Appointment
WRLST(LST,LOC)	; List of dlgs for writing orders
FNDINFO(Y,ODIEN)	;
DGRP(VAL,DLG)	; Display grp pointer for a dlg
LOADRSP(LST,RSPID,TRANS)	; Load responses from 101.41 or 100 ; RSPID: C123456;1-3243 = cached copy, 134-3234 = cached quick ; X123456;1 = change order, 134 = quick dialog
MSG(LST,IEN)	; Msg text for orderable item
MEDREC	;IHS/MSC/REC/PLS - If dosage form is Miscellaneous set order action to validate
SENDED(ORWLST,ORIENS,TS,LOC)	; Release EDOs to svc
DISMSG(VAL,IEN)	; Disabled mge for ordering dlg
UNLKORD(OK,ORIFN)	; Unlock order
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
UNLOCK(OK,DFN)	; Unlock pt for ordering

External References

Name	Field # of Occurrence
UPDATE^DIE	MEDREC+13, MEDREC+21
$$INPT^ORCD	SAVE+20
$$PTR^ORCD	SAVE+38
GETDLG1^ORCD	SAVE+46
EN^ORCSAVE	SAVE+57
XX^ORCSAVE	SAVE+64
EN^ORCSEND	SEND1+16
EN2^ORCSEND	SENDED+19
$$TYPE^OREVNTX	SENDED+23
BHS^ORMBLD	SEND1+14
BTS^ORMBLD	SEND1+22
SAVE^ORMEVNT1	SENDED+23
$$DGRP^ORMLR	SAVE+39
DELPI^ORWDX1	SAVE+55
DLGDEF^ORWDX1	DLGDEF+1
FNDINFO^ORWDX1	FNDINFO+1
WRLST1^ORWDX1	WRLST+1
XROOT^ORWDX2	LOADRSP+4, LOADRSP+5, LOADRSP+6, LOADRSP+8
FORMID^ORWDXM	FORMID+4
$$CHKACT^ORWDXR	SEND1+10
GETBYIFN^ORWORR	SAVE+58, SAVE+65
$$LCKEVT^ORX2	SENDED+8
$$LOCK^ORX2	LOCK+1
$$LOCK1^ORX2	SENDED+14, SEND1+15, LOCKORD+1
UNLEVT^ORX2	SENDED+26
UNLK1^ORX2	SENDED+16, SENDED+19, SEND1+16, UNLKORD+1
UNLOCK^ORX2	UNLOCK+1
$$NOW^XLFDT	ORDITM+4
$$GET^XPAR	MEDREC+9

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]	SAVE+52, SAVE+53, SEND1+2
^DPT - [#2]	SAVE+14
^OR(100 - [#100]	SAVE+7, SAVE+8, SAVE+62, MEDREC+4, MEDREC+5, MEDREC+10, MEDREC+16, MEDREC+17, SENDED+5, SENDED+11 , SENDED+12, SENDED+16, SENDED+17, SENDED+18, SENDED+22, SEND1+7, SEND1+8, SEND1+9, SEND1+13, SEND1+19 , DLGID+1, FORMID+2
^ORD(100.98 - [#100.98]	SAVE+14, SAVE+37, DGNM+1
^ORD(101.41 - [#101.41]	SAVE+29, SAVE+30, SAVE+31, SAVE+33, SAVE+42, SAVE+43, SAVE+49, SAVE+50, MEDREC+2, MEDREC+3 , AGAIN+1, DGRP+1, DGRP+2, DISMSG+1
^ORD(101.43 - [#101.43]	ORDITM+5, ORDITM+6, ORDITM+7, ORDITM+10, SAVE+39, MEDREC+6, MEDREC+7, MSG+2
^PS(50.7 - [#50.7]	MEDREC+8
^TMP("ORECALL"	SAVE+59*
^XTMP("ORPTLK-"	UNLKOTH+1!

Name	Line Occurrences
FNDINFO	ODITMBC+3
LOADRSP	DLGQUIK+1

Name	Field # of Occurrence
^(	MSG+2
^(0	SENDED+13
^(3	SAVE+62

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEHFDA	MEDREC+11~, MEDREC+19~
BEHFDA(	MEDREC+12, MEDREC+20
CNT	ORDITM+2~, ORDITM+4, ORDITM+5, ODITMBC+1~, ODITMBC+2, ODITMBC+3*
CURTM	ORDITM+2~, ORDITM+4*, ORDITM+8
DEFROUTE	ORDITM+2~, ORDITM+3, ORDITM+10, ORDITM+11, ORDITM+12
DFN	SEND~, SEND1+1, LOCK~, LOCK+1, UNLOCK~, UNLOCK+1
DIR	ORDITM~, ORDITM+5, ORDITM+6
DLG	DLGDEF~, DLGDEF+1, LOADRSP+3~, SAVE~, SAVE+12, SAVE+28, SAVE+29, SAVE+30, SAVE+31, SAVE+32 , SAVE+34, SAVE+35, SAVE+42, SAVE+43, MEDREC+9, 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+7, SENDED+8*, SENDED+26
FROM	ORDITM~, ORDITM+5*, ORDITM+6, ORDITM+7
I	ORDITM+2~, ORDITM+4, ORDITM+5, ORDITM+9, ORDITM+11, ORDITM+12, LOADRSP+3~, SEND1~, SEND1+2, MSG+1~ , MSG+2
ID	LOADRSP+3~
IDF	MEDREC+1~, MEDREC+8*, MEDREC+9
IEN	ORDITM+2~, ORDITM+6*, ORDITM+7, ORDITM+10, ORDITM+11, ORDITM+12, MSG~, MSG+2, DISMSG~, DISMSG+1
ILST	LOADRSP+3~
INSPRMT	SAVE+50~*, SAVE+51
INST	LOADRSP+3~
J	LOADRSP+3~, SENDED+1~, SENDED+26*
LOC	SENDED~, SENDED+2*, SENDED+17, WRLST~
LOCK	SENDED+1~, SENDED+7, SENDED+8, SENDED+9, SENDED+15
LST	DLGDEF~, DLGDEF+1, DLGQUIK~, DLGQUIK+1, LOADRSP~, WRLST~, MSG~
LST(	MSG+2*
NM	ODITMBC+1~, ODITMBC+2*, DGNM~, DGNM+1
NVA	MEDREC+1~, MEDREC+6*
OD	MEDREC+1~, MEDREC+2*, MEDREC+3
ODID	MEDREC+1~, MEDREC+3*, MEDREC+4
ODIEN	FNDINFO~, FNDINFO+1
ODLST	ODITMBC~
ODLST(	ODITMBC+3
OI	SAVE+38~*, SAVE+39
OK	SENDED+1~, SENDED+14, SENDED+15, SEND1+15~, SEND1+16, LOCK~, LOCK+1, UNLOCK~, UNLOCK+1, LOCKORD~ , LOCKORD+1, UNLKORD~, UNLKORD+1, UNLKOTH~, UNLKOTH+1*
ONPASS	SAVE+3~
OR0	SAVE+61~, SAVE+62*, SAVE+63
OR3	SENDED+1~, SENDED+16*
OR8	MEDREC+10~, MEDREC+12, MEDREC+14, MEDREC+16~, MEDREC+17, MEDREC+20, MEDREC+22
ORACTION	MEDREC+17~*, MEDREC+18
ORAPPT	SAVE~
ORBEF	SEND1~, SEND1+6, SEND1+8, SEND1+19
ORCAT	SAVE+3~, SAVE+20, SAVE+32, SAVE+34, SAVE+35, SAVE+47*, SAVE+52, SAVE+53
ORCATFN	SAVE+3~, SAVE+12*, SAVE+47
ORCHECK	SAVE+3~, SAVE+41*
ORDA	SAVE+3~, SAVE+65, SENDED+1~, SENDED+10*, SENDED+12
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~, SAVE+14, SAVE+37, SAVE+39, SAVE+40!, SAVE+62
ORDIALOG	SAVE~, SAVE+42, SAVE+43, SAVE+46, SAVE+59
ORDIALOG(	SAVE+33, SAVE+38, SAVE+51
ORDIALOG("ORCHECK"	SAVE+41!
ORDIALOG("OREVENT"	SAVE+17!
ORDIALOG("ORLEAD"	SAVE+44
ORDIALOG("ORSLOG"	SAVE+16!
ORDIALOG("ORTRAIL"	SAVE+45
ORDIALOG("ORTS"	SAVE+14!, SAVE+15!
ORDIALOG("WP"	SAVE+9, SAVE+10, SAVE+11!
ORDID	MEDREC+1~, MEDREC+4*, MEDREC+5
ORDITEM	MEDREC+1~, MEDREC+5*, MEDREC+6, MEDREC+7
ORDUZ	SAVE+3~
OREVENT	SAVE+3~, SAVE+17, SAVE+63
OREVENT("EFFECTIVE"	SAVE+32, SAVE+33
OREVENT("TS"	SAVE+63*
OREVTDF	SAVE~
OREVTYPE	SAVE+3~
ORIENS	SENDED~
ORIENS(	SENDED+3, SENDED+4, SENDED+16, SENDED+19, SENDED+22, SENDED+23
ORIFN	SAVE~, SAVE+6, SAVE+7, SAVE+8, SAVE+56, SAVE+58, SAVE+62, SAVE+65, MEDREC+4, MEDREC+5 , MEDREC+10, MEDREC+12, MEDREC+16, MEDREC+17, MEDREC+20, SENDED+1~, SENDED+4, SENDED+5, SENDED+10, SENDED+11 , SENDED+12, SENDED+14, SENDED+16, SENDED+17, SENDED+18, DLGID~, DLGID+1, FORMID~, FORMID+2, LOCKORD~ , LOCKORD+1, UNLKORD~, UNLKORD+1, UNLKOTH~, UNLKOTH+1
ORIT	SAVE~, SAVE+29, SAVE+30, SAVE+31, SAVE+40!
ORIX	SENDED+1~, SENDED+2, SENDED+3, SENDED+4, SENDED+9, SENDED+16, SENDED+19, SENDED+20, SENDED+22, SENDED+23 , SENDED+25
ORL	SAVE~, SAVE+36, SEND~, SEND1+1
ORL(2	SAVE+36, SEND1+1
ORLAB	SEND1~, SEND1+13, SEND1+14*, SEND1+22
ORLEAD	SAVE+3~, SAVE+44*
ORLOC	LOADRSP+3~
ORLOG	SAVE+3~, SAVE+16*
ORLR	SEND1~
ORLR(	SEND1+2*, SEND1+13
ORNATURE	SENDED+1~, SENDED+13*, SENDED+19
ORNEW	SAVE+3~
ORNP	SAVE~, SEND~
ORPKG	SAVE+3~, SAVE+52, SAVE+53
ORSIGST	SENDED+1~, SENDED+13*, SENDED+19
ORSRC	SAVE~, SAVE+54*
ORSTS	SAVE+3~, SAVE+62*, SAVE+63
ORTRAIL	SAVE+3~, SAVE+45*
ORTS	SAVE+3~, SAVE+15*
ORVP	SAVE~, SAVE+14, SAVE+36, SENDED+1~, SENDED+11, SEND1~, SEND1+1*, SEND1+14, SEND1+22
ORWERR	SENDED+1~, SENDED+2, SENDED+3, SENDED+9, SENDED+14, SENDED+19, SENDED+20, 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*
ORWLST(	SENDED+4, SENDED+9, SENDED+20, SENDED+25, SEND1+17, SEND1+18, SEND1+21*
ORWNATR	SEND1~, SEND1+5, SEND1+9, SEND1+10, SEND1+16
ORWP94	SAVE+3~, SAVE+28*, SAVE+33, SAVE+48
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
POI	MEDREC+1~, MEDREC+7*, MEDREC+8
PTEVT	SENDED+1~, SENDED+5, SENDED+6, SENDED+7, SENDED+8, SENDED+22, SENDED+23
QO	DLGQUIK~, DLGQUIK+1
REC	SAVE~, SAVE+58, SAVE+65
REC(	MEDREC+14, MEDREC+22
ROOT	LOADRSP+3~, LOADRSP+4, LOADRSP+5, LOADRSP+6, LOADRSP+7
RSPID	LOADRSP~, LOADRSP+4, LOADRSP+5, LOADRSP+6
SIGPRMT	SAVE+49~*, SAVE+51
SUB	SAVE+38~, SAVE+39*
TRANS	LOADRSP~
TS	SENDED~, SENDED+18
U	ORDITM+8, ORDITM+9, ORDITM+10, ORDITM+11, ORDITM+12, SAVE+12, SAVE+14, SAVE+39, SAVE+62, SAVE+63 , MEDREC+3, MEDREC+6, MEDREC+7, MEDREC+8, MEDREC+17, MEDREC+22, SENDED+5, SENDED+11, SENDED+13, SENDED+14 , SENDED+17, SENDED+18, SENDED+22, SENDED+25, SEND1+5, SEND1+8, SEND1+13, SEND1+15, SEND1+19, SEND1+21 , DLGID+1, FORMID+2, AGAIN+1, DGRP+2, DISMSG+1
VAL	LOADRSP+3~, 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+7, ORDITM+8, ORDITM+9, ORDITM+11, ORDITM+12, SENDED+1~, SENDED+24, SENDED+25, SEND1~ , SEND1+2, SEND1+4, SEND1+5, SEND1+17, SEND1+19, SEND1+20*, SEND1+21
XCNT	SAVE+4~, SAVE+5, SAVE+7, SAVE+8
XCOMM	SAVE+4~, SAVE+5, SAVE+8, SAVE+9, SAVE+10, SAVE+11
XDONE	SAVE+4~, SAVE+9, SAVE+10, SAVE+11
XREF	ORDITM~, ORDITM+5, ORDITM+6, ORDITM+7, ORDITM+10, ODITMBC~, ODITMBC+2
XRF	ODITMBC+1~, ODITMBC+2*
XX	SAVE+4~, SAVE+9*, SAVE+10
Y	ORDITM~, ODITMBC~, ODITMBC+3, FNDINFO~, FNDINFO+1
Y(	ORDITM+11, ORDITM+12

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDX

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items