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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORMEVNT1

Package: Order Entry Results Reporting

Routine: ORMEVNT1


Information

ORMEVNT1 ;SLC/MKB-Trigger HL7 msg off OR events,ORMTIME ; 6/8/10 9:55am

Source Information

Source file <ORMEVNT1.m>

Call Graph

Call Graph

Call Graph Total: 17

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  

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: 5

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

Entry Points

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

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, DC1+12
$$LAPSED^OREVNTX PATEVT+3
$$TYPE^OREVNTX RELEASE+12
ACTLOG^OREVNTX OR2Q+5, OR1Q+17
DONE^OREVNTX OR1Q+16
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+18
$$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+12, 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-" DC1+12, DC2+2, DC2+3!
^XTMP("ORSURG" OR2Q+1, OR1Q+1, OR1Q+9*, OR1Q+19!, RELEASE+4

Label References

Name Line Occurrences
$$CURRENT OR1Q+4
$$DCEVT OR1Q+14
$$DIV OR1Q+10, OR1Q+12
$$PATEVT OR1Q+14
ACTQ ACT+2, ACT+5, ACT+6
ADMORD AUTODC+14
AUTODC OR1Q+15
CHKOBS AUTODC+11
EXPQ EXP+2, EXP+5, EXP+6, EXP+7
OR1 OR1Q+1
OR2 OR2Q+1
RELEASE OR1Q+16
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+14, CHKOBS+4, CHKOBS+5
>> DGPMA AUTODC+13, ADMORD+3
>> DGPMDA DC1+12, 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+12, 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+14*, OR1Q+15
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*, OR1Q+12*, 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+14*, OR1Q+15, OR1Q+16, OR1Q+17, DC1+6*, DC1+9, DC1+12*, 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+12*, OR1Q+18, 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+18, DC1+10*, RELEASE+13*, RELEASE+20*
ORPRINT( DC1+10*, RELEASE+13*, RELEASE+20*
ORPRINT(0 OR1Q+18
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+16, OR1Q+19, RELEASE+4
ORSRF OR2Q+2~, OR2Q+4*
ORSRX OR1~, OR1Q+1, OR1Q+2, OR1Q+15, OR1Q+16
>> 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+13*, RELEASE+16
ORV RELEASE+2~, RELEASE+8*
ORVP OR1Q+6~, OR1Q+14*, PATEVT+2, DCEVT+1, AUTODC+14, DC1+6, DC1+12, 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+12, RELEASE+4
VAIP(8 OR1Q+13
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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All