CLEAR_BLOCK(NO_VALIDATE);
IF :PMP_MANAG.LICN_CIVIL_NO IS NOT NULL THEN 
	:PMP_MANAG.LICN_CENT_NAME:=SAL_EMPLOYEE_DATA.GET_EMP_NAME(:PMP_MANAG.LICN_CIVIL_NO); 
END IF;

DECLARE 
	CURSOR LICN_REQ_CUR IS
   SELECT DISTINCT A.LICN_REQ_RECID,A.ACTV_PURPOSE_RECID
    FROM PMP_EXTRA_PURPOSE A
    WHERE A.LICN_REQ_RECID IN (
    SELECT DISTINCT R.LICN_REQ_RECID
    FROM PMP_COMPANY_OWNERS O, PMP_LICN_REQ R
    WHERE O.LICN_REQ_RECID = R.LICN_REQ_RECID
    AND O.MANAGER = 1
    AND NVL(o.EXP_MGR_ACT,0) <> 1 
    AND NVL (O.IS_ACTIVE, 0) = 1
    AND O.OWNER_CIVIL_ID = :PMP_MANAG.LICN_CIVIL_NO)
    AND  ACTV_PURPOSE_RECID IN (SELECT ACTV_PURPOSE_RECID
    FROM PMP_EXTRA_PURPOSE_T
    WHERE LICN_REQ_RECID=:PMP_LICN_REQ.LICN_REQ_RECID)
UNION
    SELECT DISTINCT A.LICN_REQ_RECID,A.ACTIVITY_PUR_RECID
    FROM PMP_LICN_REQ A
    WHERE A.LICN_REQ_RECID IN (
    SELECT DISTINCT R.LICN_REQ_RECID
    FROM PMP_COMPANY_OWNERS O, PMP_LICN_REQ R
    WHERE O.LICN_REQ_RECID = R.LICN_REQ_RECID
    AND O.MANAGER = 1
    AND NVL(O.EXP_MGR_ACT,0) <> 1 
    AND NVL (O.IS_ACTIVE, 0) = 1
    AND O.OWNER_CIVIL_ID = :PMP_MANAG.LICN_CIVIL_NO
    )AND ACTIVITY_PUR_RECID IS NOT NULL;
    
V_LICN_REQ LICN_REQ_CUR%ROWTYPE;	
BEGIN

OPEN  LICN_REQ_CUR;
FIRST_RECORD;
LOOP
	FETCH LICN_REQ_CUR INTO :PMP_MANAG.LICN_REQ_RECID,:PMP_MANAG.ACTIVITY_PUR_RECID;
	EXIT WHEN LICN_REQ_CUR%NOTFOUND;
	GO_BLOCK('PMP_EXTRA_PURPOSE');
	FIRST_RECORD;
LOOP
HIDE_VIEW('EXTRA_PUS_CAN');
hide_window('EXTRA_PURPOSE_WIN');
GO_BLOCK('PMP_MANAG');						
		IF :PMP_MANAG.ACTIVITY_PUR_RECID=:PMP_EXTRA_PURPOSE.ACTV_PURPOSE_RECID THEN	
				:PMP_MANAG.COMPANY_NAME:=EST_GET_DATA.GET_COMPANY_NAME_PARENT(:PMP_MANAG.LICN_REQ_RECID);
				:PMP_MANAG.LICN_CENTRAL_NO:=EST_GET_DATA.GET_LICN_CENTRAL_NO(:PMP_MANAG.LICN_REQ_RECID);
				:PMP_MANAG.DATE:=SYSDATE;
			NEXT_RECORD;
		ELSIF :PMP_MANAG.ACTIVITY_PUR_RECID <> :PMP_EXTRA_PURPOSE.ACTV_PURPOSE_RECID THEN		
                        DELETE_RECORD;     
		END IF;
		
		EXIT WHEN :SYSTEM.LAST_RECORD='TRUE';
			NEXT_RECORD;
		END LOOP;	
					
NEXT_RECORD;
END LOOP;
	
FIRST_RECORD;
CLOSE LICN_REQ_CUR;
END;

CLEAR_BLOCK(NO_VALIDATE);
IF :PMP_MANAG.LICN_CIVIL_NO IS NOT NULL THEN 
	:PMP_MANAG.LICN_CENT_NAME:=SAL_EMPLOYEE_DATA.GET_EMP_NAME(:PMP_MANAG.LICN_CIVIL_NO); 
