Routine: LRVRPOCU

Information

LRVRPOCU ;DALOI/JMC - POINT OF CARE UTILITY PROGRAM; Oct 23, 2023@17:30

Name	Comments	DBIA/ICR reference
INIT	; Initialize user
WKLD(LRP)	; Setup LRCDEF* variables for workload ; Call with LRP = ien of WKLD suffix in file #64.2
SPALERT	; Send Processing Alert Message
CLEAN	;Clean-up point
VASD	; Check for clinic appointment at same time as specimen ; else for clinic appointment before specimen date/time on same date.
FINDAPPT	; Find an appointment for the collection date/time
CHKAPPT	; Check for an appointment that matches the ordering location ; to find the provider on the encounter when no provider sent.
OENC(LRENC)	; Lookup provider on encounter ; Use primary provider if possible otherwise use first provider listed.
SENDACK	; Send HL7 ACKnowledgment message
GETDFN(LAPID)	; Find patient in PATIENT (#2) file based on patient id ; Call with LAPID = patient id to lookup