Doktor günlük kota aşımı için Triger

Doktor günlük medula  kota aşımında kurum ücretinin hastanın fark ücretine yansıtılması için hazırlanmış 

Triger;

İlgili Doktorun Muayene Kodu

AND A.KODU = 9003

AND K.GSSMI = ‘T’; Sadece SGK ‘lı Kurumlar

AND NVL (P.KONTROLMU, ‘F’) <> ‘T’ Kontroller Hariç

farkucreti := 80; Aktarılması gereken fark ücreti

IF :new.dr = 134 İlgili dr Kodu

				
					/* Formatted on 16/10/2023 12:52:11 (QP5 v5.388) */
DROP TRIGGER HASTANE.DrKotaUcretlendir;

CREATE OR REPLACE TRIGGER HASTANE.DrKotaUcretlendir
    BEFORE INSERT
    ON hastane.islemyap
    FOR EACH ROW
    ENABLE
DECLARE
    kota         NUMBER;
    kullanilan   NUMBER;
    kalan        NUMBER;
    farkucreti   NUMBER;
BEGIN
    IF :new.dr = 134
    THEN
        farkucreti := 80;

        SELECT COUNT (a.protokol_no)
          INTO kullanilan
          FROM HASTANE.ISLEMYAP A, HASTANE.KURUM K, HASTANE.PROTOKOL P
         WHERE     a.tarih BETWEEN TRUNC (SYSDATE) AND SYSDATE
               AND k.gssmi = 'T'
               AND P.PROTOKOL_NO = A.PROTOKOL_NO
               AND NVL (P.KONTROLMU, 'F') <> 'T'
               AND A.KODU = 9003
               AND A.DR = :new.dr
               AND A.FATURA_TIPI = 0
               AND A.KURUM_NO = K.KURUM_NO(+)
               AND K.GSSMI = 'T';

        kota := 65;
        kalan := kota - kullanilan;

        IF     (kalan <= 0)
           AND (:new.fatura_tipi = 1)
           AND (:new.grup_kodu = 250)
           AND (:new.kodu = 9003)
        THEN
            :new.ucreti := :new.ucreti + farkucreti;
            :new.kalan := :new.kalan + farkucreti;
            :new.odenen := :new.odenen + 0;
        END IF;
    END IF;
END;
/

				
			

hakkında admin

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Yardıma mı ihtiyacınız var? Bizimle sohbet edin