Routine: OREVNT

Package	Total	Call Graph
Order Entry Results Reporting	11	$$ORDITEM^ORCACT $$VALID^ORCACT0 ($$ORDER,EN)^ORCDLG $$FIND^ORCDLG2 ($$ORDERS,TAB)^ORCHART FREEZE^ORCMENU ($$LOCATION,$$PROVIDER)^ORCMENU1 HELP^OREVNT ($$EMPTY,$$LAPSED,$$NAME,CANCEL,CHGEVT)^OREVNTX $$DIV^ORMEVNT ($$LOCK,$$LOCK1,UNLK1,UNLOCK)^ORX2
VA Fileman	4	IX^DIC ^DIK $$GET1^DIQ ^DIR
Kernel	2	$$NOW^XLFDT $$UP^XLFSTR
Registration	1	FULL^VALM1
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	8	ORCACT ORCACT2 ORCMED OREVNT OREVNT1 OREVNTX1 ORMEVNT1 ORY141ED

Entry Points

Name	Comments	DBIA/ICR reference
PTEVENT(DFN,DLGONLY)	; -- Select Patient Event [or create new one] ; Pass in DLGONLY=1 to skip new event's Order Set (from Copy, Xfer) ; Returns Pt Evt ien ^ Event name
NEW(DFN,EVT,IFN)	; -- Create new Patient Event in #100.2
ED2
ED3
ED1
CURRENT()	; -- Display current patient data
ACTIVE()	; -- Return to Active orders?
PTQ
EN	; -- view/add EVOs
NHCU(OREVT)	; -- Returns 1 or 0, if EVT is to NHCU
ED	; -- Change delay event
MATCH(DFN,EVT)	; -- Does Pt's current data match selected Event?
DELETE(DA)	; -- Delete Patient Event
UNLOCK	; -- Unlock orders after ^
EX	; -- Back to Active Orders
CONT()	; -- ok to continue?
PT2
PT1
DELAYED()	; -- Return 1 or 0, if current view=EDOs
HELP(RSP)	; -- ?help for DIR Event lookup
NODELAY()	; -- Return 1 or 0, if event should be removed
MQ
CURRLOC(DFN)	; -- Return current Hospital Location (ptr to #44) of patient DFN

External References

Name	Field # of Occurrence
IX^DIC	PT1+9
^DIK	DELETE+1
$$GET1^DIQ	NHCU+2
^DIR	ACTIVE+4, NODELAY+4, CONT+5
$$ORDITEM^ORCACT	ED+7, ED+8
$$VALID^ORCACT0	ED+7
$$ORDER^ORCDLG	PT2+4, PT2+6
EN^ORCDLG	PT2+8
$$FIND^ORCDLG2	PT1+4
$$ORDERS^ORCHART	ED+2
TAB^ORCHART	EN+10, EX+3
FREEZE^ORCMENU	ED+3
$$LOCATION^ORCMENU1	EN+7
$$PROVIDER^ORCMENU1	PT2+1
HELP^OREVNT	PT1+3
$$EMPTY^OREVNTX	EX+1, ED3+1
$$LAPSED^OREVNTX	PTEVENT+8
$$NAME^OREVNTX	ED3+6
CANCEL^OREVNTX	EX+1, ED3+6
CHGEVT^OREVNTX	ED1+6, ED2+5
$$DIV^ORMEVNT	MATCH+6
$$LOCK^ORX2	PT2
$$LOCK1^ORX2	ED+8
UNLK1^ORX2	ED1+6, ED2+5, UNLOCK+1
UNLOCK^ORX2	PT2+9
FULL^VALM1	EN+5
$$NOW^XLFDT	NEW+15
$$UP^XLFSTR	PTEVENT+10, PTEVENT+15
$$GET^XPAR	PTEVENT+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CURRENT Line Location: EN+6
Function Call: WRITE	Prompt: !!,$$ORDITEM^ORCACT(ORIFN)_" invalid.",!," >> "_ORERR Line Location: ED+7
Function Call: WRITE	Prompt: !!,$$ORDITEM^ORCACT(ORIFN)_" invalid.",!," >> "_$P(ORLK,U,2) Line Location: ED+8
Function Call: WRITE	Prompt: !,"Nothing changed!" Line Location: ED1+2
Function Call: WRITE	Prompt: !!,"Removing release event ..." Line Location: ED1+3
Function Call: WRITE	Prompt: "." Line Location: ED1+6
Function Call: WRITE	Prompt: " done." Line Location: ED1+7
Function Call: WRITE	Prompt: !!,$$CURRENT Line Location: ED2+0
Function Call: WRITE	Prompt: !,"Nothing changed!" Line Location: ED2+1
Function Call: WRITE	Prompt: !!,"Setting release event to "_$P(ORP,U,2)_" ..." Line Location: ED2+2
Function Call: WRITE	Prompt: "." Line Location: ED2+5
Function Call: WRITE	Prompt: " done." Line Location: ED2+6
Function Call: WRITE	Prompt: !," ... "_X_" event cancelled." Line Location: ED3+7
Function Call: WRITE	Prompt: !,DIR("A",I) Line Location: PT1+0
Function Call: WRITE	Prompt: !,"Select RELEASE EVENT: "_$S($L($G(DIR("B"))):DIR("B")_"//",1:"") Line Location: PT1+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: PT1+2
Function Call: WRITE	Prompt: !!,$C(7),$P(ORPTLK,U,2) Line Location: PT2+0
Function Call: WRITE	Prompt: !,"Select the release event for which you wish to delay orders." Line Location: HELP+2
Function Call: WRITE	Prompt: !,"Choose from:" Line Location: HELP+3
Function Call: READ	Timeout: DTIME Variable: Z Line Location: HELP+10
Function Call: WRITE	Prompt: ! Line Location: CONT+5
Routine Call	DIR Line Location: ACTIVE+4 NODELAY+4 CONT+5
Routine Call	DIC Line Location: PT1+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORE(100.2 - [#100.2]	Classic Fileman Calls
^ORD(100.5 - [#100.5]	Classic Fileman Calls
^DIC(45.7 - [#45.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	CURRLOC+2
^DIC(45.7 - [#45.7]	CURRENT+1, CONT+2
^DPT - [#2]	PTEVENT+3, NEW+13, MATCH+7, CURRLOC+1
^OR(100 - [#100]	ED1+5, ED2+4, NEW+17*
^ORD(100.5 - [#100.5]	PTEVENT+9, PTEVENT+15, PT1+11, PT2+3, HELP+4, HELP+5, HELP+6, HELP+7, NEW+9, NEW+10 , NHCU+2, MATCH+2, MATCH+3, MATCH+8, MATCH+9
^ORE(100.2 - [#100.2]	EX+1, ED3+1, PTEVENT+5, PTEVENT+7, PTEVENT+8, NEW+3, NEW+5, NEW+6, NEW+8, NEW+11 , NEW+12, NEW+14, NEW+15, NEW+16, NEW+17, NEW+18
^SC - [#44]	MATCH+5, CONT+2
^TMP("OR"	EN+9, EX+2, ED+5, DELAYED+2
^TMP("ORECALL"	PT2+8!
^TMP("ORNEW"	PT2+9

Label References

Name	Line Occurrences
$$ACTIVE	EN+3
$$CONT	PT1+10
$$CURRENT	EN+6, ED2
$$CURRLOC	MATCH+5
$$DELAYED	ED1
$$MATCH	PT1+10
$$NEW	PT1+13, PT2+5, PT2+7
$$NHCU	NEW+13
$$NODELAY	ED1+1
$$PTEVENT	EN+8, ED2
ED3	ED1
EX	EN+3, ED3+8
MQ	MATCH+4, MATCH+6, MATCH+8, MATCH+9
PT1	PT1+3, PT1+5, PT1+10
PTQ	PT1+4, PT1+13
UNLOCK	ED1+2, ED2+1

Naked Globals

Name	Field # of Occurrence
^(	PTEVENT+7, NHCU+2
^("B"	MATCH+8, MATCH+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	NEW+2~, NEW+13*, NEW+15
CNT	PTEVENT+6~, PTEVENT+9, PTEVENT+11, PTEVENT+12, PTEVENT+13, HELP+1~, HELP+3, HELP+9
D	PT1+6~*
DA	NEW+2~, NEW+7*, NEW+12, NEW+14, NEW+15, NEW+16, NEW+17, NEW+19, DELETE~, DELETE+1
DAD	NEW+2~, NEW+10, NEW+11, NEW+12
DFN	PTEVENT~, PTEVENT+3, PTEVENT+5, PTEVENT+7, PT1+10, PT1+13, PT2, PT2+5, PT2+7, PT2+9 , NEW~, NEW+1, NEW+7*, NEW+11, NEW+13, NEW+14, NEW+15, NEW+16, NEW+17, MATCH~ , MATCH+5, MATCH+7, CURRLOC~, CURRLOC+1
DIC	PT1+6~*
DIC("S"	PT1+7*
DIC("W"	PT1+6*
DIC(0	PT1+6*
DIK	DELETE+1~*
DIR	ACTIVE+1~, NODELAY+1~, PTEVENT+4~, PTEVENT+6!, PT1+6~, CONT+1~
DIR("?"	ACTIVE+3, NODELAY+3, CONT+4*
DIR("A"	ACTIVE+2, NODELAY+2, PTEVENT+11, PTEVENT+12, PTEVENT+13, PT1, PT1+4, CONT+2, CONT+3*
DIR("B"	ACTIVE+2, NODELAY+2, PTEVENT+15, PT1+1, PT1+2, PT1+3, CONT+5
DIR(0	ACTIVE+1, NODELAY+1, CONT+3*
DLGONLY	PTEVENT~, PT1+13, PT2+8
DOMAIN	PTEVENT+4~, PTEVENT+6*
DONE	HELP+1~, HELP+4, HELP+5, HELP+10*
DTIME	PT1+2, HELP+10
DTOUT	ACTIVE+4, NODELAY+4, PTEVENT+4~, CONT+5
DUOUT	ACTIVE+4, NODELAY+4, PTEVENT+4~, CONT+5
DUZ	NEW+15
EVT	ED+1~, ED1+5, ED2+4, ED3, ED3+1, ED3+6, PTEVENT+6~, PTEVENT+7*, PTEVENT+9, NEW~ , NEW+9, NEW+13, NEW+15, NEW+16, MATCH~, MATCH+2, MATCH+3, MATCH+8, MATCH+9
HDR	NEW+2~, NEW+5, NEW+7, NEW+8
I	PTEVENT+12, PT1, NEW+2~, NEW+3, NEW+6, NEW+7
IDX	ED+1~, ED+5*
IFN	NEW~, NEW+14*, NEW+15, NEW+17
IOSL	HELP+9
LAST	NEW+2~, NEW+5*, NEW+6
LOC	MATCH+1~, MATCH+5*, MATCH+6
NMBR	ED+1~, ED+4*, ED+5
ORDAD	PTEVENT+4~, PT1+11*, PT1+13, PT2+2, PT2+3, PT2+5
ORDERS	ED+1~
ORDERS(	ED+9*, ED1+4, ED2+3, UNLOCK+1
ORDERS(0	ED1
ORDIALOG	PTEVENT+4~, PT1+12, PT1+13, PT2+3, PT2+4, PT2+5*, PT2+6
ORDIV	PTEVENT+4~
ORDSET	PTEVENT+4~, PT1+12*, PT1+13, PT2+8
OREBUILD	ED+3!, ED1, ED1+7, ED2+6, PTEVENT+4~
>> ORERR	ED+7
OREV0	PTEVENT+4~, PT1+11*, PT1+12
OREVENT	EN+2, EN+9, EX+1, EX+2!, ED3+8, DELAYED+1, PTEVENT+4~, PT2+8
OREVT	ED+1~, PTEVENT+4~, PT1+5, PT1+9, PT1+10, PT1+11, PT1+13, PT2+3~*, PT2+7, NHCU~ , NHCU+2
OREVT(	ED1+5, ED2+4, ED3
ORI	ED+1~, ED+4, NHCU+1~, NHCU+2*
ORIFN	ED+1~, ED+5, ED+6, ED+7, ED+8, ED+9, ED1+4, ED1+5, ED1+6, ED2+3 , ED2+4, ED2+5, UNLOCK+1, PTEVENT+4~, PT2+2, PT2+4, PT2+5!, PT2+6*, PT2+7
>> ORL	EN+7*, MATCH+5, CONT+2
ORLK	ED+1~, ED+8*
>> ORNMBR	ED+2*, ED+4
>> ORNP	PT2+1*
ORP	EN+1~, EN+8, EN+9, ED2, ED2+1, ED2+2, ED2+4, ED2+5
>> ORPNM	CURRENT+1, PTEVENT+11, CONT+2
ORPTEVT	PTEVENT+4~, PTEVENT+6!, PT1+4, PT1+13, PT2+5, PT2+7, PT2+8, PTQ
ORPTEVT(	PTEVENT+9*, PTEVENT+12
ORPTEVT("B"	PTEVENT+10*
ORPTLK	PTEVENT+4~, PT2*
ORQUIT	EN+1~, EN+2, EN+3, EN+4, ED+1~, ED+4, ED1, ED1+2*
>> ORTAB	EN+10, EX+3, ED+5, DELAYED+2
>> ORTS	CURRENT+1, MATCH+7, CONT+2
>> ORVP	EN+8, ED2
>> ORWARD	CURRENT+1, HELP+8
ORX	NHCU+1~, NHCU+2*
ORY	NHCU+1~, NHCU+2, NHCU+3
PEVT	MATCH+1~, MATCH+2*, MATCH+3, MATCH+8, MATCH+9
RSP	HELP~, HELP+8
TOTAL	NEW+2~, NEW+5*, NEW+7
TS	MATCH+1~, MATCH+7*, MATCH+8
>> TYPE	HELP+7*, HELP+8
U	EN+9, EX+2, ED+5, ED+8, ED1+5, ED2+2, ED2+4, DELAYED+2, DELAYED+3, CURRENT+1 , PTEVENT+9, PTEVENT+12, PTEVENT+15, PT1+9, PT1+11, PT1+12, PT2, PT2+3, HELP+7, NEW+5 , NEW+7, NEW+9, NEW+10, NEW+12, NEW+13, NEW+15, NEW+17, MATCH+2, MATCH+4, MATCH+6 , CURRLOC+1, CONT+2
>> VAIP(13	NEW+13
>> VALMBCK	EN+1, EN+5, ED+3*
WD	MATCH+1~, MATCH+5*, MATCH+9
X	EN+1~, EN+3, EN+4, ED+1~, ED1+1, ED1+2, ED1+3, ED3+6, ED3+7, ACTIVE+1~ , DELAYED+2~, DELAYED+3, NODELAY+1~, PTEVENT+4~, PTEVENT+9, PTEVENT+10, PTEVENT+14, PTEVENT+15, PT1+2, PT1+3* , PT1+4, HELP+1~, HELP+4, HELP+5, HELP+9, CURRLOC+1~, CURRLOC+2*, CONT+1~
X0	NEW+2~, NEW+9, NEW+10, NEW+13, MATCH+1~, MATCH+3*, MATCH+4, MATCH+6
Y	ACTIVE+1~, ACTIVE+4, ACTIVE+5, DELAYED+2~, DELAYED+3, DELAYED+4, NODELAY+1~, NODELAY+4, NODELAY+5, CURRENT+1~ , CURRENT+2, PTEVENT+4~, PTEVENT+7, PTEVENT+8, PTEVENT+9, PTEVENT+10, PTEVENT+15, PT1+9, HELP+1~, HELP+5* , HELP+6, HELP+7, MATCH+1~, MATCH+3, MATCH+4, MATCH+6, MATCH+8, MATCH+9, MQ, CURRLOC+1~ , CURRLOC+2, CURRLOC+3, CONT+1~, CONT+5, CONT+6
Y(0	PT1+9
Z	HELP+1~, HELP+10*

Customize PDF page

Package: Order Entry Results Reporting

Routine: OREVNT

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: