Routine: ORMEVNT1

Package	Total	Call Graph
Order Entry Results Reporting	11	$$VALID^ORCACT0 $$NMSP^ORCD $$ACTION^ORCSAVE (DELETE,STATUS)^ORCSAVE2 (EN,EN1)^ORCSEND $$NEW^OREVNT ($$LAPSED,$$TYPE,ACTLOG,DONE)^OREVNTX (BHS,BTS,MSG)^ORMBLD EN^ORQ1 PRINTS^ORWD1 $$VALUE^ORX8
Registration	3	$$MVT^DGPMOBS IN5^VADPT $$SITE^VASITE
Kernel	2	^%ZTLOAD ($$FMADD,$$FMDIFF,$$NOW)^XLFDT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	5	ORCSEND OREVNT1 ORMEVNT ORMEVNT2 ORWDX

Entry Points

Name	Comments	DBIA/ICR reference
XTMP	; -- Save auto-dc'd by package order numbers
CHKOBS	;177, previous dx from obs?
ADMORD	; -- Add admission order to list ; Uses VAIP(13),ORADM from AUTODC
SAVE(IFN,EVT,NODE,PKG)	; -- Save order# IFN with EVT at NODE ; NODE=2: Released orders, NODE=3: Auto-DC'd orders
ACTQ
CURRENT()	; -- Is posted mvt the latest one?
DIV(LOC)	; -- Return Institution file #4 ptr for LOC
RELEASE(OREVT)	; -- release orders for OREVT [also from ORMEVNT] ; Returns ORPRINT(#)=order^prints for orders released
OR2(ORSRDA)	;Queue EDO process to background, return control to surgery
AUTODC(ORDC,ORDT)	; -- DC orders based on rule ORDC [also from ORMEVNT] ; Expects VAIP array with current admission data
PATEVT()	; -- Find match to new data in Patient Event file
ACT	; -- activate an order from ACTIVE^ORMEVNT(ORDER,ORSTRT) ; [ORMTIME]
OR1Q	; -- Set logic, from Surgery package [DBIA #3558]
EXP	; -- expire an order from EXP^ORMEVNT(ORDER,ORSTOP) ; [ORMTIME]
OR1(ORSRDA,ORSRX)	;Queue EDO process to background, return control to surgery
OR2Q	; -- Kill logic, from Surgery package [DBIA #3558]
DCEVT()	; -- Find match to event in AutoDC Rules file for [new] ORDIV
DC2
EXPQ
PUR	; -- purge an order ; from PURGE^ORMEVNT(ORDER)
DC1

External References

Name	Field # of Occurrence
^%ZTLOAD	OR2+3, OR1+2
$$MVT^DGPMOBS	CHKOBS+6
$$VALID^ORCACT0	DC1+5
$$NMSP^ORCD	EXP+8, ACT+7, PUR+3
$$ACTION^ORCSAVE	DC1+7
DELETE^ORCSAVE2	PUR+4, PUR+7
STATUS^ORCSAVE2	EXP+10, ACT+9
EN^ORCSEND	DC1+8
EN1^ORCSEND	RELEASE+18
$$NEW^OREVNT	DC1+6
$$LAPSED^OREVNTX	PATEVT+3
$$TYPE^OREVNTX	RELEASE+12
ACTLOG^OREVNTX	OR2Q+5, OR1Q+16
DONE^OREVNTX	OR1Q+15
BHS^ORMBLD	RELEASE+17
BTS^ORMBLD	RELEASE+21
MSG^ORMBLD	EXP+9, ACT+8, PUR+5, PUR+6
EN^ORQ1	AUTODC+14
PRINTS^ORWD1	OR1Q+17
$$VALUE^ORX8	DC1+4
IN5^VADPT	OR1Q+8, CHKOBS+9
$$SITE^VASITE	DIV+2
$$FMADD^XLFDT	OR1Q+9
$$FMDIFF^XLFDT	CHKOBS+11
$$NOW^XLFDT	AUTODC+11
$$GET^XPAR	RELEASE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("ATID3"	CHKOBS+4, CHKOBS+5
^DIC(42 - [#42]	OR1Q+11, RELEASE+4
^DIC(9.4 - [#9.4]	RELEASE+5
^DPT - [#2]	DCEVT+1
^OR(100 - [#100]	DC1+2, DC1+9, RELEASE+9, RELEASE+10, RELEASE+15, RELEASE+16, RELEASE+19, ADMORD+7, XTMP+5, EXP+2 , EXP+4, EXP+6, EXPQ!, ACT+2, ACT+4, ACT+6, ACTQ!, PUR+2, PUR+3, PUR+5 , PUR+6, PUR+7
^ORD(100.02 - [#100.02]	AUTODC+7, AUTODC+8
^ORD(100.03 - [#100.03]	AUTODC+5, AUTODC+6
^ORD(100.5 - [#100.5]	PATEVT+4
^ORD(100.6 - [#100.6]	DCEVT+2, AUTODC+3, AUTODC+10, DC1+3, DC1+4
^ORD(100.98 - [#100.98]	AUTODC+9, EXP+7
^ORE(100.2 - [#100.2]	OR2Q+3, OR1Q+3, OR1Q+4, PATEVT+2, DC2+1, RELEASE+7, RELEASE+11, ADMORD+5, ADMORD+6, SAVE+3 , SAVE+5, SAVE+6, SAVE+9, SAVE+10*
^SC - [#44]	DIV+1
^SRF - [#130]	OR2Q+4, OR1Q+3, OR1Q+7
^SRS - [#131.7]	OR1Q+10
^TMP("ORR"	DC1, DC2+3!, ADMORD+8, ADMORD+9*
^XTMP(	XTMP+3
^XTMP("ORDC-"	DC2+2, DC2+3!
^XTMP("ORSURG"	OR2Q+1, OR1Q+1, OR1Q+9*, OR1Q+18!, RELEASE+4

Label References

Name	Line Occurrences
$$CURRENT	OR1Q+4
$$DCEVT	OR1Q+13
$$DIV	OR1Q+10
$$PATEVT	OR1Q+13
ACTQ	ACT+2, ACT+5, ACT+6
ADMORD	AUTODC+14
AUTODC	OR1Q+14
CHKOBS	AUTODC+11
EXPQ	EXP+2, EXP+5, EXP+6, EXP+7
OR1	OR1Q+1
OR2	OR2Q+1
RELEASE	OR1Q+15
SAVE	DC1+9, RELEASE+19, XTMP+4
XTMP	DC2+2

Naked Globals

Name	Field # of Occurrence
^(	PATEVT+2, DC1, ADMORD+5, XTMP+3
^("CON"	OR1Q+3
^(0	DC1+2, PUR+3
^(3	RELEASE+10, EXP+4, ACT+4
^(4	PUR+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMEVT	ADMORD+4~, ADMORD+5*, ADMORD+6
CADMDT	CHKOBS+1~, CHKOBS+2*, CHKOBS+11
DA	OR2Q+2~, OR1Q+6~
DFN	OR1Q+6~, OR1Q+7*, OR1Q+13, CHKOBS+4, CHKOBS+5
>> DGPMA	AUTODC+13, ADMORD+3
>> DGPMDA	DC2+2, DC2+3, XTMP+2
>> DGPMT	AUTODC+4, AUTODC+11, AUTODC+12, AUTODC+13, ADMORD+3
DT	OR1Q+9, DIV+2, CURRENT+1
DUZ(2	DIV+2
EVT	PATEVT+1~, PATEVT+2, PATEVT+4, SAVE~, SAVE+2, SAVE+3, SAVE+5, SAVE+6, SAVE+9, SAVE+10
HDR	SAVE+4~, SAVE+6, SAVE+7, SAVE+8*, SAVE+9
I	SAVE+4~, SAVE+5*
IFN	PATEVT+1~, PATEVT+2, PATEVT+3, PATEVT+5, ADMORD+4~, ADMORD+6, ADMORD+7, ADMORD+9, SAVE~, SAVE+2 , SAVE+3, SAVE+8, SAVE+10
INVDT	CHKOBS+1~, CHKOBS+3*, CHKOBS+4
LAST	ADMORD+4~, ADMORD+5*
LOC	OR1Q+11, DIV~, DIV+1
NODE	SAVE~, SAVE+2, SAVE+3, SAVE+5, SAVE+6, SAVE+7, SAVE+9, SAVE+10
OR0	AUTODC+2~, DC1+2, DC1+3, RELEASE+2~, RELEASE+10, RELEASE+17, EXP+3~, EXP+4, EXP+7, EXP+8 , ACT+3~, ACT+4, ACT+7
OR3	RELEASE+2~, RELEASE+10*, RELEASE+12, RELEASE+14
ORACT	OR2Q+2~, OR2Q+4*, OR2Q+5
ORADM	AUTODC+2~, AUTODC+11, AUTODC+12, AUTODC+13, AUTODC+14, ADMORD+7, CHKOBS+12
ORCHLD	PUR+2~, PUR+6*
ORCREATE	AUTODC+2~, AUTODC+8*, AUTODC+9, DC1+7
ORDC	AUTODC~, AUTODC+3, AUTODC+10, DC1+3, DC1+4, DC2+1, XTMP+1~, XTMP+2*, XTMP+3
ORDCRULE	OR1Q+6~, OR1Q+13*, OR1Q+14
ORDER	AUTODC+2~, DC1+7*, DC1+8, DC1+10, EXP+2, EXP+4, EXP+6, EXP+9, EXP+10, EXPQ , ACT+2, ACT+4, ACT+6, ACT+8, ACT+9, ACTQ, PUR+2, PUR+3, PUR+4, PUR+5 , PUR+6, PUR+7
ORDG	AUTODC+2~, AUTODC+9*, AUTODC+14
ORDIV	OR1Q+6~, OR1Q+10*, PATEVT+5, DCEVT+2
ORDT	AUTODC~, DC1+7
OREASON	AUTODC+2~, AUTODC+3, AUTODC+4, AUTODC+5*, AUTODC+6, DC1+8
ORERR	AUTODC+2~, DC1+8, RELEASE+2~, RELEASE+18!
OREVENT	OR1Q+6~, OR1Q+13, OR1Q+14, OR1Q+15, OR1Q+16, DC1+6, DC1+9, DC2, DC2+1, XTMP+1 , XTMP+4, XTMP+5
OREVT	OR2Q+2~, OR2Q+3, OR2Q+5, RELEASE~, RELEASE+2, RELEASE+6, RELEASE+7, RELEASE+8, RELEASE+9, RELEASE+11 , RELEASE+12, RELEASE+19
ORI	AUTODC+2~, AUTODC+10, AUTODC+11, AUTODC+12, AUTODC+13, AUTODC+14, DC1, RELEASE+2~, RELEASE+3, RELEASE+5 , RELEASE+6, RELEASE+7, RELEASE+9, RELEASE+10, ADMORD+8~, ADMORD+9
ORIFN	AUTODC+2~, DC1, DC1+2, DC1+4, DC1+5, DC1+7, DC1+9, RELEASE+2~, RELEASE+10, RELEASE+11 , RELEASE+13, RELEASE+15, RELEASE+16, RELEASE+18, RELEASE+19, RELEASE+20, XTMP+1~, XTMP+2, XTMP+3, XTMP+4 , XTMP+5
ORL	OR1Q+6~, OR1Q+10, OR1Q+11, OR1Q+17, RELEASE+3, RELEASE+4*, RELEASE+15
ORLAB	RELEASE+2~, RELEASE+17*, RELEASE+21
ORLIST	AUTODC+2~, DC1, DC2+3, ADMORD+8, ADMORD+9
ORLR	RELEASE+2~
ORLR(	RELEASE+5*, RELEASE+17
ORN	AUTODC+2~, AUTODC+11, AUTODC+12, AUTODC+13*, DC1+5
ORNATR	AUTODC+2~, AUTODC+6, AUTODC+7, AUTODC+8, DC1+8
ORNMSP	EXP+3~, EXP+8, EXP+9, EXP+10, ACT+3~, ACT+7, ACT+8, ACT+9, PUR+2~, PUR+3* , PUR+4
ORNOW	AUTODC+2~, AUTODC+11*, AUTODC+14
>> ORNP	DC1+7
ORPARM	RELEASE+2~, RELEASE+3*, RELEASE+13, RELEASE+20
ORPK	PUR+2~, PUR+3*, PUR+4
ORPKG	AUTODC+2~
ORPKG(	AUTODC+10*, DC1+3
ORPRINT	OR1Q+6~, OR1Q+17, DC1+10, RELEASE+13, RELEASE+20*
ORPRINT(	DC1+10, RELEASE+13, RELEASE+20*
ORPRINT(0	OR1Q+17
ORPRNT	AUTODC+2~, AUTODC+8*, DC1+10
ORSIG	AUTODC+2~, AUTODC+9*, DC1+8
ORSR0	OR1Q+6~, OR1Q+7*, OR1Q+10
ORSRDA	OR2~, OR2Q+1, OR2Q+3, OR2Q+4, OR1~, OR1Q+1, OR1Q+3, OR1Q+4, OR1Q+7, OR1Q+9 , OR1Q+15, OR1Q+18, RELEASE+4
ORSRF	OR2Q+2~, OR2Q+4*
ORSRX	OR1~, OR1Q+1, OR1Q+2, OR1Q+14, OR1Q+15
>> ORSTOP	EXPQ
>> ORSTRT	ACTQ
ORSTS	EXP+3~, EXP+4, EXP+5, EXP+10, ACT+3~, ACT+4, ACT+5, ACT+9, PUR+2~, PUR+3* , PUR+4
ORTS	OR1Q+6~, OR1Q+12*, RELEASE+16
ORV	RELEASE+2~, RELEASE+8*
ORVP	OR1Q+6~, OR1Q+13*, PATEVT+2, DCEVT+1, AUTODC+14, DC1+6, RELEASE+9, RELEASE+17, RELEASE+21
ORX	RELEASE+2~, RELEASE+3, RELEASE+5, RELEASE+6, RELEASE+7, RELEASE+8
PDCDT	CHKOBS+1~, CHKOBS+4*, CHKOBS+5
PDCMVT	CHKOBS+1~, CHKOBS+5*, CHKOBS+6, CHKOBS+8
PKG	SAVE~, SAVE+10
TOTAL	SAVE+4~, SAVE+8*
U	OR2Q+4, OR1Q+7, OR1Q+9, OR1Q+10, DIV+2, PATEVT+5, AUTODC+3, AUTODC+6, AUTODC+8, AUTODC+9 , AUTODC+13, DC1+2, DC1+3, DC1+9, DC2+1, RELEASE+3, RELEASE+7, RELEASE+8, RELEASE+11, RELEASE+12 , RELEASE+14, RELEASE+15, RELEASE+16, RELEASE+17, RELEASE+19, ADMORD+3, ADMORD+6, ADMORD+7, XTMP+5, SAVE+8 , SAVE+10, EXP+4, EXP+5, EXP+7, EXP+8, EXP+10, ACT+4, ACT+5, ACT+7, PUR+3
VAERR	OR1Q+6~
VAIP	OR1Q+6~, CHKOBS+7~
VAIP("E"	CHKOBS+8*
VAIP(13	OR1Q+8, AUTODC+11, ADMORD+5, CHKOBS+2, CHKOBS+10, CHKOBS+12
VAIP(3	CHKOBS+3, CHKOBS+11
VAIP(5	OR1Q+11, RELEASE+4
VAIP(8	OR1Q+12
X	OR2Q+2~, OR1Q+2~, OR1Q+6~, CURRENT+1, AUTODC+2~, AUTODC+8, AUTODC+9, DC1+4, XTMP+1~, XTMP+3 , XTMP+4
X0	DIV+1~, DIV+2, PATEVT+1~, PATEVT+4, PATEVT+5
Y	OR2Q+2~, OR1Q+6~, DIV+1~, DIV+2, DIV+3, CURRENT+1~, CURRENT+2, PATEVT+1~, PATEVT+2, PATEVT+5 , PATEVT+6, DCEVT+1~, DCEVT+2*, DCEVT+3
ZTDESC	OR2+2~, OR2+3, OR1+1~, OR1+2
ZTDTH	OR2+2~, OR2+3, OR1+1~, OR1+2
ZTIO	OR2+2~, OR2+3, OR1+1~, OR1+2
ZTRTN	OR2+2~, OR2+3, OR1+1~, OR1+2
ZTSAVE	OR2+2~, OR1+1~
ZTSAVE("ORSRDA"	OR2+3, OR1+2
ZTSAVE("ORSRX"	OR1+2*
ZTSK	OR2+2~, OR1+1~

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORMEVNT1

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: