[Home] [Help]
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:
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.';
451: If G_Debug_Mode = 'Y' Then
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:
457: G_Stage := 'Initialize what remains.';
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;
464: G_Unhandled_Except_Cnt := 0;
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;
475: G_Detail_Attr_Index := 0;
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
498: -- l_Where_Clause := '[ORG_ID] { = ''' || to_Char(to_Number(SubStr(UserEnv('CLIENT_INFO'),1,10))) || ''' }';
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;
510:
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',
539: P_Transaction_code => Null,
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:
568: G_Stage := 'Primary condition evaluation within the loop.';
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
575: Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).Deleted = 'Y' Then
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
583: -- appearantly attribution data is created and sent via the Generic retrieval process
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(
596: P_New_Old_BB => 'NEW',
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
618: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
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(
623: P_New_Old_BB => 'NEW',
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
636:
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';
644: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
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 :=
656: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
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.
666: If NOT Pa_Otc_Api.OrigTrxRefValueExists(l_new_orig_trx_ref) Then
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(
682: P_Exp_End_Date => l_New_Timecard_Rec.Expenditure_Ending_Date,
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';
695:
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:
709: G_Stage := 'Create new orig trx ref 3.';
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 :=
716: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id) || ':' ||
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(
728: P_New_Old_BB => 'NEW',
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
741:
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';
749: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
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(
761: P_New_Old_BB => 'OLD',
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(
779: P_New_Old_BB => 'OLD',
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';
794: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_Old_Timecard_Rec.Status;
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(
809: P_New_Timecard_Rec => l_New_Timecard_Rec,
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.';
825: If G_Debug_Mode = 'Y' Then
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(
831: P_Building_Block_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
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';
844: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
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(
856: P_Old_Orig_Txn_Ref => l_old_orig_trx_ref,
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;
870:
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(
882: P_Exp_End_Date => l_New_Timecard_Rec.Expenditure_Ending_Date,
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 ?
894: -- Switched from function to procedure to determine if
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(
904: P_Building_Block_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
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) :=
917: l_New_Timecard_Rec.Status;
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(
935: P_Old_Orig_Trx_Ref => l_old_orig_trx_ref,
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:
950: End If; -- l_direct_update_flag
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
976: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
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(
981: P_New_Old_BB => 'NEW',
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(
994: P_New_Old_BB => 'OLD',
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;
1017:
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(
1034: P_New_Old_BB => 'NEW',
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
1047:
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';
1055: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
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(
1066: P_New_Old_BB => 'OLD',
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(
1084: P_Exp_End_Date => l_New_Timecard_Rec.Expenditure_Ending_Date,
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(
1094: P_New_Old_BB => 'OLD',
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
1111: -- ei is available for adjustment in projects
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(
1121: P_Building_Block_Id => Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(i).BB_Id,
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';
1134: Hxc_User_Type_Definition_Grp.T_Tx_Detail_Exception(i) := l_New_Timecard_Rec.Status;
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;
1151:
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:
1167: End If; -- l_New_Timecard_Rec.Status
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
1180: into l_txn_xface_id
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
1190: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
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);
1195: else
1285: G_Assignment_Name_Tbl(G_Trx_Import_Index) := Null;
1286: G_Assignment_Id_Tbl(G_Trx_Import_Index) := l_New_Timecard_Rec.Assignment_Id;
1287: G_Work_Type_Name_Tbl(G_Trx_Import_Index) := Null;
1288: G_Work_Type_Id_Tbl(G_Trx_Import_Index) := l_New_Timecard_Rec.Work_Type_Id;
1289: pa_cc_utils.log_message('Ravi: loading the variables to pass to xface .. work type id: ' || l_New_Timecard_Rec.Work_Type_Id);
1290: G_Cdl_System_Reference4_Tbl(G_Trx_Import_Index) := Null;
1291: G_Accrual_Flag_Tbl(G_Trx_Import_Index) := Null;
1292: G_Last_Update_Date_Tbl(G_Trx_Import_Index) := sysdate;
1293: G_Last_Updated_By_Tbl(G_Trx_Import_Index) := P_User_Id;
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:
1328: G_Stage := 'Store the Bb_Id and index in pl/sql table for use in tieback process.';
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:
1344: G_Stage := 'Call BulkInsertReset() procedure for insert.';
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:
1351: G_Stage := 'Store total records inserted. Reset counter to 0.';
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;
1358:
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;
1385:
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;
1400:
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
1410:
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:
1418: G_Stage := 'Set the final records count for the next import phase. Reset counter.';
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:
1425: G_Txn_Rec_Count := 0;
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
1438:
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
1455: (P_Process => 'Projects Retrieval 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:
1468: Exception
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:
1524: Else
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';
1630: If G_Debug_Mode = 'Y' Then
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:
1636: G_Stage := 'Get needed data to build reversing item phase 1.';
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
1643: EI.Task_Id,
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
1745: Into l_Txn_Xface_Id
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(
1757: P_Po_Line_Id => l_PO_Line_Id,
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
1770: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
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;
1775:
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:
1903: G_Stage := 'Leaving 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
1910: When others then
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:
1986: G_Stage := 'Get Expenditure Item Id.';
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
1993: RowId,
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.
2021: Based on the combinations possible the code logic is changed */
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
2032: Set Orig_Transaction_Reference = P_New_Orig_Txn_Ref,
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
2056: ( Expenditure_Item_Id,
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
2091: Set Expenditure_Comment = P_Timecard_Rec.Expenditure_Item_Comment,
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
2110: Where Expenditure_Item_Id = l_Exp_Item_Id ;
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
2125: Set Orig_Transaction_Reference = P_New_Orig_Txn_Ref,
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
2157: Set pay_element_type_id = P_Timecard_Rec.Pay_Element_Type_Id,
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
2178: When Others Then
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:
2250: G_Stage := 'Open cursor TrxRecords.';
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);
2257:
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;
2268: Exit When TrxRecords%Notfound;
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';
2280:
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
2291: * more than it currently is. We have to make sure that we don't try to update rejected
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:
2326: G_Stage := 'Loop is done so lose cursor TrxRecs.';
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;
2333:
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
2341: Set
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
2354:
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';
2380: EXIT when j = G_Trx_Direct_Upd_Tab.Last;
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;
2393: Hxc_Integration_Layer_V1_Grp.Update_Transaction_Status (
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()
2405: -- will ignore 2 HXC exceptions that are thrown when there are no records found by the
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:
2416: Exception
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:
2488: If P_New_Timecard_Rec.Project_Id <> P_Old_Timecard_Rec.Project_Id OR -- bug 3241052
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;
2512:
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;
2525:
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;
2539:
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;
2563:
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.
2577: */
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';
2649: --
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';
2659: --
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:
2671: Exception
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:
2729: G_Stage := 'Set Timecard Rec to NULL.';
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;
2736:
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.';
2744: If G_Debug_Mode = 'Y' Then
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;
2768:
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.';
2779: If G_Debug_Mode = 'Y' Then
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:
2785: G_Stage := 'Checking if comment is not null.';
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
2792:
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
2800: grab the first 240 characters. */
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 :=
2813: -- substr(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text,1,240);
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 :=
2828: -- Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Comment_Text;
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:
2842: End If; -- l_comment_text is not Null
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 :=
2852: TRUNC(Hxc_User_Type_Definition_Grp.T_Detail_Bld_Blks(P_Detail_Index).Start_Time);
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;
2863:
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
2871: Loop
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);
2890: l_Rec_Found := TRUE;
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.';
2907: If G_Debug_Mode = 'Y' Then
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
2913:
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:
2937: /* Pull data from the new detail_attributes pl/sql table */
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
2945:
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: ' ||
2959: to_char(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id);
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
2966: Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).BB_Id = P_BB_Id
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;
2979:
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;
2990:
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
3013: When Others Then
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;
3036:
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;
3048:
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;
3060:
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;
3077:
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
3089:
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);
3097:
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;
3110:
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;
3121:
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;
3132:
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;
3143:
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;
3154:
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;
3165:
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;
3176:
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;
3187:
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;
3198:
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;
3209:
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;
3220:
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;
3232:
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;
3243:
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;
3256: ElsIf Upper(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Field_Name) = 'LOCATION_ID' Then
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;
3266: ElsIf Upper(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Field_Name) = 'WORKTYPE_ID' Then
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;
3276: ElsIf Upper(Hxc_User_Type_Definition_Grp.T_Detail_Attributes(i).Field_Name) = 'DUMMY ELEMENT CONTEXT' Then
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;
3292:
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
3304:
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);
3312: End If;
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.
3331: * This is due to the fact that we are using the while/loop structure and only leaving the loop
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
3344:
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
3354:
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
3374:
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(
3382: P_Po_Line_Id => P_Timecard_Rec.PO_Line_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
3393:
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;
3401: P_Timecard_Rec.Vendor_Id := NULL;
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;
3417:
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: ' ||
3425: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Measure);
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;
3432:
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.';
3443: If G_Debug_Mode = 'Y' Then
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:
3449: G_Stage := 'Checking if Old comment is not null.';
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
3456:
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
3464: grab the first 240 characters. */
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 :=
3477: -- substr(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text,1,240);
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 :=
3492: -- Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Comment_Text;
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:
3506: End If; -- l_comment_text is not Null
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 */
3516: P_Timecard_Rec.Expenditure_Item_Date := trunc(Hxc_User_Type_Definition_Grp.T_Old_Detail_Bld_Blks(P_Old_Detl_Ind).Start_Time);
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;
3527:
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
3535: Loop
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);
3554: l_Rec_Found := TRUE;
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.';
3571: If G_Debug_Mode = 'Y' Then
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);
3577:
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
3585: -- The person type can be returned as null and will be handled later in the code.
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:
3602: If G_Old_Detail_Attr_Index = 0 Then
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: ' ||
3618: to_char(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id);
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
3625: Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).BB_Id = P_BB_Id
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;
3638:
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;
3649:
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;
3690:
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;
3702:
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;
3714:
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;
3732:
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
3743:
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);
3751:
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;
3765:
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;
3777:
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;
3789:
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;
3801:
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;
3813:
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;
3825:
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;
3837:
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;
3849:
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;
3861:
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;
3873:
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;
3885:
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;
3898:
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;
3910:
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;
3923: ElsIf Upper(Hxc_User_Type_Definition_Grp.T_Old_Detail_Attributes(j).Field_Name) = 'LOCATION_ID' Then
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;
3933:
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;
3944:
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;
3961:
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
3973:
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);
3981: End If;
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.
3999: * This is due to the fact that we are using the while/loop structure and only leaving the loop
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
4012:
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
4022:
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:
4042: G_Stage := 'Calling Pa_Otc_Api.GetPOInfo() procedure old.';
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(
4049: P_Po_Line_Id => P_Timecard_Rec.PO_Line_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
4060:
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;
4068: P_Timecard_Rec.PO_Header_Id := NULL;
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
4084: P_Timecard_Rec.Task_Id is null and
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:
4169: Exception
4174: P_Timecard_Rec.Status := SubStr(Fnd_Message.Get,1,2000);
4175:
4176: If G_Debug_Mode = 'Y' Then
4177: Pa_Debug.G_err_Stage := P_Timecard_Rec.Status;
4178: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
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
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:
4188: Raise G_BAD_OTL_DATA;
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:
4227: G_Stage := 'Begin loop searching for the matching BB_Id.';
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
4243:
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;
4251:
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;
4259:
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:
4271: Exception
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:
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
9736: 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
9754:
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
9765: To_Char(P_Exp_End_Date,'YYMMDD')
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
9778: Mod(Pa_Expenditure_Groups_S.NextVal,1000)
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);
9791:
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:
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;
9815:
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:
9891: G_Stage := 'Build search string.';
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:
9898: G_Stage := 'Search ei table for available ei record.';
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
9905: Into
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:
9932: Exception
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:
9948: If G_Debug_Mode = 'Y' Then
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);
9951: End If;
9952:
9953: When Others Then
9954: Raise;
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:
9994: G_Stage := 'Get Incurred by Organization Id.';
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,
10001: P_Exp_Item_Date => P_EI_Date,
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;
10011:
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:
10019: Exception
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:
10029: End GetAdditionalTrxData;
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:
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(
10075: P_Txn_Interface_Id_Tbl => G_Txn_Interface_Id_Tbl,
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;
10201: G_Transaction_Source_Tbl.Delete;
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:
10327: Exception