Prosedürel Tasarım
INTERFACERETURNS EVENT
SELECTCASE EVENT
CASE LIST1_SELECTED
CALL getEtkenMadde
CALL printEtkenMadde
CASE LIST2_SELECTED
IF ToplamIlac > 6 THEN
PRINT ("Bir reçete sayfasına en fazla 6 ilaç yazılabilir.")
ELSE
CALL printRecete
ENDIF
CASE BUTTONETKILESIM_SELECTED
IF ToplamIlac > = 2 THEN
CALL etkilesimBak
ELSE
PRINT ("İlaç etkileşimlerine bakmak için reçetede en az 2 ilaç bulunması gereklidir.")
ENDIF