Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: DGPMVPU

Package: Registration

Routine: DGPMVPU


Information

DGPMVPU ;ALB/CAW - Update Provider(s) from OE/RR ;4/19/95

Source Information

Source file <DGPMVPU.m>

Entry Points

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
Info |  Source |  Entry Points