I'm sure there is a better way to handle the CASE for the two parameters in the code below. How can I make this block extensible so I can add other message and cursor types in the future without ending up with a spaghetti bowl of code?

	PROCEDURE GetCursor

		PARAMETERS MessageType, CursorType

		DODEFAULT()

		DO CASE
			CASE m.MessageType = 'HL7' AND CursorType = "Demographics"
				* Do Something 
			CASE m.MessageType = 'HL7' AND CursorType = "Scheduler"
				* Do Something 
			CASE m.MessageType = 'EDI' AND CursorType = "Demographics"
				* Do Something 
			CASE m.MessageType = 'EDI' AND CursorType = "Scheduler"
				* Do Something 
		ENDCASE

	ENDPROC