Changes between Version 1 and Version 2 of Procedures

Timestamp:

08/31/25 23:10:16 (2 months ago)

Author:

222004

Comment:

--

Procedures

@@ -30 +30 @@
 }}}
 ----
-== 2) Блокирање на клиент ако има повеќе неуспешни плаќања \\
-Со оваа процедура се проверува колку пати клиентот имал неуспешно плаќање и ако надмине лимит, автоматски му се деактивира статусот. \\Корисна е за ризик менаџмент и заштита од злоупотреби.\\
+== 2) Проверка на ризици при нова нарачка \\
+Кога клиент прави нова нарачка, пред таа да се потврди, системот прави комплетна проверка – дали клиентот е верифициран, дали некој од лековите има опасни интеракции со постојните рецепти на клиентот, и дали залихата е доволна. Ако има проблем, процедурата враќа предупредување; ако е сè во ред, ја потврдува нарачката.\\
+Ова е корисно за да се спречат нелегални купувања, медицински ризици и грешки.
 {{{
 
-CREATE OR REPLACE PROCEDURE synergymed.sp_block_client_for_failed_payments(p_client_id INT, p_limit INT)
+CREATE OR REPLACE PROCEDURE synergymed.sp_validate_new_order(p_order_id INT)
 LANGUAGE plpgsql
 AS $$
-DECLARE v_failed INT;
+DECLARE 
+  v_client_id INT;
+  v_verified BOOLEAN;
+  v_problem TEXT := '';
+  v_item RECORD;
+  v_active_pres RECORD;
 BEGIN
-  SELECT COUNT(*) INTO v_failed
-  FROM synergymed.payment
-  WHERE client_id = p_client_id
-    AND status = 'неуспешно';
+  SELECT client_id INTO v_client_id FROM synergymed.clientorder WHERE id = p_order_id;
+  SELECT is_verified INTO v_verified FROM synergymed.client WHERE user_id = v_client_id;
 
-  IF v_failed >= p_limit THEN
-    UPDATE synergymed.client
-    SET is_verified = FALSE
-    WHERE user_id = p_client_id;
+  IF NOT v_verified THEN
+    RAISE EXCEPTION 'Клиентот % не е верифициран!', v_client_id;
+  END IF;
 
-    RAISE NOTICE 'Клиентот % е блокиран поради % неуспешни плаќања', p_client_id, v_failed;
+  FOR v_item IN
+    SELECT cobm.branded_medicine_id, cobm.quantity, bm.medicine_id
+    FROM synergymed.clientorder_brandedmedicine cobm
+    JOIN synergymed.brandedmedicine bm ON bm.id = cobm.branded_medicine_id
+    WHERE cobm.order_id = p_order_id
+  LOOP
+    FOR v_active_pres IN
+      SELECT pr.medicine_id
+      FROM synergymed.prescription pr
+      WHERE pr.client_id = v_client_id AND pr.valid_to >= CURRENT_DATE
+    LOOP
+      IF EXISTS (
+        SELECT 1 
+        FROM synergymed.medicineinteraction mi
+        WHERE (mi.medicine_id_1, mi.medicine_id_2) IN (
+                (v_item.medicine_id, v_active_pres.medicine_id), 
+                (v_active_pres.medicine_id, v_item.medicine_id)
+              )
+      ) THEN
+        v_problem := v_problem || E'\n Интеракција помеѓу нов лек ' || v_item.branded_medicine_id || ' и постоечки лек ' || v_active_pres.medicine_id;
+      END IF;
+    END LOOP;
+        
+    IF EXISTS (
+      SELECT 1
+      FROM synergymed.inventory_brandedmedicine ibm
+      WHERE ibm.branded_medicine_id = v_item.branded_medicine_id
+      GROUP BY ibm.branded_medicine_id
+      HAVING SUM(ibm.quantity) < v_item.quantity
+    ) THEN
+      v_problem := v_problem || E'\n Недоволна залиха за лек ' || v_item.branded_medicine_id;
+    END IF;
+  END LOOP;
+
+  IF v_problem <> '' THEN
+    RAISE EXCEPTION 'Нарачката % има проблеми: %', p_order_id, v_problem;
   ELSE
-    RAISE NOTICE 'Клиентот % има само % неуспешни плаќања (лимит %)', p_client_id, v_failed, p_limit;
+    UPDATE synergymed.clientorder
+    SET status = 'потврдено'
+    WHERE id = p_order_id;
+    RAISE NOTICE 'Нарачката % е успешно потврдена.', p_order_id;
   END IF;
 END;
 $$;
-
-
 }}}