Routine: SDESORDCLEAN

Information

SDESORDCLEAN ;ALB/LAB - Clean-up of Pending and partialdd RTC orders ;Dec 06,2022@08:00

Name	Comments	DBIA/ICR reference
CLEANDATA	;
DEVICEPROMPT	;prompt for device
FIN	;Show final results
GETDISPOSITION(REQIEN,ORDSTAT,POP,DISPOSITION)	;
ORDPROMPT(ORDERIENS,POP)	;enter order number
CHECKORDERSTAT(ORDERIEN,STATUS,POP)	;is order status in range
GETREQUESTIEN(ORDERIEN,REQIEN,POP)	;get request IEN
MATCHORDTOREQ(ORDERIEN,REQIEN,POP,OBJOFORDER)	; Match order with request quit if they do not match
UPDATEREQ(REQIEN,ORDERIEN)	;update order field in request with order if missing
CLEANUPSTEPS(ORIEN,ORSTATUS,DISPOSITION,SDPATIENT,SDIEN,POP)	;
START	;Show introductory text
SDHL7BLD(SDIEN,ORIEN,SDDISPBY,SDPATIENT,PATNAME,ORDIS)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Request for Order is still open, no status update" Line Location: GETDISPOSITION+3
Function Call: WRITE	Prompt: !,"Current status for ORDER ",ORDERIEN," is ",STATUS,". No status change." Line Location: CHECKORDERSTAT+4
Function Call: WRITE	Prompt: !,"Could not find request on ORDER. Please submit a YourIT ticket for the Scheduling Team." Line Location: GETREQUESTIEN+6
Function Call: WRITE	Prompt: !,"Order did not match request. Please submit a YourIT ticket for the Scheduling Team." Line Location: MATCHORDTOREQ+11
Function Call: WRITE	Prompt: !,"Disposition By field is missing from request. Status has not been udpated." Line Location: CLEANUPSTEPS+4
Function Call: WRITE	Prompt: !,"Disposition Date field is missing from request. Status has not been updated." Line Location: CLEANUPSTEPS+8
Function Call: WRITE	Prompt: !,"ORDER "_ORIEN_" was successfully updated." Line Location: CLEANUPSTEPS+17
Function Call: WRITE	Prompt: !!,"This OPTION will verify if the entered ORDER is stuck in the incorrect status. " Line Location: START+2
Function Call: WRITE	Prompt: " The status will be updated based on the Request status." Line Location: START+3