[Home] [Help]
291: End If;
292: End Perform_Validations;
293: /*******************************Perform_Import*******************************************
294: OBJ: This is a private procedure (called internally, from Import_Records). This
295: is where data from PSP_PAYROLL_INTERFACE is imported to PSP_PAYROLL_CONTROLS. After
296: this has been done successfully, the Import_Payroll_Lines procedure is called.
297: CREATED BY: AL ARUNACHALAM
298: DATE: 03/27/98
299:
328: SELECT end_date
329: FROM PER_TIME_PERIODS
330: WHERE time_period_id = n_time_period_id;
331:
332: l_exchange_rate_type psp_payroll_controls.exchange_rate_type%type;
333: l_end_date DATE;
334: l_currency_chk BOOLEAN := TRUE;
335:
336: -- End of Bug 2916848
346: END IF;
347:
348: -- End of code for Bug 2916848
349:
350: -- First, create Control Records in PSP_Payroll_Controls
351: -- Create a record for every unique Payroll_Period_ID, Payroll_Source_Code
352: For Control_Record_Agg IN Control_Record LOOP
353: -- Obtain the Payroll ID for every Payroll Period being added to the table
354: Begin
428: AND payroll_source_code = control_record_agg.payroll_source_code
429: and UPPER(DR_CR_FLAG) = 'D';
430:
431:
432: -- Insert Payroll Control Records into PSP_Payroll_Controls table
433: Select PSP_PAYROLL_CONTROLS_S.NextVal
434: into n_Payroll_Control_ID
435: from DUAL;
436:
429: and UPPER(DR_CR_FLAG) = 'D';
430:
431:
432: -- Insert Payroll Control Records into PSP_Payroll_Controls table
433: Select PSP_PAYROLL_CONTROLS_S.NextVal
434: into n_Payroll_Control_ID
435: from DUAL;
436:
437: PSP_PAYROLL_CONTROLS_PKG.INSERT_ROW (
433: Select PSP_PAYROLL_CONTROLS_S.NextVal
434: into n_Payroll_Control_ID
435: from DUAL;
436:
437: PSP_PAYROLL_CONTROLS_PKG.INSERT_ROW (
438: X_ROWID => v_ROWID,
439: X_PAYROLL_CONTROL_ID => n_Payroll_Control_ID,
440: X_PAYROLL_ACTION_ID => n_Payroll_Action_ID,
441: X_PAYROLL_SOURCE_CODE => Control_Record_Agg.Payroll_Source_Code,
537: -- dbms_output.put_line('About to insert Payroll Lines');
538: -- Next, create Payroll Line records in PSP_Payroll_Lines table
539: -- Create a record for every unique Payroll_Period_ID, Assignment_ID, Element_Type_ID
540: FOR Lines_Record_Agg IN Lines_Record LOOP
541: -- Obtain foreign key reference from PSP_Payroll_Controls table
542: BEGIN
543: select DISTINCT PAYROLL_CONTROL_ID
544: into n_Payroll_Control_ID
545: from PSP_PAYROLL_CONTROLS
541: -- Obtain foreign key reference from PSP_Payroll_Controls table
542: BEGIN
543: select DISTINCT PAYROLL_CONTROL_ID
544: into n_Payroll_Control_ID
545: from PSP_PAYROLL_CONTROLS
546: where TIME_PERIOD_ID = Lines_Record_Agg.Payroll_Period_ID
547: and PAYROLL_SOURCE_CODE = Lines_Record_Agg.Payroll_Source_Code
548: and BATCH_NAME = v_Batch_Name
549: and business_group_id = v_business_group_id
911: v_business_group_id IN NUMBER,
912: v_set_of_books_id IN NUMBER ) return NUMBER IS
913: -- Check if any invalid batch names exist in PSP_PAYROLL_INTERFACE
914: -- i.e. check if any non-transferred batch exists in PSP_PAYROLL_INTERFACE
915: -- that already exists in PSP_PAYROLL_CONTROLS.
916: -- If it does, then inform the user about the error and exit.
917: cursor C1 is
918: /***** Modified the following cursor defn for R12 performance fixes (bug 4507892)
919: Select DISTINCT a.batch_name batch_name
917: cursor C1 is
918: /***** Modified the following cursor defn for R12 performance fixes (bug 4507892)
919: Select DISTINCT a.batch_name batch_name
920: from PSP_PAYROLL_INTERFACE a,
921: PSP_PAYROLL_CONTROLS b
922: where a.batch_name = b.batch_name
923: and a.status_code <> 'T'
924: and b.SOURCE_TYPE = 'N'
925: and a.BATCH_NAME = v_Batch_Name
933: AND ppi.business_group_id = v_business_group_id
934: AND ppi.set_of_books_id = v_set_of_books_id
935: AND ppi.status_code <> 'T'
936: AND EXISTS (SELECT 1
937: FROM psp_payroll_controls ppc
938: WHERE ppc.batch_name = v_batch_name
939: AND ppc.SOURCE_TYPE = 'N'
940: AND ppc.business_group_id = v_business_group_id
941: AND ppc.set_of_books_id = v_set_of_books_id);