TRIGGER: APPS.PA_PJI_PROJ_CLASS_T3

Source

Description

PA_PJI_PROJ_CLASS_T3
AFTER DELETE ON PA_PROJECT_CLASSES
FOR EACH ROW

Type

AFTER EACH ROW

Event

DELETE

Column

When

Referencing

REFERENCING NEW AS NEW OLD AS OLD

Body

DECLARE
	l_event_id NUMBER;
        l_row_id VARCHAR2(18);
    l_include_in_pji_flag varchar2(1); -- Bug 7301657

    cursor c_check_pji_flag(c_class_category PA_PROJECT_CLASSES.CLASS_CATEGORY%type)
    is
    	select include_in_pji_flag
    	from pa_class_categories
    	where class_category =  c_class_category;
BEGIN

	open c_check_pji_flag(:OLD.CLASS_CATEGORY);
	fetch c_check_pji_flag into l_include_in_pji_flag;
	close c_check_pji_flag;

	if l_include_in_pji_flag = 'Y' then

	    PA_PJI_PROJ_EVENTS_LOG_PKG.Insert_Row(
		X_ROW_ID                => l_row_id,
		X_EVENT_ID       	=> l_event_id,
		X_EVENT_TYPE		=> 'Classifications',
		X_EVENT_OBJECT	      	=> :OLD.project_id,
		X_OPERATION_TYPE	=> 'D',
		X_STATUS        	=> 'X',  --NULL
		X_ATTRIBUTE_CATEGORY	=> NULL,
		X_ATTRIBUTE1	        => :OLD.CLASS_CODE,
		X_ATTRIBUTE2	        => :OLD.CLASS_CATEGORY,
		X_ATTRIBUTE3	        => :OLD.CODE_PERCENTAGE,
		X_ATTRIBUTE4	        => NULL,
		X_ATTRIBUTE5	        => NULL,
		X_ATTRIBUTE6	        => NULL,
		X_ATTRIBUTE7	        => NULL,
		X_ATTRIBUTE8	        => NULL,
		X_ATTRIBUTE9	        => NULL,
		X_ATTRIBUTE10	        => NULL,
		X_ATTRIBUTE11	        => NULL,
		X_ATTRIBUTE12	        => NULL,
		X_ATTRIBUTE13	        => NULL,
		X_ATTRIBUTE14	        => NULL,
		X_ATTRIBUTE15	        => NULL,
		X_ATTRIBUTE16	        => NULL,
		X_ATTRIBUTE17	        => NULL,
		X_ATTRIBUTE18	        => NULL,
		X_ATTRIBUTE19	        => NULL,
		X_ATTRIBUTE20	        => NULL
	    );

    end if;

END;