[Home] [Help]
155:
156: G_BAD_OTL_DATA Exception;
157: HXC_RETRIEVAL_MAX_ERRORS Exception;
158:
159: G_Debug_Mode Varchar2(1) := Nvl(Fnd_Profile.Value('PA_DEBUG_MODE'), 'N');
160:
161: -- Begin PA.M/CWK changes
162: G_Po_Line_Id Number := Null;
163: G_Vendor_Id Number := Null;
415: G_Path := ' ';
416:
417: G_Stage := 'Entering Upload_Otc_Timecard(), add procedure to trackpath.';
418: If G_Debug_Mode = 'Y' Then
419: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
420: pa_cc_utils.log_message( Pa_Debug.G_Err_Stage,1);
421: End If;
422: Pa_Otc_Api.TrackPath('ADD','Upload_Otc_Timecards');
423:
416:
417: G_Stage := 'Entering Upload_Otc_Timecard(), add procedure to trackpath.';
418: If G_Debug_Mode = 'Y' Then
419: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
420: pa_cc_utils.log_message( Pa_Debug.G_Err_Stage,1);
421: End If;
422: Pa_Otc_Api.TrackPath('ADD','Upload_Otc_Timecards');
423:
424: If G_Processed_Import_Batch is Null Then
424: If G_Processed_Import_Batch is Null Then
425:
426: G_Stage := 'Single time process initialization section needed.';
427: If G_Debug_Mode = 'Y' Then
428: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
429: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
430: End If;
431:
432: G_Stage := 'Call BulkInsertReset() procedure for reset.';
425:
426: G_Stage := 'Single time process initialization section needed.';
427: If G_Debug_Mode = 'Y' Then
428: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
429: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
430: End If;
431:
432: G_Stage := 'Call BulkInsertReset() procedure for reset.';
433: If G_Debug_Mode = 'Y' Then
430: End If;
431:
432: G_Stage := 'Call BulkInsertReset() procedure for reset.';
433: If G_Debug_Mode = 'Y' Then
434: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
435: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
436: End If;
437: Pa_Otc_Api.BulkInsertReset(P_Command => 'RESET');
438:
431:
432: G_Stage := 'Call BulkInsertReset() procedure for reset.';
433: If G_Debug_Mode = 'Y' Then
434: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
435: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
436: End If;
437: Pa_Otc_Api.BulkInsertReset(P_Command => 'RESET');
438:
439: G_Stage := 'Initialize what remains.';
437: Pa_Otc_Api.BulkInsertReset(P_Command => 'RESET');
438:
439: G_Stage := 'Initialize what remains.';
440: If G_Debug_Mode = 'Y' Then
441: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
442: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
443: End If;
444: G_Processed_Import_Batch := FALSE;
445: G_EndDateBatchName_Table.Delete;
438:
439: G_Stage := 'Initialize what remains.';
440: If G_Debug_Mode = 'Y' Then
441: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
442: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
443: End If;
444: G_Processed_Import_Batch := FALSE;
445: G_EndDateBatchName_Table.Delete;
446: G_Unhandled_Except_Cnt := 0;
448: End If;
449:
450: G_Stage := 'Each time Upload_Otc_Timecards() called initializaion of global variables.';
451: If G_Debug_Mode = 'Y' Then
452: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
453: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
454: End If;
455:
456: G_Old_Detail_Attr_Index := 0;
449:
450: G_Stage := 'Each time Upload_Otc_Timecards() called initializaion of global variables.';
451: If G_Debug_Mode = 'Y' Then
452: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
453: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
454: End If;
455:
456: G_Old_Detail_Attr_Index := 0;
457: G_Detail_Attr_Index := 0;
471: If Pa_Utils.Pa_Morg_Implemented = 'Y' Then
472:
473: G_Stage := 'Create where clause.';
474: If G_Debug_Mode = 'Y' Then
475: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
476: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
477: End If;
478:
479: -- 12i MOAC changes
472:
473: G_Stage := 'Create where clause.';
474: If G_Debug_Mode = 'Y' Then
475: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
476: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
477: End If;
478:
479: -- 12i MOAC changes
480: -- l_Where_Clause := '[ORG_ID] { = ''' || to_Char(to_Number(SubStr(UserEnv('CLIENT_INFO'),1,10))) || ''' }';
483: Else
484:
485: G_Stage := 'No where clause.';
486: If G_Debug_Mode = 'Y' Then
487: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
488: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
489: End If;
490:
491: l_Where_Clause := NULL;
484:
485: G_Stage := 'No where clause.';
486: If G_Debug_Mode = 'Y' Then
487: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
488: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
489: End If;
490:
491: l_Where_Clause := NULL;
492:
512: */
513:
514: G_Stage := 'Call execute retrieval process API.';
515: If G_Debug_Mode = 'Y' Then
516: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
517: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
518: End If;
519: Hxc_Integration_Layer_V1_Grp.Execute_Retrieval_Process(
520: P_Process => 'Projects Retrieval Process',
513:
514: G_Stage := 'Call execute retrieval process API.';
515: If G_Debug_Mode = 'Y' Then
516: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
517: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
518: End If;
519: Hxc_Integration_Layer_V1_Grp.Execute_Retrieval_Process(
520: P_Process => 'Projects Retrieval Process',
521: P_Transaction_code => Null,
532: Pa_Trx_Import.G_Exit_Main := FALSE;
533:
534: G_Stage := 'Loop thru all hxc detail building block records.';
535: If G_Debug_Mode = 'Y' Then
536: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
537: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
538: End If;
539: For i IN Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.First .. Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.Last
540: Loop
533:
534: G_Stage := 'Loop thru all hxc detail building block records.';
535: If G_Debug_Mode = 'Y' Then
536: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
537: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
538: End If;
539: For i IN Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.First .. Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.Last
540: Loop
541:
541:
542: G_Stage := 'Process bb/ovn: ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
543: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn) ||
544: ' for Resource_Id(Person_Id): ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Resource_Id);
545: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
546: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
547:
548: Begin
549:
542: G_Stage := 'Process bb/ovn: ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
543: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn) ||
544: ' for Resource_Id(Person_Id): ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Resource_Id);
545: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
546: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
547:
548: Begin
549:
550: G_Stage := 'Primary condition evaluation within the loop.';
548: Begin
549:
550: G_Stage := 'Primary condition evaluation within the loop.';
551: If G_Debug_Mode = 'Y' Then
552: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
553: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
554: End If;
555:
556: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Changed = 'N' and
549:
550: G_Stage := 'Primary condition evaluation within the loop.';
551: If G_Debug_Mode = 'Y' Then
552: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
553: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
554: End If;
555:
556: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Changed = 'N' and
557: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Deleted = 'Y' Then
556: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Changed = 'N' and
557: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Deleted = 'Y' Then
558:
559: G_Stage := 'Item Changed: N, Deleted: Y.';
560: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
561: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
562:
563:
564: -- Even though the building block was deleted prior to being imported into projects
557: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Deleted = 'Y' Then
558:
559: G_Stage := 'Item Changed: N, Deleted: Y.';
560: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
561: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
562:
563:
564: -- Even though the building block was deleted prior to being imported into projects
565: -- appearantly attribution data is created and sent via the Generic retrieval process
569: -- There is also no need to look at the old pl/sql tables records.
570:
571: G_Stage := 'Call Populate Project Record new 1 for positioning purposes only.';
572: If G_Debug_Mode = 'Y' Then
573: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
574: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
575: End If;
576:
577: Pa_Otc_Api.PopulateProjRec(
570:
571: G_Stage := 'Call Populate Project Record new 1 for positioning purposes only.';
572: If G_Debug_Mode = 'Y' Then
573: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
574: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
575: End If;
576:
577: Pa_Otc_Api.PopulateProjRec(
578: P_New_Old_BB => 'NEW',
591: -- If this is the condition then there is only new data to process via PopulateProjRec() procedure
592: -- and there is no need to look at the old data via the same procedure.
593:
594: G_Stage := 'Item Changed: N, Deleted: N.';
595: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
596: pa_cc_Utils.log_message(Pa_Debug.G_Err_Stage,1);
597:
598: G_Stage := 'Call Populate Project Record new 2.';
599: If G_Debug_Mode = 'Y' Then
592: -- and there is no need to look at the old data via the same procedure.
593:
594: G_Stage := 'Item Changed: N, Deleted: N.';
595: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
596: pa_cc_Utils.log_message(Pa_Debug.G_Err_Stage,1);
597:
598: G_Stage := 'Call Populate Project Record new 2.';
599: If G_Debug_Mode = 'Y' Then
600: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
596: pa_cc_Utils.log_message(Pa_Debug.G_Err_Stage,1);
597:
598: G_Stage := 'Call Populate Project Record new 2.';
599: If G_Debug_Mode = 'Y' Then
600: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
601: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
602: End If;
603:
604: Pa_Otc_Api.PopulateProjRec(
597:
598: G_Stage := 'Call Populate Project Record new 2.';
599: If G_Debug_Mode = 'Y' Then
600: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
601: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
602: End If;
603:
604: Pa_Otc_Api.PopulateProjRec(
605: P_New_Old_BB => 'NEW',
609: P_Timecard_Rec => l_New_Timecard_Rec);
610:
611: G_Stage := 'EI data status check 2.';
612: If G_Debug_Mode = 'Y' Then
613: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
614: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
615: End If;
616:
617: If l_New_Timecard_Rec.Status is Not Null Then
610:
611: G_Stage := 'EI data status check 2.';
612: If G_Debug_Mode = 'Y' Then
613: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
614: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
615: End If;
616:
617: If l_New_Timecard_Rec.Status is Not Null Then
618:
617: If l_New_Timecard_Rec.Status is Not Null Then
618:
619: G_Stage := 'New Record Status is not null 2. Timecard status is ' || l_New_Timecard_Rec.Status;
620: If G_Debug_Mode = 'Y' Then
621: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
622: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
623: End If;
624:
625: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
618:
619: G_Stage := 'New Record Status is not null 2. Timecard status is ' || l_New_Timecard_Rec.Status;
620: If G_Debug_Mode = 'Y' Then
621: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
622: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
623: End If;
624:
625: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
626: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
629: Else
630:
631: G_Stage := 'Create new orig trx ref 2.';
632: If G_Debug_Mode = 'Y' Then
633: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
634: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
635: End If;
636:
637: l_new_orig_trx_ref :=
630:
631: G_Stage := 'Create new orig trx ref 2.';
632: If G_Debug_Mode = 'Y' Then
633: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
634: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
635: End If;
636:
637: l_new_orig_trx_ref :=
638: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
639: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
640:
641: G_Stage := 'Check if original transaction reference already exists 2';
642: If G_Debug_Mode = 'Y' Then
643: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
644: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
645: End If;
646:
647: -- Calling the function is a sanity check to confirm that this is solely new data.
640:
641: G_Stage := 'Check if original transaction reference already exists 2';
642: If G_Debug_Mode = 'Y' Then
643: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
644: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
645: End If;
646:
647: -- Calling the function is a sanity check to confirm that this is solely new data.
648: If NOT Pa_Otc_Api.OrigTrxRefValueExists(l_new_orig_trx_ref) Then
655: l_insert_rec_flag := TRUE;
656:
657: G_Stage := 'Call the GetBatchName procedure 2';
658: If G_Debug_Mode = 'Y' Then
659: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
660: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
661: End If;
662:
663: Pa_Otc_Api.GetBatchName(
656:
657: G_Stage := 'Call the GetBatchName procedure 2';
658: If G_Debug_Mode = 'Y' Then
659: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
660: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
661: End If;
662:
663: Pa_Otc_Api.GetBatchName(
664: P_Exp_End_Date => l_New_Timecard_Rec.Expenditure_Ending_Date,
668: -- This condition result should never happen, but it's here just in case.
669:
670: G_Stage := 'Building block/ovn combo already exists in projects 2.';
671: If G_Debug_Mode = 'Y' Then
672: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
673: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
674: End If;
675: l_insert_rec_flag := FALSE;
676: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'SUCCESS';
669:
670: G_Stage := 'Building block/ovn combo already exists in projects 2.';
671: If G_Debug_Mode = 'Y' Then
672: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
673: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
674: End If;
675: l_insert_rec_flag := FALSE;
676: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'SUCCESS';
677:
682: ElsIf Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Changed = 'Y' and
683: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Deleted = 'N' Then
684:
685: G_Stage := 'Item Changed: Y, Deleted: N.';
686: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
687: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
688:
689: l_Old_Detail_Index := l_Old_Detail_Index + 1;
690:
683: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Deleted = 'N' Then
684:
685: G_Stage := 'Item Changed: Y, Deleted: N.';
686: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
687: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
688:
689: l_Old_Detail_Index := l_Old_Detail_Index + 1;
690:
691: G_Stage := 'Create new orig trx ref 3.';
689: l_Old_Detail_Index := l_Old_Detail_Index + 1;
690:
691: G_Stage := 'Create new orig trx ref 3.';
692: If G_Debug_Mode = 'Y' Then
693: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
694: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
695: End If;
696:
697: l_new_orig_trx_ref :=
690:
691: G_Stage := 'Create new orig trx ref 3.';
692: If G_Debug_Mode = 'Y' Then
693: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
694: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
695: End If;
696:
697: l_new_orig_trx_ref :=
698: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
701: If NOT Pa_Otc_Api.OrigTrxRefValueExists(l_new_orig_trx_ref) Then
702:
703: G_Stage := 'Call Populate Project Record new 3a.';
704: If G_Debug_Mode = 'Y' Then
705: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
706: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
707: End If;
708:
709: Pa_Otc_Api.PopulateProjRec(
702:
703: G_Stage := 'Call Populate Project Record new 3a.';
704: If G_Debug_Mode = 'Y' Then
705: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
706: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
707: End If;
708:
709: Pa_Otc_Api.PopulateProjRec(
710: P_New_Old_BB => 'NEW',
714: P_timecard_Rec => l_New_Timecard_Rec);
715:
716: G_Stage := 'EI data status check 3a.';
717: If G_Debug_Mode = 'Y' Then
718: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
719: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
720: End If;
721:
722: If l_New_Timecard_Rec.Status is Not Null Then
715:
716: G_Stage := 'EI data status check 3a.';
717: If G_Debug_Mode = 'Y' Then
718: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
719: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
720: End If;
721:
722: If l_New_Timecard_Rec.Status is Not Null Then
723:
722: If l_New_Timecard_Rec.Status is Not Null Then
723:
724: G_Stage := 'New Record Status is not null 3a. Timecard status is ' || l_New_Timecard_Rec.Status;
725: If G_Debug_Mode = 'Y' Then
726: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
727: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
728: End If;
729:
730: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
723:
724: G_Stage := 'New Record Status is not null 3a. Timecard status is ' || l_New_Timecard_Rec.Status;
725: If G_Debug_Mode = 'Y' Then
726: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
727: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
728: End If;
729:
730: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
731: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
734: G_Stage := 'Since the Status is not null 3a has been hit for new record, ' ||
735: 'call PopulateProjRec() for old records for positioning ' ||
736: 'purposes only to maintain sync with new pl/sql tables.';
737: If G_Debug_Mode = 'Y' Then
738: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
739: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
740: End If;
741:
742: Pa_Otc_Api.PopulateProjRec(
735: 'call PopulateProjRec() for old records for positioning ' ||
736: 'purposes only to maintain sync with new pl/sql tables.';
737: If G_Debug_Mode = 'Y' Then
738: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
739: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
740: End If;
741:
742: Pa_Otc_Api.PopulateProjRec(
743: P_New_Old_BB => 'OLD',
752: Else
753:
754: G_Stage := 'Call Populate Project Record old 3a.';
755: If G_Debug_Mode = 'Y' Then
756: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
757: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
758: End If;
759:
760: Pa_Otc_Api.PopulateProjRec(
753:
754: G_Stage := 'Call Populate Project Record old 3a.';
755: If G_Debug_Mode = 'Y' Then
756: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
757: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
758: End If;
759:
760: Pa_Otc_Api.PopulateProjRec(
761: P_New_Old_BB => 'OLD',
767: If l_Old_Timecard_Rec.Status is Not Null Then
768:
769: G_Stage := 'Old Record Status is not null 3a. Timecard status is ' || l_Old_Timecard_Rec.Status;
770: If G_Debug_Mode = 'Y' Then
771: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
772: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
773: End If;
774:
775: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
768:
769: G_Stage := 'Old Record Status is not null 3a. Timecard status is ' || l_Old_Timecard_Rec.Status;
770: If G_Debug_Mode = 'Y' Then
771: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
772: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
773: End If;
774:
775: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
776: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_Old_Timecard_Rec.Status;
782: -- insert record into pa_transaction_interface or update tables
783: -- pa_expenditure_comments and/or pa_expenditure_items_all.
784: G_Stage := 'Call Determine Direct Update 3.';
785: If G_Debug_Mode = 'Y' Then
786: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
787: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
788: End If;
789:
790: Pa_Otc_Api.DetermineDirectUpdate(
783: -- pa_expenditure_comments and/or pa_expenditure_items_all.
784: G_Stage := 'Call Determine Direct Update 3.';
785: If G_Debug_Mode = 'Y' Then
786: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
787: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
788: End If;
789:
790: Pa_Otc_Api.DetermineDirectUpdate(
791: P_New_Timecard_Rec => l_New_Timecard_Rec,
798: l_insert_rec_flag := FALSE;
799:
800: G_Stage := 'Direct Update of the exp item in projects. ' ||
801: 'Need to update (C)omment, (D)ff, (B)oth: ' || l_Comment_or_Dff;
802: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
803: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
804:
805: G_Stage := 'Direct Update get trx ref. by calling GetOrigTrxRef '||
806: 'to use to update the expenditure item.';
799:
800: G_Stage := 'Direct Update of the exp item in projects. ' ||
801: 'Need to update (C)omment, (D)ff, (B)oth: ' || l_Comment_or_Dff;
802: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
803: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
804:
805: G_Stage := 'Direct Update get trx ref. by calling GetOrigTrxRef '||
806: 'to use to update the expenditure item.';
807: If G_Debug_Mode = 'Y' Then
804:
805: G_Stage := 'Direct Update get trx ref. by calling GetOrigTrxRef '||
806: 'to use to update the expenditure item.';
807: If G_Debug_Mode = 'Y' Then
808: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
809: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
810: End If;
811:
812: Pa_Otc_Api.GetOrigTrxRef(
805: G_Stage := 'Direct Update get trx ref. by calling GetOrigTrxRef '||
806: 'to use to update the expenditure item.';
807: If G_Debug_Mode = 'Y' Then
808: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
809: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
810: End If;
811:
812: Pa_Otc_Api.GetOrigTrxRef(
813: P_Building_Block_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
817: If l_New_Timecard_Rec.Status is not null Then
818:
819: G_Stage := 'Update hxc exception pl/sql tables 1.';
820: If G_Debug_Mode = 'Y' Then
821: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
822: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
823: End If;
824:
825: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
818:
819: G_Stage := 'Update hxc exception pl/sql tables 1.';
820: If G_Debug_Mode = 'Y' Then
821: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
822: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
823: End If;
824:
825: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
826: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
829: End If;
830:
831: G_Stage := 'Call Update Changed Original Txn 3.';
832: If G_Debug_Mode = 'Y' Then
833: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
834: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
835: End If;
836:
837: Pa_Otc_Api.UpdateChangedOrigTxn(
830:
831: G_Stage := 'Call Update Changed Original Txn 3.';
832: If G_Debug_Mode = 'Y' Then
833: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
834: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
835: End If;
836:
837: Pa_Otc_Api.UpdateChangedOrigTxn(
838: P_Old_Orig_Txn_Ref => l_old_orig_trx_ref,
843:
844: G_Stage := 'Store the Bb_Id and index in pl/sql table for use ' ||
845: 'in tieback process 3a for directly updated ei.';
846: If G_Debug_Mode = 'Y' Then
847: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
848: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
849: End If;
850:
851: G_Trx_Direct_Upd_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
844: G_Stage := 'Store the Bb_Id and index in pl/sql table for use ' ||
845: 'in tieback process 3a for directly updated ei.';
846: If G_Debug_Mode = 'Y' Then
847: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
848: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
849: End If;
850:
851: G_Trx_Direct_Upd_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
852:
855: l_insert_rec_flag := TRUE;
856:
857: G_Stage := 'Call the GetBatchName procedure 3';
858: If G_Debug_Mode = 'Y' Then
859: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
860: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
861: End If;
862:
863: Pa_Otc_Api.GetBatchName(
856:
857: G_Stage := 'Call the GetBatchName procedure 3';
858: If G_Debug_Mode = 'Y' Then
859: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
860: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
861: End If;
862:
863: Pa_Otc_Api.GetBatchName(
864: P_Exp_End_Date => l_New_Timecard_Rec.Expenditure_Ending_Date,
867: G_Stage := 'Get old orig trx ref 3 using the new bb_id/ovn ' || 'combo ' ||
868: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
869: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
870: If G_Debug_Mode = 'Y' Then
871: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
872: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
873: End If;
874:
875: -- Bug ?
868: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
869: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
870: If G_Debug_Mode = 'Y' Then
871: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
872: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
873: End If;
874:
875: -- Bug ?
876: -- Switched from function to procedure to determine if
877: -- ei is available for adjustment in projects
878: G_Stage := 'Calling procedure GetOrigTrxRef() Determine if ' ||
879: 'availability of ei for adjusted 1';
880: If G_Debug_Mode = 'Y' Then
881: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
882: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
883: End If;
884:
885: Pa_Otc_Api.GetOrigTrxRef(
878: G_Stage := 'Calling procedure GetOrigTrxRef() Determine if ' ||
879: 'availability of ei for adjusted 1';
880: If G_Debug_Mode = 'Y' Then
881: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
882: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
883: End If;
884:
885: Pa_Otc_Api.GetOrigTrxRef(
886: P_Building_Block_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
890: If l_New_Timecard_Rec.Status is not null Then
891:
892: G_Stage := 'Update hxc exception pl/sql tables 2.';
893: If G_Debug_Mode = 'Y' Then
894: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
895: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
896: End If;
897: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
898: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) :=
891:
892: G_Stage := 'Update hxc exception pl/sql tables 2.';
893: If G_Debug_Mode = 'Y' Then
894: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
895: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
896: End If;
897: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
898: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) :=
899: l_New_Timecard_Rec.Status;
908: -- End bug enhancement
909:
910: G_Stage := 'Call Build Reverse Item 3.';
911: If G_Debug_Mode = 'Y' Then
912: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
913: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
914: End If;
915:
916: Pa_Otc_Api.Build_Reverse_Item(
909:
910: G_Stage := 'Call Build Reverse Item 3.';
911: If G_Debug_Mode = 'Y' Then
912: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
913: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
914: End If;
915:
916: Pa_Otc_Api.Build_Reverse_Item(
917: P_Old_Orig_Trx_Ref => l_old_orig_trx_ref,
923:
924: G_Stage := 'Store the Bb_Id and index in pl/sql table for use ' ||
925: 'in tieback process 3b.';
926: If G_Debug_Mode = 'Y' Then
927: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
928: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
929: End If;
930: G_Trx_Inserted_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
931:
924: G_Stage := 'Store the Bb_Id and index in pl/sql table for use ' ||
925: 'in tieback process 3b.';
926: If G_Debug_Mode = 'Y' Then
927: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
928: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
929: End If;
930: G_Trx_Inserted_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
931:
932: End If; -- l_direct_update_flag
949: G_Stage := 'The bb_id/ovn combo already exists in projects, bypassing BB_Id: ' ||
950: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) ||
951: ':' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn) ||
952: ' for Resource_Id: ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Resource_Id);
953: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
954: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
955:
956: G_Stage := 'Call Populate Project Record new 3b for positioning purposes only.';
957: If G_Debug_Mode = 'Y' Then
950: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) ||
951: ':' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn) ||
952: ' for Resource_Id: ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Resource_Id);
953: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
954: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
955:
956: G_Stage := 'Call Populate Project Record new 3b for positioning purposes only.';
957: If G_Debug_Mode = 'Y' Then
958: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
954: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
955:
956: G_Stage := 'Call Populate Project Record new 3b for positioning purposes only.';
957: If G_Debug_Mode = 'Y' Then
958: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
959: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
960: End If;
961:
962: Pa_Otc_Api.PopulateProjRec(
955:
956: G_Stage := 'Call Populate Project Record new 3b for positioning purposes only.';
957: If G_Debug_Mode = 'Y' Then
958: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
959: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
960: End If;
961:
962: Pa_Otc_Api.PopulateProjRec(
963: P_New_Old_BB => 'NEW',
967: P_timecard_Rec => l_New_Timecard_Rec);
968:
969: G_Stage := 'Call Populate Project Record old 3b for positioning purposes only.';
970: If G_Debug_Mode = 'Y' Then
971: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
972: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
973: End If;
974:
975: Pa_Otc_Api.PopulateProjRec(
968:
969: G_Stage := 'Call Populate Project Record old 3b for positioning purposes only.';
970: If G_Debug_Mode = 'Y' Then
971: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
972: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
973: End If;
974:
975: Pa_Otc_Api.PopulateProjRec(
976: P_New_Old_BB => 'OLD',
990: -- The item was deleted in OTL after it was imported into Projects.
991: -- Need to Reverse out the original transaction.
992:
993: G_Stage := 'Item Changed: Y, Deleted: Y.';
994: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
995: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
996:
997: l_insert_rec_flag := FALSE;
998: l_Old_Detail_Index := l_Old_Detail_Index + 1;
991: -- Need to Reverse out the original transaction.
992:
993: G_Stage := 'Item Changed: Y, Deleted: Y.';
994: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
995: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
996:
997: l_insert_rec_flag := FALSE;
998: l_Old_Detail_Index := l_Old_Detail_Index + 1;
999:
998: l_Old_Detail_Index := l_Old_Detail_Index + 1;
999:
1000: G_Stage := 'Create new orig trx ref 4.';
1001: If G_Debug_Mode = 'Y' Then
1002: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1003: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1004: End If;
1005:
1006: l_new_orig_trx_ref := to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
999:
1000: G_Stage := 'Create new orig trx ref 4.';
1001: If G_Debug_Mode = 'Y' Then
1002: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1003: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1004: End If;
1005:
1006: l_new_orig_trx_ref := to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
1007: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
1007: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
1008:
1009: G_Stage := 'Call Populate Project Record new 4.';
1010: If G_Debug_Mode = 'Y' Then
1011: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1012: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1013: End If;
1014:
1015: Pa_Otc_Api.PopulateProjRec(
1008:
1009: G_Stage := 'Call Populate Project Record new 4.';
1010: If G_Debug_Mode = 'Y' Then
1011: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1012: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1013: End If;
1014:
1015: Pa_Otc_Api.PopulateProjRec(
1016: P_New_Old_BB => 'NEW',
1020: P_timecard_Rec => l_New_Timecard_Rec);
1021:
1022: G_Stage := 'EI data status check 4.';
1023: If G_Debug_Mode = 'Y' Then
1024: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1025: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1026: End If;
1027:
1028: If l_New_Timecard_Rec.Status is Not Null Then
1021:
1022: G_Stage := 'EI data status check 4.';
1023: If G_Debug_Mode = 'Y' Then
1024: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1025: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1026: End If;
1027:
1028: If l_New_Timecard_Rec.Status is Not Null Then
1029:
1028: If l_New_Timecard_Rec.Status is Not Null Then
1029:
1030: G_Stage := 'Status is not null 4. Timecard status is ' || l_New_Timecard_Rec.Status;
1031: If G_Debug_Mode = 'Y' Then
1032: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1033: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1034: End If;
1035:
1036: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
1029:
1030: G_Stage := 'Status is not null 4. Timecard status is ' || l_New_Timecard_Rec.Status;
1031: If G_Debug_Mode = 'Y' Then
1032: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1033: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1034: End If;
1035:
1036: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
1037: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
1039: G_Stage := 'Since Status is not null 4 occured for new record, call the ' ||
1040: 'PopulateProjRec() procedure for the old record for positioning purposes ' ||
1041: 'so as to maintain sync with new pl/sql tables.';
1042: If G_Debug_Mode = 'Y' Then
1043: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1044: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1045: End If;
1046:
1047: Pa_Otc_Api.PopulateProjRec(
1040: 'PopulateProjRec() procedure for the old record for positioning purposes ' ||
1041: 'so as to maintain sync with new pl/sql tables.';
1042: If G_Debug_Mode = 'Y' Then
1043: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1044: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1045: End If;
1046:
1047: Pa_Otc_Api.PopulateProjRec(
1048: P_New_Old_BB => 'OLD',
1057: Else
1058:
1059: G_Stage := 'Call the GetBatchName procedure 4';
1060: If G_Debug_Mode = 'Y' Then
1061: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1062: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1063: End If;
1064:
1065: Pa_Otc_Api.GetBatchName(
1058:
1059: G_Stage := 'Call the GetBatchName procedure 4';
1060: If G_Debug_Mode = 'Y' Then
1061: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1062: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1063: End If;
1064:
1065: Pa_Otc_Api.GetBatchName(
1066: P_Exp_End_Date => l_New_Timecard_Rec.Expenditure_Ending_Date,
1067: X_Batch_Name => l_Batch_Name);
1068:
1069: G_Stage := 'Call Populate Project Record old 4 positioning purposes only.';
1070: If G_Debug_Mode = 'Y' Then
1071: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1072: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1073: End If;
1074:
1075: Pa_Otc_Api.PopulateProjRec(
1068:
1069: G_Stage := 'Call Populate Project Record old 4 positioning purposes only.';
1070: If G_Debug_Mode = 'Y' Then
1071: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1072: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1073: End If;
1074:
1075: Pa_Otc_Api.PopulateProjRec(
1076: P_New_Old_BB => 'OLD',
1084: G_Stage := 'Create old orig trx ref 4 using bb_id/ovn ' ||
1085: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
1086: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
1087: If G_Debug_Mode = 'Y' Then
1088: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1089: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1090: End If;
1091:
1092: -- Switched from function to procedure to determine if
1085: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
1086: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
1087: If G_Debug_Mode = 'Y' Then
1088: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1089: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1090: End If;
1091:
1092: -- Switched from function to procedure to determine if
1093: -- ei is available for adjustment in projects
1094:
1095: G_Stage := 'Calling procedure GetOrigTrxRef() Determine if ' ||
1096: 'availability of ei for adjustment 4';
1097: If G_Debug_Mode = 'Y' Then
1098: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1099: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1100: End If;
1101:
1102: Pa_Otc_Api.GetOrigTrxRef(
1095: G_Stage := 'Calling procedure GetOrigTrxRef() Determine if ' ||
1096: 'availability of ei for adjustment 4';
1097: If G_Debug_Mode = 'Y' Then
1098: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1099: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1100: End If;
1101:
1102: Pa_Otc_Api.GetOrigTrxRef(
1103: P_Building_Block_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
1107: If l_New_Timecard_Rec.Status is not null Then
1108:
1109: G_Stage := 'Updating hxc exception pl/sql tables 3.';
1110: If G_Debug_Mode = 'Y' Then
1111: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1112: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1113: End If;
1114:
1115: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
1108:
1109: G_Stage := 'Updating hxc exception pl/sql tables 3.';
1110: If G_Debug_Mode = 'Y' Then
1111: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1112: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1113: End If;
1114:
1115: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
1116: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
1124: -- End switch from function to procedure
1125:
1126: G_Stage := 'Call Build Reverse Item 4.';
1127: If G_Debug_Mode = 'Y' Then
1128: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1129: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1130: End If;
1131:
1132: l_error_code := NULL;
1125:
1126: G_Stage := 'Call Build Reverse Item 4.';
1127: If G_Debug_Mode = 'Y' Then
1128: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1129: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1130: End If;
1131:
1132: l_error_code := NULL;
1133:
1140: P_Xface_Id => P_Xface_id);
1141:
1142: G_Stage := 'Store the Bb_Id and index in pl/sql table for use in tieback process 4.';
1143: If G_Debug_Mode = 'Y' Then
1144: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1145: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1146: End If;
1147: G_Trx_Inserted_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
1148:
1141:
1142: G_Stage := 'Store the Bb_Id and index in pl/sql table for use in tieback process 4.';
1143: If G_Debug_Mode = 'Y' Then
1144: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1145: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1146: End If;
1147: G_Trx_Inserted_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
1148:
1149: End If; -- l_New_Timecard_Rec.Status
1153: If l_insert_rec_flag Then
1154:
1155: G_Stage := 'Get the next available Transaction Interface Id from sequence.';
1156: If G_Debug_Mode = 'Y' Then
1157: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1158: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1159: End If;
1160:
1161: select pa_txn_interface_s.nextval
1154:
1155: G_Stage := 'Get the next available Transaction Interface Id from sequence.';
1156: If G_Debug_Mode = 'Y' Then
1157: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1158: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1159: End If;
1160:
1161: select pa_txn_interface_s.nextval
1162: into l_txn_xface_id
1163: from dual;
1164:
1165: G_Stage := 'Store new/changed Trx Import Rec in pl/sql arrays for BB/Ovn: ' || l_New_Orig_Trx_Ref ||
1166: ' for Resource_Id(Person_Id): ' || to_char(l_New_Timecard_Rec.Incurred_By_Person_Id);
1167: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1168: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1169:
1170: G_Stage := 'Store Trx Import record in pl/sql arrays for bulk insert.';
1171: If G_Debug_Mode = 'Y' Then
1164:
1165: G_Stage := 'Store new/changed Trx Import Rec in pl/sql arrays for BB/Ovn: ' || l_New_Orig_Trx_Ref ||
1166: ' for Resource_Id(Person_Id): ' || to_char(l_New_Timecard_Rec.Incurred_By_Person_Id);
1167: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1168: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1169:
1170: G_Stage := 'Store Trx Import record in pl/sql arrays for bulk insert.';
1171: If G_Debug_Mode = 'Y' Then
1172: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1168: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1169:
1170: G_Stage := 'Store Trx Import record in pl/sql arrays for bulk insert.';
1171: If G_Debug_Mode = 'Y' Then
1172: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1173: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1174: End If;
1175: /* Bug 6698171 */ if (l_New_Timecard_Rec.Person_Type = 'EMP') then /* Added if..else for bug 7505424 */
1176: patc.check_termination (l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1169:
1170: G_Stage := 'Store Trx Import record in pl/sql arrays for bulk insert.';
1171: If G_Debug_Mode = 'Y' Then
1172: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1173: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1174: End If;
1175: /* Bug 6698171 */ if (l_New_Timecard_Rec.Person_Type = 'EMP') then /* Added if..else for bug 7505424 */
1176: patc.check_termination (l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1177: else
1289: G_OU_Tbl(G_Trx_Import_Index) := G_Current_Org_Id;
1290:
1291: G_Stage := 'Pl/sql record counter increment.';
1292: If G_Debug_Mode = 'Y' Then
1293: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1294: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1295: End If;
1296: G_Txn_Rec_Count := nvl(G_Txn_Rec_Count,0) + 1;
1297:
1290:
1291: G_Stage := 'Pl/sql record counter increment.';
1292: If G_Debug_Mode = 'Y' Then
1293: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1294: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1295: End If;
1296: G_Txn_Rec_Count := nvl(G_Txn_Rec_Count,0) + 1;
1297:
1298: G_Stage := 'Store the Bb_Id and index in pl/sql table for use in tieback process.';
1296: G_Txn_Rec_Count := nvl(G_Txn_Rec_Count,0) + 1;
1297:
1298: G_Stage := 'Store the Bb_Id and index in pl/sql table for use in tieback process.';
1299: If G_Debug_Mode = 'Y' Then
1300: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1301: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1302: End If;
1303: G_Trx_Inserted_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
1304:
1297:
1298: G_Stage := 'Store the Bb_Id and index in pl/sql table for use in tieback process.';
1299: If G_Debug_Mode = 'Y' Then
1300: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1301: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1302: End If;
1303: G_Trx_Inserted_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
1304:
1305: End If;
1305: End If;
1306:
1307: G_Stage := 'Check if need to call bulk insert.';
1308: If G_Debug_Mode = 'Y' Then
1309: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1310: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1311: End If;
1312: If G_Txn_Rec_Count >= L_MAX_RECS_FOR_BULKINSERT Then
1313:
1306:
1307: G_Stage := 'Check if need to call bulk insert.';
1308: If G_Debug_Mode = 'Y' Then
1309: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1310: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1311: End If;
1312: If G_Txn_Rec_Count >= L_MAX_RECS_FOR_BULKINSERT Then
1313:
1314: G_Stage := 'Call BulkInsertReset() procedure for insert.';
1312: If G_Txn_Rec_Count >= L_MAX_RECS_FOR_BULKINSERT Then
1313:
1314: G_Stage := 'Call BulkInsertReset() procedure for insert.';
1315: If G_Debug_Mode = 'Y' Then
1316: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1317: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1318: End If;
1319: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1320:
1313:
1314: G_Stage := 'Call BulkInsertReset() procedure for insert.';
1315: If G_Debug_Mode = 'Y' Then
1316: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1317: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1318: End If;
1319: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1320:
1321: G_Stage := 'Store total records inserted. Reset counter to 0.';
1319: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1320:
1321: G_Stage := 'Store total records inserted. Reset counter to 0.';
1322: If G_Debug_Mode = 'Y' Then
1323: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1324: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1325: End If;
1326: Pa_Trx_Import.G_Batch_Size := Nvl(Pa_Trx_Import.G_Batch_Size,0) + G_Txn_Rec_Count;
1327: G_Txn_Rec_Count := 0;
1320:
1321: G_Stage := 'Store total records inserted. Reset counter to 0.';
1322: If G_Debug_Mode = 'Y' Then
1323: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1324: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1325: End If;
1326: Pa_Trx_Import.G_Batch_Size := Nvl(Pa_Trx_Import.G_Batch_Size,0) + G_Txn_Rec_Count;
1327: G_Txn_Rec_Count := 0;
1328:
1337: G_Unhandled_Except_Cnt := G_Unhandled_Except_Cnt + 1;
1338:
1339: G_Stage := 'Unhandled exception count is now ' || to_char(G_Unhandled_Except_Cnt);
1340: If G_Debug_Mode = 'Y' Then
1341: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1342: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1343: End If;
1344:
1345: If G_Unhandled_Except_Cnt > G_EXCEPT_CNT_ALLOWED Then
1338:
1339: G_Stage := 'Unhandled exception count is now ' || to_char(G_Unhandled_Except_Cnt);
1340: If G_Debug_Mode = 'Y' Then
1341: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1342: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1343: End If;
1344:
1345: If G_Unhandled_Except_Cnt > G_EXCEPT_CNT_ALLOWED Then
1346:
1346:
1347: G_Stage := 'Unhandled exceptions count exceeds maximum allowed of ' ||
1348: to_char(G_EXCEPT_CNT_ALLOWED) || '. Raising user defined exception!';
1349: If G_Debug_Mode = 'Y' Then
1350: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1351: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1352: End If;
1353:
1354: Raise HXC_RETRIEVAL_MAX_ERRORS;
1347: G_Stage := 'Unhandled exceptions count exceeds maximum allowed of ' ||
1348: to_char(G_EXCEPT_CNT_ALLOWED) || '. Raising user defined exception!';
1349: If G_Debug_Mode = 'Y' Then
1350: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1351: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1352: End If;
1353:
1354: Raise HXC_RETRIEVAL_MAX_ERRORS;
1355:
1361: End;
1362:
1363: G_Stage := 'Resetting the pl/sql new and old timecard record variables.';
1364: If G_Debug_Mode = 'Y' Then
1365: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1366: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1367: End If;
1368: l_New_Timecard_Rec := l_Temp_Timecard_Rec;
1369: l_Old_Timecard_Rec := l_Temp_Timecard_Rec;
1362:
1363: G_Stage := 'Resetting the pl/sql new and old timecard record variables.';
1364: If G_Debug_Mode = 'Y' Then
1365: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1366: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1367: End If;
1368: l_New_Timecard_Rec := l_Temp_Timecard_Rec;
1369: l_Old_Timecard_Rec := l_Temp_Timecard_Rec;
1370:
1371: End Loop;
1372:
1373: G_Stage := 'Exited the loop. Check if need to call bulk insert for any remaining pl/sql records.';
1374: If G_Debug_Mode = 'Y' Then
1375: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1376: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1377: End If;
1378:
1379: If G_Txn_Rec_Count > 0 Then
1372:
1373: G_Stage := 'Exited the loop. Check if need to call bulk insert for any remaining pl/sql records.';
1374: If G_Debug_Mode = 'Y' Then
1375: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1376: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1377: End If;
1378:
1379: If G_Txn_Rec_Count > 0 Then
1380:
1379: If G_Txn_Rec_Count > 0 Then
1380:
1381: G_Stage := 'Call bulk insert for the remaining pl/sql records.';
1382: If G_Debug_Mode = 'Y' Then
1383: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1384: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1385: End If;
1386: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1387:
1380:
1381: G_Stage := 'Call bulk insert for the remaining pl/sql records.';
1382: If G_Debug_Mode = 'Y' Then
1383: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1384: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1385: End If;
1386: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1387:
1388: G_Stage := 'Set the final records count for the next import phase. Reset counter.';
1386: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1387:
1388: G_Stage := 'Set the final records count for the next import phase. Reset counter.';
1389: If G_Debug_Mode = 'Y' Then
1390: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1391: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1392: End If;
1393: Pa_Trx_Import.G_Batch_Size := Nvl(Pa_Trx_Import.G_Batch_Size,0) + G_Txn_Rec_Count;
1394:
1387:
1388: G_Stage := 'Set the final records count for the next import phase. Reset counter.';
1389: If G_Debug_Mode = 'Y' Then
1390: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1391: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1392: End If;
1393: Pa_Trx_Import.G_Batch_Size := Nvl(Pa_Trx_Import.G_Batch_Size,0) + G_Txn_Rec_Count;
1394:
1395: G_Txn_Rec_Count := 0;
1399: G_Stage := 'This chunk has ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.COUNT) ||
1400: ' records, of which ' || to_char(Pa_Trx_Import.G_Batch_Size) || ' are to be processed' ||
1401: ' in the next phase of Trx Import.';
1402: If G_Debug_Mode = 'Y' Then
1403: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1404: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1405: End If;
1406:
1407: Else
1400: ' records, of which ' || to_char(Pa_Trx_Import.G_Batch_Size) || ' are to be processed' ||
1401: ' in the next phase of Trx Import.';
1402: If G_Debug_Mode = 'Y' Then
1403: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1404: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1405: End If;
1406:
1407: Else
1408:
1407: Else
1408:
1409: G_Stage := 'Last chunk from OTL. Flag process we are done. No further records to process.';
1410: If G_Debug_Mode = 'Y' Then
1411: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1412: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1413: End If;
1414:
1415: Pa_Trx_Import.G_Exit_Main := NULL;
1408:
1409: G_Stage := 'Last chunk from OTL. Flag process we are done. No further records to process.';
1410: If G_Debug_Mode = 'Y' Then
1411: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1412: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1413: End If;
1414:
1415: Pa_Trx_Import.G_Exit_Main := NULL;
1416: Pa_Trx_Import.G_Batch_Size := 0;
1416: Pa_Trx_Import.G_Batch_Size := 0;
1417:
1418: G_Stage := 'Call Hxc_Generic_Retrieval_Pkg.Update_Transaction_Status() one last time.';
1419: If G_Debug_Mode = 'Y' Then
1420: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1421: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1422: End If;
1423: Hxc_Integration_Layer_V1_Grp.Set_Parent_Statuses;
1424: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status
1417:
1418: G_Stage := 'Call Hxc_Generic_Retrieval_Pkg.Update_Transaction_Status() one last time.';
1419: If G_Debug_Mode = 'Y' Then
1420: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1421: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1422: End If;
1423: Hxc_Integration_Layer_V1_Grp.Set_Parent_Statuses;
1424: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status
1425: (P_Process => 'Projects Retrieval Process',
1429: End If; -- Are there records in the otl pl/sql tables to process
1430:
1431: G_Stage := 'Leaving Upload_Otc_Timecards(), strip procedure from trackpath.';
1432: If G_Debug_Mode = 'Y' Then
1433: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1434: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1435: End If;
1436: Pa_Otc_Api.TrackPath('STRIP','Upload_Otc_Timecards');
1437:
1430:
1431: G_Stage := 'Leaving Upload_Otc_Timecards(), strip procedure from trackpath.';
1432: If G_Debug_Mode = 'Y' Then
1433: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1434: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1435: End If;
1436: Pa_Otc_Api.TrackPath('STRIP','Upload_Otc_Timecards');
1437:
1438: Exception
1485:
1486: fnd_message.set_name('HXC','HXC_0013_GNRET_NO_BLD_BLKS');
1487:
1488: End If;
1489: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || fnd_message.get;
1490: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1491:
1492: -- End bug 3422899
1493:
1486: fnd_message.set_name('HXC','HXC_0013_GNRET_NO_BLD_BLKS');
1487:
1488: End If;
1489: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || fnd_message.get;
1490: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1491:
1492: -- End bug 3422899
1493:
1494: Else
1492: -- End bug 3422899
1493:
1494: Else
1495:
1496: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM;
1497: Hxc_Integration_Layer_V1_Grp.Set_Parent_Statuses;
1498: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status
1499: (P_Process => 'Projects Retrieval Process',
1500: P_Status => 'ERRORS',
1585: Begin
1586:
1587: G_Stage := 'Enter Build_Reverse_Item().';
1588: If G_Debug_Mode = 'Y' Then
1589: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1590: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1591: End If;
1592:
1593: G_Stage := 'Add procedure to track path';
1586:
1587: G_Stage := 'Enter Build_Reverse_Item().';
1588: If G_Debug_Mode = 'Y' Then
1589: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1590: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1591: End If;
1592:
1593: G_Stage := 'Add procedure to track path';
1594: If G_Debug_Mode = 'Y' Then
1591: End If;
1592:
1593: G_Stage := 'Add procedure to track path';
1594: If G_Debug_Mode = 'Y' Then
1595: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1596: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1597: End If;
1598: Pa_Otc_Api.TrackPath('ADD','Build_Reverse_Item');
1599:
1592:
1593: G_Stage := 'Add procedure to track path';
1594: If G_Debug_Mode = 'Y' Then
1595: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1596: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1597: End If;
1598: Pa_Otc_Api.TrackPath('ADD','Build_Reverse_Item');
1599:
1600: G_Stage := 'Get needed data to build reversing item phase 1.';
1598: Pa_Otc_Api.TrackPath('ADD','Build_Reverse_Item');
1599:
1600: G_Stage := 'Get needed data to build reversing item phase 1.';
1601: If G_Debug_Mode = 'Y' Then
1602: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1603: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1604: End If;
1605:
1606: Select
1599:
1600: G_Stage := 'Get needed data to build reversing item phase 1.';
1601: If G_Debug_Mode = 'Y' Then
1602: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1603: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1604: End If;
1605:
1606: Select
1607: EI.Task_Id,
1688: And EI.Adjusted_Expenditure_Item_Id is Null;
1689:
1690: G_Stage := 'Get Transaction Interface Id from sequence for reversing item.';
1691: If G_Debug_Mode = 'Y' Then
1692: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1693: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1694: End If;
1695:
1696: Select Pa_Txn_Interface_S.NextVal
1689:
1690: G_Stage := 'Get Transaction Interface Id from sequence for reversing item.';
1691: If G_Debug_Mode = 'Y' Then
1692: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1693: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1694: End If;
1695:
1696: Select Pa_Txn_Interface_S.NextVal
1697: Into l_Txn_Xface_Id
1700: If l_Person_Type = 'CWK' And l_PO_Line_Id Is Not Null Then
1701:
1702: G_Stage := 'Get Supplier Info by calling GetPOInfo() 2.';
1703: If G_Debug_Mode = 'Y' Then
1704: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1705: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1706: End If;
1707:
1708: Pa_Otc_Api.GetPOInfo(
1701:
1702: G_Stage := 'Get Supplier Info by calling GetPOInfo() 2.';
1703: If G_Debug_Mode = 'Y' Then
1704: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1705: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1706: End If;
1707:
1708: Pa_Otc_Api.GetPOInfo(
1709: P_Po_Line_Id => l_PO_Line_Id,
1713: End If;
1714:
1715: G_Stage := 'Inserting reversing item into interface table BB/Ovn: ' || P_New_Orig_Trx_Ref ||
1716: ' for Resource_Id(Person_Id): ' || to_char(l_Inc_By_Person_Id);
1717: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1718: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1719:
1720: G_Stage := 'Store record for reversing item into arrays for bulk insert later.';
1721: If G_Debug_Mode = 'Y' Then
1714:
1715: G_Stage := 'Inserting reversing item into interface table BB/Ovn: ' || P_New_Orig_Trx_Ref ||
1716: ' for Resource_Id(Person_Id): ' || to_char(l_Inc_By_Person_Id);
1717: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1718: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1719:
1720: G_Stage := 'Store record for reversing item into arrays for bulk insert later.';
1721: If G_Debug_Mode = 'Y' Then
1722: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1718: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1719:
1720: G_Stage := 'Store record for reversing item into arrays for bulk insert later.';
1721: If G_Debug_Mode = 'Y' Then
1722: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1723: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1724: End If;
1725:
1726: G_Trx_Import_Index := G_Trx_Import_Index + 1;
1719:
1720: G_Stage := 'Store record for reversing item into arrays for bulk insert later.';
1721: If G_Debug_Mode = 'Y' Then
1722: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1723: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1724: End If;
1725:
1726: G_Trx_Import_Index := G_Trx_Import_Index + 1;
1727:
1834: G_Txn_Rec_Count := Nvl(G_Txn_Rec_Count,0) + 1;
1835:
1836: G_Stage := 'About to leave Build_Reverse_Item(), strip procedure from trackpath.';
1837: If G_Debug_Mode = 'Y' Then
1838: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1839: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1840: End If;
1841: Pa_Otc_Api.TrackPath('STRIP','Build_Reverse_Item');
1842:
1835:
1836: G_Stage := 'About to leave Build_Reverse_Item(), strip procedure from trackpath.';
1837: If G_Debug_Mode = 'Y' Then
1838: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1839: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1840: End If;
1841: Pa_Otc_Api.TrackPath('STRIP','Build_Reverse_Item');
1842:
1843: G_Stage := 'Leaving Build_Reverse_Item().';
1841: Pa_Otc_Api.TrackPath('STRIP','Build_Reverse_Item');
1842:
1843: G_Stage := 'Leaving Build_Reverse_Item().';
1844: If G_Debug_Mode = 'Y' Then
1845: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1846: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1847: End If;
1848:
1849: Exception
1842:
1843: G_Stage := 'Leaving Build_Reverse_Item().';
1844: If G_Debug_Mode = 'Y' Then
1845: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1846: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1847: End If;
1848:
1849: Exception
1850: When others then
1912: Begin
1913:
1914: G_Stage := 'Entering UpdateChangedOrigTxn(), add procedure to trackpath.';
1915: If G_Debug_Mode = 'Y' Then
1916: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1917: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1918: End If;
1919: Pa_Otc_Api.TrackPath('ADD','UpdateChangedOrigTxn');
1920:
1913:
1914: G_Stage := 'Entering UpdateChangedOrigTxn(), add procedure to trackpath.';
1915: If G_Debug_Mode = 'Y' Then
1916: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1917: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1918: End If;
1919: Pa_Otc_Api.TrackPath('ADD','UpdateChangedOrigTxn');
1920:
1921: G_Stage := 'Get Expenditure Item Id.';
1919: Pa_Otc_Api.TrackPath('ADD','UpdateChangedOrigTxn');
1920:
1921: G_Stage := 'Get Expenditure Item Id.';
1922: If G_Debug_Mode = 'Y' Then
1923: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1924: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1925: End If;
1926:
1927: Select
1920:
1921: G_Stage := 'Get Expenditure Item Id.';
1922: If G_Debug_Mode = 'Y' Then
1923: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1924: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1925: End If;
1926:
1927: Select
1928: RowId,
1947: * when P_Comment_Or_Dff has a value of B.
1948: */
1949: G_Stage := 'What updating needs to be done.';
1950: If G_Debug_Mode = 'Y' Then
1951: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1952: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1953: End If;
1954:
1955: If P_Comment_Or_Dff = 'C' Then
1948: */
1949: G_Stage := 'What updating needs to be done.';
1950: If G_Debug_Mode = 'Y' Then
1951: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1952: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1953: End If;
1954:
1955: If P_Comment_Or_Dff = 'C' Then
1956:
1955: If P_Comment_Or_Dff = 'C' Then
1956:
1957: G_Stage := 'P_Comment_Or_Dff Is C: Update ei table.';
1958: If G_Debug_Mode = 'Y' Then
1959: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1960: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1961: End If;
1962:
1963: Update Pa_Expenditure_Items_All
1956:
1957: G_Stage := 'P_Comment_Or_Dff Is C: Update ei table.';
1958: If G_Debug_Mode = 'Y' Then
1959: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1960: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1961: End If;
1962:
1963: Update Pa_Expenditure_Items_All
1964: Set Orig_Transaction_Reference = P_New_Orig_Txn_Ref,
1978: If l_Comment_Count = 0 Then
1979:
1980: G_Stage := 'P_Comment_Or_Dff Is C: Insert record into exp comment table.';
1981: If G_Debug_Mode = 'Y' Then
1982: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1983: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1984: End If;
1985:
1986: Insert into Pa_Expenditure_Comments
1979:
1980: G_Stage := 'P_Comment_Or_Dff Is C: Insert record into exp comment table.';
1981: If G_Debug_Mode = 'Y' Then
1982: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1983: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1984: End If;
1985:
1986: Insert into Pa_Expenditure_Comments
1987: ( Expenditure_Item_Id,
2013: ElsIf l_Comment_Count > 0 And P_Timecard_Rec.Expenditure_Item_Comment Is Not Null Then -- Bug 3496762
2014:
2015: G_Stage := 'P_Comment_Or_Dff Is C: Update exp comment table.';
2016: If G_Debug_Mode = 'Y' Then
2017: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2018: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2019: End If;
2020:
2021: Update Pa_Expenditure_Comments
2014:
2015: G_Stage := 'P_Comment_Or_Dff Is C: Update exp comment table.';
2016: If G_Debug_Mode = 'Y' Then
2017: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2018: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2019: End If;
2020:
2021: Update Pa_Expenditure_Comments
2022: Set Expenditure_Comment = P_Timecard_Rec.Expenditure_Item_Comment,
2033: ElsIf l_Comment_Count > 0 And P_Timecard_Rec.Expenditure_Item_Comment Is Null Then
2034:
2035: G_Stage := 'P_Comment_Or_Dff Is B: Remove exp comment from table since comment has been updated to null by the user.';
2036: If G_Debug_Mode = 'Y' Then
2037: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2038: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2039: End If;
2040:
2041: Delete From Pa_Expenditure_Comments
2034:
2035: G_Stage := 'P_Comment_Or_Dff Is B: Remove exp comment from table since comment has been updated to null by the user.';
2036: If G_Debug_Mode = 'Y' Then
2037: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2038: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2039: End If;
2040:
2041: Delete From Pa_Expenditure_Comments
2042: Where Expenditure_Item_Id = l_Exp_Item_Id ;
2047: ElsIf P_Comment_Or_Dff = 'D' Then
2048:
2049: G_Stage := 'P_Comment_Or_Dff Is D: Update ei table.';
2050: If G_Debug_Mode = 'Y' Then
2051: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2052: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2053: End If;
2054:
2055: Update Pa_Expenditure_Items_All
2048:
2049: G_Stage := 'P_Comment_Or_Dff Is D: Update ei table.';
2050: If G_Debug_Mode = 'Y' Then
2051: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2052: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2053: End If;
2054:
2055: Update Pa_Expenditure_Items_All
2056: Set Orig_Transaction_Reference = P_New_Orig_Txn_Ref,
2083: If l_Comment_Count = 0 Then
2084:
2085: G_Stage := 'P_Comment_Or_Dff Is B: Insert record into exp comment table.';
2086: If G_Debug_Mode = 'Y' Then
2087: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2088: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2089: End If;
2090:
2091: Insert into Pa_Expenditure_Comments
2084:
2085: G_Stage := 'P_Comment_Or_Dff Is B: Insert record into exp comment table.';
2086: If G_Debug_Mode = 'Y' Then
2087: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2088: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2089: End If;
2090:
2091: Insert into Pa_Expenditure_Comments
2092: ( Expenditure_Item_Id,
2118: ElsIf l_Comment_Count > 0 and P_Timecard_Rec.Expenditure_Item_Comment Is Not Null Then -- Bug 3496762
2119:
2120: G_Stage := 'P_Comment_Or_Dff Is B: Update exp comment table.';
2121: If G_Debug_Mode = 'Y' Then
2122: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2123: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2124: End If;
2125:
2126: Update Pa_Expenditure_Comments
2119:
2120: G_Stage := 'P_Comment_Or_Dff Is B: Update exp comment table.';
2121: If G_Debug_Mode = 'Y' Then
2122: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2123: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2124: End If;
2125:
2126: Update Pa_Expenditure_Comments
2127: Set Expenditure_Comment = P_Timecard_Rec.Expenditure_Item_Comment,
2138: ElsIf l_Comment_Count > 0 and P_Timecard_Rec.Expenditure_Item_Comment Is Null Then
2139:
2140: G_Stage := 'P_Comment_Or_Dff Is B: Remove exp comment from table since comment has been updated to null by the user.';
2141: If G_Debug_Mode = 'Y' Then
2142: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2143: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2144: End If;
2145:
2146: Delete From Pa_Expenditure_Comments
2139:
2140: G_Stage := 'P_Comment_Or_Dff Is B: Remove exp comment from table since comment has been updated to null by the user.';
2141: If G_Debug_Mode = 'Y' Then
2142: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2143: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2144: End If;
2145:
2146: Delete From Pa_Expenditure_Comments
2147: Where Expenditure_Item_Id = l_Exp_Item_Id ;
2150: End If;
2151:
2152: G_Stage := 'P_Comment_Or_Dff Is B: Update ei table.';
2153: If G_Debug_Mode = 'Y' Then
2154: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2155: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2156: End If;
2157:
2158: Update Pa_Expenditure_Items_All
2151:
2152: G_Stage := 'P_Comment_Or_Dff Is B: Update ei table.';
2153: If G_Debug_Mode = 'Y' Then
2154: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2155: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2156: End If;
2157:
2158: Update Pa_Expenditure_Items_All
2159: Set Orig_Transaction_Reference = P_New_Orig_Txn_Ref,
2181:
2182: G_Stage := 'Leaving UpdateChangedOrigTxn(), strip procedure from trackpath.';
2183: Pa_Otc_Api.TrackPath('STRIP','UpdateChangedOrigTxn');
2184: If G_Debug_Mode = 'Y' Then
2185: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2186: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2187: End If;
2188:
2189: Exception
2182: G_Stage := 'Leaving UpdateChangedOrigTxn(), strip procedure from trackpath.';
2183: Pa_Otc_Api.TrackPath('STRIP','UpdateChangedOrigTxn');
2184: If G_Debug_Mode = 'Y' Then
2185: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2186: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2187: End If;
2188:
2189: Exception
2190: When Others Then
2253: G_Path := ' ';
2254:
2255: G_Stage := 'Entering Tieback_Otc_Timecards().';
2256: If G_Debug_Mode = 'Y' Then
2257: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2258: Pa_CC_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
2259: End If;
2260: Pa_Otc_Api.TrackPath('ADD','Tieback_Otc_Timecards');
2261:
2254:
2255: G_Stage := 'Entering Tieback_Otc_Timecards().';
2256: If G_Debug_Mode = 'Y' Then
2257: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2258: Pa_CC_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
2259: End If;
2260: Pa_Otc_Api.TrackPath('ADD','Tieback_Otc_Timecards');
2261:
2262: G_Stage := 'Open cursor TrxRecords.';
2260: Pa_Otc_Api.TrackPath('ADD','Tieback_Otc_Timecards');
2261:
2262: G_Stage := 'Open cursor TrxRecords.';
2263: If G_Debug_Mode = 'Y' Then
2264: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2265: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2266: End If;
2267:
2268: Open TrxRecords(P_Interface_Id => P_Xface_Id);
2261:
2262: G_Stage := 'Open cursor TrxRecords.';
2263: If G_Debug_Mode = 'Y' Then
2264: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2265: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2266: End If;
2267:
2268: Open TrxRecords(P_Interface_Id => P_Xface_Id);
2269:
2271: Loop
2272:
2273: G_Stage := 'Fetch record from cursor TrxRecs.';
2274: If G_Debug_Mode = 'Y' Then
2275: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2276: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2277: End If;
2278:
2279: Fetch TrxRecords Into TrxRecord;
2272:
2273: G_Stage := 'Fetch record from cursor TrxRecs.';
2274: If G_Debug_Mode = 'Y' Then
2275: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2276: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2277: End If;
2278:
2279: Fetch TrxRecords Into TrxRecord;
2280: Exit When TrxRecords%Notfound;
2283:
2284: G_Stage := 'Update Detail Status to SUCCESS for BB_Id: ' || to_char(TrxRecord.Detail_BB_Id) ||
2285: ' Index position is: ' || to_char((G_Trx_Inserted_Tab(TrxRecord.Detail_BB_Id).BB_Index));
2286: If G_Debug_Mode = 'Y' Then
2287: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2288: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2289: End If;
2290: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(G_Trx_Inserted_Tab(TrxRecord.Detail_BB_Id).BB_Index) :=
2291: 'SUCCESS';
2284: G_Stage := 'Update Detail Status to SUCCESS for BB_Id: ' || to_char(TrxRecord.Detail_BB_Id) ||
2285: ' Index position is: ' || to_char((G_Trx_Inserted_Tab(TrxRecord.Detail_BB_Id).BB_Index));
2286: If G_Debug_Mode = 'Y' Then
2287: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2288: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2289: End If;
2290: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(G_Trx_Inserted_Tab(TrxRecord.Detail_BB_Id).BB_Index) :=
2291: 'SUCCESS';
2292:
2294:
2295: G_Stage := 'Update Detail Status to ERRORS for BB_Id: ' || to_char(TrxRecord.Detail_BB_Id) ||
2296: ' Index position is: ' || to_char((G_Trx_Inserted_Tab(TrxRecord.Detail_BB_Id).BB_Index));
2297: If G_Debug_Mode = 'Y' Then
2298: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2299: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2300: End If;
2301:
2302: /* Since we now have the looping functionality in Trx Import and we can't restrict the cursor
2295: G_Stage := 'Update Detail Status to ERRORS for BB_Id: ' || to_char(TrxRecord.Detail_BB_Id) ||
2296: ' Index position is: ' || to_char((G_Trx_Inserted_Tab(TrxRecord.Detail_BB_Id).BB_Index));
2297: If G_Debug_Mode = 'Y' Then
2298: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2299: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2300: End If;
2301:
2302: /* Since we now have the looping functionality in Trx Import and we can't restrict the cursor
2303: * more than it currently is. We have to make sure that we don't try to update rejected
2329: ' Exception: ' || TrxRecord.Transaction_Rejection_Code ||
2330: ' Resource_Id(Person_Id): ' || TrxRecord.Person_Id ||
2331: ' Exp_Id(Null when Errors): ' || to_char(TrxRecord.Expenditure_Id) ||
2332: ' Ei_Id(Null when Errors): ' || to_char(TrxRecord.Expenditure_Item_Id);
2333: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
2334: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
2335:
2336: End Loop;
2337:
2330: ' Resource_Id(Person_Id): ' || TrxRecord.Person_Id ||
2331: ' Exp_Id(Null when Errors): ' || to_char(TrxRecord.Expenditure_Id) ||
2332: ' Ei_Id(Null when Errors): ' || to_char(TrxRecord.Expenditure_Item_Id);
2333: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
2334: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
2335:
2336: End Loop;
2337:
2338: G_Stage := 'Loop is done so lose cursor TrxRecs.';
2336: End Loop;
2337:
2338: G_Stage := 'Loop is done so lose cursor TrxRecs.';
2339: If G_Debug_Mode = 'Y' Then
2340: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2341: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2342: End If;
2343:
2344: Close TrxRecords;
2337:
2338: G_Stage := 'Loop is done so lose cursor TrxRecs.';
2339: If G_Debug_Mode = 'Y' Then
2340: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2341: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2342: End If;
2343:
2344: Close TrxRecords;
2345:
2344: Close TrxRecords;
2345:
2346: G_Stage := 'Update the Transaction_Status_Code for successful transactions in interface table.';
2347: If G_Debug_Mode = 'Y' Then
2348: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2349: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2350: End If;
2351:
2352: Update Pa_Transaction_Interface
2345:
2346: G_Stage := 'Update the Transaction_Status_Code for successful transactions in interface table.';
2347: If G_Debug_Mode = 'Y' Then
2348: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2349: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2350: End If;
2351:
2352: Update Pa_Transaction_Interface
2353: Set
2357: And Transaction_Status_Code = 'I';
2358:
2359: G_Stage := 'Loop thru and flag as success those building blocks where we directly updated the eis.';
2360: If G_Debug_Mode = 'Y' Then
2361: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2362: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2363: End If;
2364:
2365: If G_Trx_Direct_Upd_Tab.COUNT > 0 Then
2358:
2359: G_Stage := 'Loop thru and flag as success those building blocks where we directly updated the eis.';
2360: If G_Debug_Mode = 'Y' Then
2361: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2362: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2363: End If;
2364:
2365: If G_Trx_Direct_Upd_Tab.COUNT > 0 Then
2366:
2383:
2384: G_Stage := 'Update Detail Status to SUCCESS for direct updated ei BB_Id: ' || to_char(j) ||
2385: ' Index position is: ' || to_char((G_Trx_Direct_Upd_Tab(j).BB_Index));
2386: If G_Debug_Mode = 'Y' Then
2387: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2388: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2389: End If;
2390:
2391: Hxc_Generic_Retrieval_Pkg.T_Tx_Detail_Status(G_Trx_Direct_Upd_Tab(j).BB_Index) := 'SUCCESS';
2384: G_Stage := 'Update Detail Status to SUCCESS for direct updated ei BB_Id: ' || to_char(j) ||
2385: ' Index position is: ' || to_char((G_Trx_Direct_Upd_Tab(j).BB_Index));
2386: If G_Debug_Mode = 'Y' Then
2387: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2388: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2389: End If;
2390:
2391: Hxc_Generic_Retrieval_Pkg.T_Tx_Detail_Status(G_Trx_Direct_Upd_Tab(j).BB_Index) := 'SUCCESS';
2392: EXIT when j = G_Trx_Direct_Upd_Tab.Last;
2396: End If;
2397:
2398: G_Stage := 'Call OTL API to update transactions';
2399: If G_Debug_Mode = 'Y' Then
2400: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2401: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2402: End If;
2403:
2404: Hxc_Integration_Layer_V1_Grp.Set_Parent_Statuses;
2397:
2398: G_Stage := 'Call OTL API to update transactions';
2399: If G_Debug_Mode = 'Y' Then
2400: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2401: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2402: End If;
2403:
2404: Hxc_Integration_Layer_V1_Grp.Set_Parent_Statuses;
2405: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status (
2408: P_Exception_Description => NULL);
2409:
2410: G_Stage := 'Set the process import looping flag to true since completed at least loop thru.';
2411: If G_Debug_Mode = 'Y' Then
2412: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2413: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2414: End If;
2415: -- G_Processed_Import_Batch effects exception handling in the Upload_Otc_Timecard() procedure.
2416: -- When G_Processed_Import_Batch is TRUE then the exception handler in Upload_Otc_Timecard()
2409:
2410: G_Stage := 'Set the process import looping flag to true since completed at least loop thru.';
2411: If G_Debug_Mode = 'Y' Then
2412: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2413: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2414: End If;
2415: -- G_Processed_Import_Batch effects exception handling in the Upload_Otc_Timecard() procedure.
2416: -- When G_Processed_Import_Batch is TRUE then the exception handler in Upload_Otc_Timecard()
2417: -- will ignore 2 HXC exceptions that are thrown when there are no records found by the
2419: G_Processed_Import_Batch := TRUE;
2420:
2421: G_Stage := 'Leaving Tieback_Otc_Timecards(), strip procedure from trackpath.';
2422: If G_Debug_Mode = 'Y' Then
2423: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2424: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
2425: End If;
2426: Pa_Otc_Api.TrackPath('STRIP','Tieback_Otc_Timecards');
2427:
2420:
2421: G_Stage := 'Leaving Tieback_Otc_Timecards(), strip procedure from trackpath.';
2422: If G_Debug_Mode = 'Y' Then
2423: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2424: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
2425: End If;
2426: Pa_Otc_Api.TrackPath('STRIP','Tieback_Otc_Timecards');
2427:
2428: Exception
2426: Pa_Otc_Api.TrackPath('STRIP','Tieback_Otc_Timecards');
2427:
2428: Exception
2429: When Others Then
2430: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM;
2431: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status (
2432: P_Process => 'Projects Retrieval Process',
2433: P_Status => 'ERRORS',
2434: P_Exception_Description => Pa_Debug.G_err_Stage);
2430: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM;
2431: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status (
2432: P_Process => 'Projects Retrieval Process',
2433: P_Status => 'ERRORS',
2434: P_Exception_Description => Pa_Debug.G_err_Stage);
2435: RAISE;
2436:
2437: End Tieback_Otc_Timecards;
2438:
2474: Begin
2475:
2476: G_Stage := 'Entering DetermineDirectUpdate(), add procedure to trackpath.';
2477: If G_Debug_Mode = 'Y' Then
2478: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2479: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2480: End If;
2481: Pa_Otc_Api.TrackPath('ADD','DetermineDirectUpdate');
2482:
2475:
2476: G_Stage := 'Entering DetermineDirectUpdate(), add procedure to trackpath.';
2477: If G_Debug_Mode = 'Y' Then
2478: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2479: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2480: End If;
2481: Pa_Otc_Api.TrackPath('ADD','DetermineDirectUpdate');
2482:
2483: If P_New_Timecard_Rec.Project_Id <> P_Old_Timecard_Rec.Project_Id OR -- bug 3241052
2491: Nvl(P_New_Timecard_Rec.PO_Price_Type,'-99999') <> Nvl(P_Old_Timecard_Rec.PO_Price_Type,'-99999') Then
2492:
2493: G_Stage := 'Detail has changed.';
2494: If G_Debug_Mode = 'Y' Then
2495: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2496: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2497: End If;
2498:
2499: l_Others_Changed := True;
2492:
2493: G_Stage := 'Detail has changed.';
2494: If G_Debug_Mode = 'Y' Then
2495: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2496: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2497: End If;
2498:
2499: l_Others_Changed := True;
2500:
2504: nvl(P_Old_Timecard_Rec.Expenditure_Item_Comment,'-9999999999') Then
2505:
2506: G_Stage := 'Comment has changed.';
2507: If G_Debug_Mode = 'Y' Then
2508: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2509: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2510: End If;
2511:
2512: l_Comment_Changed := True;
2505:
2506: G_Stage := 'Comment has changed.';
2507: If G_Debug_Mode = 'Y' Then
2508: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2509: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2510: End If;
2511:
2512: l_Comment_Changed := True;
2513:
2527: nvl(P_New_Timecard_Rec.Attribute10,'-9999999999') <> nvl(P_Old_Timecard_Rec.Attribute10,'-9999999999') Then
2528:
2529: G_Stage := 'DFFs have changed.';
2530: If G_Debug_Mode = 'Y' Then
2531: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2532: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2533: End If;
2534:
2535: l_DFFs_Changed := True;
2528:
2529: G_Stage := 'DFFs have changed.';
2530: If G_Debug_Mode = 'Y' Then
2531: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2532: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2533: End If;
2534:
2535: l_DFFs_Changed := True;
2536:
2541: If l_Others_Changed Then
2542:
2543: G_Stage := 'No Direct Update.';
2544: If G_Debug_Mode = 'Y' Then
2545: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2546: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2547: End If;
2548: /* No direct update since other columns have been updated besides
2549: * the comments and DFFs.
2542:
2543: G_Stage := 'No Direct Update.';
2544: If G_Debug_Mode = 'Y' Then
2545: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2546: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2547: End If;
2548: /* No direct update since other columns have been updated besides
2549: * the comments and DFFs.
2550: */
2558: */
2559:
2560: G_Stage := 'Direct Update.';
2561: If G_Debug_Mode = 'Y' Then
2562: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2563: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2564: End If;
2565:
2566: P_Direct_Update_Flag := TRUE;
2559:
2560: G_Stage := 'Direct Update.';
2561: If G_Debug_Mode = 'Y' Then
2562: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2563: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2564: End If;
2565:
2566: P_Direct_Update_Flag := TRUE;
2567:
2568: If l_Comment_Changed And l_DFFs_Changed Then
2569:
2570: G_Stage := 'Direct Update - Both.';
2571: If G_Debug_Mode = 'Y' Then
2572: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2573: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2574: End If;
2575: /* Update both the comment in the comment table and
2576: * the DFFs in the ei table.
2569:
2570: G_Stage := 'Direct Update - Both.';
2571: If G_Debug_Mode = 'Y' Then
2572: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2573: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2574: End If;
2575: /* Update both the comment in the comment table and
2576: * the DFFs in the ei table.
2577: */
2580: ElsIf l_Comment_Changed Then
2581:
2582: G_Stage := 'Direct Update - Comment only.';
2583: If G_Debug_Mode = 'Y' Then
2584: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2585: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2586: End If;
2587: /* Only need to update the comment in the comment table */
2588: P_Comment_Or_Dff := 'C';
2581:
2582: G_Stage := 'Direct Update - Comment only.';
2583: If G_Debug_Mode = 'Y' Then
2584: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2585: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2586: End If;
2587: /* Only need to update the comment in the comment table */
2588: P_Comment_Or_Dff := 'C';
2589:
2590: Else
2591:
2592: G_Stage := 'Direct Update - DFFs only.';
2593: If G_Debug_Mode = 'Y' Then
2594: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2595: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2596: End If;
2597: /* Only need to update the DFFs in the ei table. */
2598: P_Comment_Or_Dff := 'D';
2591:
2592: G_Stage := 'Direct Update - DFFs only.';
2593: If G_Debug_Mode = 'Y' Then
2594: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2595: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2596: End If;
2597: /* Only need to update the DFFs in the ei table. */
2598: P_Comment_Or_Dff := 'D';
2599:
2602: End If;
2603:
2604: G_Stage := 'Leaving DetermineDirectUpdate(), strip procedure from trackpath.';
2605: If G_Debug_Mode = 'Y' Then
2606: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2607: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2608: End If;
2609: Pa_Otc_Api.TrackPath('STRIP','DetermineDirectUpdate');
2610:
2603:
2604: G_Stage := 'Leaving DetermineDirectUpdate(), strip procedure from trackpath.';
2605: If G_Debug_Mode = 'Y' Then
2606: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2607: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2608: End If;
2609: Pa_Otc_Api.TrackPath('STRIP','DetermineDirectUpdate');
2610:
2611: Exception
2656: Begin
2657:
2658: G_Stage := 'Entering PopulateProjRec(), add procedure to trackpath.';
2659: If G_Debug_Mode = 'Y' Then
2660: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2661: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2662: End If;
2663: Pa_Otc_Api.TrackPath('ADD','PopulateProjRec');
2664:
2657:
2658: G_Stage := 'Entering PopulateProjRec(), add procedure to trackpath.';
2659: If G_Debug_Mode = 'Y' Then
2660: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2661: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2662: End If;
2663: Pa_Otc_Api.TrackPath('ADD','PopulateProjRec');
2664:
2665: G_Stage := 'Set Timecard Rec to NULL.';
2663: Pa_Otc_Api.TrackPath('ADD','PopulateProjRec');
2664:
2665: G_Stage := 'Set Timecard Rec to NULL.';
2666: If G_Debug_Mode = 'Y' Then
2667: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2668: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2669: End If;
2670:
2671: P_Timecard_Rec := Null;
2664:
2665: G_Stage := 'Set Timecard Rec to NULL.';
2666: If G_Debug_Mode = 'Y' Then
2667: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2668: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2669: End If;
2670:
2671: P_Timecard_Rec := Null;
2672:
2671: P_Timecard_Rec := Null;
2672:
2673: G_Stage := 'The current Detail Building Block Id being processed is: ' || to_char(P_BB_Id);
2674: If G_Debug_Mode = 'Y' Then
2675: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2676: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2677: End If;
2678:
2679: G_Stage := 'Checking if processsing new or old Building Block.';
2672:
2673: G_Stage := 'The current Detail Building Block Id being processed is: ' || to_char(P_BB_Id);
2674: If G_Debug_Mode = 'Y' Then
2675: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2676: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2677: End If;
2678:
2679: G_Stage := 'Checking if processsing new or old Building Block.';
2680: If G_Debug_Mode = 'Y' Then
2677: End If;
2678:
2679: G_Stage := 'Checking if processsing new or old Building Block.';
2680: If G_Debug_Mode = 'Y' Then
2681: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2682: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2683: End If;
2684:
2685: If P_New_Old_BB = 'NEW' Then
2678:
2679: G_Stage := 'Checking if processsing new or old Building Block.';
2680: If G_Debug_Mode = 'Y' Then
2681: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2682: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2683: End If;
2684:
2685: If P_New_Old_BB = 'NEW' Then
2686:
2686:
2687: G_Stage := 'Get New Detail Building Block data. Inc by person id(Resource Id): ' ||
2688: to_char(Hxc_Generic_Retrieval_Pkg.T_Detail_Bld_Blks(P_Detail_Index).Resource_Id);
2689: If G_Debug_Mode = 'Y' Then
2690: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2691: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2692: End If;
2693:
2694: P_Timecard_Rec.Incurred_By_Person_Id := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Resource_Id;
2687: G_Stage := 'Get New Detail Building Block data. Inc by person id(Resource Id): ' ||
2688: to_char(Hxc_Generic_Retrieval_Pkg.T_Detail_Bld_Blks(P_Detail_Index).Resource_Id);
2689: If G_Debug_Mode = 'Y' Then
2690: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2691: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2692: End If;
2693:
2694: P_Timecard_Rec.Incurred_By_Person_Id := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Resource_Id;
2695:
2695:
2696: G_Stage := 'Get New Detail Building Block data. Quantity: ' ||
2697: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Measure);
2698: If G_Debug_Mode = 'Y' Then
2699: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2700: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2701: End If;
2702:
2703: P_Timecard_Rec.Quantity := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Measure;
2696: G_Stage := 'Get New Detail Building Block data. Quantity: ' ||
2697: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Measure);
2698: If G_Debug_Mode = 'Y' Then
2699: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2700: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2701: End If;
2702:
2703: P_Timecard_Rec.Quantity := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Measure;
2704:
2706: G_Stage := 'Get New Detail Building Block data. Expenditure Item Comment: ' ||
2707: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text ||
2708: '(End of comment)';
2709: If G_Debug_Mode = 'Y' Then
2710: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2711: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2712: End If;
2713:
2714: G_Stage := 'Assigning comment to local variable.';
2707: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text ||
2708: '(End of comment)';
2709: If G_Debug_Mode = 'Y' Then
2710: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2711: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2712: End If;
2713:
2714: G_Stage := 'Assigning comment to local variable.';
2715: If G_Debug_Mode = 'Y' Then
2712: End If;
2713:
2714: G_Stage := 'Assigning comment to local variable.';
2715: If G_Debug_Mode = 'Y' Then
2716: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2717: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2718: End If;
2719: l_comment_text := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text;
2720:
2713:
2714: G_Stage := 'Assigning comment to local variable.';
2715: If G_Debug_Mode = 'Y' Then
2716: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2717: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2718: End If;
2719: l_comment_text := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text;
2720:
2721: G_Stage := 'Checking if comment is not null.';
2719: l_comment_text := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text;
2720:
2721: G_Stage := 'Checking if comment is not null.';
2722: If G_Debug_Mode = 'Y' Then
2723: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2724: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2725: End If;
2726:
2727: If l_comment_text is not Null Then
2720:
2721: G_Stage := 'Checking if comment is not null.';
2722: If G_Debug_Mode = 'Y' Then
2723: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2724: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2725: End If;
2726:
2727: If l_comment_text is not Null Then
2728:
2727: If l_comment_text is not Null Then
2728:
2729: G_Stage := 'The comment is not null so determine the length of comment.';
2730: If G_Debug_Mode = 'Y' Then
2731: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2732: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2733: End If;
2734:
2735: /* Bug 2930551 If the length of the comment_text is greater than 240 then we should only
2728:
2729: G_Stage := 'The comment is not null so determine the length of comment.';
2730: If G_Debug_Mode = 'Y' Then
2731: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2732: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2733: End If;
2734:
2735: /* Bug 2930551 If the length of the comment_text is greater than 240 then we should only
2736: grab the first 240 characters. */
2740: If lengthb(l_comment_text) > 240 Then
2741:
2742: If G_Debug_Mode = 'Y' Then
2743: G_Stage := 'Comment_Text length > 240.';
2744: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2745: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2746: End If;
2747:
2748: -- P_Timecard_Rec.Expenditure_Item_Comment :=
2741:
2742: If G_Debug_Mode = 'Y' Then
2743: G_Stage := 'Comment_Text length > 240.';
2744: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2745: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2746: End If;
2747:
2748: -- P_Timecard_Rec.Expenditure_Item_Comment :=
2749: -- substr(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text,1,240);
2755: Else
2756:
2757: If G_Debug_Mode = 'Y' Then
2758: G_Stage := 'Comment_Text length <= 240.';
2759: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2760: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2761: End If;
2762:
2763: -- P_Timecard_Rec.Expenditure_Item_Comment :=
2756:
2757: If G_Debug_Mode = 'Y' Then
2758: G_Stage := 'Comment_Text length <= 240.';
2759: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2760: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2761: End If;
2762:
2763: -- P_Timecard_Rec.Expenditure_Item_Comment :=
2764: -- Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text;
2769: Else -- l_comment_text is Null
2770:
2771: If G_Debug_Mode = 'Y' Then
2772: G_Stage := 'Setting the comment to null.';
2773: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2774: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2775: End If;
2776: P_Timecard_Rec.Expenditure_Item_Comment := Null;
2777:
2770:
2771: If G_Debug_Mode = 'Y' Then
2772: G_Stage := 'Setting the comment to null.';
2773: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2774: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2775: End If;
2776: P_Timecard_Rec.Expenditure_Item_Comment := Null;
2777:
2778: End If; -- l_comment_text is not Null
2779: /* End bug 5412033 */
2780:
2781: G_Stage := 'Get New Detail Building Block data. Exp Item Date, first attempt.';
2782: If G_Debug_Mode = 'Y' Then
2783: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2784: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2785: End If;
2786:
2787: P_Timecard_Rec.Expenditure_Item_Date :=
2780:
2781: G_Stage := 'Get New Detail Building Block data. Exp Item Date, first attempt.';
2782: If G_Debug_Mode = 'Y' Then
2783: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2784: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2785: End If;
2786:
2787: P_Timecard_Rec.Expenditure_Item_Date :=
2788: TRUNC(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Start_Time);
2790: If P_Timecard_Rec.Expenditure_Item_Date Is Null Then
2791:
2792: G_Stage := 'Get New Detail Building Block data. Exp Item Date, second attempt.';
2793: If G_Debug_Mode = 'Y' Then
2794: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2795: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2796: End If;
2797:
2798: i := 1;
2791:
2792: G_Stage := 'Get New Detail Building Block data. Exp Item Date, second attempt.';
2793: If G_Debug_Mode = 'Y' Then
2794: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2795: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2796: End If;
2797:
2798: i := 1;
2799:
2798: i := 1;
2799:
2800: G_Stage := 'Get New Detail Building Block data. Exp Item Date, via day scope building block.';
2801: If G_Debug_Mode = 'Y' Then
2802: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2803: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2804: End If;
2805:
2806: While i <= Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks.LAST and NOT l_Rec_Found
2799:
2800: G_Stage := 'Get New Detail Building Block data. Exp Item Date, via day scope building block.';
2801: If G_Debug_Mode = 'Y' Then
2802: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2803: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2804: End If;
2805:
2806: While i <= Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks.LAST and NOT l_Rec_Found
2807: Loop
2808:
2809: G_Stage := 'Check if the current record is the correct DAY ' ||
2810: 'record to grab Exp Item Date from.';
2811: If G_Debug_Mode = 'Y' Then
2812: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2813: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2814: End If;
2815:
2816: If Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks(i).BB_Id =
2809: G_Stage := 'Check if the current record is the correct DAY ' ||
2810: 'record to grab Exp Item Date from.';
2811: If G_Debug_Mode = 'Y' Then
2812: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2813: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2814: End If;
2815:
2816: If Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks(i).BB_Id =
2817: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Parent_BB_Id Then
2817: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Parent_BB_Id Then
2818:
2819: G_Stage := 'Grab the Exp Item Date from new day building block record.';
2820: If G_Debug_Mode = 'Y' Then
2821: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2822: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2823: End If;
2824:
2825: P_Timecard_Rec.Expenditure_Item_Date := Trunc(Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks(i).Start_Time);
2818:
2819: G_Stage := 'Grab the Exp Item Date from new day building block record.';
2820: If G_Debug_Mode = 'Y' Then
2821: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2822: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2823: End If;
2824:
2825: P_Timecard_Rec.Expenditure_Item_Date := Trunc(Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks(i).Start_Time);
2826: l_Rec_Found := TRUE;
2834: End If; -- P_Timecard_Rec.Expenditure_Item_Date Is Null
2835:
2836: G_Stage := 'Exp Item Date(Detail Building Block Start Time): ' || to_char(P_Timecard_Rec.Expenditure_Item_Date);
2837: If G_Debug_Mode = 'Y' Then
2838: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2839: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2840: End If;
2841:
2842: G_Stage := 'Get Expenditure Ending Date from new building block data.';
2835:
2836: G_Stage := 'Exp Item Date(Detail Building Block Start Time): ' || to_char(P_Timecard_Rec.Expenditure_Item_Date);
2837: If G_Debug_Mode = 'Y' Then
2838: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2839: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2840: End If;
2841:
2842: G_Stage := 'Get Expenditure Ending Date from new building block data.';
2843: If G_Debug_Mode = 'Y' Then
2840: End If;
2841:
2842: G_Stage := 'Get Expenditure Ending Date from new building block data.';
2843: If G_Debug_Mode = 'Y' Then
2844: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2845: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2846: End If;
2847:
2848: If P_Timecard_Rec.Expenditure_Item_Date is not null Then
2841:
2842: G_Stage := 'Get Expenditure Ending Date from new building block data.';
2843: If G_Debug_Mode = 'Y' Then
2844: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2845: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2846: End If;
2847:
2848: If P_Timecard_Rec.Expenditure_Item_Date is not null Then
2849:
2855: -- Begin PA.M/CWK changes
2856: -- The person type can be returned as null and will be handled later in the code.
2857: G_Stage := 'Get Person_Type New.';
2858: If G_Debug_Mode = 'Y' Then
2859: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2860: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2861: End If;
2862:
2863: P_Timecard_Rec.Person_Type := GetPersonType(P_Person_Id => P_Timecard_Rec.Incurred_By_Person_Id,
2856: -- The person type can be returned as null and will be handled later in the code.
2857: G_Stage := 'Get Person_Type New.';
2858: If G_Debug_Mode = 'Y' Then
2859: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2860: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2861: End If;
2862:
2863: P_Timecard_Rec.Person_Type := GetPersonType(P_Person_Id => P_Timecard_Rec.Incurred_By_Person_Id,
2864: P_Ei_Date => P_Timecard_Rec.Expenditure_Item_Date);
2864: P_Ei_Date => P_Timecard_Rec.Expenditure_Item_Date);
2865:
2866: G_Stage := 'New Person_Type: ' || P_Timecard_Rec.Person_Type;
2867: If G_Debug_Mode = 'Y' Then
2868: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2869: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2870: End If;
2871: -- End PA.M/CWK changes
2872:
2865:
2866: G_Stage := 'New Person_Type: ' || P_Timecard_Rec.Person_Type;
2867: If G_Debug_Mode = 'Y' Then
2868: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2869: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2870: End If;
2871: -- End PA.M/CWK changes
2872:
2873: /* Pull data from the new detail_attributes pl/sql table */
2872:
2873: /* Pull data from the new detail_attributes pl/sql table */
2874: G_Stage := 'Get NEW detail bb attribution using for loop.';
2875: If G_Debug_Mode = 'Y' Then
2876: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2877: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2878: End If;
2879:
2880: If G_Detail_Attr_Index = 0 Then
2873: /* Pull data from the new detail_attributes pl/sql table */
2874: G_Stage := 'Get NEW detail bb attribution using for loop.';
2875: If G_Debug_Mode = 'Y' Then
2876: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2877: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2878: End If;
2879:
2880: If G_Detail_Attr_Index = 0 Then
2881:
2886: i := G_Detail_Attr_Index;
2887:
2888: G_Stage := 'Looping thru NEW attibution starting at index position: ' || to_char(i) ;
2889: If G_Debug_Mode = 'Y' Then
2890: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2891: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2892: End If;
2893:
2894: G_Stage := 'Current position in NEW attribute pl/sql table bb_id value is: ' ||
2887:
2888: G_Stage := 'Looping thru NEW attibution starting at index position: ' || to_char(i) ;
2889: If G_Debug_Mode = 'Y' Then
2890: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2891: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2892: End If;
2893:
2894: G_Stage := 'Current position in NEW attribute pl/sql table bb_id value is: ' ||
2895: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id);
2893:
2894: G_Stage := 'Current position in NEW attribute pl/sql table bb_id value is: ' ||
2895: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id);
2896: If G_Debug_Mode = 'Y' Then
2897: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2898: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2899: End If;
2900:
2901: While i <= Hxc_User_Type_Definition_Grp.T_Detail_Attributes.LAST And
2894: G_Stage := 'Current position in NEW attribute pl/sql table bb_id value is: ' ||
2895: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id);
2896: If G_Debug_Mode = 'Y' Then
2897: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2898: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2899: End If;
2900:
2901: While i <= Hxc_User_Type_Definition_Grp.T_Detail_Attributes.LAST And
2902: Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id = P_BB_Id
2906:
2907: G_Stage := 'Retrieved Project Id: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2908: ' Index position: ' || to_char(i);
2909: If G_Debug_Mode = 'Y' Then
2910: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2911: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2912: End If;
2913:
2914: P_Timecard_Rec.Project_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2907: G_Stage := 'Retrieved Project Id: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2908: ' Index position: ' || to_char(i);
2909: If G_Debug_Mode = 'Y' Then
2910: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2911: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2912: End If;
2913:
2914: P_Timecard_Rec.Project_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2915:
2917:
2918: G_Stage := 'Retrieved Task Id: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2919: ' Index position: ' || to_char(i);
2920: If G_Debug_Mode = 'Y' Then
2921: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2922: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2923: End If;
2924:
2925: P_Timecard_Rec.Task_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2918: G_Stage := 'Retrieved Task Id: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2919: ' Index position: ' || to_char(i);
2920: If G_Debug_Mode = 'Y' Then
2921: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2922: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2923: End If;
2924:
2925: P_Timecard_Rec.Task_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2926:
2928:
2929: G_Stage := 'Retrieved Expenditure Type: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2930: ' Index position: ' || to_char(i);
2931: If G_Debug_Mode = 'Y' Then
2932: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2933: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2934: End If;
2935:
2936: P_Timecard_Rec.Expenditure_Type := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2929: G_Stage := 'Retrieved Expenditure Type: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2930: ' Index position: ' || to_char(i);
2931: If G_Debug_Mode = 'Y' Then
2932: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2933: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2934: End If;
2935:
2936: P_Timecard_Rec.Expenditure_Type := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2937:
2940: G_Stage := 'Retrieve System Linkage Function: ' ||
2941: Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2942: ' Index position: ' || to_char(i);
2943: If G_Debug_Mode = 'Y' Then
2944: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2945: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2946: End If;
2947:
2948: P_Timecard_Rec.System_Linkage_Function := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2941: Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2942: ' Index position: ' || to_char(i);
2943: If G_Debug_Mode = 'Y' Then
2944: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2945: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2946: End If;
2947:
2948: P_Timecard_Rec.System_Linkage_Function := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2949:
2952: G_Stage := 'Retrieve Overidding Approver Person Id: ' ||
2953: Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2954: ' Index position: ' || to_char(i);
2955: If G_Debug_Mode = 'Y' Then
2956: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2957: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2958: End If;
2959:
2960: P_Timecard_Rec.Override_Approver_Person_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2953: Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2954: ' Index position: ' || to_char(i);
2955: If G_Debug_Mode = 'Y' Then
2956: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2957: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2958: End If;
2959:
2960: P_Timecard_Rec.Override_Approver_Person_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2961:
2969:
2970: G_Stage := 'Get new attribute category: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2971: ' Index position: ' || to_char(i);
2972: If G_Debug_Mode = 'Y' Then
2973: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2974: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2975: End If;
2976:
2977: l_attribute_category := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2970: G_Stage := 'Get new attribute category: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2971: ' Index position: ' || to_char(i);
2972: If G_Debug_Mode = 'Y' Then
2973: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2974: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2975: End If;
2976:
2977: l_attribute_category := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2978:
2981: */
2982:
2983: G_Stage := 'Get new attribute category, checking if Null.';
2984: If G_Debug_Mode = 'Y' Then
2985: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2986: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2987: End If;
2988:
2989: If l_attribute_category is not null Then
2982:
2983: G_Stage := 'Get new attribute category, checking if Null.';
2984: If G_Debug_Mode = 'Y' Then
2985: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2986: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2987: End If;
2988:
2989: If l_attribute_category is not null Then
2990:
2989: If l_attribute_category is not null Then
2990:
2991: G_Stage := 'Get new attribute category, Strip out prefix.';
2992: If G_Debug_Mode = 'Y' Then
2993: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2994: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2995: End If;
2996:
2997: P_Timecard_Rec.Attribute_Category := substr(l_attribute_category,instr(l_attribute_category,' - ') + 3);
2990:
2991: G_Stage := 'Get new attribute category, Strip out prefix.';
2992: If G_Debug_Mode = 'Y' Then
2993: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2994: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2995: End If;
2996:
2997: P_Timecard_Rec.Attribute_Category := substr(l_attribute_category,instr(l_attribute_category,' - ') + 3);
2998:
3002:
3003: G_Stage := 'Got new attribute1: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3004: ' Index position: ' || to_char(i);
3005: If G_Debug_Mode = 'Y' Then
3006: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3007: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3008: End If;
3009:
3010: P_Timecard_Rec.Attribute1 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3003: G_Stage := 'Got new attribute1: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3004: ' Index position: ' || to_char(i);
3005: If G_Debug_Mode = 'Y' Then
3006: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3007: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3008: End If;
3009:
3010: P_Timecard_Rec.Attribute1 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3011:
3013:
3014: G_Stage := 'Got new attribute2: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3015: ' Index position: ' || to_char(i);
3016: If G_Debug_Mode = 'Y' Then
3017: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3018: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3019: End If;
3020:
3021: P_Timecard_Rec.Attribute2 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3014: G_Stage := 'Got new attribute2: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3015: ' Index position: ' || to_char(i);
3016: If G_Debug_Mode = 'Y' Then
3017: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3018: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3019: End If;
3020:
3021: P_Timecard_Rec.Attribute2 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3022:
3024:
3025: G_Stage := 'Got new attribute3: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3026: ' Index position: ' || to_char(i);
3027: If G_Debug_Mode = 'Y' Then
3028: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3029: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3030: End If;
3031:
3032: P_Timecard_Rec.Attribute3 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3025: G_Stage := 'Got new attribute3: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3026: ' Index position: ' || to_char(i);
3027: If G_Debug_Mode = 'Y' Then
3028: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3029: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3030: End If;
3031:
3032: P_Timecard_Rec.Attribute3 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3033:
3035:
3036: G_Stage := 'Got new attribute4: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3037: ' Index position: ' || to_char(i);
3038: If G_Debug_Mode = 'Y' Then
3039: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3040: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3041: End If;
3042:
3043: P_Timecard_Rec.Attribute4 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3036: G_Stage := 'Got new attribute4: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3037: ' Index position: ' || to_char(i);
3038: If G_Debug_Mode = 'Y' Then
3039: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3040: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3041: End If;
3042:
3043: P_Timecard_Rec.Attribute4 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3044:
3046:
3047: G_Stage := 'Got new attribute5: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3048: ' Index position: ' || to_char(i);
3049: If G_Debug_Mode = 'Y' Then
3050: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3051: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3052: End If;
3053:
3054: P_Timecard_Rec.Attribute5 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3047: G_Stage := 'Got new attribute5: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3048: ' Index position: ' || to_char(i);
3049: If G_Debug_Mode = 'Y' Then
3050: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3051: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3052: End If;
3053:
3054: P_Timecard_Rec.Attribute5 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3055:
3057:
3058: G_Stage := 'Got new attribute6: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3059: ' Index position: ' || to_char(i);
3060: If G_Debug_Mode = 'Y' Then
3061: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3062: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3063: End If;
3064:
3065: P_Timecard_Rec.Attribute6 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3058: G_Stage := 'Got new attribute6: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3059: ' Index position: ' || to_char(i);
3060: If G_Debug_Mode = 'Y' Then
3061: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3062: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3063: End If;
3064:
3065: P_Timecard_Rec.Attribute6 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3066:
3068:
3069: G_Stage := 'Got new attribute7: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3070: ' Index position: ' || to_char(i);
3071: If G_Debug_Mode = 'Y' Then
3072: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3073: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3074: End If;
3075:
3076: P_Timecard_Rec.Attribute7 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3069: G_Stage := 'Got new attribute7: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3070: ' Index position: ' || to_char(i);
3071: If G_Debug_Mode = 'Y' Then
3072: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3073: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3074: End If;
3075:
3076: P_Timecard_Rec.Attribute7 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3077:
3079:
3080: G_Stage := 'Got new attribute8: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3081: ' Index position: ' || to_char(i);
3082: If G_Debug_Mode = 'Y' Then
3083: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3084: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3085: End If;
3086:
3087: P_Timecard_Rec.Attribute8 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3080: G_Stage := 'Got new attribute8: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3081: ' Index position: ' || to_char(i);
3082: If G_Debug_Mode = 'Y' Then
3083: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3084: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3085: End If;
3086:
3087: P_Timecard_Rec.Attribute8 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3088:
3090:
3091: G_Stage := 'Got new attribute9: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3092: ' Index position: ' || to_char(i);
3093: If G_Debug_Mode = 'Y' Then
3094: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3095: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3096: End If;
3097:
3098: P_Timecard_Rec.Attribute9 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3091: G_Stage := 'Got new attribute9: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3092: ' Index position: ' || to_char(i);
3093: If G_Debug_Mode = 'Y' Then
3094: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3095: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3096: End If;
3097:
3098: P_Timecard_Rec.Attribute9 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3099:
3101:
3102: G_Stage := 'Got new attribute10: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3103: ' Index position: ' || to_char(i);
3104: If G_Debug_Mode = 'Y' Then
3105: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3106: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3107: End If;
3108:
3109: P_Timecard_Rec.Attribute10 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3102: G_Stage := 'Got new attribute10: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3103: ' Index position: ' || to_char(i);
3104: If G_Debug_Mode = 'Y' Then
3105: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3106: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3107: End If;
3108:
3109: P_Timecard_Rec.Attribute10 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3110:
3112:
3113: G_Stage := 'Got new Billable Flag: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3114: ' Index position: ' || to_char(i);
3115: If G_Debug_Mode = 'Y' Then
3116: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3117: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3118: End If;
3119:
3120: P_Timecard_Rec.Billable_Flag := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3113: G_Stage := 'Got new Billable Flag: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3114: ' Index position: ' || to_char(i);
3115: If G_Debug_Mode = 'Y' Then
3116: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3117: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3118: End If;
3119:
3120: P_Timecard_Rec.Billable_Flag := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3121:
3124:
3125: G_Stage := 'Retrieved Po Line Id: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3126: ' Index position: ' || to_char(i);
3127: If G_Debug_Mode = 'Y' Then
3128: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3129: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3130: End If;
3131:
3132: P_Timecard_Rec.PO_Line_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3125: G_Stage := 'Retrieved Po Line Id: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3126: ' Index position: ' || to_char(i);
3127: If G_Debug_Mode = 'Y' Then
3128: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3129: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3130: End If;
3131:
3132: P_Timecard_Rec.PO_Line_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3133:
3135:
3136: G_Stage := 'Retrieved Po Price Type: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3137: ' Index position: ' || to_char(i);
3138: If G_Debug_Mode = 'Y' Then
3139: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3140: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3141: End If;
3142:
3143: P_Timecard_Rec.PO_Price_Type := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3136: G_Stage := 'Retrieved Po Price Type: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3137: ' Index position: ' || to_char(i);
3138: If G_Debug_Mode = 'Y' Then
3139: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3140: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3141: End If;
3142:
3143: P_Timecard_Rec.PO_Price_Type := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3144:
3151:
3152: G_Stage := 'Exited loop. No more NEW attribution for BB_Id. Store the current index position ' ||
3153: to_char(i) || ' in global variable.';
3154: If G_Debug_Mode = 'Y' Then
3155: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3156: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3157: End If;
3158:
3159: /* Note that variable G_Detail_Attr_Index is already pointing the the next building block.
3152: G_Stage := 'Exited loop. No more NEW attribution for BB_Id. Store the current index position ' ||
3153: to_char(i) || ' in global variable.';
3154: If G_Debug_Mode = 'Y' Then
3155: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3156: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3157: End If;
3158:
3159: /* Note that variable G_Detail_Attr_Index is already pointing the the next building block.
3160: * This is due to the fact that we are using the while/loop structure and only leaving the loop
3164: G_Detail_Attr_Index := i;
3165:
3166: G_Stage := 'Determine why exited loop looking for NEW record attribution.';
3167: If G_Debug_Mode = 'Y' Then
3168: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3169: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3170: End If;
3171:
3172: If i > Hxc_User_Type_Definition_Grp.T_Detail_Attributes.LAST Then
3165:
3166: G_Stage := 'Determine why exited loop looking for NEW record attribution.';
3167: If G_Debug_Mode = 'Y' Then
3168: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3169: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3170: End If;
3171:
3172: If i > Hxc_User_Type_Definition_Grp.T_Detail_Attributes.LAST Then
3173:
3174: G_Stage := 'Reached last record index position ' ||
3175: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes.LAST) || ' ' ||
3176: 'in NEW attrib pl/sql table.';
3177: If G_Debug_Mode = 'Y' Then
3178: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3179: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3180: End If;
3181:
3182: ElsIf Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id <> P_BB_Id Then
3175: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes.LAST) || ' ' ||
3176: 'in NEW attrib pl/sql table.';
3177: If G_Debug_Mode = 'Y' Then
3178: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3179: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3180: End If;
3181:
3182: ElsIf Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id <> P_BB_Id Then
3183:
3185: 'BB_Id in NEW attrib pl/sql: ' ||
3186: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id) || '. ' ||
3187: 'They do not match!';
3188: If G_Debug_Mode = 'Y' Then
3189: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3190: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3191: End If;
3192:
3193: End If;
3186: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id) || '. ' ||
3187: 'They do not match!';
3188: If G_Debug_Mode = 'Y' Then
3189: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3190: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3191: End If;
3192:
3193: End If;
3194:
3194:
3195: -- Begin PA.M/CWK changes
3196: G_Stage := 'Check Person Type is CWK and PO_Line_Id is Not Null New.';
3197: If G_Debug_Mode = 'Y' Then
3198: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3199: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3200: End If;
3201:
3202: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id is Not Null Then
3195: -- Begin PA.M/CWK changes
3196: G_Stage := 'Check Person Type is CWK and PO_Line_Id is Not Null New.';
3197: If G_Debug_Mode = 'Y' Then
3198: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3199: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3200: End If;
3201:
3202: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id is Not Null Then
3203:
3202: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id is Not Null Then
3203:
3204: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure New.';
3205: If G_Debug_Mode = 'Y' Then
3206: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3207: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3208: End If;
3209:
3210: Pa_Otc_Api.GetPOInfo(
3203:
3204: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure New.';
3205: If G_Debug_Mode = 'Y' Then
3206: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3207: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3208: End If;
3209:
3210: Pa_Otc_Api.GetPOInfo(
3211: P_Po_Line_Id => P_Timecard_Rec.PO_Line_Id,
3213: X_Vendor_Id => P_Timecard_Rec.Vendor_Id);
3214:
3215: G_Stage := 'Got new Vendor Id: ' || to_char(P_Timecard_Rec.Vendor_Id) || ' based on PO_Line_Id';
3216: If G_Debug_Mode = 'Y' Then
3217: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3218: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3219: End If;
3220:
3221: Else
3214:
3215: G_Stage := 'Got new Vendor Id: ' || to_char(P_Timecard_Rec.Vendor_Id) || ' based on PO_Line_Id';
3216: If G_Debug_Mode = 'Y' Then
3217: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3218: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3219: End If;
3220:
3221: Else
3222:
3221: Else
3222:
3223: G_Stage := 'Set to null po info, vendor_id, and price_type New.';
3224: If G_Debug_Mode = 'Y' Then
3225: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3226: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3227: End If;
3228: P_Timecard_Rec.PO_Line_Id := NULL;
3229: P_Timecard_Rec.PO_Header_Id := NULL;
3222:
3223: G_Stage := 'Set to null po info, vendor_id, and price_type New.';
3224: If G_Debug_Mode = 'Y' Then
3225: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3226: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3227: End If;
3228: P_Timecard_Rec.PO_Line_Id := NULL;
3229: P_Timecard_Rec.PO_Header_Id := NULL;
3230: P_Timecard_Rec.Vendor_Id := NULL;
3237:
3238: G_Stage := 'Got Old Detail Building Block data. Incurred by Person Id(Resource Id): ' ||
3239: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Resource_Id);
3240: If G_Debug_Mode = 'Y' Then
3241: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3242: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3243: End If;
3244:
3245: P_Timecard_Rec.Incurred_By_Person_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Resource_Id;
3238: G_Stage := 'Got Old Detail Building Block data. Incurred by Person Id(Resource Id): ' ||
3239: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Resource_Id);
3240: If G_Debug_Mode = 'Y' Then
3241: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3242: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3243: End If;
3244:
3245: P_Timecard_Rec.Incurred_By_Person_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Resource_Id;
3246:
3245: P_Timecard_Rec.Incurred_By_Person_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Resource_Id;
3246:
3247: G_Stage := 'Got Old Detail Building Block data. Incurred by Person Id';
3248: If G_Debug_Mode = 'Y' Then
3249: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3250: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3251: End If;
3252:
3253: G_Stage := 'Got Old Detail Building Block data. Quantity: ' ||
3246:
3247: G_Stage := 'Got Old Detail Building Block data. Incurred by Person Id';
3248: If G_Debug_Mode = 'Y' Then
3249: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3250: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3251: End If;
3252:
3253: G_Stage := 'Got Old Detail Building Block data. Quantity: ' ||
3254: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Measure);
3252:
3253: G_Stage := 'Got Old Detail Building Block data. Quantity: ' ||
3254: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Measure);
3255: If G_Debug_Mode = 'Y' Then
3256: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3257: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3258: End If;
3259:
3260: P_Timecard_Rec.Quantity := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Measure;
3253: G_Stage := 'Got Old Detail Building Block data. Quantity: ' ||
3254: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Measure);
3255: If G_Debug_Mode = 'Y' Then
3256: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3257: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3258: End If;
3259:
3260: P_Timecard_Rec.Quantity := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Measure;
3261:
3263: G_Stage := 'Get Old Detail Building Block data. Expenditure Item Comment: ' ||
3264: Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text ||
3265: '(End of comment)';
3266: If G_Debug_Mode = 'Y' Then
3267: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3268: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3269: End If;
3270:
3271: G_Stage := 'Assigning Old comment to local variable.';
3264: Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text ||
3265: '(End of comment)';
3266: If G_Debug_Mode = 'Y' Then
3267: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3268: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3269: End If;
3270:
3271: G_Stage := 'Assigning Old comment to local variable.';
3272: If G_Debug_Mode = 'Y' Then
3269: End If;
3270:
3271: G_Stage := 'Assigning Old comment to local variable.';
3272: If G_Debug_Mode = 'Y' Then
3273: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3274: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3275: End If;
3276: l_comment_text := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text;
3277:
3270:
3271: G_Stage := 'Assigning Old comment to local variable.';
3272: If G_Debug_Mode = 'Y' Then
3273: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3274: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3275: End If;
3276: l_comment_text := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text;
3277:
3278: G_Stage := 'Checking if Old comment is not null.';
3276: l_comment_text := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text;
3277:
3278: G_Stage := 'Checking if Old comment is not null.';
3279: If G_Debug_Mode = 'Y' Then
3280: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3281: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3282: End If;
3283:
3284: If l_comment_text is not Null Then
3277:
3278: G_Stage := 'Checking if Old comment is not null.';
3279: If G_Debug_Mode = 'Y' Then
3280: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3281: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3282: End If;
3283:
3284: If l_comment_text is not Null Then
3285:
3284: If l_comment_text is not Null Then
3285:
3286: G_Stage := 'The old comment is not null so determine the length of comment.';
3287: If G_Debug_Mode = 'Y' Then
3288: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3289: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3290: End If;
3291:
3292: /* Bug 2930551 If the length of the comment_text is greater than 240 then we should only
3285:
3286: G_Stage := 'The old comment is not null so determine the length of comment.';
3287: If G_Debug_Mode = 'Y' Then
3288: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3289: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3290: End If;
3291:
3292: /* Bug 2930551 If the length of the comment_text is greater than 240 then we should only
3293: grab the first 240 characters. */
3297: If lengthb(l_comment_text) > 240 Then
3298:
3299: If G_Debug_Mode = 'Y' Then
3300: G_Stage := 'Old Comment_Text length > 240.';
3301: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3302: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3303: End If;
3304:
3305: -- P_Timecard_Rec.Expenditure_Item_Comment :=
3298:
3299: If G_Debug_Mode = 'Y' Then
3300: G_Stage := 'Old Comment_Text length > 240.';
3301: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3302: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3303: End If;
3304:
3305: -- P_Timecard_Rec.Expenditure_Item_Comment :=
3306: -- substr(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text,1,240);
3312: Else
3313:
3314: If G_Debug_Mode = 'Y' Then
3315: G_Stage := 'Old Comment_Text length <= 240.';
3316: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3317: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3318: End If;
3319:
3320: -- P_Timecard_Rec.Expenditure_Item_Comment :=
3313:
3314: If G_Debug_Mode = 'Y' Then
3315: G_Stage := 'Old Comment_Text length <= 240.';
3316: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3317: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3318: End If;
3319:
3320: -- P_Timecard_Rec.Expenditure_Item_Comment :=
3321: -- Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text;
3326: Else -- l_comment_text is null
3327:
3328: If G_Debug_Mode = 'Y' Then
3329: G_Stage := 'Setting the Old comment to null.';
3330: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3331: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3332: End If;
3333: P_Timecard_Rec.Expenditure_Item_Comment := Null;
3334:
3327:
3328: If G_Debug_Mode = 'Y' Then
3329: G_Stage := 'Setting the Old comment to null.';
3330: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3331: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3332: End If;
3333: P_Timecard_Rec.Expenditure_Item_Comment := Null;
3334:
3335: End If; -- l_comment_text is not Null
3336: /* End Bug 5412033 */
3337:
3338: G_Stage := 'Get Old Day Building Block data. Exp Item Date. First Attempt.';
3339: If G_Debug_Mode = 'Y' Then
3340: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3341: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3342: End If;
3343:
3344: P_Timecard_Rec.Expenditure_Item_Date := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Start_Time;
3337:
3338: G_Stage := 'Get Old Day Building Block data. Exp Item Date. First Attempt.';
3339: If G_Debug_Mode = 'Y' Then
3340: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3341: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3342: End If;
3343:
3344: P_Timecard_Rec.Expenditure_Item_Date := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Start_Time;
3345:
3346: If P_Timecard_Rec.Expenditure_Item_Date Is Null Then
3347:
3348: G_Stage := 'Get Old Day Building Block data. Exp Item Date. Second Attempt.';
3349: If G_Debug_Mode = 'Y' Then
3350: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3351: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3352: End If;
3353:
3354: j := 1;
3347:
3348: G_Stage := 'Get Old Day Building Block data. Exp Item Date. Second Attempt.';
3349: If G_Debug_Mode = 'Y' Then
3350: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3351: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3352: End If;
3353:
3354: j := 1;
3355:
3354: j := 1;
3355:
3356: G_Stage := 'Get Old Detail Building Block data. Exp Item Date, via old day scope building block.';
3357: If G_Debug_Mode = 'Y' Then
3358: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3359: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3360: End If;
3361:
3362: While j <= Hxc_User_Type_Definition_Grp.T_Old_Day_Bld_Blks.LAST and NOT l_Rec_Found
3355:
3356: G_Stage := 'Get Old Detail Building Block data. Exp Item Date, via old day scope building block.';
3357: If G_Debug_Mode = 'Y' Then
3358: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3359: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3360: End If;
3361:
3362: While j <= Hxc_User_Type_Definition_Grp.T_Old_Day_Bld_Blks.LAST and NOT l_Rec_Found
3363: Loop
3364:
3365: G_Stage := 'Check if the current record is the correct DAY ' ||
3366: 'record to grab Exp Item Date from.';
3367: If G_Debug_Mode = 'Y' Then
3368: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3369: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3370: End If;
3371:
3372: If Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks(j).BB_Id =
3365: G_Stage := 'Check if the current record is the correct DAY ' ||
3366: 'record to grab Exp Item Date from.';
3367: If G_Debug_Mode = 'Y' Then
3368: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3369: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3370: End If;
3371:
3372: If Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks(j).BB_Id =
3373: Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Parent_BB_Id Then
3373: Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Parent_BB_Id Then
3374:
3375: G_Stage := 'Grab the Exp Item Date from old day building block record.';
3376: If G_Debug_Mode = 'Y' Then
3377: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3378: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3379: End If;
3380:
3381: P_Timecard_Rec.Expenditure_Item_Date := Trunc(Hxc_User_Type_Definition_Grp.T_Old_Day_Bld_Blks(j).Start_Time);
3374:
3375: G_Stage := 'Grab the Exp Item Date from old day building block record.';
3376: If G_Debug_Mode = 'Y' Then
3377: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3378: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3379: End If;
3380:
3381: P_Timecard_Rec.Expenditure_Item_Date := Trunc(Hxc_User_Type_Definition_Grp.T_Old_Day_Bld_Blks(j).Start_Time);
3382: l_Rec_Found := TRUE;
3390: End If;
3391:
3392: G_Stage := 'Exp Item Date(Detail Building Block Start Time): ' || to_char(P_Timecard_Rec.Expenditure_Item_Date);
3393: If G_Debug_Mode = 'Y' Then
3394: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3395: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3396: End If;
3397:
3398: G_Stage := 'Get Expenditure Ending Date for old building block data.';
3391:
3392: G_Stage := 'Exp Item Date(Detail Building Block Start Time): ' || to_char(P_Timecard_Rec.Expenditure_Item_Date);
3393: If G_Debug_Mode = 'Y' Then
3394: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3395: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3396: End If;
3397:
3398: G_Stage := 'Get Expenditure Ending Date for old building block data.';
3399: If G_Debug_Mode = 'Y' Then
3396: End If;
3397:
3398: G_Stage := 'Get Expenditure Ending Date for old building block data.';
3399: If G_Debug_Mode = 'Y' Then
3400: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3401: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3402: End If;
3403:
3404: P_Timecard_Rec.Expenditure_Ending_date := Pa_Utils.NewGetWeekEnding(P_Timecard_Rec.Expenditure_Item_Date);
3397:
3398: G_Stage := 'Get Expenditure Ending Date for old building block data.';
3399: If G_Debug_Mode = 'Y' Then
3400: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3401: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3402: End If;
3403:
3404: P_Timecard_Rec.Expenditure_Ending_date := Pa_Utils.NewGetWeekEnding(P_Timecard_Rec.Expenditure_Item_Date);
3405:
3404: P_Timecard_Rec.Expenditure_Ending_date := Pa_Utils.NewGetWeekEnding(P_Timecard_Rec.Expenditure_Item_Date);
3405:
3406: G_Stage := 'Old Index check and assignment for use in loop';
3407: If G_Debug_Mode = 'Y' Then
3408: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3409: Pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3410: End If;
3411:
3412: -- Begin PA.M/CWK changes
3405:
3406: G_Stage := 'Old Index check and assignment for use in loop';
3407: If G_Debug_Mode = 'Y' Then
3408: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3409: Pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3410: End If;
3411:
3412: -- Begin PA.M/CWK changes
3413: -- The person type can be returned as null and will be handled later in the code.
3412: -- Begin PA.M/CWK changes
3413: -- The person type can be returned as null and will be handled later in the code.
3414: G_Stage := 'Get Person_Type old.';
3415: If G_Debug_Mode = 'Y' Then
3416: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3417: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3418: End If;
3419:
3420: P_Timecard_Rec.Person_Type := GetPersonType(P_Person_Id => P_Timecard_Rec.Incurred_By_Person_Id,
3413: -- The person type can be returned as null and will be handled later in the code.
3414: G_Stage := 'Get Person_Type old.';
3415: If G_Debug_Mode = 'Y' Then
3416: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3417: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3418: End If;
3419:
3420: P_Timecard_Rec.Person_Type := GetPersonType(P_Person_Id => P_Timecard_Rec.Incurred_By_Person_Id,
3421: P_Ei_Date => P_Timecard_Rec.Expenditure_Item_Date);
3421: P_Ei_Date => P_Timecard_Rec.Expenditure_Item_Date);
3422:
3423: G_Stage := 'Old Person_Type: ' || P_Timecard_Rec.Person_Type;
3424: If G_Debug_Mode = 'Y' Then
3425: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3426: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3427: End If;
3428: -- End PA.M/CWK changes
3429:
3422:
3423: G_Stage := 'Old Person_Type: ' || P_Timecard_Rec.Person_Type;
3424: If G_Debug_Mode = 'Y' Then
3425: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3426: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3427: End If;
3428: -- End PA.M/CWK changes
3429:
3430: If G_Old_Detail_Attr_Index = 0 Then
3437:
3438: /* Pull data from the detail_attributes pl/sql table */
3439: G_Stage := 'Looping thru OLD attibution starting at index position: ' || to_char(j) ;
3440: If G_Debug_Mode = 'Y' Then
3441: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3442: Pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3443: End If;
3444:
3445: G_Stage := 'Current position in OLD attribute pl/sql table bb_id value: ' ||
3438: /* Pull data from the detail_attributes pl/sql table */
3439: G_Stage := 'Looping thru OLD attibution starting at index position: ' || to_char(j) ;
3440: If G_Debug_Mode = 'Y' Then
3441: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3442: Pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3443: End If;
3444:
3445: G_Stage := 'Current position in OLD attribute pl/sql table bb_id value: ' ||
3446: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id);
3444:
3445: G_Stage := 'Current position in OLD attribute pl/sql table bb_id value: ' ||
3446: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id);
3447: If G_Debug_Mode = 'Y' Then
3448: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3449: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3450: End If;
3451:
3452: While j <= Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes.LAST and
3445: G_Stage := 'Current position in OLD attribute pl/sql table bb_id value: ' ||
3446: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id);
3447: If G_Debug_Mode = 'Y' Then
3448: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3449: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3450: End If;
3451:
3452: While j <= Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes.LAST and
3453: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id = P_BB_Id
3457:
3458: G_Stage := 'Got old Project Id: ' || Hxc_Generic_Retrieval_Pkg.T_Old_Detail_Attributes(j).Value ||
3459: ' Index position: ' || to_char(j);
3460: If G_Debug_Mode = 'Y' Then
3461: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3462: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3463: End If;
3464:
3465: P_Timecard_Rec.Project_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3458: G_Stage := 'Got old Project Id: ' || Hxc_Generic_Retrieval_Pkg.T_Old_Detail_Attributes(j).Value ||
3459: ' Index position: ' || to_char(j);
3460: If G_Debug_Mode = 'Y' Then
3461: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3462: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3463: End If;
3464:
3465: P_Timecard_Rec.Project_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3466:
3468:
3469: G_Stage := 'Got old Task Id: ' || Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3470: ' Index position: ' || to_char(j);
3471: If G_Debug_Mode = 'Y' Then
3472: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3473: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3474: End If;
3475:
3476: P_Timecard_Rec.Task_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3469: G_Stage := 'Got old Task Id: ' || Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3470: ' Index position: ' || to_char(j);
3471: If G_Debug_Mode = 'Y' Then
3472: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3473: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3474: End If;
3475:
3476: P_Timecard_Rec.Task_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3477:
3480: G_Stage := 'Got old Expenditure Type: ' ||
3481: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3482: ' Index position: ' || to_char(j);
3483: If G_Debug_Mode = 'Y' Then
3484: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3485: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3486: End If;
3487:
3488: P_Timecard_Rec.Expenditure_Type := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3481: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3482: ' Index position: ' || to_char(j);
3483: If G_Debug_Mode = 'Y' Then
3484: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3485: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3486: End If;
3487:
3488: P_Timecard_Rec.Expenditure_Type := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3489:
3492: G_Stage := 'Got old System Linkage Function: ' ||
3493: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3494: ' Index position: ' || to_char(j);
3495: If G_Debug_Mode = 'Y' Then
3496: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3497: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3498: End If;
3499:
3500: P_Timecard_Rec.System_Linkage_Function := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3493: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3494: ' Index position: ' || to_char(j);
3495: If G_Debug_Mode = 'Y' Then
3496: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3497: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3498: End If;
3499:
3500: P_Timecard_Rec.System_Linkage_Function := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3501:
3504: G_Stage := 'Got old Overriding Approver Person Id: ' ||
3505: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3506: ' Index position: ' || to_char(j);
3507: If G_Debug_Mode = 'Y' Then
3508: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3509: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3510: End If;
3511:
3512: P_Timecard_Rec.Override_Approver_Person_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3505: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3506: ' Index position: ' || to_char(j);
3507: If G_Debug_Mode = 'Y' Then
3508: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3509: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3510: End If;
3511:
3512: P_Timecard_Rec.Override_Approver_Person_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3513:
3522: G_Stage := 'Get old attribute category info: ' ||
3523: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3524: ' Index position: ' || to_char(j);
3525: If G_Debug_Mode = 'Y' Then
3526: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3527: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3528: End If;
3529:
3530: l_attribute_category := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3523: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3524: ' Index position: ' || to_char(j);
3525: If G_Debug_Mode = 'Y' Then
3526: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3527: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3528: End If;
3529:
3530: l_attribute_category := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3531:
3533: * avoiding unhandled exceptions.
3534: */
3535: G_Stage := 'Get old attribute category, checking if Null.'|| to_char(j);
3536: If G_Debug_Mode = 'Y' Then
3537: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3538: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3539: End If;
3540:
3541: If l_attribute_category is not null Then
3534: */
3535: G_Stage := 'Get old attribute category, checking if Null.'|| to_char(j);
3536: If G_Debug_Mode = 'Y' Then
3537: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3538: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3539: End If;
3540:
3541: If l_attribute_category is not null Then
3542:
3541: If l_attribute_category is not null Then
3542:
3543: G_Stage := 'Get old attribute category, Strip out prefix.'|| to_char(j);
3544: If G_Debug_Mode = 'Y' Then
3545: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3546: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3547: End If;
3548:
3549: P_Timecard_Rec.Attribute_Category := substr(l_attribute_category,instr(l_attribute_category,' - ') + 3);
3542:
3543: G_Stage := 'Get old attribute category, Strip out prefix.'|| to_char(j);
3544: If G_Debug_Mode = 'Y' Then
3545: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3546: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3547: End If;
3548:
3549: P_Timecard_Rec.Attribute_Category := substr(l_attribute_category,instr(l_attribute_category,' - ') + 3);
3550:
3555: G_Stage := 'Got old Attribute1: ' ||
3556: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3557: ' Index position: ' || to_char(j);
3558: If G_Debug_Mode = 'Y' Then
3559: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3560: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3561: End If;
3562:
3563: P_Timecard_Rec.Attribute1 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3556: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3557: ' Index position: ' || to_char(j);
3558: If G_Debug_Mode = 'Y' Then
3559: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3560: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3561: End If;
3562:
3563: P_Timecard_Rec.Attribute1 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3564:
3567: G_Stage := 'Got old Attribute2: ' ||
3568: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3569: ' Index position: ' || to_char(j);
3570: If G_Debug_Mode = 'Y' Then
3571: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3572: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3573: End If;
3574:
3575: P_Timecard_Rec.Attribute2 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3568: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3569: ' Index position: ' || to_char(j);
3570: If G_Debug_Mode = 'Y' Then
3571: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3572: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3573: End If;
3574:
3575: P_Timecard_Rec.Attribute2 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3576:
3579: G_Stage := 'Got old Attribute3: ' ||
3580: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3581: ' Index position: ' || to_char(j);
3582: If G_Debug_Mode = 'Y' Then
3583: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3584: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3585: End If;
3586:
3587: P_Timecard_Rec.Attribute3 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3580: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3581: ' Index position: ' || to_char(j);
3582: If G_Debug_Mode = 'Y' Then
3583: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3584: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3585: End If;
3586:
3587: P_Timecard_Rec.Attribute3 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3588:
3591: G_Stage := 'Got old Attribute4: ' ||
3592: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3593: ' Index position: ' || to_char(j);
3594: If G_Debug_Mode = 'Y' Then
3595: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3596: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3597: End If;
3598:
3599: P_Timecard_Rec.Attribute4 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3592: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3593: ' Index position: ' || to_char(j);
3594: If G_Debug_Mode = 'Y' Then
3595: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3596: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3597: End If;
3598:
3599: P_Timecard_Rec.Attribute4 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3600:
3603: G_Stage := 'Got old Attribute5: ' ||
3604: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3605: ' Index position: ' || to_char(j);
3606: If G_Debug_Mode = 'Y' Then
3607: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3608: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3609: End If;
3610:
3611: P_Timecard_Rec.Attribute5 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3604: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3605: ' Index position: ' || to_char(j);
3606: If G_Debug_Mode = 'Y' Then
3607: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3608: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3609: End If;
3610:
3611: P_Timecard_Rec.Attribute5 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3612:
3615: G_Stage := 'Got old Attribute6: ' ||
3616: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3617: ' Index position: ' || to_char(j);
3618: If G_Debug_Mode = 'Y' Then
3619: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3620: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3621: End If;
3622:
3623: P_Timecard_Rec.Attribute6 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3616: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3617: ' Index position: ' || to_char(j);
3618: If G_Debug_Mode = 'Y' Then
3619: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3620: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3621: End If;
3622:
3623: P_Timecard_Rec.Attribute6 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3624:
3627: G_Stage := 'Got old Attribute7: ' ||
3628: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3629: ' Index position: ' || to_char(j);
3630: If G_Debug_Mode = 'Y' Then
3631: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3632: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3633: End If;
3634:
3635: P_Timecard_Rec.Attribute7 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3628: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3629: ' Index position: ' || to_char(j);
3630: If G_Debug_Mode = 'Y' Then
3631: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3632: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3633: End If;
3634:
3635: P_Timecard_Rec.Attribute7 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3636:
3639: G_Stage := 'Got old Attribute8: ' ||
3640: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3641: ' Index position: ' || to_char(j);
3642: If G_Debug_Mode = 'Y' Then
3643: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3644: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3645: End If;
3646:
3647: P_Timecard_Rec.Attribute8 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3640: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3641: ' Index position: ' || to_char(j);
3642: If G_Debug_Mode = 'Y' Then
3643: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3644: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3645: End If;
3646:
3647: P_Timecard_Rec.Attribute8 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3648:
3651: G_Stage := 'Got old Attribute9: ' ||
3652: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3653: ' Index position: ' || to_char(j);
3654: If G_Debug_Mode = 'Y' Then
3655: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3656: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3657: End If;
3658:
3659: P_Timecard_Rec.Attribute9 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3652: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3653: ' Index position: ' || to_char(j);
3654: If G_Debug_Mode = 'Y' Then
3655: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3656: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3657: End If;
3658:
3659: P_Timecard_Rec.Attribute9 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3660:
3663: G_Stage := 'Got old Attribute10: ' ||
3664: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3665: ' Index position: ' || to_char(j);
3666: If G_Debug_Mode = 'Y' Then
3667: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3668: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3669: End If;
3670:
3671: P_Timecard_Rec.Attribute10 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3664: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3665: ' Index position: ' || to_char(j);
3666: If G_Debug_Mode = 'Y' Then
3667: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3668: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3669: End If;
3670:
3671: P_Timecard_Rec.Attribute10 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3672:
3675: G_Stage := 'Got old Billable Flag: ' ||
3676: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3677: ' Index position: ' || to_char(j);
3678: If G_Debug_Mode = 'Y' Then
3679: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3680: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3681: End If;
3682:
3683: P_Timecard_Rec.Billable_Flag := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3676: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3677: ' Index position: ' || to_char(j);
3678: If G_Debug_Mode = 'Y' Then
3679: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3680: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3681: End If;
3682:
3683: P_Timecard_Rec.Billable_Flag := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3684:
3688: G_Stage := 'Got old Po Line Id: ' ||
3689: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3690: ' Index position: ' || to_char(j);
3691: If G_Debug_Mode = 'Y' Then
3692: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3693: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3694: End If;
3695:
3696: P_Timecard_Rec.PO_Line_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3689: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3690: ' Index position: ' || to_char(j);
3691: If G_Debug_Mode = 'Y' Then
3692: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3693: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3694: End If;
3695:
3696: P_Timecard_Rec.PO_Line_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3697:
3700: G_Stage := 'Got old PO Price Type: ' ||
3701: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3702: ' Index position: ' || to_char(j);
3703: If G_Debug_Mode = 'Y' Then
3704: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3705: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3706: End If;
3707:
3708: P_Timecard_Rec.PO_Price_Type := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3701: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3702: ' Index position: ' || to_char(j);
3703: If G_Debug_Mode = 'Y' Then
3704: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3705: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3706: End If;
3707:
3708: P_Timecard_Rec.PO_Price_Type := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3709:
3716:
3717: G_Stage := 'Exited loop. No more OLD attribution for BB_Id. Store the current index position ' ||
3718: to_char(j) || ' in global variable.';
3719: If G_Debug_Mode = 'Y' Then
3720: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3721: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3722: End If;
3723:
3724: /* Note that variable G_Old_Detail_Attr_Index is already pointing the the next building block.
3717: G_Stage := 'Exited loop. No more OLD attribution for BB_Id. Store the current index position ' ||
3718: to_char(j) || ' in global variable.';
3719: If G_Debug_Mode = 'Y' Then
3720: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3721: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3722: End If;
3723:
3724: /* Note that variable G_Old_Detail_Attr_Index is already pointing the the next building block.
3725: * This is due to the fact that we are using the while/loop structure and only leaving the loop
3729: G_Old_Detail_Attr_Index := j;
3730:
3731: G_Stage := 'Determine why exited loop while looking for OLD record attribution.';
3732: If G_Debug_Mode = 'Y' Then
3733: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3734: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3735: End If;
3736:
3737: If j > Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes.LAST Then
3730:
3731: G_Stage := 'Determine why exited loop while looking for OLD record attribution.';
3732: If G_Debug_Mode = 'Y' Then
3733: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3734: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3735: End If;
3736:
3737: If j > Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes.LAST Then
3738:
3739: G_Stage := 'Reached last record index position ' ||
3740: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes.LAST) || ' ' ||
3741: 'in OLD attrib pl/sql table.';
3742: If G_Debug_Mode = 'Y' Then
3743: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3744: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3745: End If;
3746:
3747: ElsIf Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id <> P_BB_Id Then
3740: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes.LAST) || ' ' ||
3741: 'in OLD attrib pl/sql table.';
3742: If G_Debug_Mode = 'Y' Then
3743: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3744: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3745: End If;
3746:
3747: ElsIf Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id <> P_BB_Id Then
3748:
3750: 'BB_Id in OLD attrib pl/sql: ' ||
3751: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id) || '. ' ||
3752: 'They do not match!';
3753: If G_Debug_Mode = 'Y' Then
3754: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3755: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3756: End If;
3757:
3758: End If;
3751: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id) || '. ' ||
3752: 'They do not match!';
3753: If G_Debug_Mode = 'Y' Then
3754: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3755: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3756: End If;
3757:
3758: End If;
3759:
3759:
3760: -- Begin PA.M/CWK changes
3761: G_Stage := 'Check if P_Timecard_Rec.Person_Type is CWK and PO_Line_Id Is Not Null old.';
3762: If G_Debug_Mode = 'Y' Then
3763: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3764: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3765: End If;
3766: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id Is Not Null Then
3767:
3760: -- Begin PA.M/CWK changes
3761: G_Stage := 'Check if P_Timecard_Rec.Person_Type is CWK and PO_Line_Id Is Not Null old.';
3762: If G_Debug_Mode = 'Y' Then
3763: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3764: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3765: End If;
3766: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id Is Not Null Then
3767:
3768: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure old.';
3766: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id Is Not Null Then
3767:
3768: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure old.';
3769: If G_Debug_Mode = 'Y' Then
3770: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3771: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3772: End If;
3773:
3774: Pa_Otc_Api.GetPOInfo(
3767:
3768: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure old.';
3769: If G_Debug_Mode = 'Y' Then
3770: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3771: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3772: End If;
3773:
3774: Pa_Otc_Api.GetPOInfo(
3775: P_Po_Line_Id => P_Timecard_Rec.PO_Line_Id,
3777: X_Vendor_Id => P_Timecard_Rec.Vendor_Id);
3778:
3779: G_Stage := 'Got old Vendor Id: ' || to_char(P_Timecard_Rec.Vendor_Id) || ' based on PO_Line_Id';
3780: If G_Debug_Mode = 'Y' Then
3781: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3782: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3783: End If;
3784:
3785: Else
3778:
3779: G_Stage := 'Got old Vendor Id: ' || to_char(P_Timecard_Rec.Vendor_Id) || ' based on PO_Line_Id';
3780: If G_Debug_Mode = 'Y' Then
3781: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3782: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3783: End If;
3784:
3785: Else
3786:
3785: Else
3786:
3787: G_Stage := 'Set po infor, vendor_id and price_type to null old.';
3788: If G_Debug_Mode = 'Y' Then
3789: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3790: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3791: End If;
3792:
3793: P_Timecard_Rec.PO_Line_Id := NULL;
3786:
3787: G_Stage := 'Set po infor, vendor_id and price_type to null old.';
3788: If G_Debug_Mode = 'Y' Then
3789: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3790: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3791: End If;
3792:
3793: P_Timecard_Rec.PO_Line_Id := NULL;
3794: P_Timecard_Rec.PO_Header_Id := NULL;
3801: End If;
3802:
3803: G_Stage := 'Checking that needed data was retrieved to properly process building block for import.';
3804: If G_Debug_Mode = 'Y' Then
3805: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3806: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3807: End If;
3808:
3809: If P_Timecard_Rec.Project_Id is null and
3802:
3803: G_Stage := 'Checking that needed data was retrieved to properly process building block for import.';
3804: If G_Debug_Mode = 'Y' Then
3805: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3806: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3807: End If;
3808:
3809: If P_Timecard_Rec.Project_Id is null and
3810: P_Timecard_Rec.Task_Id is null and
3886: End If;
3887:
3888: G_Stage := 'Leaving PopulateProjRec(), strip procedure from trackpath.';
3889: If G_Debug_Mode = 'Y' Then
3890: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3891: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3892: End If;
3893: Pa_Otc_Api.TrackPath('STRIP','PopulateProjRec');
3894:
3887:
3888: G_Stage := 'Leaving PopulateProjRec(), strip procedure from trackpath.';
3889: If G_Debug_Mode = 'Y' Then
3890: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3891: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3892: End If;
3893: Pa_Otc_Api.TrackPath('STRIP','PopulateProjRec');
3894:
3895: Exception
3899: fnd_message.set_token('ERR', l_Error_Text);
3900: P_Timecard_Rec.Status := SubStr(Fnd_Message.Get,1,2000);
3901:
3902: If G_Debug_Mode = 'Y' Then
3903: Pa_Debug.G_err_Stage := P_Timecard_Rec.Status;
3904: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3905: End If;
3906:
3907: l_error_text := 'Leaving PopulateProjRec() due to unhandled exception, strip procedure from trackpath.';
3900: P_Timecard_Rec.Status := SubStr(Fnd_Message.Get,1,2000);
3901:
3902: If G_Debug_Mode = 'Y' Then
3903: Pa_Debug.G_err_Stage := P_Timecard_Rec.Status;
3904: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3905: End If;
3906:
3907: l_error_text := 'Leaving PopulateProjRec() due to unhandled exception, strip procedure from trackpath.';
3908: If G_Debug_Mode = 'Y' Then
3905: End If;
3906:
3907: l_error_text := 'Leaving PopulateProjRec() due to unhandled exception, strip procedure from trackpath.';
3908: If G_Debug_Mode = 'Y' Then
3909: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || l_error_text;
3910: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3911: End If;
3912: Pa_Otc_Api.TrackPath('STRIP','PopulateProjRec');
3913:
3906:
3907: l_error_text := 'Leaving PopulateProjRec() due to unhandled exception, strip procedure from trackpath.';
3908: If G_Debug_Mode = 'Y' Then
3909: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || l_error_text;
3910: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3911: End If;
3912: Pa_Otc_Api.TrackPath('STRIP','PopulateProjRec');
3913:
3914: Raise G_BAD_OTL_DATA;
3944: Begin
3945:
3946: G_Stage := 'Entering procedure GetDetailIndex(), add procedure to trackpath.';
3947: If G_Debug_Mode = 'Y' Then
3948: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3949: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3950: End If;
3951: Pa_Otc_Api.TrackPath('ADD','GetDetailIndex');
3952:
3945:
3946: G_Stage := 'Entering procedure GetDetailIndex(), add procedure to trackpath.';
3947: If G_Debug_Mode = 'Y' Then
3948: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3949: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3950: End If;
3951: Pa_Otc_Api.TrackPath('ADD','GetDetailIndex');
3952:
3953: G_Stage := 'Begin loop searching for the matching BB_Id.';
3951: Pa_Otc_Api.TrackPath('ADD','GetDetailIndex');
3952:
3953: G_Stage := 'Begin loop searching for the matching BB_Id.';
3954: If G_Debug_Mode = 'Y' Then
3955: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3956: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3957: End If;
3958:
3959: For i in Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.FIRST .. Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.LAST
3952:
3953: G_Stage := 'Begin loop searching for the matching BB_Id.';
3954: If G_Debug_Mode = 'Y' Then
3955: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3956: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3957: End If;
3958:
3959: For i in Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.FIRST .. Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.LAST
3960: Loop
3960: Loop
3961:
3962: G_Stage := 'Determine if BB_Id in the pl/sql matches the one provided.';
3963: If G_Debug_Mode = 'Y' Then
3964: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3965: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3966: End If;
3967:
3968: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id = P_Detail_BB_Id Then
3961:
3962: G_Stage := 'Determine if BB_Id in the pl/sql matches the one provided.';
3963: If G_Debug_Mode = 'Y' Then
3964: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3965: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3966: End If;
3967:
3968: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id = P_Detail_BB_Id Then
3969:
3968: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id = P_Detail_BB_Id Then
3969:
3970: G_Stage := 'Set Index to use since found the one needed.';
3971: If G_Debug_Mode = 'Y' Then
3972: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3973: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3974: End If;
3975:
3976: X_Detail_Index := i;
3969:
3970: G_Stage := 'Set Index to use since found the one needed.';
3971: If G_Debug_Mode = 'Y' Then
3972: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3973: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3974: End If;
3975:
3976: X_Detail_Index := i;
3977:
3976: X_Detail_Index := i;
3977:
3978: G_Stage := 'Exiting the loop since found the index needed.';
3979: If G_Debug_Mode = 'Y' Then
3980: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3981: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3982: End If;
3983:
3984: EXIT;
3977:
3978: G_Stage := 'Exiting the loop since found the index needed.';
3979: If G_Debug_Mode = 'Y' Then
3980: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3981: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3982: End If;
3983:
3984: EXIT;
3985:
3988: End Loop;
3989:
3990: G_Stage := 'Leaving procedure GetDetailIndex().';
3991: If G_Debug_Mode = 'Y' Then
3992: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3993: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3994: End If;
3995: Pa_Otc_Api.TrackPath('STRIP','GetDetailIndex');
3996:
3989:
3990: G_Stage := 'Leaving procedure GetDetailIndex().';
3991: If G_Debug_Mode = 'Y' Then
3992: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3993: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3994: End If;
3995: Pa_Otc_Api.TrackPath('STRIP','GetDetailIndex');
3996:
3997: Exception
8803: Begin
8804:
8805: G_Stage := 'Entering GetBatchName(), add procedure to trackpath.';
8806: If G_Debug_Mode = 'Y' Then
8807: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8808: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8809: End If;
8810: Pa_Otc_Api.TrackPath('ADD','GetBatchName');
8811:
8804:
8805: G_Stage := 'Entering GetBatchName(), add procedure to trackpath.';
8806: If G_Debug_Mode = 'Y' Then
8807: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8808: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8809: End If;
8810: Pa_Otc_Api.TrackPath('ADD','GetBatchName');
8811:
8812: If G_EndDateBatchName_Table.Count > 0 Then
8812: If G_EndDateBatchName_Table.Count > 0 Then
8813:
8814: G_Stage := 'There are already batch name recs in pl/sql table. See if find a matching one via loop.';
8815: If G_Debug_Mode = 'Y' Then
8816: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8817: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8818: End If;
8819:
8820: For i IN G_EndDateBatchName_Table.First .. G_EndDateBatchName_Table.Last
8813:
8814: G_Stage := 'There are already batch name recs in pl/sql table. See if find a matching one via loop.';
8815: If G_Debug_Mode = 'Y' Then
8816: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8817: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8818: End If;
8819:
8820: For i IN G_EndDateBatchName_Table.First .. G_EndDateBatchName_Table.Last
8821: Loop
8830: End Loop;
8831:
8832: G_Stage := 'Done searching for matching batch name record via loop.';
8833: If G_Debug_Mode = 'Y' Then
8834: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8835: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8836: End If;
8837:
8838: End If; -- G_EndDateBatchName_Table.Count > 0
8831:
8832: G_Stage := 'Done searching for matching batch name record via loop.';
8833: If G_Debug_Mode = 'Y' Then
8834: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8835: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8836: End If;
8837:
8838: End If; -- G_EndDateBatchName_Table.Count > 0
8839:
8841:
8842: /* Create a batch Name for Import run.*/
8843: G_Stage := 'Get string of sysdate in YYMMDD format.';
8844: If G_Debug_Mode = 'Y' Then
8845: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8846: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8847: End If;
8848:
8849: Select
8842: /* Create a batch Name for Import run.*/
8843: G_Stage := 'Get string of sysdate in YYMMDD format.';
8844: If G_Debug_Mode = 'Y' Then
8845: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8846: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8847: End If;
8848:
8849: Select
8850: To_Char(P_Exp_End_Date,'YYMMDD')
8854: Dual;
8855:
8856: G_Stage := 'Use mod(pa_expenditure_groups_s.nextval,1000) to create number value.';
8857: If G_Debug_Mode = 'Y' Then
8858: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8859: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8860: End If;
8861:
8862: SELECT
8855:
8856: G_Stage := 'Use mod(pa_expenditure_groups_s.nextval,1000) to create number value.';
8857: If G_Debug_Mode = 'Y' Then
8858: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8859: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8860: End If;
8861:
8862: SELECT
8863: Mod(Pa_Expenditure_Groups_S.NextVal,1000)
8867: Dual;
8868:
8869: G_Stage := 'Create a batch Name for Import run.';
8870: If G_Debug_Mode = 'Y' Then
8871: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8872: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8873: End If;
8874:
8875: X_Batch_Name := l_Date_String || '-' || To_Char(l_Sequence_No);
8868:
8869: G_Stage := 'Create a batch Name for Import run.';
8870: If G_Debug_Mode = 'Y' Then
8871: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8872: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8873: End If;
8874:
8875: X_Batch_Name := l_Date_String || '-' || To_Char(l_Sequence_No);
8876:
8882: End If; -- Not l_Found_Match
8883:
8884: G_Stage := 'Leaving GetBatchName(), strip procedure from trackpath.';
8885: If G_Debug_Mode = 'Y' Then
8886: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8887: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8888: End If;
8889: Pa_Otc_Api.TrackPath('STRIP','GetBatchName');
8890:
8883:
8884: G_Stage := 'Leaving GetBatchName(), strip procedure from trackpath.';
8885: If G_Debug_Mode = 'Y' Then
8886: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8887: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8888: End If;
8889: Pa_Otc_Api.TrackPath('STRIP','GetBatchName');
8890:
8891: Exception
8891: Exception
8892: When Others Then
8893: l_debug_text := 'Leaving GetBatchName() due to unhandled exception, strip procedure from trackpath.';
8894: If G_Debug_Mode = 'Y' Then
8895: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || l_debug_text;
8896: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8897: End If;
8898: Pa_Otc_Api.TrackPath('STRIP','GetBatchName');
8899: Raise;
8892: When Others Then
8893: l_debug_text := 'Leaving GetBatchName() due to unhandled exception, strip procedure from trackpath.';
8894: If G_Debug_Mode = 'Y' Then
8895: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || l_debug_text;
8896: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
8897: End If;
8898: Pa_Otc_Api.TrackPath('STRIP','GetBatchName');
8899: Raise;
8900:
8967: Begin
8968:
8969: G_Stage := 'Entering GetOrigTrxRef(), add procedure to trackpath.';
8970: If G_Debug_Mode = 'Y' Then
8971: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8972: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
8973: End If;
8974: Pa_Otc_Api.TrackPath('ADD','GetOrigTrxRef');
8975:
8968:
8969: G_Stage := 'Entering GetOrigTrxRef(), add procedure to trackpath.';
8970: If G_Debug_Mode = 'Y' Then
8971: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8972: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
8973: End If;
8974: Pa_Otc_Api.TrackPath('ADD','GetOrigTrxRef');
8975:
8976: G_Stage := 'Build search string.';
8974: Pa_Otc_Api.TrackPath('ADD','GetOrigTrxRef');
8975:
8976: G_Stage := 'Build search string.';
8977: If G_Debug_Mode = 'Y' Then
8978: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8979: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
8980: End If;
8981: l_Search := to_char(P_Building_Block_Id) || ':%';
8982:
8975:
8976: G_Stage := 'Build search string.';
8977: If G_Debug_Mode = 'Y' Then
8978: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8979: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
8980: End If;
8981: l_Search := to_char(P_Building_Block_Id) || ':%';
8982:
8983: G_Stage := 'Search ei table for available ei record.';
8981: l_Search := to_char(P_Building_Block_Id) || ':%';
8982:
8983: G_Stage := 'Search ei table for available ei record.';
8984: If G_Debug_Mode = 'Y' Then
8985: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8986: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
8987: End If;
8988: Select
8989: Orig_Transaction_Reference
8982:
8983: G_Stage := 'Search ei table for available ei record.';
8984: If G_Debug_Mode = 'Y' Then
8985: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
8986: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
8987: End If;
8988: Select
8989: Orig_Transaction_Reference
8990: Into
9008: And Adjusted_Expenditure_Item_Id is Null);
9009:
9010: G_Stage := 'Leaving GetOrigTrxRef(), strip procedure from trackpath.';
9011: If G_Debug_Mode = 'Y' Then
9012: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9013: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9014: End If;
9015: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9016:
9009:
9010: G_Stage := 'Leaving GetOrigTrxRef(), strip procedure from trackpath.';
9011: If G_Debug_Mode = 'Y' Then
9012: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9013: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9014: End If;
9015: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9016:
9017: Exception
9024: X_Status := SubStr(fnd_message.get,1,2000);
9025:
9026: G_Stage := 'Leaving GetOrigTrxRef() due to unhandled exception, strip procedure from trackpath';
9027: If G_Debug_Mode = 'Y' Then
9028: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9029: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9030: End If;
9031: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9032:
9025:
9026: G_Stage := 'Leaving GetOrigTrxRef() due to unhandled exception, strip procedure from trackpath';
9027: If G_Debug_Mode = 'Y' Then
9028: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9029: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9030: End If;
9031: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9032:
9033: If G_Debug_Mode = 'Y' Then
9030: End If;
9031: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9032:
9033: If G_Debug_Mode = 'Y' Then
9034: Pa_Debug.G_err_Stage := l_error_text;
9035: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9036: End If;
9037:
9038: When Others Then
9031: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9032:
9033: If G_Debug_Mode = 'Y' Then
9034: Pa_Debug.G_err_Stage := l_error_text;
9035: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9036: End If;
9037:
9038: When Others Then
9039: Raise;
9070: Begin
9071:
9072: G_Stage := 'Entering GetAdditionalTrxData(), add procedure to trackpath.';
9073: If G_Debug_Mode = 'Y' Then
9074: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9075: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9076: End If;
9077: Pa_Otc_Api.TrackPath('ADD','GetAdditionalTrxData');
9078:
9071:
9072: G_Stage := 'Entering GetAdditionalTrxData(), add procedure to trackpath.';
9073: If G_Debug_Mode = 'Y' Then
9074: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9075: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9076: End If;
9077: Pa_Otc_Api.TrackPath('ADD','GetAdditionalTrxData');
9078:
9079: G_Stage := 'Get Incurred by Organization Id.';
9077: Pa_Otc_Api.TrackPath('ADD','GetAdditionalTrxData');
9078:
9079: G_Stage := 'Get Incurred by Organization Id.';
9080: If G_Debug_Mode = 'Y' Then
9081: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9082: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9083: End If;
9084:
9085: Pa_Utils3.GetCachedOrgId( P_Inc_By_Per_Id => P_Person_Id,
9078:
9079: G_Stage := 'Get Incurred by Organization Id.';
9080: If G_Debug_Mode = 'Y' Then
9081: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9082: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9083: End If;
9084:
9085: Pa_Utils3.GetCachedOrgId( P_Inc_By_Per_Id => P_Person_Id,
9086: P_Exp_Item_Date => P_EI_Date,
9087: X_Inc_By_Org_Id => X_Org_Id);
9088:
9089: G_Stage := 'Incurred by Organization Id is ' || to_char(X_Org_Id) ;
9090: If G_Debug_Mode = 'Y' Then
9091: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9092: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9093: End If;
9094:
9095: X_Error_Status := Null;
9088:
9089: G_Stage := 'Incurred by Organization Id is ' || to_char(X_Org_Id) ;
9090: If G_Debug_Mode = 'Y' Then
9091: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9092: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9093: End If;
9094:
9095: X_Error_Status := Null;
9096:
9095: X_Error_Status := Null;
9096:
9097: G_Stage := 'Leaving GetAdditionalTrxData(), strip procedure from trackpath.';
9098: If G_Debug_Mode = 'Y' Then
9099: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9100: Pa_Cc_Utils.Log_Message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9101: End If;
9102: Pa_Otc_Api.TrackPath('STRIP','GetAdditionalTrxData');
9103:
9096:
9097: G_Stage := 'Leaving GetAdditionalTrxData(), strip procedure from trackpath.';
9098: If G_Debug_Mode = 'Y' Then
9099: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9100: Pa_Cc_Utils.Log_Message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9101: End If;
9102: Pa_Otc_Api.TrackPath('STRIP','GetAdditionalTrxData');
9103:
9104: Exception
9105: When Others Then
9106: X_Error_Status := 'Could not get Incurred by Organization Id.';
9107: G_Stage := 'Leaving GetAdditionalTrxData() in exception handler.';
9108: If G_Debug_Mode = 'Y' Then
9109: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9110: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9111: End If;
9112: Pa_Otc_Api.TrackPath('STRIP','GetAdditionalTrxData');
9113:
9106: X_Error_Status := 'Could not get Incurred by Organization Id.';
9107: G_Stage := 'Leaving GetAdditionalTrxData() in exception handler.';
9108: If G_Debug_Mode = 'Y' Then
9109: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9110: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9111: End If;
9112: Pa_Otc_Api.TrackPath('STRIP','GetAdditionalTrxData');
9113:
9114: End GetAdditionalTrxData;
9142: Begin
9143:
9144: G_Stage := 'Entering BulkInsertReset(), add procedure to trackpath.';
9145: If G_Debug_Mode = 'Y' Then
9146: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9147: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
9148: End If;
9149: Pa_Otc_Api.TrackPath('ADD','BulkInsertReset');
9150:
9143:
9144: G_Stage := 'Entering BulkInsertReset(), add procedure to trackpath.';
9145: If G_Debug_Mode = 'Y' Then
9146: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9147: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
9148: End If;
9149: Pa_Otc_Api.TrackPath('ADD','BulkInsertReset');
9150:
9151: If P_Command = 'INSERT' Then
9151: If P_Command = 'INSERT' Then
9152:
9153: G_Stage := 'Bulk Insert records into Interface table via Pa_Txn_Interface_Items_Pkg.Bulk_Insert().';
9154: If G_Debug_Mode = 'Y' Then
9155: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9156: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
9157: End If;
9158:
9159: Pa_Txn_Interface_Items_Pkg.Bulk_Insert(
9152:
9153: G_Stage := 'Bulk Insert records into Interface table via Pa_Txn_Interface_Items_Pkg.Bulk_Insert().';
9154: If G_Debug_Mode = 'Y' Then
9155: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9156: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
9157: End If;
9158:
9159: Pa_Txn_Interface_Items_Pkg.Bulk_Insert(
9160: P_Txn_Interface_Id_Tbl => G_Txn_Interface_Id_Tbl,
9265: If P_Command in ( 'INSERT', 'RESET' ) Then
9266:
9267: G_Stage := 'Reset all pl/sql table arrays used for bulk insert.';
9268: If G_Debug_Mode = 'Y' Then
9269: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9270: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
9271: End If;
9272:
9273: G_Txn_Interface_Id_Tbl.Delete;
9266:
9267: G_Stage := 'Reset all pl/sql table arrays used for bulk insert.';
9268: If G_Debug_Mode = 'Y' Then
9269: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9270: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
9271: End If;
9272:
9273: G_Txn_Interface_Id_Tbl.Delete;
9274: G_Transaction_Source_Tbl.Delete;
9379: End If;
9380:
9381: G_Stage := 'Leaving BulkInsertReset(), strip procedure from trackpath.';
9382: If G_Debug_Mode = 'Y' Then
9383: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9384: Pa_Cc_Utils.Log_Message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
9385: End If;
9386: Pa_Otc_Api.TrackPath('STRIP','BulkInsertReset');
9387:
9380:
9381: G_Stage := 'Leaving BulkInsertReset(), strip procedure from trackpath.';
9382: If G_Debug_Mode = 'Y' Then
9383: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9384: Pa_Cc_Utils.Log_Message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
9385: End If;
9386: Pa_Otc_Api.TrackPath('STRIP','BulkInsertReset');
9387:
9388: Exception