Routine: ORMEVNT

Information

ORMEVNT ;SLC/MKB-Trigger HL7 msg off MAS events ;26-Mar-2015 12:36;PLS

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Order Entry Results Reporting	7	STATUS^ORCSAVE2 ($$LAPSED,ACTLOG,DONE)^OREVNTX (ACT,AUTODC,EXP,PUR,RELEASE)^ORMEVNT1 (DCGEN,DISCH,TIMER)^ORMEVNT2 EN^ORQ1 PRINTS^ORWD1 ($$LCKEVT,UNLEVT)^ORX2
Registration	3	$$MVT^DGPMOBS IN5^VADPT $$SITE^VASITE
Kernel	2	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
VA Fileman	2	$$GET1^DIQ ^DIR
Inpatient Medications	1	ENR^PSJOERI

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Order Entry Results Reporting	6	ORCSIGN OREVNT OREVNT1 ORMPS ORMTIM01 ORTASK01

Entry Points

Name	Comments	DBIA/ICR reference
DIV(LOC)	; -- Return Institution file #4 ptr for LOC
COMP(ORDG)	; -- Complete orders on event [Keep until GMRA415]
ACTIVE(ORDER,ORSTRT)
FINISHED	; unlock and clean up JEH
EN	; -- main entry point
READMANS(VAL)	;PEP-IHS/MSC/PLS - 03/26/2015 - P14
EXP(ORDER,ORSTOP)
XTMP	; -- Save ORIFN to possibly reinstate on admission ; Also uses ORVP, DGPMDA
CURRENT()	; -- Returns 1 or 0, if DGPMDA is the latest movement
EN1	; -- tasked entry point
DCEVT()	; -- Find match to event in AutoDC Rules file for [new] ORDIV,ORTS,ORL
PTQ
DCQ
A	;
C	;
B	;
PRVQ
LOC(NODE)	; -- Returns [new] patient location from NODE
DISCH	; -- Lapse/cancel outstanding events on discharge
PREVTS()	; -- Returns previous treating specialty
CQ
TYPE(X)	; -- Return type of event from MAS code
REINST	; -- Reinstate meds from observation
READMIT()	; -- Return 1 or 0, if patient is being readmitted
PURGE(ORDER)
PATEVT()	; -- Find match to new data in Patient Event file

External References

