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