[Home] [Help]
1: Package Body Pa_Otc_Api As
2: -- $Header: PAXVOTCB.pls 120.45.12020000.6 2013/05/15 07:00:00 rboyalap ship $
3:
4: -- Package Variables
5:
20: -- Used to indentify the path taken to the point on where an unexpected error occurs.
21: G_Path Varchar2(2000) := ' ';
22:
23: -- These pl/sql table are used for flushing out procedure tables
24: G_Msg_Tokens_Table Pa_Otc_Api.Message_Tokens;
25:
26: -- This pl/sql table stores a list of the expenditure_ending_dates and there associated batch_name
27: -- This pl/sql table is used during the Pre-Import phase of Trx Import
28: G_EndDateBatchName_Table Pa_Otc_Api.EndDateBatchName_Tab;
24: G_Msg_Tokens_Table Pa_Otc_Api.Message_Tokens;
25:
26: -- This pl/sql table stores a list of the expenditure_ending_dates and there associated batch_name
27: -- This pl/sql table is used during the Pre-Import phase of Trx Import
28: G_EndDateBatchName_Table Pa_Otc_Api.EndDateBatchName_Tab;
29:
30: -- Used to store the binary_index for the pl/sql table records inserted into the interface table so that can speed up
31: -- the tieback process.
32: G_Trx_Inserted_Tab Pa_Otc_Api.Trx_Inserted_Table;
28: G_EndDateBatchName_Table Pa_Otc_Api.EndDateBatchName_Tab;
29:
30: -- Used to store the binary_index for the pl/sql table records inserted into the interface table so that can speed up
31: -- the tieback process.
32: G_Trx_Inserted_Tab Pa_Otc_Api.Trx_Inserted_Table;
33:
34: -- Used to store the binary_index for pl/sql table records that were directly updated. This is so that can speed up
35: -- the tieback process.
36: G_Trx_Direct_Upd_Tab Pa_Otc_Api.Trx_Inserted_Table;
32: G_Trx_Inserted_Tab Pa_Otc_Api.Trx_Inserted_Table;
33:
34: -- Used to store the binary_index for pl/sql table records that were directly updated. This is so that can speed up
35: -- the tieback process.
36: G_Trx_Direct_Upd_Tab Pa_Otc_Api.Trx_Inserted_Table;
37:
38: -- Used as a check flag for the looping that is now been added in Trx Import for OTL. The flag is used within
39: -- the exception handler for Upload_Otc_Timecard() procedure.
40: G_Processed_Import_Batch Boolean := Null;
253: -- P_Message_Table - Hxc_User_Type_Definition_Grp.Message_Table%TYPE
254: -- P_Message_Name - Fnd_New_Messages.Message_Name%TYPE
255: -- P_Message_Level - Varchar2
256: -- P_Message_Field - Varchar2
257: -- P_Msg_Tokens - Pa_Otc_Api.Messages_Tokens
258: -- P_Time_Building_Block_Id - Hxc_Time_Building_Blocks.Time_Building_Block_Id%TYPE
259: -- P_Time_Attribute_Id - Hxc_Time_Attributes.Time_Attribute_Id%TYPE
260: -- P_Message_App - Varchar2 Default 'PA'
261: --
269: P_Message_Table IN OUT NOCOPY Hxc_User_Type_Definition_Grp.Message_Table, -- 2672653
270: P_Message_Name IN Fnd_New_Messages.Message_Name%TYPE,
271: P_Message_Level IN Varchar2,
272: P_Message_Field IN Varchar2,
273: P_Msg_Tokens IN Pa_Otc_Api.Message_Tokens,
274: P_Time_Building_Block_Id IN Hxc_Time_Building_Blocks.Time_Building_Block_Id%TYPE,
275: P_Time_Attribute_Id IN Hxc_Time_Attributes.Time_Attribute_Id%TYPE,
276: P_Message_App IN Varchar2 )
277:
282:
283: Begin
284:
285: G_Stage := 'Entering Add_Error_To_Table().';
286: Pa_Otc_Api.TrackPath('ADD','Add_Error_To_Table');
287:
288: G_Stage := 'Determine Error token count.';
289: If P_Msg_Tokens.Count > 0 Then
290:
333: G_Stage := 'Assign Time Attribute Id to error table record.';
334: P_Message_Table(l_last_index).Time_Attribute_Id := P_Time_Attribute_Id;
335:
336: G_Stage := 'Leaving Add_Error_To_Table() procedure.';
337: Pa_Otc_Api.TrackPath('STRIP','Add_Error_To_Table');
338:
339: Exception
340: When Others Then
341: Raise;
381: l_Org_Id Hr_All_Organization_Units.Organization_Id%TYPE := NULL;
382: l_Direct_Update_Flag Boolean := True; /* changed for bug 13831042 */
383: l_Comment_Or_Dff Varchar2(3); -- bug 12650576. increased to 3.
384: l_Comment Varchar2(150);
385: l_New_Timecard_Rec Pa_Otc_Api.Timecard_Rec;
386: l_Old_Timecard_Rec Pa_Otc_Api.Timecard_Rec;
387: l_Temp_Timecard_Rec Pa_Otc_Api.Timecard_Rec := NULL;
388: l_Old_Detail_Index Binary_Integer := 0;
389: l_Error_Code Varchar2(30) := NULL;
382: l_Direct_Update_Flag Boolean := True; /* changed for bug 13831042 */
383: l_Comment_Or_Dff Varchar2(3); -- bug 12650576. increased to 3.
384: l_Comment Varchar2(150);
385: l_New_Timecard_Rec Pa_Otc_Api.Timecard_Rec;
386: l_Old_Timecard_Rec Pa_Otc_Api.Timecard_Rec;
387: l_Temp_Timecard_Rec Pa_Otc_Api.Timecard_Rec := NULL;
388: l_Old_Detail_Index Binary_Integer := 0;
389: l_Error_Code Varchar2(30) := NULL;
390: l_dummy Number := NULL;
383: l_Comment_Or_Dff Varchar2(3); -- bug 12650576. increased to 3.
384: l_Comment Varchar2(150);
385: l_New_Timecard_Rec Pa_Otc_Api.Timecard_Rec;
386: l_Old_Timecard_Rec Pa_Otc_Api.Timecard_Rec;
387: l_Temp_Timecard_Rec Pa_Otc_Api.Timecard_Rec := NULL;
388: l_Old_Detail_Index Binary_Integer := 0;
389: l_Error_Code Varchar2(30) := NULL;
390: l_dummy Number := NULL;
391: l_Error_Text Varchar2(2000);
433: G_Path := ' ';
434:
435: G_Stage := 'Entering Upload_Otc_Timecard(), add procedure to trackpath.';
436: If G_Debug_Mode = 'Y' Then
437: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
438: pa_cc_utils.log_message( Pa_Debug.G_Err_Stage,1);
439: End If;
440: Pa_Otc_Api.TrackPath('ADD','Upload_Otc_Timecards');
441:
436: If G_Debug_Mode = 'Y' Then
437: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
438: pa_cc_utils.log_message( Pa_Debug.G_Err_Stage,1);
439: End If;
440: Pa_Otc_Api.TrackPath('ADD','Upload_Otc_Timecards');
441:
442: If G_Processed_Import_Batch is Null Then
443:
444: G_Stage := 'Single time process initialization section needed.';
442: If G_Processed_Import_Batch is Null Then
443:
444: G_Stage := 'Single time process initialization section needed.';
445: If G_Debug_Mode = 'Y' Then
446: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
447: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
448: End If;
449:
450: G_Stage := 'Call BulkInsertReset() procedure for reset.';
448: End If;
449:
450: G_Stage := 'Call BulkInsertReset() procedure for reset.';
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: Pa_Otc_Api.BulkInsertReset(P_Command => 'RESET');
456:
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: Pa_Otc_Api.BulkInsertReset(P_Command => 'RESET');
456:
457: G_Stage := 'Initialize what remains.';
458: If G_Debug_Mode = 'Y' Then
459: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
455: Pa_Otc_Api.BulkInsertReset(P_Command => 'RESET');
456:
457: G_Stage := 'Initialize what remains.';
458: If G_Debug_Mode = 'Y' Then
459: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
460: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
461: End If;
462: G_Processed_Import_Batch := FALSE;
463: G_EndDateBatchName_Table.Delete;
466: End If;
467:
468: G_Stage := 'Each time Upload_Otc_Timecards() called initializaion of global variables.';
469: If G_Debug_Mode = 'Y' Then
470: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
471: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
472: End If;
473:
474: G_Old_Detail_Attr_Index := 0;
489: If Pa_Utils.Pa_Morg_Implemented = 'Y' Then
490:
491: G_Stage := 'Create where clause.';
492: If G_Debug_Mode = 'Y' Then
493: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
494: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
495: End If;
496:
497: -- 12i MOAC changes
501: Else
502:
503: G_Stage := 'No where clause.';
504: If G_Debug_Mode = 'Y' Then
505: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
506: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
507: End If;
508:
509: l_Where_Clause := NULL;
530: */
531:
532: G_Stage := 'Call execute retrieval process API.';
533: If G_Debug_Mode = 'Y' Then
534: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
535: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
536: End If;
537: Hxc_Integration_Layer_V1_Grp.Execute_Retrieval_Process(
538: P_Process => 'Projects Retrieval Process',
550: Pa_Trx_Import.G_Exit_Main := FALSE;
551:
552: G_Stage := 'Loop thru all hxc detail building block records.';
553: If G_Debug_Mode = 'Y' Then
554: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
555: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
556: End If;
557: For i IN Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.First .. Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.Last
558: Loop
559:
560: G_Stage := 'Process bb/ovn: ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
561: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn) ||
562: ' for Resource_Id(Person_Id): ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Resource_Id);
563: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
564: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
565:
566: Begin
567:
566: Begin
567:
568: G_Stage := 'Primary condition evaluation within the loop.';
569: If G_Debug_Mode = 'Y' Then
570: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
571: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
572: End If;
573:
574: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Changed = 'N' and
574: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Changed = 'N' and
575: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Deleted = 'Y' Then
576:
577: G_Stage := 'Item Changed: N, Deleted: Y.';
578: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
579: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
580:
581:
582: -- Even though the building block was deleted prior to being imported into projects
587: -- There is also no need to look at the old pl/sql tables records.
588:
589: G_Stage := 'Call Populate Project Record new 1 for positioning purposes only.';
590: If G_Debug_Mode = 'Y' Then
591: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
592: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
593: End If;
594:
595: Pa_Otc_Api.PopulateProjRec(
591: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
592: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
593: End If;
594:
595: Pa_Otc_Api.PopulateProjRec(
596: P_New_Old_BB => 'NEW',
597: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
598: P_Detail_Index => i,
599: P_Old_Detl_Ind => l_Old_Detail_Index,
609: -- If this is the condition then there is only new data to process via PopulateProjRec() procedure
610: -- and there is no need to look at the old data via the same procedure.
611:
612: G_Stage := 'Item Changed: N, Deleted: N.';
613: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
614: pa_cc_Utils.log_message(Pa_Debug.G_Err_Stage,1);
615:
616: G_Stage := 'Call Populate Project Record new 2.';
617: If G_Debug_Mode = 'Y' Then
614: pa_cc_Utils.log_message(Pa_Debug.G_Err_Stage,1);
615:
616: G_Stage := 'Call Populate Project Record new 2.';
617: If G_Debug_Mode = 'Y' Then
618: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
619: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
620: End If;
621:
622: Pa_Otc_Api.PopulateProjRec(
618: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
619: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
620: End If;
621:
622: Pa_Otc_Api.PopulateProjRec(
623: P_New_Old_BB => 'NEW',
624: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
625: P_Detail_Index => i,
626: P_Old_Detl_Ind => l_Old_Detail_Index,
627: P_Timecard_Rec => l_New_Timecard_Rec);
628:
629: G_Stage := 'EI data status check 2.';
630: If G_Debug_Mode = 'Y' Then
631: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
632: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
633: End If;
634:
635: If l_New_Timecard_Rec.Status is Not Null Then
635: If l_New_Timecard_Rec.Status is Not Null Then
636:
637: G_Stage := 'New Record Status is not null 2. Timecard status is ' || l_New_Timecard_Rec.Status;
638: If G_Debug_Mode = 'Y' Then
639: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
640: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
641: End If;
642:
643: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
647: Else
648:
649: G_Stage := 'Create new orig trx ref 2.';
650: If G_Debug_Mode = 'Y' Then
651: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
652: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
653: End If;
654:
655: l_new_orig_trx_ref :=
657: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
658:
659: G_Stage := 'Check if original transaction reference already exists 2';
660: If G_Debug_Mode = 'Y' Then
661: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
662: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
663: End If;
664:
665: -- Calling the function is a sanity check to confirm that this is solely new data.
662: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
663: End If;
664:
665: -- Calling the function is a sanity check to confirm that this is solely new data.
666: If NOT Pa_Otc_Api.OrigTrxRefValueExists(l_new_orig_trx_ref) Then
667:
668: -- Insert a new record. There should be no records in either
669: -- pl/sql tables t_old_detail_bld_blks or t_old_detail_attributes
670: -- for this building block id.
673: l_insert_rec_flag := TRUE;
674:
675: G_Stage := 'Call the GetBatchName procedure 2';
676: If G_Debug_Mode = 'Y' Then
677: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
678: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
679: End If;
680:
681: Pa_Otc_Api.GetBatchName(
677: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
678: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
679: End If;
680:
681: Pa_Otc_Api.GetBatchName(
682: P_Exp_End_Date => l_New_Timecard_Rec.Expenditure_Ending_Date,
683: X_Batch_Name => l_Batch_Name);
684:
685: Else
686: -- This condition result should never happen, but it's here just in case.
687:
688: G_Stage := 'Building block/ovn combo already exists in projects 2.';
689: If G_Debug_Mode = 'Y' Then
690: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
691: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
692: End If;
693: l_insert_rec_flag := FALSE;
694: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'SUCCESS';
700: ElsIf Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Changed = 'Y' and
701: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Deleted = 'N' Then
702:
703: G_Stage := 'Item Changed: Y, Deleted: N.';
704: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
705: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
706:
707: l_Old_Detail_Index := l_Old_Detail_Index + 1;
708:
707: l_Old_Detail_Index := l_Old_Detail_Index + 1;
708:
709: G_Stage := 'Create new orig trx ref 3.';
710: If G_Debug_Mode = 'Y' Then
711: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
712: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
713: End If;
714:
715: l_new_orig_trx_ref :=
715: l_new_orig_trx_ref :=
716: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
717: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
718:
719: If NOT Pa_Otc_Api.OrigTrxRefValueExists(l_new_orig_trx_ref) Then
720:
721: G_Stage := 'Call Populate Project Record new 3a.';
722: If G_Debug_Mode = 'Y' Then
723: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
719: If NOT Pa_Otc_Api.OrigTrxRefValueExists(l_new_orig_trx_ref) Then
720:
721: G_Stage := 'Call Populate Project Record new 3a.';
722: If G_Debug_Mode = 'Y' Then
723: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
724: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
725: End If;
726:
727: Pa_Otc_Api.PopulateProjRec(
723: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
724: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
725: End If;
726:
727: Pa_Otc_Api.PopulateProjRec(
728: P_New_Old_BB => 'NEW',
729: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
730: P_Detail_Index => i,
731: P_Old_Detl_Ind => l_Old_Detail_Index,
732: P_timecard_Rec => l_New_Timecard_Rec);
733:
734: G_Stage := 'EI data status check 3a.';
735: If G_Debug_Mode = 'Y' Then
736: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
737: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
738: End If;
739:
740: If l_New_Timecard_Rec.Status is Not Null Then
740: If l_New_Timecard_Rec.Status is Not Null Then
741:
742: G_Stage := 'New Record Status is not null 3a. Timecard status is ' || l_New_Timecard_Rec.Status;
743: If G_Debug_Mode = 'Y' Then
744: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
745: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
746: End If;
747:
748: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
752: G_Stage := 'Since the Status is not null 3a has been hit for new record, ' ||
753: 'call PopulateProjRec() for old records for positioning ' ||
754: 'purposes only to maintain sync with new pl/sql tables.';
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(
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',
762: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).bb_id,
763: P_Detail_Index => i,
764: P_Old_Detl_Ind => l_Old_Detail_Index,
770: Else
771:
772: G_Stage := 'Call Populate Project Record old 3a.';
773: If G_Debug_Mode = 'Y' Then
774: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
775: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
776: End If;
777:
778: Pa_Otc_Api.PopulateProjRec(
774: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
775: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
776: End If;
777:
778: Pa_Otc_Api.PopulateProjRec(
779: P_New_Old_BB => 'OLD',
780: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).bb_id,
781: P_Detail_Index => i,
782: P_Old_Detl_Ind => l_Old_Detail_Index,
785: If l_Old_Timecard_Rec.Status is Not Null Then
786:
787: G_Stage := 'Old Record Status is not null 3a. Timecard status is ' || l_Old_Timecard_Rec.Status;
788: If G_Debug_Mode = 'Y' Then
789: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
790: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
791: End If;
792:
793: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
800: -- insert record into pa_transaction_interface or update tables
801: -- pa_expenditure_comments and/or pa_expenditure_items_all.
802: G_Stage := 'Call Determine Direct Update 3.';
803: If G_Debug_Mode = 'Y' Then
804: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
805: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
806: End If;
807:
808: Pa_Otc_Api.DetermineDirectUpdate(
804: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
805: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
806: End If;
807:
808: Pa_Otc_Api.DetermineDirectUpdate(
809: P_New_Timecard_Rec => l_New_Timecard_Rec,
810: P_Old_Timecard_Rec => l_Old_Timecard_Rec,
811: P_Direct_Update_Flag => l_direct_update_flag,
812: P_Comment_or_Dff => l_Comment_or_Dff);
816: l_insert_rec_flag := FALSE;
817:
818: G_Stage := 'Direct Update of the exp item in projects. ' ||
819: 'Need to update (C)omment, (D)ff, (B)oth: ' || l_Comment_or_Dff;
820: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
821: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
822:
823: G_Stage := 'Direct Update get trx ref. by calling GetOrigTrxRef '||
824: 'to use to update the expenditure item.';
822:
823: G_Stage := 'Direct Update get trx ref. by calling GetOrigTrxRef '||
824: 'to use to update the expenditure item.';
825: If G_Debug_Mode = 'Y' Then
826: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
827: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
828: End If;
829:
830: Pa_Otc_Api.GetOrigTrxRef(
826: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
827: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
828: End If;
829:
830: Pa_Otc_Api.GetOrigTrxRef(
831: P_Building_Block_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
832: X_OrigTrxRef => l_old_orig_trx_ref,
833: X_Status => l_New_Timecard_Rec.Status);
834:
835: If l_New_Timecard_Rec.Status is not null Then
836:
837: G_Stage := 'Update hxc exception pl/sql tables 1.';
838: If G_Debug_Mode = 'Y' Then
839: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
840: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
841: End If;
842:
843: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
847: End If;
848:
849: G_Stage := 'Call Update Changed Original Txn 3.';
850: If G_Debug_Mode = 'Y' Then
851: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
852: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
853: End If;
854:
855: Pa_Otc_Api.UpdateChangedOrigTxn(
851: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
852: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
853: End If;
854:
855: Pa_Otc_Api.UpdateChangedOrigTxn(
856: P_Old_Orig_Txn_Ref => l_old_orig_trx_ref,
857: P_New_Orig_Txn_Ref => l_new_orig_trx_ref,
858: P_Comment_or_Dff => l_comment_or_dff,
859: P_Timecard_Rec => l_new_timecard_rec,
861:
862: G_Stage := 'Store the Bb_Id and index in pl/sql table for use ' ||
863: 'in tieback process 3a for directly updated ei.';
864: If G_Debug_Mode = 'Y' Then
865: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
866: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
867: End If;
868:
869: G_Trx_Direct_Upd_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
873: l_insert_rec_flag := TRUE;
874:
875: G_Stage := 'Call the GetBatchName procedure 3';
876: If G_Debug_Mode = 'Y' Then
877: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
878: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
879: End If;
880:
881: Pa_Otc_Api.GetBatchName(
877: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
878: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
879: End If;
880:
881: Pa_Otc_Api.GetBatchName(
882: P_Exp_End_Date => l_New_Timecard_Rec.Expenditure_Ending_Date,
883: X_Batch_Name => l_Batch_Name);
884:
885: G_Stage := 'Get old orig trx ref 3 using the new bb_id/ovn ' || 'combo ' ||
885: G_Stage := 'Get old orig trx ref 3 using the new bb_id/ovn ' || 'combo ' ||
886: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
887: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
888: If G_Debug_Mode = 'Y' Then
889: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
890: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
891: End If;
892:
893: -- Bug ?
895: -- ei is available for adjustment in projects
896: G_Stage := 'Calling procedure GetOrigTrxRef() Determine if ' ||
897: 'availability of ei for adjusted 1';
898: If G_Debug_Mode = 'Y' Then
899: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
900: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
901: End If;
902:
903: Pa_Otc_Api.GetOrigTrxRef(
899: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
900: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
901: End If;
902:
903: Pa_Otc_Api.GetOrigTrxRef(
904: P_Building_Block_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
905: X_OrigTrxRef => l_old_orig_trx_ref,
906: X_Status => l_New_Timecard_Rec.Status);
907:
908: If l_New_Timecard_Rec.Status is not null Then
909:
910: G_Stage := 'Update hxc exception pl/sql tables 2.';
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: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
916: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) :=
919:
920: End If;
921:
922: -- l_old_orig_trx_ref :=
923: -- Pa_Otc_Api.GetOrigTrxRef(
924: -- Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id);
925:
926: -- End bug enhancement
927:
926: -- End bug enhancement
927:
928: G_Stage := 'Call Build Reverse Item 3.';
929: If G_Debug_Mode = 'Y' Then
930: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
931: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
932: End If;
933:
934: Pa_Otc_Api.Build_Reverse_Item(
930: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
931: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
932: End If;
933:
934: Pa_Otc_Api.Build_Reverse_Item(
935: P_Old_Orig_Trx_Ref => l_old_orig_trx_ref,
936: P_New_Orig_Trx_Ref => l_new_orig_trx_ref,
937: P_Batch_Name => l_batch_name,
938: P_User_Id => P_User_Id,
941:
942: G_Stage := 'Store the Bb_Id and index in pl/sql table for use ' ||
943: 'in tieback process 3b.';
944: If G_Debug_Mode = 'Y' Then
945: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
946: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
947: End If;
948: G_Trx_Inserted_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
949:
967: G_Stage := 'The bb_id/ovn combo already exists in projects, bypassing BB_Id: ' ||
968: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) ||
969: ':' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn) ||
970: ' for Resource_Id: ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Resource_Id);
971: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
972: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
973:
974: G_Stage := 'Call Populate Project Record new 3b for positioning purposes only.';
975: If G_Debug_Mode = 'Y' Then
972: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
973:
974: G_Stage := 'Call Populate Project Record new 3b for positioning purposes only.';
975: If G_Debug_Mode = 'Y' Then
976: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
977: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
978: End If;
979:
980: Pa_Otc_Api.PopulateProjRec(
976: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
977: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
978: End If;
979:
980: Pa_Otc_Api.PopulateProjRec(
981: P_New_Old_BB => 'NEW',
982: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
983: P_Detail_Index => i,
984: P_Old_Detl_Ind => l_Old_Detail_Index,
985: P_timecard_Rec => l_New_Timecard_Rec);
986:
987: G_Stage := 'Call Populate Project Record old 3b for positioning purposes only.';
988: If G_Debug_Mode = 'Y' Then
989: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
990: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
991: End If;
992:
993: Pa_Otc_Api.PopulateProjRec(
989: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
990: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
991: End If;
992:
993: Pa_Otc_Api.PopulateProjRec(
994: P_New_Old_BB => 'OLD',
995: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).bb_id,
996: P_Detail_Index => i,
997: P_Old_Detl_Ind => l_Old_Detail_Index,
1008: -- The item was deleted in OTL after it was imported into Projects.
1009: -- Need to Reverse out the original transaction.
1010:
1011: G_Stage := 'Item Changed: Y, Deleted: Y.';
1012: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1013: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1014:
1015: l_insert_rec_flag := FALSE;
1016: l_Old_Detail_Index := l_Old_Detail_Index + 1;
1016: l_Old_Detail_Index := l_Old_Detail_Index + 1;
1017:
1018: G_Stage := 'Create new orig trx ref 4.';
1019: If G_Debug_Mode = 'Y' Then
1020: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1021: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1022: End If;
1023:
1024: l_new_orig_trx_ref := to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
1025: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
1026:
1027: G_Stage := 'Call Populate Project Record new 4.';
1028: If G_Debug_Mode = 'Y' Then
1029: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1030: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1031: End If;
1032:
1033: Pa_Otc_Api.PopulateProjRec(
1029: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1030: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1031: End If;
1032:
1033: Pa_Otc_Api.PopulateProjRec(
1034: P_New_Old_BB => 'NEW',
1035: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
1036: P_Detail_Index => i,
1037: P_Old_Detl_Ind => l_Old_Detail_Index,
1038: P_timecard_Rec => l_New_Timecard_Rec);
1039:
1040: G_Stage := 'EI data status check 4.';
1041: If G_Debug_Mode = 'Y' Then
1042: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1043: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1044: End If;
1045:
1046: If l_New_Timecard_Rec.Status is Not Null Then
1046: If l_New_Timecard_Rec.Status is Not Null Then
1047:
1048: G_Stage := 'Status is not null 4. Timecard status is ' || l_New_Timecard_Rec.Status;
1049: If G_Debug_Mode = 'Y' Then
1050: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1051: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1052: End If;
1053:
1054: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
1057: G_Stage := 'Since Status is not null 4 occured for new record, call the ' ||
1058: 'PopulateProjRec() procedure for the old record for positioning purposes ' ||
1059: 'so as to maintain sync with new pl/sql tables.';
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.PopulateProjRec(
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.PopulateProjRec(
1066: P_New_Old_BB => 'OLD',
1067: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).bb_id,
1068: P_Detail_Index => i,
1069: P_Old_Detl_Ind => l_Old_Detail_Index,
1075: Else
1076:
1077: G_Stage := 'Call the GetBatchName procedure 4';
1078: If G_Debug_Mode = 'Y' Then
1079: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1080: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1081: End If;
1082:
1083: Pa_Otc_Api.GetBatchName(
1079: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1080: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1081: End If;
1082:
1083: Pa_Otc_Api.GetBatchName(
1084: P_Exp_End_Date => l_New_Timecard_Rec.Expenditure_Ending_Date,
1085: X_Batch_Name => l_Batch_Name);
1086:
1087: G_Stage := 'Call Populate Project Record old 4 positioning purposes only.';
1085: X_Batch_Name => l_Batch_Name);
1086:
1087: G_Stage := 'Call Populate Project Record old 4 positioning purposes only.';
1088: If G_Debug_Mode = 'Y' Then
1089: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1090: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1091: End If;
1092:
1093: Pa_Otc_Api.PopulateProjRec(
1089: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1090: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1091: End If;
1092:
1093: Pa_Otc_Api.PopulateProjRec(
1094: P_New_Old_BB => 'OLD',
1095: P_BB_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).bb_id,
1096: P_Detail_Index => i,
1097: P_Old_Detl_Ind => l_Old_Detail_Index,
1102: G_Stage := 'Create old orig trx ref 4 using bb_id/ovn ' ||
1103: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
1104: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Ovn);
1105: If G_Debug_Mode = 'Y' Then
1106: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1107: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1108: End If;
1109:
1110: -- Switched from function to procedure to determine if
1112:
1113: G_Stage := 'Calling procedure GetOrigTrxRef() Determine if ' ||
1114: 'availability of ei for adjustment 4';
1115: If G_Debug_Mode = 'Y' Then
1116: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1117: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1118: End If;
1119:
1120: Pa_Otc_Api.GetOrigTrxRef(
1116: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1117: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1118: End If;
1119:
1120: Pa_Otc_Api.GetOrigTrxRef(
1121: P_Building_Block_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
1122: X_OrigTrxRef => l_old_orig_trx_ref,
1123: X_Status => l_New_Timecard_Rec.Status);
1124:
1125: If l_New_Timecard_Rec.Status is not null Then
1126:
1127: G_Stage := 'Updating hxc exception pl/sql tables 3.';
1128: If G_Debug_Mode = 'Y' Then
1129: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1130: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1131: End If;
1132:
1133: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(i) := 'ERRORS';
1136:
1137: End If;
1138:
1139: -- l_old_orig_trx_ref :=
1140: -- Pa_Otc_Api.GetOrigTrxRef(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id);
1141:
1142: -- End switch from function to procedure
1143:
1144: G_Stage := 'Call Build Reverse Item 4.';
1142: -- End switch from function to procedure
1143:
1144: G_Stage := 'Call Build Reverse Item 4.';
1145: If G_Debug_Mode = 'Y' Then
1146: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1147: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1148: End If;
1149:
1150: l_error_code := NULL;
1148: End If;
1149:
1150: l_error_code := NULL;
1151:
1152: Pa_Otc_Api.Build_Reverse_Item(
1153: P_Old_Orig_Trx_Ref => l_old_orig_trx_ref,
1154: P_New_Orig_Trx_Ref => l_new_orig_trx_ref,
1155: P_Batch_Name => l_batch_name,
1156: P_User_id => P_User_Id,
1158: P_Xface_Id => P_Xface_id);
1159:
1160: G_Stage := 'Store the Bb_Id and index in pl/sql table for use in tieback process 4.';
1161: If G_Debug_Mode = 'Y' Then
1162: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1163: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1164: End If;
1165: G_Trx_Inserted_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
1166:
1171: If l_insert_rec_flag Then
1172:
1173: G_Stage := 'Get the next available Transaction Interface Id from sequence.';
1174: If G_Debug_Mode = 'Y' Then
1175: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1176: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1177: End If;
1178:
1179: select pa_txn_interface_s.nextval
1181: from dual;
1182:
1183: G_Stage := 'Store new/changed Trx Import Rec in pl/sql arrays for BB/Ovn: ' || l_New_Orig_Trx_Ref ||
1184: ' for Resource_Id(Person_Id): ' || to_char(l_New_Timecard_Rec.Incurred_By_Person_Id);
1185: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1186: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1187:
1188: G_Stage := 'Store Trx Import record in pl/sql arrays for bulk insert.';
1189: If G_Debug_Mode = 'Y' Then
1186: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1187:
1188: G_Stage := 'Store Trx Import record in pl/sql arrays for bulk insert.';
1189: If G_Debug_Mode = 'Y' Then
1190: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1191: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1192: End If;
1193: /* Bug 6698171 */ if (l_New_Timecard_Rec.Person_Type = 'EMP') then /* Added if..else for bug 7505424 */
1194: patc.check_termination (l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1319: -- End: Added for CBS Enhancement Bug 16220146
1320:
1321: G_Stage := 'Pl/sql record counter increment.';
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: G_Txn_Rec_Count := nvl(G_Txn_Rec_Count,0) + 1;
1327:
1326: G_Txn_Rec_Count := nvl(G_Txn_Rec_Count,0) + 1;
1327:
1328: G_Stage := 'Store the Bb_Id and index in pl/sql table for use in tieback process.';
1329: If G_Debug_Mode = 'Y' Then
1330: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1331: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1332: End If;
1333: G_Trx_Inserted_Tab(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id).BB_Index := i;
1334:
1335: End If;
1336:
1337: G_Stage := 'Check if need to call bulk insert.';
1338: If G_Debug_Mode = 'Y' Then
1339: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1340: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1341: End If;
1342: If G_Txn_Rec_Count >= L_MAX_RECS_FOR_BULKINSERT Then
1343:
1342: If G_Txn_Rec_Count >= L_MAX_RECS_FOR_BULKINSERT Then
1343:
1344: G_Stage := 'Call BulkInsertReset() procedure for insert.';
1345: If G_Debug_Mode = 'Y' Then
1346: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1347: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1348: End If;
1349: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1350:
1345: If G_Debug_Mode = 'Y' Then
1346: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1347: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1348: End If;
1349: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1350:
1351: G_Stage := 'Store total records inserted. Reset counter to 0.';
1352: If G_Debug_Mode = 'Y' Then
1353: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1349: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1350:
1351: G_Stage := 'Store total records inserted. Reset counter to 0.';
1352: If G_Debug_Mode = 'Y' Then
1353: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1354: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1355: End If;
1356: Pa_Trx_Import.G_Batch_Size := Nvl(Pa_Trx_Import.G_Batch_Size,0) + G_Txn_Rec_Count;
1357: G_Txn_Rec_Count := 0;
1367: G_Unhandled_Except_Cnt := G_Unhandled_Except_Cnt + 1;
1368:
1369: G_Stage := 'Unhandled exception count is now ' || to_char(G_Unhandled_Except_Cnt);
1370: If G_Debug_Mode = 'Y' Then
1371: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1372: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1373: End If;
1374:
1375: If G_Unhandled_Except_Cnt > G_EXCEPT_CNT_ALLOWED Then
1376:
1377: G_Stage := 'Unhandled exceptions count exceeds maximum allowed of ' ||
1378: to_char(G_EXCEPT_CNT_ALLOWED) || '. Raising user defined exception!';
1379: If G_Debug_Mode = 'Y' Then
1380: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1381: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1382: End If;
1383:
1384: Raise HXC_RETRIEVAL_MAX_ERRORS;
1391: End;
1392:
1393: G_Stage := 'Resetting the pl/sql new and old timecard record variables.';
1394: If G_Debug_Mode = 'Y' Then
1395: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1396: Pa_Cc_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
1397: End If;
1398: l_New_Timecard_Rec := l_Temp_Timecard_Rec;
1399: l_Old_Timecard_Rec := l_Temp_Timecard_Rec;
1401: End Loop;
1402:
1403: G_Stage := 'Exited the loop. Check if need to call bulk insert for any remaining pl/sql records.';
1404: If G_Debug_Mode = 'Y' Then
1405: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1406: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1407: End If;
1408:
1409: If G_Txn_Rec_Count > 0 Then
1409: If G_Txn_Rec_Count > 0 Then
1410:
1411: G_Stage := 'Call bulk insert for the remaining pl/sql records.';
1412: If G_Debug_Mode = 'Y' Then
1413: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1414: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1415: End If;
1416: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1417:
1412: If G_Debug_Mode = 'Y' Then
1413: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1414: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1415: End If;
1416: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1417:
1418: G_Stage := 'Set the final records count for the next import phase. Reset counter.';
1419: If G_Debug_Mode = 'Y' Then
1420: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1416: Pa_Otc_Api.BulkInsertReset(P_Command => 'INSERT');
1417:
1418: G_Stage := 'Set the final records count for the next import phase. Reset counter.';
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: Pa_Trx_Import.G_Batch_Size := Nvl(Pa_Trx_Import.G_Batch_Size,0) + G_Txn_Rec_Count;
1424:
1429: G_Stage := 'This chunk has ' || to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.COUNT) ||
1430: ' records, of which ' || to_char(Pa_Trx_Import.G_Batch_Size) || ' are to be processed' ||
1431: ' in the next phase of Trx Import.';
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:
1437: Else
1437: Else
1438:
1439: G_Stage := 'Last chunk from OTL. Flag process we are done. No further records to process.';
1440: If G_Debug_Mode = 'Y' Then
1441: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1442: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1443: End If;
1444:
1445: Pa_Trx_Import.G_Exit_Main := NULL;
1446: Pa_Trx_Import.G_Batch_Size := 0;
1447:
1448: G_Stage := 'Call Hxc_Generic_Retrieval_Pkg.Update_Transaction_Status() one last time.';
1449: If G_Debug_Mode = 'Y' Then
1450: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1451: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1452: End If;
1453: Hxc_Integration_Layer_V1_Grp.Set_Parent_Statuses;
1454: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status
1459: End If; -- Are there records in the otl pl/sql tables to process
1460:
1461: G_Stage := 'Leaving Upload_Otc_Timecards(), strip procedure from trackpath.';
1462: If G_Debug_Mode = 'Y' Then
1463: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1464: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1465: End If;
1466: Pa_Otc_Api.TrackPath('STRIP','Upload_Otc_Timecards');
1467:
1462: If G_Debug_Mode = 'Y' Then
1463: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1464: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1465: End If;
1466: Pa_Otc_Api.TrackPath('STRIP','Upload_Otc_Timecards');
1467:
1468: Exception
1469:
1470: When HXC_RETRIEVAL_MAX_ERRORS Then
1500: -- Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status
1501: -- (P_Process => 'Projects Retrieval Process',
1502: -- P_Status => 'ERRORS',
1503: -- P_Exception_Description =>
1504: -- substr('Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage ||
1505: -- ' : ' || SQLERRM, 1, 2000));
1506: --
1507: -- Fnd_Message.Raise_Error;
1508: --
1515:
1516: fnd_message.set_name('HXC','HXC_0013_GNRET_NO_BLD_BLKS');
1517:
1518: End If;
1519: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || fnd_message.get;
1520: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1521:
1522: -- End bug 3422899
1523:
1522: -- End bug 3422899
1523:
1524: Else
1525:
1526: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM;
1527: Hxc_Integration_Layer_V1_Grp.Set_Parent_Statuses;
1528: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status
1529: (P_Process => 'Projects Retrieval Process',
1530: P_Status => 'ERRORS',
1528: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status
1529: (P_Process => 'Projects Retrieval Process',
1530: P_Status => 'ERRORS',
1531: P_Exception_Description =>
1532: substr('Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM, 1, 2000));
1533: Raise;
1534:
1535: End If;
1536:
1621: Begin
1622:
1623: G_Stage := 'Enter Build_Reverse_Item().';
1624: If G_Debug_Mode = 'Y' Then
1625: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1626: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1627: End If;
1628:
1629: G_Stage := 'Add procedure to track path';
1627: End If;
1628:
1629: G_Stage := 'Add procedure to track path';
1630: If G_Debug_Mode = 'Y' Then
1631: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1632: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1633: End If;
1634: Pa_Otc_Api.TrackPath('ADD','Build_Reverse_Item');
1635:
1630: If G_Debug_Mode = 'Y' Then
1631: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1632: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1633: End If;
1634: Pa_Otc_Api.TrackPath('ADD','Build_Reverse_Item');
1635:
1636: G_Stage := 'Get needed data to build reversing item phase 1.';
1637: If G_Debug_Mode = 'Y' Then
1638: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1634: Pa_Otc_Api.TrackPath('ADD','Build_Reverse_Item');
1635:
1636: G_Stage := 'Get needed data to build reversing item phase 1.';
1637: If G_Debug_Mode = 'Y' Then
1638: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1639: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1640: End If;
1641:
1642: Select
1736: And EI.Adjusted_Expenditure_Item_Id is Null;
1737:
1738: G_Stage := 'Get Transaction Interface Id from sequence for reversing item.';
1739: If G_Debug_Mode = 'Y' Then
1740: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1741: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1742: End If;
1743:
1744: Select Pa_Txn_Interface_S.NextVal
1748: If l_Person_Type = 'CWK' And l_PO_Line_Id Is Not Null Then
1749:
1750: G_Stage := 'Get Supplier Info by calling GetPOInfo() 2.';
1751: If G_Debug_Mode = 'Y' Then
1752: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1753: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1754: End If;
1755:
1756: Pa_Otc_Api.GetPOInfo(
1752: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1753: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1754: End If;
1755:
1756: Pa_Otc_Api.GetPOInfo(
1757: P_Po_Line_Id => l_PO_Line_Id,
1758: X_Po_Header_Id => l_PO_Header_Id,
1759: X_Vendor_Id => l_Dummy_Vendor_Id);
1760:
1761: End If;
1762:
1763: G_Stage := 'Inserting reversing item into interface table BB/Ovn: ' || P_New_Orig_Trx_Ref ||
1764: ' for Resource_Id(Person_Id): ' || to_char(l_Inc_By_Person_Id);
1765: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
1766: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1767:
1768: G_Stage := 'Store record for reversing item into arrays for bulk insert later.';
1769: If G_Debug_Mode = 'Y' Then
1766: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
1767:
1768: G_Stage := 'Store record for reversing item into arrays for bulk insert later.';
1769: If G_Debug_Mode = 'Y' Then
1770: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1771: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1772: End If;
1773:
1774: G_Trx_Import_Index := G_Trx_Import_Index + 1;
1894: G_Txn_Rec_Count := Nvl(G_Txn_Rec_Count,0) + 1;
1895:
1896: G_Stage := 'About to leave Build_Reverse_Item(), strip procedure from trackpath.';
1897: If G_Debug_Mode = 'Y' Then
1898: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1899: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1900: End If;
1901: Pa_Otc_Api.TrackPath('STRIP','Build_Reverse_Item');
1902:
1897: If G_Debug_Mode = 'Y' Then
1898: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1899: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1900: End If;
1901: Pa_Otc_Api.TrackPath('STRIP','Build_Reverse_Item');
1902:
1903: G_Stage := 'Leaving Build_Reverse_Item().';
1904: If G_Debug_Mode = 'Y' Then
1905: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1901: Pa_Otc_Api.TrackPath('STRIP','Build_Reverse_Item');
1902:
1903: G_Stage := 'Leaving Build_Reverse_Item().';
1904: If G_Debug_Mode = 'Y' Then
1905: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1906: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1907: End If;
1908:
1909: Exception
1938: -- Parameters :
1939: -- IN P_Old_Orig_Txn_Ref - Pa_Expenditure_Items_All.Orig_Transaction_Reference%TYPE
1940: -- P_New_Orig_Txn_Ref - Pa_Expenditure_Items_All.Orig_Transaction_Reference%TYPE
1941: -- P_Comment_Or_Dff - Varchar2(1)
1942: -- P_Timecard_Rec - Pa_Otc_Api.Timecard_Rec
1943: -- P_User_Id - Pa_Expenditure_Items_All.Last_Updated_By%TYPE
1944: --
1945: -- OUT NONE
1946: --
1950: Procedure UpdateChangedOrigTxn(
1951: P_Old_Orig_Txn_Ref IN Pa_Expenditure_Items_All.Orig_Transaction_Reference%TYPE,
1952: P_New_Orig_Txn_Ref IN Pa_Expenditure_Items_All.Orig_Transaction_Reference%TYPE,
1953: P_Comment_Or_Dff IN Varchar2,
1954: P_Timecard_Rec IN Pa_Otc_Api.Timecard_Rec,
1955: P_User_Id IN Pa_Expenditure_Items_All.Last_Updated_By%TYPE)
1956:
1957: Is
1958:
1977: Begin
1978:
1979: G_Stage := 'Entering UpdateChangedOrigTxn(), add procedure to trackpath.';
1980: If G_Debug_Mode = 'Y' Then
1981: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1982: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1983: End If;
1984: Pa_Otc_Api.TrackPath('ADD','UpdateChangedOrigTxn');
1985:
1980: If G_Debug_Mode = 'Y' Then
1981: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1982: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1983: End If;
1984: Pa_Otc_Api.TrackPath('ADD','UpdateChangedOrigTxn');
1985:
1986: G_Stage := 'Get Expenditure Item Id.';
1987: If G_Debug_Mode = 'Y' Then
1988: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1984: Pa_Otc_Api.TrackPath('ADD','UpdateChangedOrigTxn');
1985:
1986: G_Stage := 'Get Expenditure Item Id.';
1987: If G_Debug_Mode = 'Y' Then
1988: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1989: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1990: End If;
1991:
1992: Select
2012: * when P_Comment_Or_Dff has a value of B.
2013: */
2014: G_Stage := 'What updating needs to be done.';
2015: If G_Debug_Mode = 'Y' Then
2016: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2017: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2018: End If;
2019:
2020: /* 12.2 payroll intg .. rewrote the logic to use the new values for p_comment_or_dff.
2023: If P_Comment_Or_Dff in ('C', 'CD', 'CP', 'CDP') Then
2024:
2025: G_Stage := 'P_Comment_Or_Dff Is C: Update ei table.';
2026: If G_Debug_Mode = 'Y' Then
2027: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2028: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2029: End If;
2030:
2031: Update Pa_Expenditure_Items_All
2047: If (l_Comment_Count = 0 AND P_Timecard_Rec.Expenditure_Item_Comment IS NOT NULL) Then /* Bug 8885514 */
2048:
2049: G_Stage := 'P_Comment_Or_Dff Is C: Insert record into exp comment 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: Insert into Pa_Expenditure_Comments
2082: ElsIf l_Comment_Count > 0 And P_Timecard_Rec.Expenditure_Item_Comment Is Not Null Then -- Bug 3496762
2083:
2084: G_Stage := 'P_Comment_Or_Dff Is C: Update exp comment table.';
2085: If G_Debug_Mode = 'Y' Then
2086: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2087: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2088: End If;
2089:
2090: Update Pa_Expenditure_Comments
2101: ElsIf l_Comment_Count > 0 And P_Timecard_Rec.Expenditure_Item_Comment Is Null Then
2102:
2103: G_Stage := 'P_Comment_Or_Dff Is B: Remove exp comment from table since comment has been updated to null by the user.';
2104: If G_Debug_Mode = 'Y' Then
2105: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2106: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2107: End If;
2108:
2109: Delete From Pa_Expenditure_Comments
2116: If P_Comment_Or_Dff in ('D', 'CD', 'DP', 'CDP') Then
2117:
2118: G_Stage := 'P_Comment_Or_Dff Is D: Update ei table.';
2119: If G_Debug_Mode = 'Y' Then
2120: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2121: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2122: End If;
2123:
2124: Update Pa_Expenditure_Items_All
2148: If P_Comment_Or_Dff in ('P', 'CP', 'DP', 'CDP') Then
2149:
2150: G_Stage := 'P_Comment_Or_Dff Is P: Update ei table.';
2151: If G_Debug_Mode = 'Y' Then
2152: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2153: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2154: End If;
2155:
2156: Update Pa_Expenditure_Items_All
2167:
2168: End If;
2169:
2170: G_Stage := 'Leaving UpdateChangedOrigTxn(), strip procedure from trackpath.';
2171: Pa_Otc_Api.TrackPath('STRIP','UpdateChangedOrigTxn');
2172: If G_Debug_Mode = 'Y' Then
2173: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2174: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2175: End If;
2169:
2170: G_Stage := 'Leaving UpdateChangedOrigTxn(), strip procedure from trackpath.';
2171: Pa_Otc_Api.TrackPath('STRIP','UpdateChangedOrigTxn');
2172: If G_Debug_Mode = 'Y' Then
2173: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2174: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2175: End If;
2176:
2177: Exception
2228: Where
2229: Interface_Id = P_Interface_Id
2230: And Transaction_Source = 'ORACLE TIME AND LABOR'
2231: And Transaction_Status_Code in ('I','R')
2232: And Pa_Otc_Api.TrxInCurrentChunk(To_Number(Substr(Orig_Transaction_Reference,1,Instr(Orig_Transaction_Reference,':') - 1))) = 'Y'
2233: Order by 7,3; -- Bug 3355510
2234:
2235: TrxRecord TrxRecords%ROWTYPE;
2236: l_Detail_Index Binary_Integer := Null;
2241: G_Path := ' ';
2242:
2243: G_Stage := 'Entering Tieback_Otc_Timecards().';
2244: If G_Debug_Mode = 'Y' Then
2245: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2246: Pa_CC_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
2247: End If;
2248: Pa_Otc_Api.TrackPath('ADD','Tieback_Otc_Timecards');
2249:
2244: If G_Debug_Mode = 'Y' Then
2245: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2246: Pa_CC_Utils.Log_Message(Pa_Debug.G_Err_Stage,0);
2247: End If;
2248: Pa_Otc_Api.TrackPath('ADD','Tieback_Otc_Timecards');
2249:
2250: G_Stage := 'Open cursor TrxRecords.';
2251: If G_Debug_Mode = 'Y' Then
2252: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2248: Pa_Otc_Api.TrackPath('ADD','Tieback_Otc_Timecards');
2249:
2250: G_Stage := 'Open cursor TrxRecords.';
2251: If G_Debug_Mode = 'Y' Then
2252: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2253: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2254: End If;
2255:
2256: Open TrxRecords(P_Interface_Id => P_Xface_Id);
2259: Loop
2260:
2261: G_Stage := 'Fetch record from cursor TrxRecs.';
2262: If G_Debug_Mode = 'Y' Then
2263: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2264: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2265: End If;
2266:
2267: Fetch TrxRecords Into TrxRecord;
2271:
2272: G_Stage := 'Update Detail Status to SUCCESS for BB_Id: ' || to_char(TrxRecord.Detail_BB_Id) ||
2273: ' Index position is: ' || to_char((G_Trx_Inserted_Tab(TrxRecord.Detail_BB_Id).BB_Index));
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: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Status(G_Trx_Inserted_Tab(TrxRecord.Detail_BB_Id).BB_Index) :=
2279: 'SUCCESS';
2282:
2283: G_Stage := 'Update Detail Status to ERRORS for BB_Id: ' || to_char(TrxRecord.Detail_BB_Id) ||
2284: ' Index position is: ' || to_char((G_Trx_Inserted_Tab(TrxRecord.Detail_BB_Id).BB_Index));
2285: If G_Debug_Mode = 'Y' Then
2286: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2287: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2288: End If;
2289:
2290: /* Since we now have the looping functionality in Trx Import and we can't restrict the cursor
2317: ' Exception: ' || TrxRecord.Transaction_Rejection_Code ||
2318: ' Resource_Id(Person_Id): ' || TrxRecord.Person_Id ||
2319: ' Exp_Id(Null when Errors): ' || to_char(TrxRecord.Expenditure_Id) ||
2320: ' Ei_Id(Null when Errors): ' || to_char(TrxRecord.Expenditure_Item_Id);
2321: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Stage;
2322: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
2323:
2324: End Loop;
2325:
2324: End Loop;
2325:
2326: G_Stage := 'Loop is done so lose cursor TrxRecs.';
2327: If G_Debug_Mode = 'Y' Then
2328: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2329: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2330: End If;
2331:
2332: Close TrxRecords;
2332: Close TrxRecords;
2333:
2334: G_Stage := 'Update the Transaction_Status_Code for successful transactions in interface table.';
2335: If G_Debug_Mode = 'Y' Then
2336: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2337: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2338: End If;
2339:
2340: Update Pa_Transaction_Interface
2345: And Transaction_Status_Code = 'I';
2346:
2347: G_Stage := 'Loop thru and flag as success those building blocks where we directly updated the eis.';
2348: If G_Debug_Mode = 'Y' Then
2349: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2350: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2351: End If;
2352:
2353: If G_Trx_Direct_Upd_Tab.COUNT > 0 Then
2371:
2372: G_Stage := 'Update Detail Status to SUCCESS for direct updated ei BB_Id: ' || to_char(j) ||
2373: ' Index position is: ' || to_char((G_Trx_Direct_Upd_Tab(j).BB_Index));
2374: If G_Debug_Mode = 'Y' Then
2375: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2376: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2377: End If;
2378:
2379: Hxc_Generic_Retrieval_Pkg.T_Tx_Detail_Status(G_Trx_Direct_Upd_Tab(j).BB_Index) := 'SUCCESS';
2384: End If;
2385:
2386: G_Stage := 'Call OTL API to update transactions';
2387: If G_Debug_Mode = 'Y' Then
2388: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2389: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2390: End If;
2391:
2392: Hxc_Integration_Layer_V1_Grp.Set_Parent_Statuses;
2396: P_Exception_Description => NULL);
2397:
2398: G_Stage := 'Set the process import looping flag to true since completed at least loop thru.';
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: -- G_Processed_Import_Batch effects exception handling in the Upload_Otc_Timecard() procedure.
2404: -- When G_Processed_Import_Batch is TRUE then the exception handler in Upload_Otc_Timecard()
2407: G_Processed_Import_Batch := TRUE;
2408:
2409: G_Stage := 'Leaving Tieback_Otc_Timecards(), strip procedure from trackpath.';
2410: If G_Debug_Mode = 'Y' Then
2411: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2412: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
2413: End If;
2414: Pa_Otc_Api.TrackPath('STRIP','Tieback_Otc_Timecards');
2415:
2410: If G_Debug_Mode = 'Y' Then
2411: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2412: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
2413: End If;
2414: Pa_Otc_Api.TrackPath('STRIP','Tieback_Otc_Timecards');
2415:
2416: Exception
2417: When Others Then
2418: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM;
2414: Pa_Otc_Api.TrackPath('STRIP','Tieback_Otc_Timecards');
2415:
2416: Exception
2417: When Others Then
2418: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM;
2419: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status (
2420: P_Process => 'Projects Retrieval Process',
2421: P_Status => 'ERRORS',
2422: P_Exception_Description => Pa_Debug.G_err_Stage);
2437: -- : nothing else then the item should be directly updated.
2438: --
2439: -- Parameters :
2440: -- IN
2441: -- P_New_Timecard_Rec - Pa_Otc_Api.Timecard_Rec
2442: -- P_Old_Timecard_Rec - Pa_Otc_Api.Timecard_Rec
2443: -- OUT
2444: -- P_Direct_Update_Flag - Boolean
2445: -- /* Commenting for 12.2 as there is an additional condition that need to be returned
2438: --
2439: -- Parameters :
2440: -- IN
2441: -- P_New_Timecard_Rec - Pa_Otc_Api.Timecard_Rec
2442: -- P_Old_Timecard_Rec - Pa_Otc_Api.Timecard_Rec
2443: -- OUT
2444: -- P_Direct_Update_Flag - Boolean
2445: -- /* Commenting for 12.2 as there is an additional condition that need to be returned
2446: -- for p_comment_or_dff. The below values are not applicable.
2463: -- */
2464: /*--------------------------------------------------------------------------*/
2465:
2466: Procedure DetermineDirectUpdate(
2467: P_New_Timecard_Rec IN Pa_Otc_Api.Timecard_Rec,
2468: P_Old_Timecard_Rec IN Pa_Otc_Api.Timecard_Rec,
2469: P_Direct_Update_Flag OUT NOCOPY Boolean,
2470: P_Comment_Or_Dff OUT NOCOPY Varchar2) IS
2471:
2464: /*--------------------------------------------------------------------------*/
2465:
2466: Procedure DetermineDirectUpdate(
2467: P_New_Timecard_Rec IN Pa_Otc_Api.Timecard_Rec,
2468: P_Old_Timecard_Rec IN Pa_Otc_Api.Timecard_Rec,
2469: P_Direct_Update_Flag OUT NOCOPY Boolean,
2470: P_Comment_Or_Dff OUT NOCOPY Varchar2) IS
2471:
2472: l_Others_Changed Boolean := False;
2479: P_Direct_Update_Flag := True; /*Added for bug 13831042*/
2480:
2481: G_Stage := 'Entering DetermineDirectUpdate(), add procedure to trackpath.';
2482: If G_Debug_Mode = 'Y' Then
2483: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2484: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2485: End If;
2486: Pa_Otc_Api.TrackPath('ADD','DetermineDirectUpdate');
2487:
2482: If G_Debug_Mode = 'Y' Then
2483: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2484: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2485: End If;
2486: Pa_Otc_Api.TrackPath('ADD','DetermineDirectUpdate');
2487:
2488: If P_New_Timecard_Rec.Project_Id <> P_Old_Timecard_Rec.Project_Id OR -- bug 3241052
2489: P_New_Timecard_Rec.Task_Id <> P_Old_Timecard_Rec.Task_Id OR -- changed from number to id
2490: P_New_Timecard_Rec.Expenditure_Type <> P_Old_Timecard_Rec.Expenditure_Type OR
2503: OR Nvl(P_New_Timecard_Rec.Cbs_Element_Id, -99) <> Nvl(P_Old_Timecard_Rec.Cbs_Element_Id, -99) THEN -- Added as part of bug 16794323
2504:
2505: G_Stage := 'Detail has changed.';
2506: If G_Debug_Mode = 'Y' Then
2507: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2508: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2509: End If;
2510:
2511: l_Others_Changed := True;
2516: nvl(P_Old_Timecard_Rec.Expenditure_Item_Comment,'-9999999999') Then
2517:
2518: G_Stage := 'Comment has changed.';
2519: If G_Debug_Mode = 'Y' Then
2520: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2521: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2522: End If;
2523:
2524: l_Comment_Changed := True;
2530: nvl(P_Old_Timecard_Rec.Pay_Element_Type_Id,-999) Then
2531:
2532: G_Stage := 'Pay Element has changed.';
2533: If G_Debug_Mode = 'Y' Then
2534: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2535: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2536: End If;
2537:
2538: l_PayElem_Changed := True;
2554: nvl(P_New_Timecard_Rec.Attribute10,'-9999999999') <> nvl(P_Old_Timecard_Rec.Attribute10,'-9999999999') Then
2555:
2556: G_Stage := 'DFFs have changed.';
2557: If G_Debug_Mode = 'Y' Then
2558: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2559: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2560: End If;
2561:
2562: l_DFFs_Changed := True;
2568: If l_Others_Changed Then
2569:
2570: G_Stage := 'No Direct Update.';
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: /* No direct update since other columns have been updated besides
2576: * the comments and DFFs.
2586: --
2587:
2588: G_Stage := 'Direct Update.';
2589: If G_Debug_Mode = 'Y' Then
2590: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2591: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2592: End If;
2593:
2594: P_Direct_Update_Flag := TRUE;
2595:
2596: If (l_Comment_Changed And Not l_DFFs_Changed and Not l_PayElem_Changed) Then
2597: G_Stage := 'Comments alone changed.';
2598: If G_Debug_Mode = 'Y' Then
2599: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2600: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2601: End If;
2602: --
2603: P_Comment_Or_Dff := 'C';
2604: --
2605: ElsIf (Not l_Comment_Changed And l_DFFs_Changed and Not l_PayElem_Changed) Then
2606: G_Stage := 'DFFs alone changed.';
2607: If G_Debug_Mode = 'Y' Then
2608: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2609: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2610: End If;
2611: --
2612: P_Comment_Or_Dff := 'D';
2613: --
2614: ElsIf (Not l_Comment_Changed And Not l_DFFs_Changed and l_PayElem_Changed) Then
2615: G_Stage := 'Pay Element alone changed.';
2616: If G_Debug_Mode = 'Y' Then
2617: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2618: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2619: End If;
2620: --
2621: P_Comment_Or_Dff := 'P';
2622: --
2623: ElsIf (l_Comment_Changed And l_DFFs_Changed and Not l_PayElem_Changed) Then
2624: G_Stage := 'Comments and DFFs both changed.';
2625: If G_Debug_Mode = 'Y' Then
2626: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2627: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2628: End If;
2629: --
2630: P_Comment_Or_Dff := 'CD';
2631: --
2632: ElsIf (l_Comment_Changed And Not l_DFFs_Changed and l_PayElem_Changed) Then
2633: G_Stage := 'Comments and Pay Element both changed.';
2634: If G_Debug_Mode = 'Y' Then
2635: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2636: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2637: End If;
2638: --
2639: P_Comment_Or_Dff := 'CP';
2640: --
2641: ElsIf (Not l_Comment_Changed And l_DFFs_Changed and l_PayElem_Changed) Then
2642: G_Stage := 'DFFs and Pay Element both changed.';
2643: If G_Debug_Mode = 'Y' Then
2644: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2645: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2646: End If;
2647: --
2648: P_Comment_Or_Dff := 'DP';
2650: ElsIf (l_Comment_Changed And l_DFFs_Changed and l_PayElem_Changed) Then
2651:
2652: G_Stage := 'All three changed.';
2653: If G_Debug_Mode = 'Y' Then
2654: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2655: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2656: End If;
2657: --
2658: P_Comment_Or_Dff := 'CDP';
2662: End If;
2663:
2664: G_Stage := 'Leaving DetermineDirectUpdate(), strip procedure from trackpath.';
2665: If G_Debug_Mode = 'Y' Then
2666: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2667: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2668: End If;
2669: Pa_Otc_Api.TrackPath('STRIP','DetermineDirectUpdate');
2670:
2665: If G_Debug_Mode = 'Y' Then
2666: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2667: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2668: End If;
2669: Pa_Otc_Api.TrackPath('STRIP','DetermineDirectUpdate');
2670:
2671: Exception
2672: When Others Then
2673: Raise;
2693: -- P_BB_Id - Hxc_Time_Building_Blocks.Time_Building_Block_Id%TYPE
2694: -- P_Detail_Index - Binary_Integer
2695: -- P_Old_Detl_Ind - Binary_Integer
2696: -- OUT
2697: -- P_Timecard_Rec - Pa_Otc_Api.Timecard_Rec
2698: --
2699: /*--------------------------------------------------------------------------*/
2700:
2701: Procedure PopulateProjRec(
2702: P_New_Old_BB IN Varchar2,
2703: P_BB_Id IN Hxc_Time_Building_Blocks.Time_Building_Block_Id%TYPE,
2704: P_Detail_Index IN Binary_Integer,
2705: P_Old_Detl_Ind IN Binary_Integer,
2706: P_Timecard_Rec OUT NOCOPY Pa_Otc_Api.Timecard_Rec) IS -- 2672653
2707:
2708: l_attribute_category Varchar2(100) := NULL;
2709: i Binary_Integer;
2710: j Binary_Integer;
2720: Begin
2721:
2722: G_Stage := 'Entering PopulateProjRec(), add procedure to trackpath.';
2723: If G_Debug_Mode = 'Y' Then
2724: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2725: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2726: End If;
2727: Pa_Otc_Api.TrackPath('ADD','PopulateProjRec');
2728:
2723: If G_Debug_Mode = 'Y' Then
2724: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2725: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2726: End If;
2727: Pa_Otc_Api.TrackPath('ADD','PopulateProjRec');
2728:
2729: G_Stage := 'Set Timecard Rec to NULL.';
2730: If G_Debug_Mode = 'Y' Then
2731: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2727: Pa_Otc_Api.TrackPath('ADD','PopulateProjRec');
2728:
2729: G_Stage := 'Set Timecard Rec to NULL.';
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: P_Timecard_Rec := Null;
2735: P_Timecard_Rec := Null;
2736:
2737: G_Stage := 'The current Detail Building Block Id being processed is: ' || to_char(P_BB_Id);
2738: If G_Debug_Mode = 'Y' Then
2739: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2740: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2741: End If;
2742:
2743: G_Stage := 'Checking if processsing new or old Building Block.';
2741: End If;
2742:
2743: G_Stage := 'Checking if processsing new or old Building Block.';
2744: If G_Debug_Mode = 'Y' Then
2745: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2746: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2747: End If;
2748:
2749: If P_New_Old_BB = 'NEW' Then
2750:
2751: G_Stage := 'Get New Detail Building Block data. Inc by person id(Resource Id): ' ||
2752: to_char(Hxc_Generic_Retrieval_Pkg.T_Detail_Bld_Blks(P_Detail_Index).Resource_Id);
2753: If G_Debug_Mode = 'Y' Then
2754: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2755: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2756: End If;
2757:
2758: P_Timecard_Rec.Incurred_By_Person_Id := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Resource_Id;
2759:
2760: G_Stage := 'Get New Detail Building Block data. Quantity: ' ||
2761: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Measure);
2762: If G_Debug_Mode = 'Y' Then
2763: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2764: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2765: End If;
2766:
2767: P_Timecard_Rec.Quantity := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Measure;
2770: G_Stage := 'Get New Detail Building Block data. Expenditure Item Comment: ' ||
2771: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text ||
2772: '(End of comment)';
2773: If G_Debug_Mode = 'Y' Then
2774: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2775: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2776: End If;
2777:
2778: G_Stage := 'Assigning comment to local variable.';
2776: End If;
2777:
2778: G_Stage := 'Assigning comment to local variable.';
2779: If G_Debug_Mode = 'Y' Then
2780: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2781: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2782: End If;
2783: l_comment_text := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text;
2784:
2783: l_comment_text := Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text;
2784:
2785: G_Stage := 'Checking if comment is not null.';
2786: If G_Debug_Mode = 'Y' Then
2787: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2788: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2789: End If;
2790:
2791: If l_comment_text is not Null Then
2791: If l_comment_text is not Null Then
2792:
2793: G_Stage := 'The comment is not null so determine the length of comment.';
2794: If G_Debug_Mode = 'Y' Then
2795: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2796: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2797: End If;
2798:
2799: /* Bug 2930551 If the length of the comment_text is greater than 240 then we should only
2804: If lengthb(l_comment_text) > 240 Then
2805:
2806: If G_Debug_Mode = 'Y' Then
2807: G_Stage := 'Comment_Text length > 240.';
2808: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2809: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2810: End If;
2811:
2812: -- P_Timecard_Rec.Expenditure_Item_Comment :=
2819: Else
2820:
2821: If G_Debug_Mode = 'Y' Then
2822: G_Stage := 'Comment_Text length <= 240.';
2823: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2824: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2825: End If;
2826:
2827: -- P_Timecard_Rec.Expenditure_Item_Comment :=
2833: Else -- l_comment_text is Null
2834:
2835: If G_Debug_Mode = 'Y' Then
2836: G_Stage := 'Setting the comment to null.';
2837: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2838: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2839: End If;
2840: P_Timecard_Rec.Expenditure_Item_Comment := Null;
2841:
2843: /* End bug 5412033 */
2844:
2845: G_Stage := 'Get New Detail Building Block data. Exp Item Date, first attempt.';
2846: If G_Debug_Mode = 'Y' Then
2847: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2848: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2849: End If;
2850:
2851: P_Timecard_Rec.Expenditure_Item_Date :=
2854: If P_Timecard_Rec.Expenditure_Item_Date Is Null Then
2855:
2856: G_Stage := 'Get New Detail Building Block data. Exp Item Date, second attempt.';
2857: If G_Debug_Mode = 'Y' Then
2858: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2859: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2860: End If;
2861:
2862: i := 1;
2862: i := 1;
2863:
2864: G_Stage := 'Get New Detail Building Block data. Exp Item Date, via day scope building block.';
2865: If G_Debug_Mode = 'Y' Then
2866: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2867: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2868: End If;
2869:
2870: While i <= Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks.LAST and NOT l_Rec_Found
2872:
2873: G_Stage := 'Check if the current record is the correct DAY ' ||
2874: 'record to grab Exp Item Date from.';
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 Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks(i).BB_Id =
2881: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Parent_BB_Id Then
2882:
2883: G_Stage := 'Grab the Exp Item Date from new day building block record.';
2884: If G_Debug_Mode = 'Y' Then
2885: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2886: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2887: End If;
2888:
2889: P_Timecard_Rec.Expenditure_Item_Date := Trunc(Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks(i).Start_Time);
2898: End If; -- P_Timecard_Rec.Expenditure_Item_Date Is Null
2899:
2900: G_Stage := 'Exp Item Date(Detail Building Block Start Time): ' || to_char(P_Timecard_Rec.Expenditure_Item_Date);
2901: If G_Debug_Mode = 'Y' Then
2902: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2903: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2904: End If;
2905:
2906: G_Stage := 'Get Expenditure Ending Date from new building block data.';
2904: End If;
2905:
2906: G_Stage := 'Get Expenditure Ending Date from new building block data.';
2907: If G_Debug_Mode = 'Y' Then
2908: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2909: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2910: End If;
2911:
2912: If P_Timecard_Rec.Expenditure_Item_Date is not null Then
2919: -- Begin PA.M/CWK changes
2920: -- The person type can be returned as null and will be handled later in the code.
2921: G_Stage := 'Get Person_Type New.';
2922: If G_Debug_Mode = 'Y' Then
2923: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2924: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2925: End If;
2926:
2927: P_Timecard_Rec.Person_Type := GetPersonType(P_Person_Id => P_Timecard_Rec.Incurred_By_Person_Id,
2928: P_Ei_Date => P_Timecard_Rec.Expenditure_Item_Date);
2929:
2930: G_Stage := 'New Person_Type: ' || P_Timecard_Rec.Person_Type;
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: -- End PA.M/CWK changes
2936:
2936:
2937: /* Pull data from the new detail_attributes pl/sql table */
2938: G_Stage := 'Get NEW detail bb attribution using for loop.';
2939: If G_Debug_Mode = 'Y' Then
2940: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2941: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2942: End If;
2943:
2944: If G_Detail_Attr_Index = 0 Then
2950: i := G_Detail_Attr_Index;
2951:
2952: G_Stage := 'Looping thru NEW attibution starting at index position: ' || to_char(i) ;
2953: If G_Debug_Mode = 'Y' Then
2954: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2955: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2956: End If;
2957:
2958: G_Stage := 'Current position in NEW attribute pl/sql table bb_id value is: ' ||
2957:
2958: G_Stage := 'Current position in NEW attribute pl/sql table bb_id value is: ' ||
2959: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id);
2960: If G_Debug_Mode = 'Y' Then
2961: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2962: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2963: End If;
2964:
2965: While i <= Hxc_User_Type_Definition_Grp.T_Detail_Attributes.LAST And
2970:
2971: G_Stage := 'Retrieved Project Id: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2972: ' Index position: ' || to_char(i);
2973: If G_Debug_Mode = 'Y' Then
2974: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
2975: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
2976: End If;
2977:
2978: P_Timecard_Rec.Project_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
2981:
2982: G_Stage := 'Retrieved Task Id: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
2983: ' Index position: ' || to_char(i);
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: P_Timecard_Rec.Task_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3004: P_Timecard_Rec.Cbs_Element_Id := l_Cbs_Element_Id;
3005:
3006: G_Stage := 'Retrieved Actual Task Id: ' || l_Actual_Task_Id ||' Retrieved Cbs Element Id: ' || l_Cbs_Element_Id || ' Index position: ' || to_char(i);
3007: If G_Debug_Mode = 'Y' Then
3008: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3009: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3010: End If;
3011:
3012: Exception
3027:
3028: G_Stage := 'Retrieved Expenditure Type: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3029: ' Index position: ' || to_char(i);
3030: If G_Debug_Mode = 'Y' Then
3031: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3032: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3033: End If;
3034:
3035: P_Timecard_Rec.Expenditure_Type := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3039: G_Stage := 'Retrieve System Linkage Function: ' ||
3040: Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3041: ' Index position: ' || to_char(i);
3042: If G_Debug_Mode = 'Y' Then
3043: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3044: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3045: End If;
3046:
3047: P_Timecard_Rec.System_Linkage_Function := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3051: G_Stage := 'Retrieve Overidding Approver Person Id: ' ||
3052: Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3053: ' Index position: ' || to_char(i);
3054: If G_Debug_Mode = 'Y' Then
3055: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3056: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3057: End If;
3058:
3059: P_Timecard_Rec.Override_Approver_Person_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3068:
3069: G_Stage := 'Get new attribute category: ' || 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: l_attribute_category := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3080: */
3081:
3082: G_Stage := 'Get new attribute category, checking if Null.';
3083: If G_Debug_Mode = 'Y' Then
3084: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3085: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3086: End If;
3087:
3088: If l_attribute_category is not null Then
3088: If l_attribute_category is not null Then
3089:
3090: G_Stage := 'Get new attribute category, Strip out prefix.';
3091: If G_Debug_Mode = 'Y' Then
3092: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3093: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3094: End If;
3095:
3096: P_Timecard_Rec.Attribute_Category := substr(l_attribute_category,instr(l_attribute_category,' - ') + 3);
3101:
3102: G_Stage := 'Got new attribute1: ' || 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.Attribute1 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3112:
3113: G_Stage := 'Got new attribute2: ' || 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.Attribute2 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3123:
3124: G_Stage := 'Got new attribute3: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3125: ' Index position: ' || to_char(i);
3126: If G_Debug_Mode = 'Y' Then
3127: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3128: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3129: End If;
3130:
3131: P_Timecard_Rec.Attribute3 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3134:
3135: G_Stage := 'Got new attribute4: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3136: ' Index position: ' || to_char(i);
3137: If G_Debug_Mode = 'Y' Then
3138: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3139: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3140: End If;
3141:
3142: P_Timecard_Rec.Attribute4 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3145:
3146: G_Stage := 'Got new attribute5: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3147: ' Index position: ' || to_char(i);
3148: If G_Debug_Mode = 'Y' Then
3149: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3150: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3151: End If;
3152:
3153: P_Timecard_Rec.Attribute5 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3156:
3157: G_Stage := 'Got new attribute6: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3158: ' Index position: ' || to_char(i);
3159: If G_Debug_Mode = 'Y' Then
3160: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3161: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3162: End If;
3163:
3164: P_Timecard_Rec.Attribute6 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3167:
3168: G_Stage := 'Got new attribute7: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3169: ' Index position: ' || to_char(i);
3170: If G_Debug_Mode = 'Y' Then
3171: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3172: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3173: End If;
3174:
3175: P_Timecard_Rec.Attribute7 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3178:
3179: G_Stage := 'Got new attribute8: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3180: ' Index position: ' || to_char(i);
3181: If G_Debug_Mode = 'Y' Then
3182: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3183: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3184: End If;
3185:
3186: P_Timecard_Rec.Attribute8 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3189:
3190: G_Stage := 'Got new attribute9: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3191: ' Index position: ' || to_char(i);
3192: If G_Debug_Mode = 'Y' Then
3193: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3194: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3195: End If;
3196:
3197: P_Timecard_Rec.Attribute9 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3200:
3201: G_Stage := 'Got new attribute10: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3202: ' Index position: ' || to_char(i);
3203: If G_Debug_Mode = 'Y' Then
3204: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3205: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3206: End If;
3207:
3208: P_Timecard_Rec.Attribute10 := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3211:
3212: G_Stage := 'Got new Billable Flag: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3213: ' Index position: ' || to_char(i);
3214: If G_Debug_Mode = 'Y' Then
3215: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3216: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3217: End If;
3218:
3219: P_Timecard_Rec.Billable_Flag := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3223:
3224: G_Stage := 'Retrieved Po Line Id: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3225: ' Index position: ' || to_char(i);
3226: If G_Debug_Mode = 'Y' Then
3227: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3228: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3229: End If;
3230:
3231: P_Timecard_Rec.PO_Line_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3234:
3235: G_Stage := 'Retrieved Po Price Type: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3236: ' Index position: ' || to_char(i);
3237: If G_Debug_Mode = 'Y' Then
3238: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3239: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3240: End If;
3241:
3242: P_Timecard_Rec.PO_Price_Type := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3247:
3248: G_Stage := 'Retrieved Job ID: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3249: ' Index position: ' || to_char(i);
3250: If G_Debug_Mode = 'Y' Then
3251: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3252: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3253: End If;
3254:
3255: P_Timecard_Rec.Job_id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3257:
3258: G_Stage := 'Retrieved Location ID: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3259: ' Index position: ' || to_char(i);
3260: If G_Debug_Mode = 'Y' Then
3261: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3262: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3263: End If;
3264:
3265: P_Timecard_Rec.Location_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3267:
3268: G_Stage := 'Retrieved Work Type ID: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3269: ' Index position: ' || to_char(i);
3270: If G_Debug_Mode = 'Y' Then
3271: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3272: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3273: End If;
3274:
3275: P_Timecard_Rec.Work_Type_Id := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3283:
3284: G_Stage := 'Get new attribute category: ' || Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value ||
3285: ' Index position: ' || to_char(i);
3286: If G_Debug_Mode = 'Y' Then
3287: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3288: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3289: End If;
3290:
3291: l_attribute_category := Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Value;
3295: */
3296:
3297: G_Stage := 'Get new attribute category, checking if Null.';
3298: If G_Debug_Mode = 'Y' Then
3299: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3300: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3301: End If;
3302:
3303: If l_attribute_category is not null Then
3303: If l_attribute_category is not null Then
3304:
3305: G_Stage := 'Get new attribute category, Strip out prefix.';
3306: If G_Debug_Mode = 'Y' Then
3307: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3308: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3309: End If;
3310:
3311: P_Timecard_Rec.Pay_Element_Type_Id := substr(l_attribute_category,instr(l_attribute_category,' - ') + 3);
3322:
3323: G_Stage := 'Exited loop. No more NEW attribution for BB_Id. Store the current index position ' ||
3324: to_char(i) || ' in global variable.';
3325: If G_Debug_Mode = 'Y' Then
3326: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3327: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3328: End If;
3329:
3330: /* Note that variable G_Detail_Attr_Index is already pointing the the next building block.
3335: G_Detail_Attr_Index := i;
3336:
3337: G_Stage := 'Determine why exited loop looking for NEW record attribution.';
3338: If G_Debug_Mode = 'Y' Then
3339: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3340: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3341: End If;
3342:
3343: If i > Hxc_User_Type_Definition_Grp.T_Detail_Attributes.LAST Then
3345: G_Stage := 'Reached last record index position ' ||
3346: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes.LAST) || ' ' ||
3347: 'in NEW attrib pl/sql table.';
3348: If G_Debug_Mode = 'Y' Then
3349: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3350: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3351: End If;
3352:
3353: ElsIf Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id <> P_BB_Id Then
3356: 'BB_Id in NEW attrib pl/sql: ' ||
3357: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id) || '. ' ||
3358: 'They do not match!';
3359: If G_Debug_Mode = 'Y' Then
3360: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3361: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3362: End If;
3363:
3364: End If;
3365:
3366: -- Begin PA.M/CWK changes
3367: G_Stage := 'Check Person Type is CWK and PO_Line_Id is Not Null New.';
3368: If G_Debug_Mode = 'Y' Then
3369: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3370: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3371: End If;
3372:
3373: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id is Not Null Then
3371: End If;
3372:
3373: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id is Not Null Then
3374:
3375: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure New.';
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;
3373: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id is Not Null Then
3374:
3375: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure New.';
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: Pa_Otc_Api.GetPOInfo(
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: Pa_Otc_Api.GetPOInfo(
3382: P_Po_Line_Id => P_Timecard_Rec.PO_Line_Id,
3383: X_PO_Header_Id => P_Timecard_Rec.PO_Header_Id,
3384: X_Vendor_Id => P_Timecard_Rec.Vendor_Id);
3385:
3384: X_Vendor_Id => P_Timecard_Rec.Vendor_Id);
3385:
3386: G_Stage := 'Got new Vendor Id: ' || to_char(P_Timecard_Rec.Vendor_Id) || ' based on PO_Line_Id';
3387: If G_Debug_Mode = 'Y' Then
3388: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3389: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3390: End If;
3391:
3392: Else
3392: Else
3393:
3394: G_Stage := 'Set to null po info, vendor_id, and price_type New.';
3395: If G_Debug_Mode = 'Y' Then
3396: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3397: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3398: End If;
3399: P_Timecard_Rec.PO_Line_Id := NULL;
3400: P_Timecard_Rec.PO_Header_Id := NULL;
3408:
3409: G_Stage := 'Got Old Detail Building Block data. Incurred by Person Id(Resource Id): ' ||
3410: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Resource_Id);
3411: If G_Debug_Mode = 'Y' Then
3412: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3413: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3414: End If;
3415:
3416: P_Timecard_Rec.Incurred_By_Person_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Resource_Id;
3416: P_Timecard_Rec.Incurred_By_Person_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Resource_Id;
3417:
3418: G_Stage := 'Got Old Detail Building Block data. Incurred by Person Id';
3419: If G_Debug_Mode = 'Y' Then
3420: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3421: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3422: End If;
3423:
3424: G_Stage := 'Got Old Detail Building Block data. Quantity: ' ||
3423:
3424: G_Stage := 'Got Old Detail Building Block data. Quantity: ' ||
3425: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Measure);
3426: If G_Debug_Mode = 'Y' Then
3427: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3428: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3429: End If;
3430:
3431: P_Timecard_Rec.Quantity := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Measure;
3434: G_Stage := 'Get Old Detail Building Block data. Expenditure Item Comment: ' ||
3435: Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text ||
3436: '(End of comment)';
3437: If G_Debug_Mode = 'Y' Then
3438: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3439: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3440: End If;
3441:
3442: G_Stage := 'Assigning Old comment to local variable.';
3440: End If;
3441:
3442: G_Stage := 'Assigning Old comment to local variable.';
3443: If G_Debug_Mode = 'Y' Then
3444: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3445: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3446: End If;
3447: l_comment_text := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text;
3448:
3447: l_comment_text := Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text;
3448:
3449: G_Stage := 'Checking if Old comment is not null.';
3450: If G_Debug_Mode = 'Y' Then
3451: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3452: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3453: End If;
3454:
3455: If l_comment_text is not Null Then
3455: If l_comment_text is not Null Then
3456:
3457: G_Stage := 'The old comment is not null so determine the length of comment.';
3458: If G_Debug_Mode = 'Y' Then
3459: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3460: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3461: End If;
3462:
3463: /* Bug 2930551 If the length of the comment_text is greater than 240 then we should only
3468: If lengthb(l_comment_text) > 240 Then
3469:
3470: If G_Debug_Mode = 'Y' Then
3471: G_Stage := 'Old Comment_Text length > 240.';
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.Expenditure_Item_Comment :=
3483: Else
3484:
3485: If G_Debug_Mode = 'Y' Then
3486: G_Stage := 'Old Comment_Text length <= 240.';
3487: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3488: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3489: End If;
3490:
3491: -- P_Timecard_Rec.Expenditure_Item_Comment :=
3497: Else -- l_comment_text is null
3498:
3499: If G_Debug_Mode = 'Y' Then
3500: G_Stage := 'Setting the Old comment to null.';
3501: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3502: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3503: End If;
3504: P_Timecard_Rec.Expenditure_Item_Comment := Null;
3505:
3507: /* End Bug 5412033 */
3508:
3509: G_Stage := 'Get Old Day Building Block data. Exp Item Date. First Attempt.';
3510: If G_Debug_Mode = 'Y' Then
3511: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3512: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3513: End If;
3514:
3515: /* added Trunc function for bug 9793882 */
3518: If P_Timecard_Rec.Expenditure_Item_Date Is Null Then
3519:
3520: G_Stage := 'Get Old Day Building Block data. Exp Item Date. Second Attempt.';
3521: If G_Debug_Mode = 'Y' Then
3522: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3523: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3524: End If;
3525:
3526: j := 1;
3526: j := 1;
3527:
3528: G_Stage := 'Get Old Detail Building Block data. Exp Item Date, via old day scope building block.';
3529: If G_Debug_Mode = 'Y' Then
3530: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3531: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3532: End If;
3533:
3534: While j <= Hxc_User_Type_Definition_Grp.T_Old_Day_Bld_Blks.LAST and NOT l_Rec_Found
3536:
3537: G_Stage := 'Check if the current record is the correct DAY ' ||
3538: 'record to grab Exp Item Date from.';
3539: If G_Debug_Mode = 'Y' Then
3540: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3541: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3542: End If;
3543:
3544: If Hxc_User_Type_Definition_Grp.T_Day_Bld_Blks(j).BB_Id =
3545: Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Parent_BB_Id Then
3546:
3547: G_Stage := 'Grab the Exp Item Date from old day building block record.';
3548: If G_Debug_Mode = 'Y' Then
3549: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3550: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3551: End If;
3552:
3553: P_Timecard_Rec.Expenditure_Item_Date := Trunc(Hxc_User_Type_Definition_Grp.T_Old_Day_Bld_Blks(j).Start_Time);
3562: End If;
3563:
3564: G_Stage := 'Exp Item Date(Detail Building Block Start Time): ' || to_char(P_Timecard_Rec.Expenditure_Item_Date);
3565: If G_Debug_Mode = 'Y' Then
3566: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3567: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3568: End If;
3569:
3570: G_Stage := 'Get Expenditure Ending Date for old building block data.';
3568: End If;
3569:
3570: G_Stage := 'Get Expenditure Ending Date for old building block data.';
3571: If G_Debug_Mode = 'Y' Then
3572: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3573: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3574: End If;
3575:
3576: P_Timecard_Rec.Expenditure_Ending_date := Pa_Utils.NewGetWeekEnding(P_Timecard_Rec.Expenditure_Item_Date);
3576: P_Timecard_Rec.Expenditure_Ending_date := Pa_Utils.NewGetWeekEnding(P_Timecard_Rec.Expenditure_Item_Date);
3577:
3578: G_Stage := 'Old Index check and assignment for use in loop';
3579: If G_Debug_Mode = 'Y' Then
3580: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3581: Pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3582: End If;
3583:
3584: -- Begin PA.M/CWK changes
3584: -- Begin PA.M/CWK changes
3585: -- The person type can be returned as null and will be handled later in the code.
3586: G_Stage := 'Get Person_Type old.';
3587: If G_Debug_Mode = 'Y' Then
3588: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3589: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3590: End If;
3591:
3592: P_Timecard_Rec.Person_Type := GetPersonType(P_Person_Id => P_Timecard_Rec.Incurred_By_Person_Id,
3593: P_Ei_Date => P_Timecard_Rec.Expenditure_Item_Date);
3594:
3595: G_Stage := 'Old Person_Type: ' || P_Timecard_Rec.Person_Type;
3596: If G_Debug_Mode = 'Y' Then
3597: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3598: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3599: End If;
3600: -- End PA.M/CWK changes
3601:
3609:
3610: /* Pull data from the detail_attributes pl/sql table */
3611: G_Stage := 'Looping thru OLD attibution starting at index position: ' || to_char(j) ;
3612: If G_Debug_Mode = 'Y' Then
3613: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3614: Pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3615: End If;
3616:
3617: G_Stage := 'Current position in OLD attribute pl/sql table bb_id value: ' ||
3616:
3617: G_Stage := 'Current position in OLD attribute pl/sql table bb_id value: ' ||
3618: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id);
3619: If G_Debug_Mode = 'Y' Then
3620: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3621: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3622: End If;
3623:
3624: While j <= Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes.LAST and
3629:
3630: G_Stage := 'Got old Project Id: ' || Hxc_Generic_Retrieval_Pkg.T_Old_Detail_Attributes(j).Value ||
3631: ' Index position: ' || to_char(j);
3632: If G_Debug_Mode = 'Y' Then
3633: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3634: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3635: End If;
3636:
3637: P_Timecard_Rec.Project_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3640:
3641: G_Stage := 'Got old Task Id: ' || Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3642: ' Index position: ' || to_char(j);
3643: If G_Debug_Mode = 'Y' Then
3644: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3645: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3646: End If;
3647:
3648: P_Timecard_Rec.Task_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3681: G_Stage := 'Got old Expenditure Type: ' ||
3682: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3683: ' Index position: ' || to_char(j);
3684: If G_Debug_Mode = 'Y' Then
3685: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3686: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3687: End If;
3688:
3689: P_Timecard_Rec.Expenditure_Type := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3693: G_Stage := 'Got old System Linkage Function: ' ||
3694: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3695: ' Index position: ' || to_char(j);
3696: If G_Debug_Mode = 'Y' Then
3697: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3698: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3699: End If;
3700:
3701: P_Timecard_Rec.System_Linkage_Function := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3705: G_Stage := 'Got old Overriding Approver Person Id: ' ||
3706: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3707: ' Index position: ' || to_char(j);
3708: If G_Debug_Mode = 'Y' Then
3709: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3710: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3711: End If;
3712:
3713: P_Timecard_Rec.Override_Approver_Person_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3723: G_Stage := 'Get old attribute category info: ' ||
3724: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3725: ' Index position: ' || to_char(j);
3726: If G_Debug_Mode = 'Y' Then
3727: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3728: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3729: End If;
3730:
3731: l_attribute_category := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3734: * avoiding unhandled exceptions.
3735: */
3736: G_Stage := 'Get old attribute category, checking if Null.'|| to_char(j);
3737: If G_Debug_Mode = 'Y' Then
3738: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3739: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3740: End If;
3741:
3742: If l_attribute_category is not null Then
3742: If l_attribute_category is not null Then
3743:
3744: G_Stage := 'Get old attribute category, Strip out prefix.'|| to_char(j);
3745: If G_Debug_Mode = 'Y' Then
3746: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3747: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3748: End If;
3749:
3750: P_Timecard_Rec.Attribute_Category := substr(l_attribute_category,instr(l_attribute_category,' - ') + 3);
3756: G_Stage := 'Got old Attribute1: ' ||
3757: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3758: ' Index position: ' || to_char(j);
3759: If G_Debug_Mode = 'Y' Then
3760: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3761: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3762: End If;
3763:
3764: P_Timecard_Rec.Attribute1 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3768: G_Stage := 'Got old Attribute2: ' ||
3769: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3770: ' Index position: ' || to_char(j);
3771: If G_Debug_Mode = 'Y' Then
3772: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3773: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3774: End If;
3775:
3776: P_Timecard_Rec.Attribute2 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3780: G_Stage := 'Got old Attribute3: ' ||
3781: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3782: ' Index position: ' || to_char(j);
3783: If G_Debug_Mode = 'Y' Then
3784: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3785: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3786: End If;
3787:
3788: P_Timecard_Rec.Attribute3 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3792: G_Stage := 'Got old Attribute4: ' ||
3793: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3794: ' Index position: ' || to_char(j);
3795: If G_Debug_Mode = 'Y' Then
3796: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3797: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3798: End If;
3799:
3800: P_Timecard_Rec.Attribute4 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3804: G_Stage := 'Got old Attribute5: ' ||
3805: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3806: ' Index position: ' || to_char(j);
3807: If G_Debug_Mode = 'Y' Then
3808: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3809: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3810: End If;
3811:
3812: P_Timecard_Rec.Attribute5 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3816: G_Stage := 'Got old Attribute6: ' ||
3817: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3818: ' Index position: ' || to_char(j);
3819: If G_Debug_Mode = 'Y' Then
3820: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3821: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3822: End If;
3823:
3824: P_Timecard_Rec.Attribute6 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3828: G_Stage := 'Got old Attribute7: ' ||
3829: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3830: ' Index position: ' || to_char(j);
3831: If G_Debug_Mode = 'Y' Then
3832: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3833: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3834: End If;
3835:
3836: P_Timecard_Rec.Attribute7 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3840: G_Stage := 'Got old Attribute8: ' ||
3841: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3842: ' Index position: ' || to_char(j);
3843: If G_Debug_Mode = 'Y' Then
3844: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3845: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3846: End If;
3847:
3848: P_Timecard_Rec.Attribute8 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3852: G_Stage := 'Got old Attribute9: ' ||
3853: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3854: ' Index position: ' || to_char(j);
3855: If G_Debug_Mode = 'Y' Then
3856: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3857: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3858: End If;
3859:
3860: P_Timecard_Rec.Attribute9 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3864: G_Stage := 'Got old Attribute10: ' ||
3865: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3866: ' Index position: ' || to_char(j);
3867: If G_Debug_Mode = 'Y' Then
3868: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3869: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3870: End If;
3871:
3872: P_Timecard_Rec.Attribute10 := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3876: G_Stage := 'Got old Billable Flag: ' ||
3877: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3878: ' Index position: ' || to_char(j);
3879: If G_Debug_Mode = 'Y' Then
3880: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3881: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3882: End If;
3883:
3884: P_Timecard_Rec.Billable_Flag := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3889: G_Stage := 'Got old Po Line Id: ' ||
3890: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3891: ' Index position: ' || to_char(j);
3892: If G_Debug_Mode = 'Y' Then
3893: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3894: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3895: End If;
3896:
3897: P_Timecard_Rec.PO_Line_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3901: G_Stage := 'Got old PO Price Type: ' ||
3902: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3903: ' Index position: ' || to_char(j);
3904: If G_Debug_Mode = 'Y' Then
3905: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3906: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3907: End If;
3908:
3909: P_Timecard_Rec.PO_Price_Type := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3914:
3915: G_Stage := 'Got old Job ID: ' || Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3916: ' Index position: ' || to_char(j);
3917: If G_Debug_Mode = 'Y' Then
3918: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3919: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3920: End If;
3921:
3922: P_Timecard_Rec.Job_id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3924:
3925: G_Stage := 'Got old Location ID: ' || Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3926: ' Index position: ' || to_char(j);
3927: If G_Debug_Mode = 'Y' Then
3928: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3929: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3930: End If;
3931:
3932: P_Timecard_Rec.Location_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3935:
3936: G_Stage := 'Got old Work Type ID: ' || Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3937: ' Index position: ' || to_char(j);
3938: If G_Debug_Mode = 'Y' Then
3939: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3940: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3941: End If;
3942:
3943: P_Timecard_Rec.Work_Type_Id := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3952:
3953: G_Stage := 'Get old attribute category: ' || Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value ||
3954: ' Index position: ' || to_char(j);
3955: If G_Debug_Mode = 'Y' Then
3956: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3957: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3958: End If;
3959:
3960: l_attribute_category := Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Value;
3964: */
3965:
3966: G_Stage := 'Get old attribute category, checking if Null.';
3967: If G_Debug_Mode = 'Y' Then
3968: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3969: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3970: End If;
3971:
3972: If l_attribute_category is not null Then
3972: If l_attribute_category is not null Then
3973:
3974: G_Stage := 'Get old attribute category, Strip out prefix.';
3975: If G_Debug_Mode = 'Y' Then
3976: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3977: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3978: End If;
3979:
3980: P_Timecard_Rec.Pay_Element_Type_Id := substr(l_attribute_category,instr(l_attribute_category,' - ') + 3);
3990:
3991: G_Stage := 'Exited loop. No more OLD attribution for BB_Id. Store the current index position ' ||
3992: to_char(j) || ' in global variable.';
3993: If G_Debug_Mode = 'Y' Then
3994: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
3995: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
3996: End If;
3997:
3998: /* Note that variable G_Old_Detail_Attr_Index is already pointing the the next building block.
4003: G_Old_Detail_Attr_Index := j;
4004:
4005: G_Stage := 'Determine why exited loop while looking for OLD record attribution.';
4006: If G_Debug_Mode = 'Y' Then
4007: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4008: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4009: End If;
4010:
4011: If j > Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes.LAST Then
4013: G_Stage := 'Reached last record index position ' ||
4014: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes.LAST) || ' ' ||
4015: 'in OLD attrib pl/sql table.';
4016: If G_Debug_Mode = 'Y' Then
4017: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4018: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4019: End If;
4020:
4021: ElsIf Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id <> P_BB_Id Then
4024: 'BB_Id in OLD attrib pl/sql: ' ||
4025: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id) || '. ' ||
4026: 'They do not match!';
4027: If G_Debug_Mode = 'Y' Then
4028: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4029: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4030: End If;
4031:
4032: End If;
4033:
4034: -- Begin PA.M/CWK changes
4035: G_Stage := 'Check if P_Timecard_Rec.Person_Type is CWK and PO_Line_Id Is Not Null old.';
4036: If G_Debug_Mode = 'Y' Then
4037: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4038: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4039: End If;
4040: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id Is Not Null Then
4041:
4038: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4039: End If;
4040: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id Is Not Null Then
4041:
4042: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure old.';
4043: If G_Debug_Mode = 'Y' Then
4044: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4045: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4046: End If;
4040: If P_Timecard_Rec.Person_Type = 'CWK' and P_Timecard_Rec.PO_Line_Id Is Not Null Then
4041:
4042: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure old.';
4043: If G_Debug_Mode = 'Y' Then
4044: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4045: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4046: End If;
4047:
4048: Pa_Otc_Api.GetPOInfo(
4044: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4045: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4046: End If;
4047:
4048: Pa_Otc_Api.GetPOInfo(
4049: P_Po_Line_Id => P_Timecard_Rec.PO_Line_Id,
4050: X_PO_Header_Id => P_Timecard_Rec.PO_Header_Id,
4051: X_Vendor_Id => P_Timecard_Rec.Vendor_Id);
4052:
4051: X_Vendor_Id => P_Timecard_Rec.Vendor_Id);
4052:
4053: G_Stage := 'Got old Vendor Id: ' || to_char(P_Timecard_Rec.Vendor_Id) || ' based on PO_Line_Id';
4054: If G_Debug_Mode = 'Y' Then
4055: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4056: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4057: End If;
4058:
4059: Else
4059: Else
4060:
4061: G_Stage := 'Set po infor, vendor_id and price_type to null old.';
4062: If G_Debug_Mode = 'Y' Then
4063: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4064: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4065: End If;
4066:
4067: P_Timecard_Rec.PO_Line_Id := NULL;
4075: End If;
4076:
4077: G_Stage := 'Checking that needed data was retrieved to properly process building block for import.';
4078: If G_Debug_Mode = 'Y' Then
4079: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4080: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4081: End If;
4082:
4083: If P_Timecard_Rec.Project_Id is null and
4160: End If;
4161:
4162: G_Stage := 'Leaving PopulateProjRec(), strip procedure from trackpath.';
4163: If G_Debug_Mode = 'Y' Then
4164: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4165: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4166: End If;
4167: Pa_Otc_Api.TrackPath('STRIP','PopulateProjRec');
4168:
4163: If G_Debug_Mode = 'Y' Then
4164: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4165: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4166: End If;
4167: Pa_Otc_Api.TrackPath('STRIP','PopulateProjRec');
4168:
4169: Exception
4170: When Others Then
4171: l_error_text := SubStr('Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' -- ' || SqlErrM, 1, 1800);
4167: Pa_Otc_Api.TrackPath('STRIP','PopulateProjRec');
4168:
4169: Exception
4170: When Others Then
4171: l_error_text := SubStr('Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' -- ' || SqlErrM, 1, 1800);
4172: fnd_message.set_name('HXC', 'HXC_RET_UNEXPECTED_ERROR');
4173: fnd_message.set_token('ERR', l_Error_Text);
4174: P_Timecard_Rec.Status := SubStr(Fnd_Message.Get,1,2000);
4175:
4179: End If;
4180:
4181: l_error_text := 'Leaving PopulateProjRec() due to unhandled exception, strip procedure from trackpath.';
4182: If G_Debug_Mode = 'Y' Then
4183: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || l_error_text;
4184: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4185: End If;
4186: Pa_Otc_Api.TrackPath('STRIP','PopulateProjRec');
4187:
4182: If G_Debug_Mode = 'Y' Then
4183: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || l_error_text;
4184: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4185: End If;
4186: Pa_Otc_Api.TrackPath('STRIP','PopulateProjRec');
4187:
4188: Raise G_BAD_OTL_DATA;
4189:
4190: End PopulateProjRec;
4218: Begin
4219:
4220: G_Stage := 'Entering procedure GetDetailIndex(), add procedure to trackpath.';
4221: If G_Debug_Mode = 'Y' Then
4222: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4223: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4224: End If;
4225: Pa_Otc_Api.TrackPath('ADD','GetDetailIndex');
4226:
4221: If G_Debug_Mode = 'Y' Then
4222: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4223: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4224: End If;
4225: Pa_Otc_Api.TrackPath('ADD','GetDetailIndex');
4226:
4227: G_Stage := 'Begin loop searching for the matching BB_Id.';
4228: If G_Debug_Mode = 'Y' Then
4229: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4225: Pa_Otc_Api.TrackPath('ADD','GetDetailIndex');
4226:
4227: G_Stage := 'Begin loop searching for the matching BB_Id.';
4228: If G_Debug_Mode = 'Y' Then
4229: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4230: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4231: End If;
4232:
4233: For i in Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.FIRST .. Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks.LAST
4234: Loop
4235:
4236: G_Stage := 'Determine if BB_Id in the pl/sql matches the one provided.';
4237: If G_Debug_Mode = 'Y' Then
4238: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4239: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4240: End If;
4241:
4242: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id = P_Detail_BB_Id Then
4242: If Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id = P_Detail_BB_Id Then
4243:
4244: G_Stage := 'Set Index to use since found the one needed.';
4245: If G_Debug_Mode = 'Y' Then
4246: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4247: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4248: End If;
4249:
4250: X_Detail_Index := i;
4250: X_Detail_Index := i;
4251:
4252: G_Stage := 'Exiting the loop since found the index needed.';
4253: If G_Debug_Mode = 'Y' Then
4254: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4255: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4256: End If;
4257:
4258: EXIT;
4262: End Loop;
4263:
4264: G_Stage := 'Leaving procedure GetDetailIndex().';
4265: If G_Debug_Mode = 'Y' Then
4266: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4267: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4268: End If;
4269: Pa_Otc_Api.TrackPath('STRIP','GetDetailIndex');
4270:
4265: If G_Debug_Mode = 'Y' Then
4266: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
4267: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
4268: End If;
4269: Pa_Otc_Api.TrackPath('STRIP','GetDetailIndex');
4270:
4271: Exception
4272: When Others Then
4273: Raise;
4339:
4340: G_Path := ' ';
4341:
4342: G_Stage := 'Entering Update_Otc_Data() procedure.';
4343: Pa_Otc_Api.TrackPath('ADD','Update_Otc_Data');
4344:
4345: If P_Operation <> 'MIGRATION' Then
4346:
4347: G_Stage := 'Call Hxc_Integration_Layer_V1_Grp.Get_App_Hook_Params()';
4350: P_App_Attributes => l_Attributes,
4351: P_Messages => l_Messages);
4352:
4353: G_Stage := 'Call the Upate_Process() to update the billable flag.';
4354: Pa_Otc_Api.Update_Process (
4355: P_Operation => P_Operation,
4356: P_Building_Blocks => l_Blocks,
4357: P_Attribute_Table => l_Attributes);
4358:
4364:
4365: End If; -- P_Operation
4366:
4367: G_Stage := 'Leaving Update_Otc_Data() procedure.';
4368: Pa_Otc_Api.TrackPath('STRIP','Update_Otc_Data');
4369:
4370: Exception
4371: When Others Then
4372: Raise_Application_Error(-20010, 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_stage || ' : ' || SqlErrM );
4368: Pa_Otc_Api.TrackPath('STRIP','Update_Otc_Data');
4369:
4370: Exception
4371: When Others Then
4372: Raise_Application_Error(-20010, 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_stage || ' : ' || SqlErrM );
4373:
4374: End Update_Otc_Data;
4375:
4376:
4406: P_Attribute_Table IN OUT NOCOPY Hxc_User_Type_Definition_Grp.App_Attributes_Info) -- 2672653
4407:
4408: Is
4409:
4410: l_Proj_Attrib_Rec Pa_Otc_Api.Project_Attribution_Rec;
4411:
4412: /* Stores a single record from the Building Block Table */
4413: l_Building_Block_Record Hxc_User_Type_Definition_Grp.Building_Block_Info;
4414:
4442: Begin
4443: l_calling_module :='PAXVOTCB'; --Added for bug#13803367
4444:
4445: G_Stage := 'Entering procedure Update_Process().';
4446: Pa_Otc_Api.TrackPath('ADD','Update_Process');
4447:
4448: G_Stage := 'Loop thru Building Blocks record to validate detail records.';
4449: -- For i in P_Building_Blocks.First .. P_Building_Blocks.Last
4450: Loop
4465: l_Building_Block_Record := P_Building_Blocks(i);
4466: G_Stage := 'Pull out the data to friendlier formated variables.';
4467: /* Pull out the data to project friendly variables */
4468: /* Bug 4318639
4469: Pa_Otc_Api.RetrieveProjAttribution( */
4470: Pa_Otc_Api.RetrieveProjAttribForUpd(
4471: P_Building_Block_Rec => l_Building_Block_Record,
4472: P_Building_Block => P_Building_Blocks,
4473: P_Attribute_Table => P_Attribute_Table,
4466: G_Stage := 'Pull out the data to friendlier formated variables.';
4467: /* Pull out the data to project friendly variables */
4468: /* Bug 4318639
4469: Pa_Otc_Api.RetrieveProjAttribution( */
4470: Pa_Otc_Api.RetrieveProjAttribForUpd(
4471: P_Building_Block_Rec => l_Building_Block_Record,
4472: P_Building_Block => P_Building_Blocks,
4473: P_Attribute_Table => P_Attribute_Table,
4474: X_Detail_Attr_Changed => l_Detail_Attr_Changed,
4485:
4486: End If;
4487:
4488: G_Stage := 'Determine the processing flags for using further in code.';
4489: Pa_Otc_Api.DetermineProcessingFlags(
4490: P_BB_Id => P_Building_Blocks(i).Time_Building_Block_Id,
4491: P_BB_Ovn => P_Building_Blocks(i).Object_Version_Number,
4492: P_BB_Date_To => P_Building_Blocks(i).Date_To,
4493: P_BB_Changed => l_Logical_Rec_Changed,
4595: -- Populate the Billable Flag in the pl/sql table
4596: -- Bug 4318639 Added IF condition to see if the billable_flag_index is populated.
4597: -- If no project related data was entered or there is no project_id attribution data in the
4598: -- attribution pl/sql table then we are able to build the billable_flag attribution record in
4599: -- Pa_Otc_Api.RetrieveProjAttribForUpd() so won't be able to assign the billable_flag to the
4600: -- attribution record.
4601: G_Stage := 'Check if billable_flag attribution pl/sql record exists.';
4602: If l_Proj_Attrib_Rec.Billable_Flag_Index is Not Null Then
4603: G_Stage := 'Populate the Billable Flag in the attribution pl/sql table record.';
4615:
4616: End Loop; -- End of looping thru the building_block table
4617:
4618: G_Stage := 'Leaving procedure Update_Process().';
4619: Pa_Otc_Api.TrackPath('STRIP','Update_Process');
4620:
4621: Exception
4622: When Others Then
4623: Raise;
4655:
4656: G_Path := ' ';
4657:
4658: G_Stage := 'Entering procedure Validate_Otc_Data().';
4659: Pa_Otc_Api.TrackPath('ADD','Validate_Otc_Data');
4660:
4661: If P_Operation <> 'MIGRATION' Then
4662:
4663: G_Stage := 'Call hxc_self_service_time_deposit.get_app_hook_params()';
4666: P_App_Attributes => l_Attributes,
4667: P_Messages => l_Messages);
4668:
4669: G_Stage := 'Call the Validate_Process() to validate data.';
4670: Pa_Otc_Api.Validate_Process (
4671: P_Operation => P_Operation,
4672: P_Building_Blocks => l_Blocks,
4673: P_Attribute_Table => l_Attributes,
4674: P_Message_Table => l_Messages);
4685:
4686: End If; -- P_Operation
4687:
4688: G_Stage := 'Leaving procedure Validate_Otc_Data().';
4689: Pa_Otc_Api.TrackPath('STRIP','Validate_Otc_Data');
4690:
4691: Exception
4692: When Others Then
4693: Raise_Application_Error(-20020,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_stage || ' : ' || SQLERRM );
4689: Pa_Otc_Api.TrackPath('STRIP','Validate_Otc_Data');
4690:
4691: Exception
4692: When Others Then
4693: Raise_Application_Error(-20020,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_stage || ' : ' || SQLERRM );
4694:
4695: End Validate_Otc_Data;
4696:
4697:
4748: l_Ovr_Approver_Person_Id Pa_Expenditures_All.Overriding_Approver_Person_Id%TYPE := Null;
4749:
4750: l_Bill_Flag_Meaning Fnd_Lookups.Meaning%TYPE := Null;
4751:
4752: l_Proj_Attrib_Rec Pa_Otc_Api.Project_Attribution_Rec;
4753:
4754: l_Msg_Name VARCHAR2(30) := Null;
4755: l_Msg_Application VARCHAR2(2) := Null;
4756: l_Msg_Type VARCHAR2(30) := Null;
4779: l_strReferenceField Varchar2(200);
4780: l_bresult Boolean;
4781:
4782: /* Variables needed for running of the summary-validation and Business Message APIs */
4783: l_Timecard_Table Pa_Otc_Api.Timecard_Table;
4784: l_Timecard_Table_Week Pa_Otc_Api.Timecard_Table;
4785: l_Weeks_To_Process Binary_Integer := 0;
4786: l_Exp_Ending_Date_Check Pa_Expenditures_All.Expenditure_Ending_Date%TYPE := Null;
4787: l_Timecard_Table_Index Binary_Integer := 0;
4780: l_bresult Boolean;
4781:
4782: /* Variables needed for running of the summary-validation and Business Message APIs */
4783: l_Timecard_Table Pa_Otc_Api.Timecard_Table;
4784: l_Timecard_Table_Week Pa_Otc_Api.Timecard_Table;
4785: l_Weeks_To_Process Binary_Integer := 0;
4786: l_Exp_Ending_Date_Check Pa_Expenditures_All.Expenditure_Ending_Date%TYPE := Null;
4787: l_Timecard_Table_Index Binary_Integer := 0;
4788: l_Time_Building_Block_Id Hxc_Time_Building_Blocks.Time_Building_Block_Id%TYPE := Null;
4835: Begin
4836: l_calling_module :='PAXVOTCB'; /*Added for bug#13803367 */
4837:
4838: G_Stage := 'Entering procedure Validate_Process().';
4839: Pa_Otc_Api.TrackPath('ADD','Validate_Process');
4840:
4841: -- The out variables are used in the summary level validation and the business message
4842: -- API calls.
4843:
4841: -- The out variables are used in the summary level validation and the business message
4842: -- API calls.
4843:
4844: G_Stage := 'Find and Validate Header Record in the Building Blocks Pl/Sql table.';
4845: Pa_Otc_Api.FindandValidateHeader(
4846: P_Building_Blocks_Table => P_Building_Blocks,
4847: P_Attribute_Table => P_Attribute_Table,
4848: P_Message_Table => P_Message_Table,
4849: X_TimeBB_Id => l_Time_Building_Block_Id,
4944: l_Detail_Attr_Changed := 'N';
4945:
4946: G_Stage := 'Pull out the data to friendlier formated variables.';
4947: -- Pull out the data to project friendly variables
4948: Pa_Otc_Api.RetrieveProjAttribution(
4949: P_Building_Block_Rec => l_Building_Block_Record,
4950: P_Building_Block => P_Building_Blocks,
4951: P_Attribute_Table => P_Attribute_Table,
4952: X_Detail_Attr_Changed => l_Detail_Attr_Changed,
4993:
4994:
4995: If l_closed_proj_flag = 'Y' Then
4996: -- Add record to error table.
4997: Pa_Otc_Api.Add_Error_To_Table(
4998: P_Message_Table => P_Message_Table,
4999: P_Message_Name => 'PA_NEW_TXNS_NOT_ALLOWED',
5000: P_Message_Level => 'ERROR',
5001: P_Message_Field => NULL,
5009:
5010:
5011:
5012: G_Stage := 'Determine the processing flags for use further in code.';
5013: Pa_Otc_Api.DetermineProcessingFlags(
5014: P_BB_Id => P_Building_Blocks(i).Time_Building_Block_Id,
5015: P_BB_Ovn => P_Building_Blocks(i).Object_Version_Number,
5016: P_BB_Date_To => P_Building_Blocks(i).Date_To,
5017: P_BB_Changed => l_Logical_Rec_Changed,
5054:
5055: G_Msg_Tokens_Table.Delete;
5056:
5057: -- Add record to error table.
5058: Pa_Otc_Api.Add_Error_To_Table(
5059: P_Message_Table => P_Message_Table,
5060: P_Message_Name => 'PA_TR_UNDO_DEL_IN_OTC',
5061: P_Message_Level => 'ERROR',
5062: P_Message_Field => NULL,
5069: G_Stage := 'Not allowed to Delete Item In OTL - Inserting error rec.';
5070: G_Msg_Tokens_Table.Delete;
5071:
5072: -- Add record to error table.
5073: Pa_Otc_Api.Add_Error_To_Table(
5074: P_Message_Table => P_Message_Table,
5075: P_Message_Name => 'PA_NO_DEL_EX_ITEM',
5076: P_Message_Level => 'ERROR',
5077: P_Message_Field => NULL,
5093: G_Stage := 'Not allowed to Adjust Item In OTL confict - Inserting error rec.';
5094: G_Msg_Tokens_Table.Delete;
5095:
5096: -- Add record to error table.
5097: Pa_Otc_Api.Add_Error_To_Table(
5098: P_Message_Table => P_Message_Table,
5099: P_Message_Name => 'PA_TR_UNDO_CHGE_IN_OTC',
5100: P_Message_Level => 'ERROR',
5101: P_Message_Field => NULL,
5109:
5110: G_Msg_Tokens_Table.Delete;
5111:
5112: -- Add record to error table.
5113: Pa_Otc_Api.Add_Error_To_Table(
5114: P_Message_Table => P_Message_Table,
5115: P_Message_Name => 'PA_TR_ADJ_NO_NET_ZERO',
5116: P_Message_Level => 'ERROR',
5117: P_Message_Field => NULL,
5155:
5156: G_Msg_Tokens_Table.Delete;
5157:
5158: -- Add record to error table.
5159: Pa_Otc_Api.Add_Error_To_Table(
5160: P_Message_Table => P_Message_Table,
5161: P_Message_Name => 'PA_UOM_MUST_BE_HOURS',
5162: P_Message_Level => 'ERROR',
5163: P_Message_Field => NULL,
5180: G_Stage := 'Negative quantity not allowed In OTL - Inserting error rec.';
5181: G_Msg_Tokens_Table.Delete;
5182:
5183: -- Add record to error table.
5184: Pa_Otc_Api.Add_Error_To_Table(
5185: P_Message_Table => P_Message_Table,
5186: P_Message_Name => 'PA_SU_NEGATIVE_NUM_NOT_ALLOWED',
5187: P_Message_Level => 'ERROR',
5188: P_Message_Field => NULL,
5198: G_Stage := 'Invalid Person Type - Inserting error rec.';
5199: G_Msg_Tokens_Table.Delete;
5200:
5201: -- Add record to error table.
5202: Pa_Otc_Api.Add_Error_To_Table(
5203: P_Message_Table => P_Message_Table,
5204: P_Message_Name => 'PA_INVALID_PERSON_TYPE',
5205: P_Message_Level => 'ERROR',
5206: P_Message_Field => NULL,
5218: G_Stage := 'Project organization does not allow CWK timecards - Inserting error rec.';
5219: G_Msg_Tokens_Table.Delete;
5220:
5221: -- Add record to error table.
5222: Pa_Otc_Api.Add_Error_To_Table(
5223: P_Message_Table => P_Message_Table,
5224: P_Message_Name => 'PA_CWK_TC_NOT_ALLOWED',
5225: P_Message_Level => 'ERROR',
5226: P_Message_Field => NULL,
5239: G_Stage := 'Price Type is null - Inserting error rec.';
5240: G_Msg_Tokens_Table.Delete;
5241:
5242: -- Add record to error table.
5243: Pa_Otc_Api.Add_Error_To_Table(
5244: P_Message_Table => P_Message_Table,
5245: P_Message_Name => 'PA_CWK_PRICE_TYPE_NULL',
5246: P_Message_Level => 'ERROR',
5247: P_Message_Field => NULL,
5254: G_Stage := 'Derived Vendor Id is null - Inserting error rec.';
5255: G_Msg_Tokens_Table.Delete;
5256:
5257: -- Add record to error table.
5258: Pa_Otc_Api.Add_Error_To_Table(
5259: P_Message_Table => P_Message_Table,
5260: P_Message_Name => 'PA_CWK_VEND_INFO_NULL',
5261: P_Message_Level => 'ERROR',
5262: P_Message_Field => NULL,
5275:
5276: -- Get Project Number
5277: l_Error_Code := Null;
5278: G_stage := 'Get Project Number.';
5279: Pa_Otc_Api.Validate_Project_Exists(
5280: P_Project_Id => l_Proj_Attrib_Rec.Project_Id,
5281: X_Error_Code => l_Error_Code,
5282: X_Error_Type => l_Error_Type,
5283: X_Project_Number => l_Proj_Attrib_Rec.Project_Number);
5287: G_Stage := 'Get Project Number - Inserting error rec.';
5288: G_Msg_Tokens_Table.Delete;
5289:
5290: -- Add record to error table.
5291: Pa_Otc_Api.Add_Error_To_Table(
5292: P_Message_Table => P_Message_Table,
5293: P_Message_Name => l_Error_Code,
5294: P_Message_Level => 'ERROR',
5295: P_Message_Field => 'PROJECT_ID',
5301:
5302: -- Get Task Number
5303: l_Error_Code := Null;
5304: G_stage := 'Get Task Number.';
5305: Pa_Otc_Api.Validate_Task_Exists(
5306: P_Task_Id => l_Proj_Attrib_Rec.Task_Id,
5307: P_Project_Id => l_Proj_Attrib_Rec.Project_Id,
5308: X_Error_Code => l_Error_Code,
5309: X_Error_Type => l_Error_Type,
5314: G_Stage := 'Get Task Number - Inserting error rec.';
5315: G_Msg_Tokens_Table.Delete;
5316:
5317: -- Add record to error table.
5318: Pa_Otc_Api.Add_Error_To_Table(
5319: P_Message_Table => P_Message_Table,
5320: P_Message_Name => l_Error_Code,
5321: P_Message_Level => 'ERROR',
5322: P_Message_Field => 'TASK_ID',
5328:
5329: -- Get Work Type Name
5330: l_Error_Code := Null;
5331: G_stage := 'Get Work Type Info.';
5332: Pa_Otc_Api.Validate_Work_Type_Exists(
5333: P_Work_Type_Id => l_Proj_Attrib_Rec.Work_Type_Id,
5334: P_Exp_Item_Date => l_Proj_Attrib_Rec.Expenditure_Item_Date,
5335: X_Error_Code => l_Error_Code,
5336: X_Error_Type => l_Error_Type);
5340: G_Stage := 'Get Work Type Info - Inserting error rec.';
5341: G_Msg_Tokens_Table.Delete;
5342:
5343: -- Add record to error table.
5344: Pa_Otc_Api.Add_Error_To_Table(
5345: P_Message_Table => P_Message_Table,
5346: P_Message_Name => l_Error_Code,
5347: P_Message_Level => 'ERROR',
5348: P_Message_Field => 'WORK_TYPE_ID',
5354:
5355: -- Get Job info
5356: l_Error_Code := Null;
5357: G_stage := 'Get Job Info.';
5358: Pa_Otc_Api.Validate_Job_Exists(
5359: P_Job_Id => l_Proj_Attrib_Rec.Job_Id,
5360: P_Exp_Item_Date => l_Proj_Attrib_Rec.Expenditure_Item_Date,
5361: X_Error_Code => l_Error_Code,
5362: X_Error_Type => l_Error_Type);
5366: G_Stage := 'Get Job Info - Inserting error rec.';
5367: G_Msg_Tokens_Table.Delete;
5368:
5369: -- Add record to error table.
5370: Pa_Otc_Api.Add_Error_To_Table(
5371: P_Message_Table => P_Message_Table,
5372: P_Message_Name => l_Error_Code,
5373: P_Message_Level => 'ERROR',
5374: P_Message_Field => 'JOB_ID',
5380:
5381: -- Get Work Type Name
5382: l_Error_Code := Null;
5383: G_stage := 'Get Location Info.';
5384: Pa_Otc_Api.Validate_Location_Exists(
5385: P_Location_Id => l_Proj_Attrib_Rec.Location_Id,
5386: P_Exp_Item_Date => l_Proj_Attrib_Rec.Expenditure_Item_Date,
5387: X_Error_Code => l_Error_Code,
5388: X_Error_Type => l_Error_Type);
5392: G_Stage := 'Get Location Info - Inserting error rec.';
5393: G_Msg_Tokens_Table.Delete;
5394:
5395: -- Add record to error table.
5396: Pa_Otc_Api.Add_Error_To_Table(
5397: P_Message_Table => P_Message_Table,
5398: P_Message_Name => l_Error_Code,
5399: P_Message_Level => 'ERROR',
5400: P_Message_Field => 'LOCATION_ID',
5407: -- Validate the expenditure type and system linkage function
5408: G_Stage := 'Validation the expenditure type and system linkage function.';
5409: l_Error_Code := Null;
5410:
5411: Pa_Otc_Api.Validate_Exp_Type_Exists(
5412: P_System_Linkage => l_Proj_Attrib_Rec.Sys_Linkage_Func,
5413: P_Expenditure_Type => l_Proj_Attrib_Rec.Expenditure_Type,
5414: P_Exp_Item_Date => l_Proj_Attrib_Rec.Expenditure_Item_Date,
5415: X_Error_Type => l_Error_Type,
5424:
5425: If l_Proj_Attrib_Rec.Sys_Linkage_Func Is Null OR
5426: l_Proj_Attrib_Rec.Sys_Linkage_Func Not in ('OT','ST') Then
5427:
5428: Pa_Otc_Api.Add_Error_To_Table(
5429: P_Message_Table => P_Message_Table,
5430: P_Message_Name => l_Error_Code,
5431: P_Message_Level => 'ERROR',
5432: P_Message_Field => 'SYSTEM_LINKAGE_FUNCTION',
5435: P_Time_Attribute_Id => l_Proj_Attrib_Rec.Sys_Link_Attr_Id);
5436:
5437: Else
5438:
5439: Pa_Otc_Api.Add_Error_To_Table(
5440: P_Message_Table => P_Message_Table,
5441: P_Message_Name => l_Error_Code,
5442: P_Message_Level => 'ERROR',
5443: P_Message_Field => 'EXPENDITURE_TYPE',
5453: -- Add record to error table.
5454:
5455: G_Msg_Tokens_Table.Delete;
5456:
5457: Pa_Otc_Api.Add_Error_To_Table(
5458: P_Message_Table => P_Message_Table,
5459: P_Message_Name => 'INVALID_ETYPE_SYSLINK',
5460: P_Message_Level => 'ERROR',
5461: P_Message_Field => 'SYSTEM_LINKAGE_FUNCTION',
5482: G_Msg_Tokens_Table(1).Token_Value :=
5483: fnd_date.date_to_displaydate(l_Proj_Attrib_Rec.Expenditure_Item_Date);
5484:
5485: -- Add record to error table.
5486: Pa_Otc_Api.Add_Error_To_Table(
5487: P_Message_Table => P_Message_Table,
5488: P_Message_Name => 'NO_ASSIGNMENT',
5489: P_Message_Level => 'ERROR',
5490: P_Message_Field => Null,
5526:
5527: G_Stage := 'Check Job Id - Inserting error rec.';
5528:
5529: -- Add record to error table.
5530: Pa_Otc_Api.Add_Error_To_Table(
5531: P_Message_Table => P_Message_Table,
5532: P_Message_Name => 'NO_ASSIGNMENT',
5533: P_Message_Level => 'ERROR',
5534: P_Message_Field => Null,
5595: -- messages to OTL. Only message names and token info.
5596:
5597: G_Msg_Tokens_Table.Delete;
5598:
5599: Pa_Otc_Api.Add_Error_To_Table(
5600: P_Message_Table => P_Message_Table,
5601: P_Message_Name => 'PA_DFF_VALIDATION_FAILED',
5602: P_Message_Level => 'ERROR',
5603: P_Message_Field => Null,
5677: If (l_status <> 'PA_NO_ASSIGNMENT' or test_term_with_pay is Null) then
5678: -- check if patc has returned any errors
5679: If l_Status is Not Null Then
5680:
5681: If Pa_Otc_Api.IsNumber(l_Status) Then
5682:
5683: Raise E_Unhandled_Exception;
5684:
5685: Else
5749: End If;
5750:
5751: If l_Status <> 'NO_ASSIGNMENT' Then
5752:
5753: Pa_Otc_Api.Add_Error_To_Table(
5754: P_Message_Table => P_Message_Table,
5755: P_Message_Name => l_Status,
5756: P_Message_Level => l_Error_Level, /* Bug#2798986 */
5757: P_Message_Field => Null,
5794: G_Msg_Tokens_Table(1).Token_Name := 'BILL_FLAG';
5795: G_Msg_Tokens_Table(1).Token_Value := l_Bill_Flag_Meaning;
5796:
5797: -- Add record to error message table.
5798: Pa_Otc_Api.Add_Error_To_Table(
5799: P_Message_Table => P_Message_Table,
5800: P_Message_Name => 'BILL_FLAG_CHGE_INVALID',
5801: P_Message_Level => 'ERROR',
5802: P_Message_Field => 'BILLABLE_FLAG',
5840: G_Msg_Tokens_Table(1).Token_Name := 'BILL_FLAG';
5841: G_Msg_Tokens_Table(1).Token_Value := l_Bill_Flag_Meaning;
5842:
5843: -- Add record to error message table.
5844: Pa_Otc_Api.Add_Error_To_Table(
5845: P_Message_Table => P_Message_Table,
5846: P_Message_Name => 'BILL_FLAG_CHGE_INVALID',
5847: P_Message_Level => 'ERROR',
5848: P_Message_Field => 'BILLABLE_FLAG',
5944: -- Add record to error message table
5945: G_Stage := 'Calling Summary-validation Extension - Insert Error Rec.';
5946: G_Msg_Tokens_Table.Delete;
5947:
5948: Pa_Otc_Api.Add_Error_To_Table(
5949: P_Message_Table => P_Message_Table,
5950: P_Message_Name => l_Msg_Name,
5951: P_Message_Level => 'ERROR',
5952: P_Message_Field => Null,
6006: l_Msg_Application := 'PA';
6007:
6008: End If;
6009:
6010: Pa_Otc_Api.Add_Error_To_Table(
6011: P_Message_Table => P_Message_Table,
6012: P_Message_Name => l_Msg_Name,
6013: P_Message_Level => 'BUSINESS',
6014: P_Message_Field => Null,
6025:
6026: End If; -- P_Message_Table.Count = 0 and l_Timecard_Table.Count > 0
6027:
6028: G_Stage := 'Leaving procedure Validate_Process().';
6029: Pa_Otc_Api.TrackPath('STRIP','Validate_Process');
6030:
6031: Exception
6032: When E_Unhandled_Exception Then
6033: Raise_Application_Error(-20021,SqlErrm(to_number(l_Status)));
6093:
6094: Begin
6095:
6096: G_Stage := 'Entering procedure Validate_Project_Exists().';
6097: Pa_Otc_Api.TrackPath('ADD','Validate_Project_Exists');
6098:
6099: If P_Project_Id is Not Null Then
6100:
6101: G_Stage := 'Open cursor GetProjInfo.';
6139:
6140: End If; -- End Project Id is not null
6141:
6142: G_Stage := 'Leaving procedure Validate_Project_Exists().';
6143: Pa_Otc_Api.TrackPath('STRIP','Validate_Project_Exists');
6144:
6145: EXCEPTION
6146: When Others Then
6147: Raise;
6209:
6210: -- Validate project_id parameter
6211:
6212: G_Stage := 'Entering procedure Validate_Task_Exists().';
6213: Pa_Otc_Api.TrackPath('ADD','Validate_Task_Exists');
6214:
6215: If P_Task_Id is Not Null Then
6216:
6217: G_Stage := 'Parameter P_Task_Id is not Null, get Task Info.';
6265:
6266: End If; -- End P_Task_Id is not null
6267:
6268: G_Stage := 'Leaving procedure Validate_Task_Exists().';
6269: Pa_Otc_Api.TrackPath('STRIP','Validate_Task_Exists');
6270:
6271: Exception
6272: When Others Then
6273: Raise;
6322:
6323: Begin
6324:
6325: G_Stage := 'Entering procedure Validate_Exp_Type_Exists().';
6326: Pa_Otc_Api.TrackPath('ADD','Validate_Exp_Type_Exists');
6327:
6328: G_Stage := 'Open cursor Fetch AdjustmentAllowed.';
6329: Open Cur_Etype_Slink(P_Exp_Item_Date,P_System_Linkage,P_Expenditure_Type);
6330:
6343:
6344: End If;
6345:
6346: G_Stage := 'Leaving procedure Validate_Exp_Type_Exists().';
6347: Pa_Otc_Api.TrackPath('STRIP','Validate_Exp_Type_Exists');
6348:
6349: Exception
6350: When Others Then
6351: Raise;
6386:
6387: Begin
6388:
6389: G_Stage := 'Entering procedure Validate_Overriding_Approver().';
6390: Pa_Otc_Api.TrackPath('ADD','Validate_Overriding_Approver');
6391:
6392: G_Stage := 'Check if Approver Id populated or not.';
6393: If P_Approver_Id is Not Null Then
6394:
6414:
6415: End If; -- End Approver_Id is not null
6416:
6417: G_Stage := 'Leaving procedure Validate_Overriding_Approver().';
6418: Pa_Otc_Api.TrackPath('STRIP','Validate_Overriding_Approver');
6419:
6420: Exception
6421: When No_Data_Found Then
6422: X_Error_Type := 'E';
6472:
6473: Begin
6474:
6475: G_Stage := 'Entering procedure Validate_Work_Type_Exists().';
6476: Pa_Otc_Api.TrackPath('ADD','Validate_Work_Type_Exists');
6477:
6478: If P_Work_Type_Id is Not Null Then
6479:
6480: G_Stage := 'Open cursor GetWorkTypeInfo.';
6502:
6503: End If; -- End Work Type Id is not null
6504:
6505: G_Stage := 'Leaving procedure Validate_Work_Type_Exists().';
6506: Pa_Otc_Api.TrackPath('STRIP','Validate_Work_Type_Exists');
6507:
6508: EXCEPTION
6509: When Others Then
6510: Raise;
6555:
6556: Begin
6557:
6558: G_Stage := 'Entering procedure Validate_Job_Exists().';
6559: Pa_Otc_Api.TrackPath('ADD','Validate_Job_Exists');
6560:
6561: If P_Job_Id is Not Null Then
6562:
6563: G_Stage := 'Open cursor GetJobInfo.';
6585:
6586: End If; -- End Job ID is not null
6587:
6588: G_Stage := 'Leaving procedure Validate_Job_Exists().';
6589: Pa_Otc_Api.TrackPath('STRIP','Validate_Job_Exists');
6590:
6591: EXCEPTION
6592: When Others Then
6593: Raise;
6633:
6634: Begin
6635:
6636: G_Stage := 'Entering procedure Validate_Location_Exists().';
6637: Pa_Otc_Api.TrackPath('ADD','Validate_Location_Exists');
6638:
6639: If p_location_id is Not Null Then
6640:
6641: G_Stage := 'Open cursor GetLocationInfo.';
6658:
6659: End If; -- End p_location_id is not null
6660:
6661: G_Stage := 'Leaving procedure Validate_Location_Exists().';
6662: Pa_Otc_Api.TrackPath('STRIP','Validate_Location_Exists');
6663:
6664: EXCEPTION
6665: When Others Then
6666: Raise;
6686: -- P_BB_Ovn - Hxc_Time_Building_Blocks.Object_Version_Number%TYPE
6687: -- P_BB_Date_To - Hxc_Time_Building_Blocks.Date_To%TYPE
6688: -- P_BB_Changed - VARCHAR2
6689: -- P_BB_New - VARCHAR2
6690: -- P_Proj_Attribute_Rec - Pa_Otc_Api.Project_Attribution_Rec
6691: -- P_Mode - VARCHAR2(10)
6692: -- P_Process_Flag - Varchar2(30)
6693: -- OUT
6694: -- X_BB_Detail_Changed - VARCHAR2(1)
6704: P_BB_Ovn IN Hxc_Time_Building_Blocks.Object_Version_Number%TYPE,
6705: P_BB_Date_To IN Hxc_Time_Building_Blocks.Date_To%TYPE,
6706: P_BB_Changed IN Varchar2,
6707: P_BB_New IN Varchar2,
6708: P_Proj_Attribute_Rec IN Pa_Otc_Api.Project_Attribution_Rec,
6709: P_Mode IN Varchar2,
6710: P_Process_Flag IN Varchar2,
6711: X_BB_Detail_Changed OUT NOCOPY Varchar2,
6712: X_Data_Conflict_Flag OUT NOCOPY Varchar2,
6791:
6792: Begin
6793:
6794: G_Stage := 'Entering procedure DetermineProcessingFlags().';
6795: Pa_Otc_Api.TrackPath('ADD','DetermineProcessingFlags');
6796:
6797: G_Stage := 'Initialize the out parameters to No.';
6798: X_BB_Detail_Changed := 'N';
6799: X_Data_Conflict_Flag := 'N';
6997:
6998: End If; -- l_Max_Version > 0
6999:
7000: G_Stage := 'Leaving procedure DetermineProcessingFlags().';
7001: Pa_Otc_Api.TrackPath('STRIP','DetermineProcessingFlags');
7002:
7003: Exception
7004: When Others Then
7005: Raise;
7033:
7034: Begin
7035:
7036: G_Stage := 'Entering procedure AdjustAllowedToOTCItem().';
7037: Pa_Otc_Api.TrackPath('ADD','AdjustAllowedToOTCItem');
7038:
7039: G_Path := ' ';
7040:
7041: G_Stage := 'Check if the original transaction reference is null or not.';
7072:
7073: End If;
7074:
7075: G_Stage := 'Leaving procedure AdjustAllowedToOTCItem().';
7076: Pa_Otc_Api.TrackPath('STRIP','AdjustAllowedToOTCItem');
7077:
7078: Exception
7079: When Others Then
7080: Raise_Application_Error(-20003,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM);
7076: Pa_Otc_Api.TrackPath('STRIP','AdjustAllowedToOTCItem');
7077:
7078: Exception
7079: When Others Then
7080: Raise_Application_Error(-20003,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM);
7081:
7082: End AdjustAllowedToOTCItem;
7083:
7084:
7113:
7114: Begin
7115:
7116: G_Stage := 'Entering procedure ProjectTaskUsed().';
7117: Pa_Otc_Api.TrackPath('ADD','ProjectTaskUsed');
7118:
7119: G_Path := ' ';
7120:
7121: G_Stage := 'Check that the parameters is valid.';
7152:
7153: End If;
7154:
7155: G_Stage := 'Leaving procedure ProjectTaskUsed().';
7156: Pa_Otc_Api.TrackPath('STRIP','ProjectTaskUsed');
7157:
7158: Exception
7159: When Others Then
7160: Raise_Application_Error(-20005,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM);
7156: Pa_Otc_Api.TrackPath('STRIP','ProjectTaskUsed');
7157:
7158: Exception
7159: When Others Then
7160: Raise_Application_Error(-20005,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM);
7161:
7162: End ProjectTaskUsed;
7163:
7164: -- =======================================================================
7192:
7193: Begin
7194:
7195: G_Stage := 'Entering procedure ProjectTaskPurgeable().';
7196: Pa_Otc_Api.TrackPath('ADD','ProjectTaskPurgeable');
7197:
7198: G_Path := ' ';
7199:
7200: G_Stage := 'Check that the parameters is valid.';
7243:
7244: End If;
7245:
7246: G_Stage := 'Leaving procedure ProjectTaskPurgeable().';
7247: Pa_Otc_Api.TrackPath('STRIP','ProjectTaskPurgeable');
7248:
7249: Exception
7250: When Others Then
7251: Raise_Application_Error(-20006,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM);
7247: Pa_Otc_Api.TrackPath('STRIP','ProjectTaskPurgeable');
7248:
7249: Exception
7250: When Others Then
7251: Raise_Application_Error(-20006,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM);
7252:
7253: End ProjectTaskPurgeable;
7254:
7255:
7269: -- P_Attribute_Table - Hxc_User_Type_Definition_Grp.App_Attributes_Info
7270: -- X_Detail_Attr_Changed - Varchar2
7271: -- OUT
7272: -- X_Detail_Attr_Changed - Varchar2
7273: -- X_Proj_Attrib_Rec - Pa_Otc_Api.Project_Attribution_Rec
7274: --
7275:
7276: /*--------------------------------------------------------------------------*/
7277:
7279: P_Building_Block_Rec IN Hxc_User_Type_Definition_Grp.Building_Block_Info,
7280: P_Building_Block IN Hxc_User_Type_Definition_Grp.Timecard_Info,
7281: P_Attribute_Table IN Hxc_User_Type_Definition_Grp.App_Attributes_Info,
7282: X_Detail_Attr_Changed IN OUT NOCOPY Varchar2,
7283: X_Proj_Attrib_Rec OUT NOCOPY Pa_Otc_Api.Project_Attribution_Rec) -- 2672653
7284:
7285: Is
7286:
7287: j Binary_Integer := Null;
7294:
7295: Begin
7296:
7297: G_Stage := 'Entering procedure RetrieveProjAttribution().';
7298: Pa_Otc_Api.TrackPath('ADD','RetrieveProjAttribution');
7299:
7300: G_Stage := 'Entering attribute table loop.';
7301: Loop
7302:
7659: End If;
7660:
7661: -- Beging CWK changes PA.M
7662: G_Stage := 'Get Person_Type.';
7663: X_Proj_Attrib_Rec.Person_Type := Pa_Otc_Api.GetPersonType(
7664: P_Person_Id => X_Proj_Attrib_Rec.Inc_By_Person_Id,
7665: P_Ei_Date => X_Proj_Attrib_Rec.Expenditure_Item_Date);
7666:
7667:
7667:
7668: If X_Proj_Attrib_Rec.Person_Type = 'CWK' And X_Proj_Attrib_Rec.Po_Line_Id Is Not Null Then
7669:
7670: G_Stage := 'Get PO Info.';
7671: PA_Otc_Api.GetPOInfo(
7672: P_PO_Line_Id => X_Proj_Attrib_Rec.Po_Line_Id,
7673: X_PO_Header_Id => X_Proj_Attrib_Rec.PO_Header_Id,
7674: X_Vendor_Id => X_Proj_Attrib_Rec.Vendor_Id);
7675:
7676: End If;
7677:
7678: -- End CWK changes PA.M
7679: G_Stage := 'Leaving procedure RetrieveProjAttribution().';
7680: Pa_Otc_Api.TrackPath('STRIP','RetrieveProjAttribution');
7681:
7682: Exception
7683: When Others Then
7684: Raise;
7703: -- X_Detail_Attr_Changed - Varchar2
7704: -- OUT
7705: -- P_Attribute_Table - Hxc_User_Type_Definition_Grp.App_Attributes_Info
7706: -- X_Detail_Attr_Changed - Varchar2
7707: -- X_Proj_Attrib_Rec - Pa_Otc_Api.Project_Attribution_Rec
7708: --
7709:
7710: /*--------------------------------------------------------------------------*/
7711:
7713: P_Building_Block_Rec IN Hxc_User_Type_Definition_Grp.Building_Block_Info,
7714: P_Building_Block IN Hxc_User_Type_Definition_Grp.Timecard_Info,
7715: P_Attribute_Table IN OUT NOCOPY Hxc_User_Type_Definition_Grp.App_Attributes_Info,
7716: X_Detail_Attr_Changed IN OUT NOCOPY Varchar2,
7717: X_Proj_Attrib_Rec OUT NOCOPY Pa_Otc_Api.Project_Attribution_Rec) -- 2672653
7718:
7719: Is
7720:
7721: j Binary_Integer := Null;
7731:
7732: Begin
7733:
7734: G_Stage := 'Entering procedure RetrieveProjAttribution().';
7735: Pa_Otc_Api.TrackPath('ADD','RetrieveProjAttribution');
7736:
7737: found_billable := false;
7738:
7739: G_Stage := 'Entering attribute table loop.';
8160: End If;
8161:
8162: -- Beging CWK changes PA.M
8163: G_Stage := 'Get Person_Type.';
8164: X_Proj_Attrib_Rec.Person_Type := Pa_Otc_Api.GetPersonType(
8165: P_Person_Id => X_Proj_Attrib_Rec.Inc_By_Person_Id,
8166: P_Ei_Date => X_Proj_Attrib_Rec.Expenditure_Item_Date);
8167:
8168:
8168:
8169: If X_Proj_Attrib_Rec.Person_Type = 'CWK' And X_Proj_Attrib_Rec.Po_Line_Id Is Not Null Then
8170:
8171: G_Stage := 'Get PO Info.';
8172: PA_Otc_Api.GetPOInfo(
8173: P_PO_Line_Id => X_Proj_Attrib_Rec.Po_Line_Id,
8174: X_PO_Header_Id => X_Proj_Attrib_Rec.PO_Header_Id,
8175: X_Vendor_Id => X_Proj_Attrib_Rec.Vendor_Id);
8176:
8177: End If;
8178:
8179: -- End CWK changes PA.M
8180: G_Stage := 'Leaving procedure RetrieveProjAttribution().';
8181: Pa_Otc_Api.TrackPath('STRIP','RetrieveProjAttribution');
8182:
8183: Exception
8184: When Others Then
8185: Raise;
8371:
8372: G_Path := ' ';
8373:
8374: G_Stage := 'Entering procedure GetPRMAssignTemplates().';
8375: Pa_Otc_Api.TrackPath('ADD','GetPRMAssignTemplates');
8376:
8377: G_Stage := 'Initialize the pl/sql message table.';
8378: l_Message_Table.Delete;
8379: l_Building_Blocks_Table.Delete;
8399:
8400: G_Msg_Tokens_Table.Delete;
8401:
8402: -- Add record to error table.
8403: Pa_Otc_Api.Add_Error_To_Table(
8404: P_Message_Table => l_Message_Table,
8405: P_Message_Name => 'PA_INVALID_WEEK_ENDING_DATE',
8406: P_Message_Level => 'ERROR',
8407: P_Message_Field => Null,
8626:
8627: If l_Val_Proj_Flag = 'N' Then
8628:
8629: G_Stage := 'Create error message for Invalid Project in PRM Template.';
8630: Pa_Otc_Api.Add_Error_To_Table(
8631: P_Message_Table => l_Message_Table,
8632: P_Message_Name => 'INVALID_PROJECT',
8633: P_Message_Level => 'ERROR',
8634: P_Message_Field => 'Project_Id',
8641: If l_Valid_ExpTypClass_Combo = 'N' Then
8642:
8643: G_Stage := 'Create error message for Invalid Exp Type/Sys ' ||
8644: 'Link func in PRM Template.';
8645: Pa_Otc_Api.Add_Error_To_Table(
8646: P_Message_Table => l_Message_Table,
8647: P_Message_Name => 'INVALID_ETYPE_SYSLINK',
8648: P_Message_Level => 'ERROR',
8649: P_Message_Field => 'Expenditure_Type',
8690:
8691: -- End Bug 3766110
8692:
8693: G_Stage := 'Leaving procedure GetPRMAssignTemplates().';
8694: Pa_Otc_Api.TrackPath('STRIP','GetPRMAssignTemplates');
8695:
8696: Exception
8697: When Others then
8698: Raise_Application_Error(-20007,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM);
8694: Pa_Otc_Api.TrackPath('STRIP','GetPRMAssignTemplates');
8695:
8696: Exception
8697: When Others then
8698: Raise_Application_Error(-20007,'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage || ' : ' || SQLERRM);
8699:
8700: End GetPRMAssignTemplates;
8701:
8702: -- ========================================================================
8769:
8770: Begin
8771:
8772: G_Stage := 'Entering FindandValidateHeader procedure.';
8773: Pa_Otc_Api.TrackPath('ADD','FindandValidateHeader');
8774:
8775: Loop
8776:
8777: If i is Null Then
8834: X_Pass_Val_Flag := 'N';
8835: G_Msg_Tokens_Table.Delete;
8836:
8837: -- Add record to error table.
8838: Pa_Otc_Api.Add_Error_To_Table(
8839: P_Message_Table => P_Message_Table,
8840: P_Message_Name => 'PA_INVALID_WEEK_ENDING_DATE',
8841: P_Message_Level => 'ERROR',
8842: P_Message_Field => Null,
8893: * though the user could have assigned an overriding approver.
8894: */
8895:
8896: G_Stage := 'Call Validate_Overriding_Approver procedure.';
8897: Pa_Otc_Api.Validate_Overriding_Approver(
8898: P_Approver_Id => to_number(P_Attribute_Table(x).Attribute_Value),
8899: X_Approver_Id => X_Ovr_Approver_Person_Id,
8900: X_Error_Code => l_Error_Code,
8901: X_Error_Type => l_Error_Type);
8905: G_Stage := 'Validate Overriding Approver - Inserting error rec.';
8906: G_Msg_Tokens_Table.Delete;
8907:
8908: -- Add record to error table.
8909: Pa_Otc_Api.Add_Error_To_Table(
8910: P_Message_Table => P_Message_Table,
8911: P_Message_Name => l_Error_Code,
8912: P_Message_Level => 'ERROR',
8913: P_Message_Field => 'OVERRIDING_APPROVER_PERSON_ID',
8936: G_Stage := 'No attribute record was found for overriding approver when there should have been.';
8937: G_Msg_Tokens_Table.Delete;
8938:
8939: -- Add record to error table.
8940: Pa_Otc_Api.Add_Error_To_Table(
8941: P_Message_Table => P_Message_Table,
8942: P_Message_Name => 'PA_OVRRDE_APPROVER_NOT_VALID',
8943: P_Message_Level => 'ERROR',
8944: P_Message_Field => 'OVERRIDING_APPROVER_PERSON_ID',
8967:
8968: End If;
8969:
8970: G_Stage := 'Leaving FindandValidateHeader() procedure.';
8971: Pa_Otc_Api.TrackPath('STRIP','FindandValidateHeader');
8972:
8973: Exception
8974: When Others Then
8975: Raise;
8998: ,X_Messages OUT NOCOPY Varchar2)
8999:
9000: Is
9001:
9002: l_Timecard_Table Pa_Otc_Api.Timecard_Table;
9003: l_Inc_By_Person_Id Pa_Expenditures_All.Incurred_By_Person_Id%TYPE;
9004: l_Overriding_Approver_Id Pa_Expenditures_All.Overriding_Approver_Person_Id%TYPE;
9005:
9006: /* Stores a single record from the Building Block Table */
9024:
9025: G_Path := ' ';
9026:
9027: G_Stage := 'Entering Wf_AutoApproval_BusMsg() procedure.';
9028: Pa_Otc_Api.TrackPath('ADD','Wf_AutoApproval_BusMsg');
9029:
9030: G_Stage := 'Initialize the hxc pl/sql tables that will be used.';
9031: l_Timecard_Table.delete;
9032: l_Message_Table.delete;
9030: G_Stage := 'Initialize the hxc pl/sql tables that will be used.';
9031: l_Timecard_Table.delete;
9032: l_Message_Table.delete;
9033:
9034: G_Stage := 'Calling Pa_Otc_Api.CreateProjTimecardTable()';
9035: Pa_Otc_Api.CreateProjTimecardTable(
9036: X_Inc_By_Person_Id => l_Inc_By_Person_Id,
9037: X_Timecard_Table => l_Timecard_Table,
9038: X_Overriding_Approver_Id => l_Overriding_Approver_Id );
9031: l_Timecard_Table.delete;
9032: l_Message_Table.delete;
9033:
9034: G_Stage := 'Calling Pa_Otc_Api.CreateProjTimecardTable()';
9035: Pa_Otc_Api.CreateProjTimecardTable(
9036: X_Inc_By_Person_Id => l_Inc_By_Person_Id,
9037: X_Timecard_Table => l_Timecard_Table,
9038: X_Overriding_Approver_Id => l_Overriding_Approver_Id );
9039:
9055: X_AutoApproval_Flag := Null;
9056:
9057: G_Msg_Tokens_Table.Delete;
9058:
9059: Pa_Otc_Api.Add_Error_To_Table(
9060: P_Message_Table => l_Message_Table,
9061: P_Message_Name => l_Message_Name,
9062: P_Message_Level => 'ERROR',
9063: P_Message_Field => Null,
9118: l_Msg_Application := 'PA';
9119:
9120: End If;
9121:
9122: Pa_Otc_Api.Add_Error_To_Table(
9123: P_Message_Table => l_Message_Table,
9124: P_Message_Name => l_Msg_Name,
9125: P_Message_Level => 'BUSINESS',
9126: P_Message_Field => Null,
9139: X_Messages := Hxc_Integration_Layer_V1_Grp.Messages_To_String(P_Messages => l_Message_Table);
9140: End If;
9141:
9142: G_Stage := 'Leaving Wf_AutoApproval_BusMsg() procedure.';
9143: Pa_Otc_Api.TrackPath('STRIP','Wf_AutoApproval_BusMsg');
9144:
9145: Exception
9146: When Others Then
9147: Raise_Application_Error(-20500, 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_stage || ' : ' || SQLERRM );
9143: Pa_Otc_Api.TrackPath('STRIP','Wf_AutoApproval_BusMsg');
9144:
9145: Exception
9146: When Others Then
9147: Raise_Application_Error(-20500, 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_stage || ' : ' || SQLERRM );
9148:
9149: End Wf_AutoApproval_BusMsg;
9150:
9151: -- =======================================================================
9174: X_Messages OUT NOCOPY Varchar2)
9175:
9176: Is
9177:
9178: l_Timecard_Table Pa_Otc_Api.Timecard_Table;
9179: l_Inc_By_Person_Id Pa_Expenditures_All.Incurred_By_Person_Id%TYPE;
9180: l_Overriding_Approver_Id Pa_Expenditures_All.Overriding_Approver_Person_Id%TYPE := Null;
9181:
9182: l_Message_Table Hxc_User_Type_Definition_Grp.Message_Table;
9199:
9200: G_Path := ' ';
9201:
9202: G_Stage := 'Entering Wf_RouteTo_CheckApproval() procedure.';
9203: Pa_Otc_Api.TrackPath('ADD','Wf_RouteTo_CheckApproval');
9204:
9205: G_Stage := 'Initialize the PA pl/sql tables that will be used.';
9206: l_Timecard_Table.Delete;
9207:
9204:
9205: G_Stage := 'Initialize the PA pl/sql tables that will be used.';
9206: l_Timecard_Table.Delete;
9207:
9208: G_Stage := 'Calling Pa_Otc_Api.CreateProjTimecardTable()';
9209: Pa_Otc_Api.CreateProjTimecardTable(
9210: X_Inc_By_Person_Id => l_Inc_By_Person_Id,
9211: X_Timecard_Table => l_Timecard_Table,
9212: X_Overriding_Approver_Id => l_Overriding_Approver_Id);
9205: G_Stage := 'Initialize the PA pl/sql tables that will be used.';
9206: l_Timecard_Table.Delete;
9207:
9208: G_Stage := 'Calling Pa_Otc_Api.CreateProjTimecardTable()';
9209: Pa_Otc_Api.CreateProjTimecardTable(
9210: X_Inc_By_Person_Id => l_Inc_By_Person_Id,
9211: X_Timecard_Table => l_Timecard_Table,
9212: X_Overriding_Approver_Id => l_Overriding_Approver_Id);
9213:
9296: l_Msg_App := 'PA';
9297:
9298: End If;
9299:
9300: Pa_Otc_Api.Add_Error_To_Table (
9301: P_Message_Table => l_Message_Table,
9302: P_Message_Name => l_Msg_Code,
9303: P_Message_Level => 'ERROR',
9304: P_Message_Field => Null,
9359: l_Message_Name := 'PA_TR_NO_ROUTE_TO_PERSON';
9360:
9361: G_Msg_Tokens_Table.Delete;
9362:
9363: Pa_Otc_Api.Add_Error_To_Table(
9364: P_Message_Table => l_Message_Table,
9365: P_Message_Name => l_Message_Name,
9366: P_Message_Level => 'ERROR',
9367: P_Message_Field => Null,
9375: 'Create an error message.';
9376: l_Message_Name := 'PA_NO_APPROVER_FOUND';
9377: G_Msg_Tokens_Table.Delete;
9378:
9379: Pa_Otc_Api.Add_Error_To_Table(
9380: P_Message_Table => l_Message_Table,
9381: P_Message_Name => l_Message_Name,
9382: P_Message_Level => 'ERROR',
9383: P_Message_Field => Null,
9408: X_Messages := Hxc_Integration_Layer_V1_Grp.Messages_To_String(P_Messages => l_Message_Table);
9409: End If;
9410:
9411: G_Stage := 'Leaving Wf_RouteTo_CheckApproval() procedure.';
9412: Pa_Otc_Api.TrackPath('STRIP','Wf_RouteTo_CheckApproval');
9413:
9414: Exception
9415: When Others Then
9416: Raise_Application_Error(-20600, 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_stage || ' : ' || SQLERRM );
9412: Pa_Otc_Api.TrackPath('STRIP','Wf_RouteTo_CheckApproval');
9413:
9414: Exception
9415: When Others Then
9416: Raise_Application_Error(-20600, 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_stage || ' : ' || SQLERRM );
9417:
9418: End Wf_RouteTo_CheckApproval;
9419:
9420: -- =======================================================================
9428: --
9429: -- Parameters :
9430: -- OUT
9431: -- X_Inc_By_Person_Id - Pa_Expenditures_All.Incurred_By_Person_Id%TYPE
9432: -- X_Timecard_Table - Pa_Otc_Api.Timecard_Table
9433: -- X_Overriding_Approver_Id - Pa_Expenditures_All.Overriding_Approver_Person_Id%TYPE
9434:
9435: /*------------------------------------------------------------------------- */
9436:
9435: /*------------------------------------------------------------------------- */
9436:
9437: Procedure CreateProjTimecardTable(
9438: X_Inc_By_Person_Id OUT NOCOPY Pa_Expenditures_All.Incurred_By_Person_Id%TYPE,
9439: X_Timecard_Table OUT NOCOPY Pa_Otc_Api.Timecard_Table, --2672653
9440: X_Overriding_Approver_Id OUT NOCOPY Pa_Expenditures_All.Overriding_Approver_Person_Id%TYPE)
9441:
9442: Is
9443:
9440: X_Overriding_Approver_Id OUT NOCOPY Pa_Expenditures_All.Overriding_Approver_Person_Id%TYPE)
9441:
9442: Is
9443:
9444: l_Proj_Attrib_Rec Pa_Otc_Api.Project_Attribution_Rec;
9445: j Binary_Integer := 0;
9446:
9447: l_Time_Building_Blocks Hxc_User_Type_Definition_Grp.Timecard_Info;
9448: l_Time_Attributes Hxc_User_Type_Definition_Grp.App_Attributes_Info;
9453:
9454: Begin
9455:
9456: G_Stage := 'Entering CreateProjTimecardTable() procedure.';
9457: Pa_Otc_Api.TrackPath('ADD','CreateProjTimecardTable');
9458:
9459: G_Stage := 'Initialize PA structure pl/sql table.';
9460:
9461: X_Timecard_Table.delete;
9505: l_Building_Block_Record := l_Time_Building_Blocks(i);
9506: l_Detail_Attr_Changed := 'N';
9507:
9508: G_Stage := 'Pull out the data to PA friendly format by calling RetrieveProjAttribution().';
9509: Pa_Otc_Api.RetrieveProjAttribution(
9510: P_Building_Block_Rec => l_Building_Block_Record,
9511: P_Building_Block => l_Time_Building_Blocks,
9512: P_Attribute_Table => l_Time_Attributes,
9513: X_Detail_Attr_Changed => l_Detail_Attr_Changed,
9555:
9556: End Loop;
9557:
9558: G_Stage := 'Leaving CreateProjTimecardTable() procedure.';
9559: Pa_Otc_Api.TrackPath('STRIP','CreateProjTimecardTable');
9560:
9561: Exception
9562: When Others Then
9563: Raise;
9718: Begin
9719:
9720: G_Stage := 'Entering GetBatchName(), add procedure to trackpath.';
9721: If G_Debug_Mode = 'Y' Then
9722: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9723: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9724: End If;
9725: Pa_Otc_Api.TrackPath('ADD','GetBatchName');
9726:
9721: If G_Debug_Mode = 'Y' Then
9722: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9723: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9724: End If;
9725: Pa_Otc_Api.TrackPath('ADD','GetBatchName');
9726:
9727: If G_EndDateBatchName_Table.Count > 0 Then
9728:
9729: G_Stage := 'There are already batch name recs in pl/sql table. See if find a matching one via loop.';
9727: If G_EndDateBatchName_Table.Count > 0 Then
9728:
9729: G_Stage := 'There are already batch name recs in pl/sql table. See if find a matching one via loop.';
9730: If G_Debug_Mode = 'Y' Then
9731: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9732: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9733: End If;
9734:
9735: For i IN G_EndDateBatchName_Table.First .. G_EndDateBatchName_Table.Last
9745: End Loop;
9746:
9747: G_Stage := 'Done searching for matching batch name record via loop.';
9748: If G_Debug_Mode = 'Y' Then
9749: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9750: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9751: End If;
9752:
9753: End If; -- G_EndDateBatchName_Table.Count > 0
9756:
9757: /* Create a batch Name for Import run.*/
9758: G_Stage := 'Get string of sysdate in YYMMDD format.';
9759: If G_Debug_Mode = 'Y' Then
9760: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9761: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9762: End If;
9763:
9764: Select
9769: Dual;
9770:
9771: G_Stage := 'Use mod(pa_expenditure_groups_s.nextval,1000) to create number value.';
9772: If G_Debug_Mode = 'Y' Then
9773: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9774: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9775: End If;
9776:
9777: SELECT
9782: Dual;
9783:
9784: G_Stage := 'Create a batch Name for Import run.';
9785: If G_Debug_Mode = 'Y' Then
9786: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9787: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9788: End If;
9789:
9790: X_Batch_Name := l_Date_String || '-' || To_Char(l_Sequence_No);
9797: End If; -- Not l_Found_Match
9798:
9799: G_Stage := 'Leaving GetBatchName(), strip procedure from trackpath.';
9800: If G_Debug_Mode = 'Y' Then
9801: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9802: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9803: End If;
9804: Pa_Otc_Api.TrackPath('STRIP','GetBatchName');
9805:
9800: If G_Debug_Mode = 'Y' Then
9801: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9802: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9803: End If;
9804: Pa_Otc_Api.TrackPath('STRIP','GetBatchName');
9805:
9806: Exception
9807: When Others Then
9808: l_debug_text := 'Leaving GetBatchName() due to unhandled exception, strip procedure from trackpath.';
9806: Exception
9807: When Others Then
9808: l_debug_text := 'Leaving GetBatchName() due to unhandled exception, strip procedure from trackpath.';
9809: If G_Debug_Mode = 'Y' Then
9810: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || l_debug_text;
9811: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9812: End If;
9813: Pa_Otc_Api.TrackPath('STRIP','GetBatchName');
9814: Raise;
9809: If G_Debug_Mode = 'Y' Then
9810: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || l_debug_text;
9811: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9812: End If;
9813: Pa_Otc_Api.TrackPath('STRIP','GetBatchName');
9814: Raise;
9815:
9816: End GetBatchName;
9817:
9882: Begin
9883:
9884: G_Stage := 'Entering GetOrigTrxRef(), add procedure to trackpath.';
9885: If G_Debug_Mode = 'Y' Then
9886: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9887: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
9888: End If;
9889: Pa_Otc_Api.TrackPath('ADD','GetOrigTrxRef');
9890:
9885: If G_Debug_Mode = 'Y' Then
9886: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9887: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
9888: End If;
9889: Pa_Otc_Api.TrackPath('ADD','GetOrigTrxRef');
9890:
9891: G_Stage := 'Build search string.';
9892: If G_Debug_Mode = 'Y' Then
9893: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9889: Pa_Otc_Api.TrackPath('ADD','GetOrigTrxRef');
9890:
9891: G_Stage := 'Build search string.';
9892: If G_Debug_Mode = 'Y' Then
9893: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9894: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
9895: End If;
9896: l_Search := to_char(P_Building_Block_Id) || ':%';
9897:
9896: l_Search := to_char(P_Building_Block_Id) || ':%';
9897:
9898: G_Stage := 'Search ei table for available ei record.';
9899: If G_Debug_Mode = 'Y' Then
9900: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9901: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,1);
9902: End If;
9903: Select
9904: Orig_Transaction_Reference
9923: And Adjusted_Expenditure_Item_Id is Null);
9924:
9925: G_Stage := 'Leaving GetOrigTrxRef(), strip procedure from trackpath.';
9926: If G_Debug_Mode = 'Y' Then
9927: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9928: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9929: End If;
9930: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9931:
9926: If G_Debug_Mode = 'Y' Then
9927: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9928: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9929: End If;
9930: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9931:
9932: Exception
9933: When No_Data_Found Then
9934: -- Data corruption exists if this happens here.
9931:
9932: Exception
9933: When No_Data_Found Then
9934: -- Data corruption exists if this happens here.
9935: l_error_text := SubStr('Pa_Otc_Api ::: ' || G_Path || ' : ' || G_Stage || ' -- ' ||
9936: SqlErrM, 1, 1800);
9937: fnd_message.set_name('HXC', 'HXC_RET_UNEXPECTED_ERROR');
9938: fnd_message.set_token('ERR', l_error_text);
9939: X_Status := SubStr(fnd_message.get,1,2000);
9939: X_Status := SubStr(fnd_message.get,1,2000);
9940:
9941: G_Stage := 'Leaving GetOrigTrxRef() due to unhandled exception, strip procedure from trackpath';
9942: If G_Debug_Mode = 'Y' Then
9943: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9944: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9945: End If;
9946: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9947:
9942: If G_Debug_Mode = 'Y' Then
9943: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9944: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9945: End If;
9946: Pa_Otc_Api.TrackPath('STRIP','GetOrigTrxRef');
9947:
9948: If G_Debug_Mode = 'Y' Then
9949: Pa_Debug.G_err_Stage := l_error_text;
9950: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
9985: Begin
9986:
9987: G_Stage := 'Entering GetAdditionalTrxData(), add procedure to trackpath.';
9988: If G_Debug_Mode = 'Y' Then
9989: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9990: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9991: End If;
9992: Pa_Otc_Api.TrackPath('ADD','GetAdditionalTrxData');
9993:
9988: If G_Debug_Mode = 'Y' Then
9989: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9990: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9991: End If;
9992: Pa_Otc_Api.TrackPath('ADD','GetAdditionalTrxData');
9993:
9994: G_Stage := 'Get Incurred by Organization Id.';
9995: If G_Debug_Mode = 'Y' Then
9996: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9992: Pa_Otc_Api.TrackPath('ADD','GetAdditionalTrxData');
9993:
9994: G_Stage := 'Get Incurred by Organization Id.';
9995: If G_Debug_Mode = 'Y' Then
9996: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
9997: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
9998: End If;
9999:
10000: Pa_Utils3.GetCachedOrgId( P_Inc_By_Per_Id => P_Person_Id,
10002: X_Inc_By_Org_Id => X_Org_Id);
10003:
10004: G_Stage := 'Incurred by Organization Id is ' || to_char(X_Org_Id) ;
10005: If G_Debug_Mode = 'Y' Then
10006: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10007: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
10008: End If;
10009:
10010: X_Error_Status := Null;
10010: X_Error_Status := Null;
10011:
10012: G_Stage := 'Leaving GetAdditionalTrxData(), strip procedure from trackpath.';
10013: If G_Debug_Mode = 'Y' Then
10014: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10015: Pa_Cc_Utils.Log_Message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
10016: End If;
10017: Pa_Otc_Api.TrackPath('STRIP','GetAdditionalTrxData');
10018:
10013: If G_Debug_Mode = 'Y' Then
10014: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10015: Pa_Cc_Utils.Log_Message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
10016: End If;
10017: Pa_Otc_Api.TrackPath('STRIP','GetAdditionalTrxData');
10018:
10019: Exception
10020: When Others Then
10021: X_Error_Status := 'Could not get Incurred by Organization Id.';
10020: When Others Then
10021: X_Error_Status := 'Could not get Incurred by Organization Id.';
10022: G_Stage := 'Leaving GetAdditionalTrxData() in exception handler.';
10023: If G_Debug_Mode = 'Y' Then
10024: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10025: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
10026: End If;
10027: Pa_Otc_Api.TrackPath('STRIP','GetAdditionalTrxData');
10028:
10023: If G_Debug_Mode = 'Y' Then
10024: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10025: pa_cc_utils.log_message('GetAdditionalTrxData: ' || Pa_Debug.G_Err_Stage,0);
10026: End If;
10027: Pa_Otc_Api.TrackPath('STRIP','GetAdditionalTrxData');
10028:
10029: End GetAdditionalTrxData;
10030:
10031:
10057: Begin
10058:
10059: G_Stage := 'Entering BulkInsertReset(), add procedure to trackpath.';
10060: If G_Debug_Mode = 'Y' Then
10061: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10062: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
10063: End If;
10064: Pa_Otc_Api.TrackPath('ADD','BulkInsertReset');
10065:
10060: If G_Debug_Mode = 'Y' Then
10061: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10062: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
10063: End If;
10064: Pa_Otc_Api.TrackPath('ADD','BulkInsertReset');
10065:
10066: If P_Command = 'INSERT' Then
10067:
10068: G_Stage := 'Bulk Insert records into Interface table via Pa_Txn_Interface_Items_Pkg.Bulk_Insert().';
10066: If P_Command = 'INSERT' Then
10067:
10068: G_Stage := 'Bulk Insert records into Interface table via Pa_Txn_Interface_Items_Pkg.Bulk_Insert().';
10069: If G_Debug_Mode = 'Y' Then
10070: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10071: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
10072: End If;
10073:
10074: Pa_Txn_Interface_Items_Pkg.Bulk_Insert(
10192: If P_Command in ( 'INSERT', 'RESET' ) Then
10193:
10194: G_Stage := 'Reset all pl/sql table arrays used for bulk insert.';
10195: If G_Debug_Mode = 'Y' Then
10196: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10197: pa_cc_utils.log_message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
10198: End If;
10199:
10200: G_Txn_Interface_Id_Tbl.Delete;
10318: End If;
10319:
10320: G_Stage := 'Leaving BulkInsertReset(), strip procedure from trackpath.';
10321: If G_Debug_Mode = 'Y' Then
10322: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10323: Pa_Cc_Utils.Log_Message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
10324: End If;
10325: Pa_Otc_Api.TrackPath('STRIP','BulkInsertReset');
10326:
10321: If G_Debug_Mode = 'Y' Then
10322: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
10323: Pa_Cc_Utils.Log_Message('BulkInsertReset: ' || Pa_Debug.G_Err_Stage,0);
10324: End If;
10325: Pa_Otc_Api.TrackPath('STRIP','BulkInsertReset');
10326:
10327: Exception
10328: When Others Then
10329: Raise;
10510:
10511: End GetPOInfo;
10512:
10513:
10514: END Pa_Otc_Api ;