Routine: SDES846P

Information

SDES846P ;ALB/MGD,LAB - SD*5.3*846 Post Init Routine ; June 27, 2023

Name	Comments	DBIA/ICR reference
EN	; Update the VS GUI version in #409.98
FIND	;FIND THE IEN FOR "VS GUI NATIONAL"
VERSION	;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.44
NOFIND	;"VS GUI NATIONAL" NOT FOUND
TASK	;
PRIVUSERSFIX	; Clean up Privileged Users whose entries are no DINUMed correctly
TASK2	;
MAIL2	; ; Appointment vs request data report
SELECTDATA	;Select appointments where the request is not for the appointment patient
APPT(APPTREQINFO,APPTIEN,APPTDFN,APPTREQTYP,CNT,NEWREQIEN)	;gather information for appt request
DATACLEANUP(APPTDFN,APPTIEN,REQIEN,REQPATDFN,APPTREQTYP,CONSULTIEN,NEWREQIEN,REOPEN)	;create appt request for patient on appointment and attach
OPENCONSULT(CONSULTIEN)	;reopen consult if not already attached to appointment with correct patient ; SETUP REQUIRED VARIABLES THEN CALL THE FOLLOWING
CONSULT(APPTREQINFO,APPTIEN,APPTDFN,APPTREQTYP,CNT,CONSULTIEN,NEWREQIEN)	;gather consult information
REPORT(REQIEN,APPTIEN,APPTREQTYP,NEWREQIEN,REOPEN,CNT)	;report of data cleanup
RESCHEDULED(DFN,APPTREQINFO)	;check to see if the request is already attached to another appointment
TASK3	; Disposition old Appointment Requests
DISP	; Disposition old Appointment Requests
MAIL	; ; Get Station Number