DGPMVPU ;ALB/CAW - Update Provider(s) from OE/RR ;4/19/95
Source file <DGPMVPU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Queue provider update to avoid problems with recursive calls
|
|
DQ | ; Find last movement from event date
|
|
ENQ | ||
INIT | ; Init variables
; Input - XQORMSG variables from OE/RR ; Output - DGEVT = The event type-needs to A08 for provider update ; DFN = Patient IFN (from XQORMSG variables) ; DGPPROV = Primary Provider (from XQORMSG variables) ; DGAPROV = Attending Provider (from XQORMSG variables) ; DGLSTM = Date/Time of event (from XQORMSG variables) |
|
INITQ | ||
INPTCHK(DFN) | ; Check to see if patient is a current inpatient
; Input - DFN = Patient IFN ; Output - 0 = Not a current inpatient ; number = internal file number of the admission movement |
|
FMVMT | ; Find the last movement
; Input - DGLSTM = The date/time passes in from OE/RR ; Output - DGMVMT = The 0th node of the last treating specialty ; DGMVT = The IFN of the last treating specialty |
|
FMVMTQ | ||
COMPARE | ; Check to see if provider is different than what is on file
; Input - DGMVMT = 0th node of last treating specialty ; DGPPROV = Primary Provider IFN ; DGAPROV = Attending Provider IFN ; Output - DGGO = Set if Primary/Attending is changing |
|
CRMVMT | ; Create new movement for provider change
; Input - DFN - Patient IFN ; DGMVMT - 0th node of last treating specialty |
|
EVT | ; Create variables for DGPM event driver
; Input - DGMVT - IFN of ^DGPM ; Output - DGPMP - 0th node of prior update ; DGPMA - 0th node of after update ; Corresponding before/after ^UTILITY( global |