ORMEVNT1 ;SLC/MKB-Trigger HL7 msg off OR events,ORMTIME ; 6/8/10 9:55am
Source file <ORMEVNT1.m>
| 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?
|