Name	Field # of Occurrence
^%ZTLOAD	EN1+6
$$MVT^DGPMOBS	DCEVT+2
$$GET1^DIQ	PATEVT+6
^DIR	READMIT+5
STATUS^ORCSAVE2	COMP+4
$$LAPSED^OREVNTX	PATEVT+8
ACTLOG^OREVNTX	EN+10, A+15, B+7, C+4
DONE^OREVNTX	C+2
ACT^ORMEVNT1	ACTIVE
AUTODC^ORMEVNT1	B+9
EXP^ORMEVNT1	EXP
PUR^ORMEVNT1	PURGE
RELEASE^ORMEVNT1	C+2
DCGEN^ORMEVNT2	DCEVT+20
DISCH^ORMEVNT2	DISCH+1
TIMER^ORMEVNT2	DCEVT+20
EN^ORQ1	COMP+3
PRINTS^ORWD1	C+7
$$LCKEVT^ORX2	PATEVT+15
UNLEVT^ORX2	FINISHED+1
ENR^PSJOERI	REINST+1, REINST+6
IN5^VADPT	EN+7, CURRENT+9
$$SITE^VASITE	DIV+2
$$FMADD^XLFDT	EN+3, XTMP+6
$$NOW^XLFDT	XTMP+3, REINST+5

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("ATID3"	REINST+3
^DGPM("ATS"	CURRENT+7, PREVTS+6
^DIC(42 - [#42]	A+2, A+3, A+5, LOC+2, LOC+3
^DPT - [#2]	A+1, LOC+2
^OR(100 - [#100]	COMP+4*, XTMP+8
^ORD(100.5 - [#100.5]	PATEVT+9, PATEVT+12, PATEVT+13
^ORD(100.6 - [#100.6]	DCEVT+6, DCEVT+8, DCEVT+9, DCEVT+11, DCEVT+13, DCEVT+18
^ORD(100.98 - [#100.98]	COMP+2
^ORE(100.2 - [#100.2]	EN+8, EN+9, A+10, A+11, A+12, A+13, B+2, B+4, B+5, C+5 , PATEVT+7, PATEVT+8
^SC - [#44]	DIV+1
^TMP("ORR"	COMP+4
^TMP("ORR-READMIT"	READMIT+2, READMANS+1*
^UTILITY("DGPM"	CURRENT+12, PREVTS+2
^XTMP("ORDCOBS-"	B+10, DCEVT+5!, DCEVT+8!, DCEVT+20, DCEVT+21!, XTMP+4!, XTMP+5, XTMP+7, XTMP+8, XTMP+9 , REINST+1!, REINST+4, REINST+5!, REINST+6, REINST+7!
^XTMP("OREVENT"	EN+3*, EN+4, FINISHED+1!

Label References

Name	Line Occurrences
$$CURRENT	A+7
$$DCEVT	B+9
$$DIV	A+3, A+5
$$PATEVT	A+7
$$PREVTS	A+4
$$READMIT	DCEVT+19
$$TYPE	A+15, B+7, C+4
COMP	B+8
CQ	CURRENT+4, CURRENT+11
DCQ	DCEVT+5, DCEVT+8, DCEVT+9, DCEVT+10
DISCH	C+8
EN1	EN+4, A+8
FINISHED	A+16
PRVQ	PREVTS+3
PTQ	PATEVT+1
REINST	B+10

Naked Globals

Name	Field # of Occurrence
^(	A+1, A+12, B+4, PREVTS+2, PREVTS+6, PATEVT+7, COMP+4, REINST+3, REINST+6
^("ALL"	DCEVT+13
^("B"	PATEVT+12, PATEVT+13
^($J	READMIT+2!
^(0	C+5*, XTMP+4, REINST+4
^(6	COMP+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CA	CURRENT+5~, CURRENT+6, CURRENT+7, PREVTS+1~, PREVTS+5, PREVTS+6
DA	A+11~, A+12*, A+13
>> DFN	EN1+1, EN+2, EN+3, EN+4, A+1, C+9*, FINISHED+1, CURRENT+7, PREVTS+6, PATEVT+7
>> DGPMA	EN+7, B+9, B+10, C+2, PREVTS+5, PATEVT+3, DCEVT+3, DCEVT+20, COMP+3
>> DGPMDA	EN+3, EN+4, EN+7, EN+8, EN+9, A+10, A+11, A+12, B+2, B+4 , C+2, C+5, FINISHED+1, CURRENT+11, DCEVT+2, XTMP+2, XTMP+9
>> DGPMP	EN+3, EN+4, A+7, A+10, B+1, C+8
>> DGPMPC	EN1+1, EN+2
>> DGPMT	EN1+1, EN+2, A+15, B+7, B+8, B+10, C+4, C+5, C+8, CURRENT+4 , CURRENT+8, PATEVT+2, PATEVT+4, PATEVT+5, PATEVT+6, DCEVT+2, DCEVT+4, DCEVT+5, DCEVT+7, DCEVT+8 , DCEVT+15, REINST+3
DIR	READMIT+1~
DIR("?"	READMIT+4*
DIR("A"	READMIT+3*
DIR(0	READMIT+3*
DIROUT	EN+5~
DIRUT	EN+5~
DIV	DCEVT+1~, DCEVT+7*
DONE	EN+6~, A+14, A+15, A+16, B+2, B+3, B+6
DT	EN+3, DIV+2
DTOUT	EN+5~, READMIT+5
DUOUT	EN+5~, READMIT+5
DUZ(2	DIV+2
EVT	PATEVT+1~, PATEVT+2, PATEVT+7, PATEVT+9, PATEVT+12, PATEVT+13
EXC	DCEVT+1~, DCEVT+18*, DCEVT+19
I	EN1+2~, EN1+5, EN+6~, A+4, A+11~
ID	PREVTS+1~, PREVTS+5*, PREVTS+6
IDT	CURRENT+5~, CURRENT+6*, CURRENT+7
IFN	PATEVT+1~, PATEVT+7*, PATEVT+8, PATEVT+14
INCL	DCEVT+12~, DCEVT+13, DCEVT+14
LAST	EN+8~, EN+9, A+11~, A+12, B+3~, B+4, CURRENT+1~, CURRENT+2, CURRENT+5, CURRENT+10* , CURRENT+11, CURRENT+12, PREVTS+1~, PREVTS+6*
LASTDT	CURRENT+1~, CURRENT+2*, CURRENT+5
LASTYPE	CURRENT+1~, CURRENT+2, CURRENT+10, CURRENT+12
LOC	DIV~, DIV+1
MVTYPE	PATEVT+1~, PATEVT+3, PATEVT+4, PATEVT+5, PATEVT+11, DCEVT+1~, DCEVT+3, DCEVT+4, DCEVT+5, DCEVT+6* , DCEVT+7, DCEVT+8, DCEVT+9, DCEVT+10
MVTYPE(1	PATEVT+3, PATEVT+4, PATEVT+5*, PATEVT+11
NODE	LOC~, LOC+1
OBS	DCEVT+1~, DCEVT+2*, DCEVT+4, DCEVT+8, DCEVT+15
OLD	DCEVT+12~, DCEVT+13*
ORACT	EN+6~, A+7, B+6, B+7, C+4
ORCURRNT	EN+6~, A+7*, B+1, C+8, PATEVT+1
ORDCRULE	EN+6~, B+9*
ORDER	EXP~, ACTIVE~, PURGE~
ORDG	COMP~, COMP+2*, COMP+3
ORDIV	EN+6~, A+3*, PATEVT+9, PATEVT+12, DCEVT+6, DCEVT+7, DCEVT+8, DCEVT+11
OREDT	COMP+1~, COMP+3*, COMP+4
OREVENT	EN+6~, A+7*, A+8, A+9, A+15, B+6, C+1, C+2, C+4, C+5
OREVNTLK	A+6~, A+9, FINISHED+1
OREVT	EN+8~, EN+9, EN+10, A+11~, A+12, A+13, A+15, B+3~, B+4*, B+5 , B+7
ORI	COMP+1~, COMP+3, COMP+4
ORIDT	REINST+2~, REINST+3*
ORIFN	COMP+1~, COMP+4, XTMP+2, XTMP+8, REINST+2~, REINST+6
ORL	EN+6~, A+3*, C+7, DCEVT+13
ORLAST	EN+6~
ORLAST(	A+4*
ORLAST("DIV"	A+5*, PATEVT+12, DCEVT+7, DCEVT+11
ORLAST("LOC"	A+5*, DCEVT+13
ORLAST("TS"	A+4*, PATEVT+12, DCEVT+6, DCEVT+9
ORLAST("WD"	A+5*, PATEVT+13
ORLASTDC	REINST+2~, REINST+3*, REINST+4
ORLIST	COMP+1~, COMP+4
ORNOW	XTMP+3~*, XTMP+4, XTMP+6, XTMP+7
ORNOW1H	XTMP+6~*, XTMP+7
ORPRINT	EN+6~, C+7
ORPRINT(0	C+7
ORSTOP	EXP~
ORSTRT	ACTIVE~
ORTS	EN+6~, A+1*, PATEVT+6, PATEVT+12, DCEVT+6, DCEVT+9
ORVP	EN+6~, EN+7, A+1, B+5, B+10, C+3, C+9, DCEVT+5, DCEVT+8, DCEVT+20 , DCEVT+21, COMP+3, LOC+2, XTMP+2, XTMP+4, XTMP+5, XTMP+7, XTMP+8, XTMP+9, REINST+1 , REINST+3, REINST+4, REINST+5, REINST+6, REINST+7
ORWARD	EN+6~, A+1, A+2, A+3, PATEVT+13, REINST+6
ORY	DCEVT+1~, DCEVT+5, DCEVT+8, DCEVT+9, DCEVT+11, DCEVT+13, DCEVT+14, DCEVT+17, DCEVT+18, DCEVT+19* , DCEVT+20, DCEVT+21, DCQ
PSIFN	REINST+2~, REINST+6*
TORY	DCEVT+16~, DCEVT+17*
TS	PREVTS+1~, PREVTS+2*
TSP	PREVTS+1~, PREVTS+2*, PREVTS+3
TYPE	PATEVT+1~, PATEVT+2*, PATEVT+6, PATEVT+10
TYPE(1	PATEVT+3, PATEVT+4, PATEVT+5, PATEVT+6, PATEVT+10
U	EN+3, A+14, B+9, B+10, C+2, C+5, PREVTS+3, PREVTS+5, DIV+2, PATEVT+3 , PATEVT+8, PATEVT+9, PATEVT+10, PATEVT+11, DCEVT+3, DCEVT+18, DCEVT+20, COMP+3, COMP+4, LOC+1 , LOC+2, XTMP+7, REINST+5
VAIP	EN+6~, EN+7, C+3*, CURRENT+9~
VAIP("D"	CURRENT+9*
VAIP("E"	EN+7*
VAIP(1	C+3
VAIP(13	CURRENT+6
VAIP(14	CURRENT+2, CURRENT+10
VAIP(15	A+4, PREVTS+6
VAIP(3	CURRENT+5, CURRENT+6
VAIP(4	A+14
VAIP(5	A+14
VAIP(8	A+14
VAL	READMANS~, READMANS+1
X	EN+6~, A+4, A+5, A+11~, A+13, A+14, TYPE~, TYPE+1, READMIT+1~, READMIT+2* , LOC+1~, LOC+2, LOC+3
X0	DIV+1~, DIV+2, PATEVT+1~, PATEVT+9, PATEVT+10, PATEVT+11, REINST+2~, REINST+4*, REINST+5
XFER	DCEVT+1~, DCEVT+4*, DCEVT+6
XQORPOP	EN+5~
XQORQUIT	EN+5~
Y	EN+6~, A+5, CURRENT+1~, CURRENT+7, CURRENT+9~, CURRENT+11, CURRENT+12, CQ, PREVTS+1~, PREVTS+3 , PREVTS+6, PRVQ, TYPE+1~, TYPE+2, DIV+1~, DIV+2, DIV+3, PATEVT+1~, PATEVT+7, PATEVT+14* , PATEVT+15, PTQ, READMIT+1~, READMIT+5, READMIT+6, LOC+1~, LOC+3*, LOC+4
ZTDESC	EN1+2~, EN1+3*
ZTDTH	EN1+2~, EN1+4*
ZTIO	EN1+2~, EN1+3*
>> ZTQUEUED	EN+1, DCEVT+19
>> ZTREQ	EN+1*
ZTRTN	EN1+2~, EN1+4*
ZTSAVE	EN1+2~
ZTSAVE(	EN1+5*
ZTSAVE("^UTILITY(""DGPM"",$J,"	EN1+4*
ZTSK	EN1+2~

Marked Items

Name	Field # of Occurrence
$T(ENR^PSJOERI	REINST+1

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORMEVNT

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items