END IF;
DECLARE 
	CURSOR LICN_REQ_CUR IS
   SELECT DISTINCT A.LICN_REQ_RECID,A.ACTV_PURPOSE_RECID
    FROM PMP_EXTRA_PURPOSE A
    WHERE A.LICN_REQ_RECID IN (
    SELECT DISTINCT R.LICN_REQ_RECID
    FROM PMP_COMPANY_OWNERS O, PMP_LICN_REQ R
    WHERE O.LICN_REQ_RECID = R.LICN_REQ_RECID
    AND O.MANAGER = 1
    AND NVL(o.EXP_MGR_ACT,0) <> 1 
    AND NVL (O.IS_ACTIVE, 0) = 1
    AND O.OWNER_CIVIL_ID = :PMP_MANAG.LICN_CIVIL_NO)
    AND  ACTV_PURPOSE_RECID IN (SELECT ACTV_PURPOSE_RECID
    FROM PMP_EXTRA_PURPOSE_T
    WHERE LICN_REQ_RECID=:PMP_LICN_REQ.LICN_REQ_RECID)
UNION
    SELECT DISTINCT A.LICN_REQ_RECID,A.ACTIVITY_PUR_RECID
    FROM PMP_LICN_REQ A
    WHERE A.LICN_REQ_RECID IN (
    SELECT DISTINCT R.LICN_REQ_RECID
    FROM PMP_COMPANY_OWNERS O, PMP_LICN_REQ R
    WHERE O.LICN_REQ_RECID = R.LICN_REQ_RECID
    AND O.MANAGER = 1
    AND NVL(O.EXP_MGR_ACT,0) <> 1 
    AND NVL (O.IS_ACTIVE, 0) = 1
    AND O.OWNER_CIVIL_ID = :PMP_MANAG.LICN_CIVIL_NO
    )AND ACTIVITY_PUR_RECID IS NOT NULL;
    
	V_LICN_REQ LICN_REQ_CUR%ROWTYPE;	
	error EXCEPTION;
BEGIN

OPEN  LICN_REQ_CUR;
 FIRST_RECORD;
LOOP
		FETCH LICN_REQ_CUR INTO :PMP_MANAG.LICN_REQ_RECID,:PMP_MANAG.ACTIVITY_PUR_RECID;
		EXIT WHEN LICN_REQ_CUR%NOTFOUND;
		GO_BLOCK('PMP_EXTRA_PURPOSE');
		FIRST_RECORD;
LOOP
		HIDE_VIEW('EXTRA_PUS_CAN');
		hide_window('EXTRA_PURPOSE_WIN');
		GO_BLOCK('PMP_MANAG');
						
IF :PMP_MANAG.ACTIVITY_PUR_RECID=:PMP_EXTRA_PURPOSE.ACTV_PURPOSE_RECID THEN	

                 HIDE_VIEW('EXTRA_PUS_CAN');
		 hide_window('EXTRA_PURPOSE_WIN');
	         GO_BLOCK('PMP_MANAG');
						
	:PMP_MANAG.COMPANY_NAME:=EST_GET_DATA.GET_COMPANY_NAME_PARENT(:PMP_MANAG.LICN_REQ_RECID);
	:PMP_MANAG.LICN_CENTRAL_NO:=EST_GET_DATA.GET_LICN_CENTRAL_NO(:PMP_MANAG.LICN_REQ_RECID);
	:PMP_MANAG.DATE:=SYSDATE;
[b]ELSIF :PMP_MANAG.ACTIVITY_PUR_RECID <> :PMP_EXTRA_PURPOSE.ACTV_PURPOSE_RECID THEN	
	 :PMP_MANAG.USER:=USER;
END IF;
[/b]
	        HIDE_VIEW('EXTRA_PUS_CAN');
		hide_window('EXTRA_PURPOSE_WIN');
		GO_BLOCK('PMP_MANAG');
		EXIT WHEN :SYSTEM.LAST_RECORD='TRUE';
NEXT_RECORD;
END LOOP;	
		
	NEXT_RECORD;
  END LOOP;

	FIRST_RECORD;
CLOSE LICN_REQ_CUR;

END;


[b]
[b]begin
	GO_BLOCK('PMP_MANAG');
	FIRST_RECORD;
	LOOP
   If :system.last_record = 'TRUE' THEN
   IF 	:PMP_MANAG.USER IS NOT NULL Then
      delete_record;
    End If;
    Exit;
  ELSE
    If 	:PMP_MANAG.USER IS NOT NULL Then
      delete_record;
    ELSE
      next_record;
    End If;
  END IF;
  END LOOP;[/b]
[/b]
  
end;