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 |
