Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ORMEVNT

Package: Order Entry Results Reporting

Routine: ORMEVNT


Information

ORMEVNT ;SLC/MKB-Trigger HL7 msg off MAS events ; 6/8/10 9:49am

Source Information

Source file <ORMEVNT.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Order Entry Results Reporting 12 OR GUA DC GEN ORD ON TRANS  OR GUA DC GEN ORD ON TRANS NOTASK  OR GUA DC GENERIC ORDERS  OR GUA DC GENERIC ORDERS NOTASK  OR GUA EVENT PROCESSOR  OR GUA EVENT PROCESSOR NOTASK  ORCSIGN  OREVNT  
OREVNT1  ORMPS  ORMTIM01  ORTASK01  
Kernel 1 ^ORD(101  

Entry Points

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

External References

Name Field # of Occurrence
^%ZTLOAD EN1+6
$$MVT^DGPMOBS DCEVT+2
$$GET1^DIQ PATEVT+6
^DIR READMIT+4
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+21
DISCH^ORMEVNT2 DISCH+1
TIMER^ORMEVNT2 DCEVT+21
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

FileMan Files Accessed Via FileMan Db Call

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+9, DCEVT+10, DCEVT+12, DCEVT+14, DCEVT+19
^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
^UTILITY("DGPM" CURRENT+12, PREVTS+2
^XTMP("ORDCOBS-" B+10, DCEVT+5!, DCEVT+9!, DCEVT+21*, DCEVT+22!, 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+20
$$TYPE A+15, B+7, C+4
COMP B+8
CQ CURRENT+4, CURRENT+11
DCQ DCEVT+5, DCEVT+9, DCEVT+10, DCEVT+11
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+14
^("B" PATEVT+12, PATEVT+13
^(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+21, 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+9
, DCEVT+16, REINST+3
DIR READMIT+1~
DIR("?" READMIT+3*
DIR("A" READMIT+2*
DIR(0 READMIT+2*
DIROUT EN+5~
DIRUT EN+5~
DIV DCEVT+1~, DCEVT+7*, DCEVT+9
DONE EN+6~, A+14*, A+15*, A+16, B+2, B+3*, B+6*
DT EN+3, DIV+2
DTOUT EN+5~, READMIT+4
DUOUT EN+5~, READMIT+4
DUZ(2 DIV+2
EVT PATEVT+1~, PATEVT+2*, PATEVT+7*, PATEVT+9, PATEVT+12, PATEVT+13
EXC DCEVT+1~, DCEVT+19*, DCEVT+20
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+13~*, DCEVT+14*, DCEVT+15
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+9, DCEVT+10, DCEVT+11
MVTYPE(1 PATEVT+3*, PATEVT+4*, PATEVT+5*, PATEVT+11
NODE LOC~, LOC+1
OBS DCEVT+1~, DCEVT+2*, DCEVT+4, DCEVT+9, DCEVT+16
OLD DCEVT+13~, DCEVT+14*
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+12
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+14
ORLAST EN+6~
ORLAST( A+4*
ORLAST("DIV" A+5*, PATEVT+12, DCEVT+7, DCEVT+12
ORLAST("LOC" A+5*, DCEVT+14
ORLAST("TS" A+4*, PATEVT+12, DCEVT+6, DCEVT+10
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+10
ORVP EN+6~, EN+7*, A+1*, B+5, B+10, C+3, C+9, DCEVT+5, DCEVT+9, DCEVT+21
, DCEVT+22, 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+9*, DCEVT+10*, DCEVT+12*, DCEVT+14, DCEVT+15*, DCEVT+18, DCEVT+19*, DCEVT+20*
, DCEVT+21, DCEVT+22, DCQ
PSIFN REINST+2~, REINST+6*
TORY DCEVT+17~, DCEVT+18*
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+19, DCEVT+21, 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
X EN+6~, A+4*, A+5, A+11~, A+13*, A+14, TYPE~, TYPE+1, READMIT+1~, 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+4*, READMIT+5, 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+20
>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All