Script to Insert PAYRUN records

-- INSERT INF_CV_PAYRUNS RECORDS 
-- BASED ON DATA IN THE INF_CV_PAYHEADERS TABLE
--
-- MUST BE RUN AFTER LOADING INF_CV_PAYHEADERS
-- ONCE THIS HAS BEEN RUN, YOU MUST CONVERT THE PAYRUN RECORDS
--
-- CREATE DATE: 2001-05-07
-- CREATED BY:  IB

DECLARE
  CURSOR PPR_INFO IS
  	SELECT
  	  PAYROLL_CODE
  	, PAY_CALENDAR_CODE
  	FROM INF_CV_PAYHEADERS
  	GROUP BY
  	  PAYROLL_CODE
  	, PAY_CALENDAR_CODE
    ;

  R_PAYINFO PPR_INFO%ROWTYPE;

  V_PERIOD NUMBER;
  V_COUNT NUMBER;

BEGIN
  SELECT MAX(PAY_PERIOD) INTO V_PERIOD
  FROM   INF_CV_PAYHEADERS
  ;
  V_COUNT :=0;
  FOR R_PAYINFO IN PPR_INFO LOOP
    V_COUNT := V_COUNT+1;
    INSERT INTO INF_CV_PAYRUNS
      (
      	ENTITY_CODE                   ,
      	PAY_RUN_NUMBER                ,
      	USER_NAME                     ,
      	PAYROLL_CODE                  ,
      	PAY_POINT_SET_CODE            ,
      	PAY_CALENDAR_CODE             ,
      	PAY_PERIOD                    ,
      	PAY_RUN_STAGE                 ,
      	PAY_PERIOD_FUTURE             ,
      	COUNTRY_CODE                  ,
      	BANK_TRANSIT_CODE             ,
      	BANK_ACCOUNT                  ,
      	STARTING_NUMBER               ,
      	PAY_RUN_START_TIMESTAMP       ,
      	PAY_RUN_END_TIMESTAMP         ,
      	EMPLOYEE_COUNT                ,
      	REVERSAL_PAY_COUNT            ,
      	ADJUSTMENT_PAY_COUNT          ,
      	CURRENT_PAY_COUNT             ,
      	FUTURE_PAY_COUNT              ,
      	ADVANCE_PAY_COUNT             ,
      	BONUS_PAY_COUNT               ,
      	RETROACTIVE_PAY_COUNT         ,
      	DISBURSED                     ,
      	TRIAL_RUN                      
      )
    VALUES
      (
      	'EUCLID'	                 		,
      	V_COUNT		                		,
      	'P2K'		                   		,
      	R_PAYINFO.PAYROLL_CODE     		,
      	'REGULAR PAY'			            ,
      	R_PAYINFO.PAY_CALENDAR_CODE	  ,
      	V_PERIOD		                	,
      	'70'			                   	,
      	NULL			                  	,
      	NULL	                  			,
      	NULL		                  		,
      	NULL		                  		,
      	NULL	                  			,
      	NULL		                  		,
      	NULL		                  		,
      	NULL		                  		,
      	NULL			                  	,
      	NULL		                  		,
      	NULL		                  		,
      	NULL		                  		,
      	NULL		                  		,
      	NULL		                  		,
      	NULL		                  		,
      	NULL	                  			,
      	NULL
      );
  END LOOP;

  UPDATE INF_CV_PAYHEADERS PPH
  SET    PAY_RUN_NUMBER = (SELECT PAY_RUN_NUMBER
                           FROM   INF_CV_PAYRUNS PPR
                           WHERE  PAYROLL_CODE = PPH.PAYROLL_CODE
                           AND    PAY_CALENDAR_CODE = PPH.PAY_CALENDAR_CODE
                          )
  ;
END;
/