[Home] [Help]
232: g_payroll_accrual_flag VARCHAR2(1) default NULL; ---- Added for payroll billable_flag changes for 12.2 end bug#12344689
233:
234: -- 10253400: Payroll integration enhancement for 12.2..end
235:
236: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
237:
238: P_BTC_SRC_RESRC varchar2(1) := NVL(FND_PROFILE.value('PA_RPT_BTC_SRC_RESRC'), 'N'); -- 4057874
239: G_Cbs_Element_Id NUMBER DEFAULT NULL; -- Added for CBS Enhancement Bug 16220146
240: -- R12 funds management uptake : Below global variables stores adjusting expenditures data
607: IS
608: BEGIN
609: pa_cc_utils.set_curr_function('GetImpCurrInfo');
610: IF PG_DEBUG = 'Y' THEN
611: pa_debug.G_err_Stage := 'call to pa_multi_currency.init';
612: log_message('log_message: ' || pa_debug.G_err_Stage);
613: END IF;
614:
615: pa_multi_currency.init;
608: BEGIN
609: pa_cc_utils.set_curr_function('GetImpCurrInfo');
610: IF PG_DEBUG = 'Y' THEN
611: pa_debug.G_err_Stage := 'call to pa_multi_currency.init';
612: log_message('log_message: ' || pa_debug.G_err_Stage);
613: END IF;
614:
615: pa_multi_currency.init;
616:
614:
615: pa_multi_currency.init;
616:
617: IF PG_DEBUG = 'Y' THEN
618: pa_debug.G_err_stage := 'Assigning currency code and rate type to local variables';
619: log_message('log_message: ' || pa_debug.G_err_Stage);
620: END IF;
621: G_accounting_currency_code := pa_multi_currency.G_accounting_currency_code;
622: G_default_rate_type := pa_multi_currency.G_rate_type;
615: pa_multi_currency.init;
616:
617: IF PG_DEBUG = 'Y' THEN
618: pa_debug.G_err_stage := 'Assigning currency code and rate type to local variables';
619: log_message('log_message: ' || pa_debug.G_err_Stage);
620: END IF;
621: G_accounting_currency_code := pa_multi_currency.G_accounting_currency_code;
622: G_default_rate_type := pa_multi_currency.G_rate_type;
623:
621: G_accounting_currency_code := pa_multi_currency.G_accounting_currency_code;
622: G_default_rate_type := pa_multi_currency.G_rate_type;
623:
624: IF PG_DEBUG = 'Y' THEN
625: pa_debug.G_err_Stage := 'Before calling pa_cc_utils.reset_curr_function';
626: log_message('log_message: ' || pa_debug.G_err_Stage);
627: END IF;
628:
629: pa_cc_utils.reset_curr_function;
622: G_default_rate_type := pa_multi_currency.G_rate_type;
623:
624: IF PG_DEBUG = 'Y' THEN
625: pa_debug.G_err_Stage := 'Before calling pa_cc_utils.reset_curr_function';
626: log_message('log_message: ' || pa_debug.G_err_Stage);
627: END IF;
628:
629: pa_cc_utils.reset_curr_function;
630:
628:
629: pa_cc_utils.reset_curr_function;
630:
631: IF PG_DEBUG = 'Y' THEN
632: pa_debug.G_err_Stage := 'After calling pa_cc_utils.reset_curr_function';
633: log_message('log_message: ' || pa_debug.G_err_Stage);
634: END IF;
635:
636: EXCEPTION
629: pa_cc_utils.reset_curr_function;
630:
631: IF PG_DEBUG = 'Y' THEN
632: pa_debug.G_err_Stage := 'After calling pa_cc_utils.reset_curr_function';
633: log_message('log_message: ' || pa_debug.G_err_Stage);
634: END IF;
635:
636: EXCEPTION
637: WHEN NO_DATA_FOUND THEN
635:
636: EXCEPTION
637: WHEN NO_DATA_FOUND THEN
638: IF PG_DEBUG = 'Y' THEN
639: pa_debug.G_err_Stage := 'Inside When NO_DATA_FOUND Exception of GetImpCurrInfo';
640: log_message('log_message: ' || pa_debug.G_err_Stage);
641: END IF;
642: G_default_rate_type := NULL;
643: G_accounting_currency_code := NULL;
636: EXCEPTION
637: WHEN NO_DATA_FOUND THEN
638: IF PG_DEBUG = 'Y' THEN
639: pa_debug.G_err_Stage := 'Inside When NO_DATA_FOUND Exception of GetImpCurrInfo';
640: log_message('log_message: ' || pa_debug.G_err_Stage);
641: END IF;
642: G_default_rate_type := NULL;
643: G_accounting_currency_code := NULL;
644: pa_cc_utils.reset_curr_function;
658:
659: pa_cc_utils.set_curr_function('GetProjCurrInfo');
660: IF PG_DEBUG = 'Y' THEN
661: log_message('log_message: In GetProjCurrInfo api');
662: pa_debug.G_err_stage := 'Calling get_project_rate_type';
663: log_message('log_message: ' || pa_debug.G_err_Stage);
664: END IF;
665:
666: If (G_CurrInfoTaskId = X_task_id) Then
659: pa_cc_utils.set_curr_function('GetProjCurrInfo');
660: IF PG_DEBUG = 'Y' THEN
661: log_message('log_message: In GetProjCurrInfo api');
662: pa_debug.G_err_stage := 'Calling get_project_rate_type';
663: log_message('log_message: ' || pa_debug.G_err_Stage);
664: END IF;
665:
666: If (G_CurrInfoTaskId = X_task_id) Then
667:
665:
666: If (G_CurrInfoTaskId = X_task_id) Then
667:
668: IF PG_DEBUG = 'Y' THEN
669: pa_debug.G_err_stage := 'Using Cached Values';
670: log_message('log_message: ' || pa_debug.G_err_Stage);
671: END IF;
672:
673: X_project_currency_code := G_CurrInfoPrjCurrCode;
666: If (G_CurrInfoTaskId = X_task_id) Then
667:
668: IF PG_DEBUG = 'Y' THEN
669: pa_debug.G_err_stage := 'Using Cached Values';
670: log_message('log_message: ' || pa_debug.G_err_Stage);
671: END IF;
672:
673: X_project_currency_code := G_CurrInfoPrjCurrCode;
674: X_project_rate_type := G_CurrInfoPrjRtType;
679:
680: Else
681:
682: IF PG_DEBUG = 'Y' THEN
683: pa_debug.G_err_stage := 'Selecting Values';
684: log_message('log_message: ' || pa_debug.G_err_Stage);
685: log_message('log_message: Calling pa_multi_currency_txn.get_proj_rate_type');
686: END IF;
687:
680: Else
681:
682: IF PG_DEBUG = 'Y' THEN
683: pa_debug.G_err_stage := 'Selecting Values';
684: log_message('log_message: ' || pa_debug.G_err_Stage);
685: log_message('log_message: Calling pa_multi_currency_txn.get_proj_rate_type');
686: END IF;
687:
688: -- PA-I Changes : The API get_project_rate_type has been renamed to get_proj_rate_type
691: P_project_rate_type => X_project_rate_type);
692:
693: IF PG_DEBUG = 'Y' THEN
694: log_message('log_message: After Calling pa_multi_currency_txn.get_proj_rate_type');
695: pa_debug.G_err_stage := 'Calling pa_multi_currency_txn.get_projfunc_cost_rate_type';
696: log_message('log_message: ' || pa_debug.G_err_Stage);
697: END IF;
698:
699: -- PA-I Changes : Calling API to get Proj Functional Currency Code only
692:
693: IF PG_DEBUG = 'Y' THEN
694: log_message('log_message: After Calling pa_multi_currency_txn.get_proj_rate_type');
695: pa_debug.G_err_stage := 'Calling pa_multi_currency_txn.get_projfunc_cost_rate_type';
696: log_message('log_message: ' || pa_debug.G_err_Stage);
697: END IF;
698:
699: -- PA-I Changes : Calling API to get Proj Functional Currency Code only
700: pa_multi_currency_txn.get_projfunc_cost_rate_type(P_task_id => X_task_id,
700: pa_multi_currency_txn.get_projfunc_cost_rate_type(P_task_id => X_task_id,
701: P_projfunc_currency_code => X_projfunc_currency_code,
702: P_projfunc_cost_rate_type => X_projfunc_cost_rate_type);
703: IF PG_DEBUG = 'Y' THEN
704: pa_debug.G_err_stage := 'After Calling get_projfunc_rate_type';
705: log_message('log_message: ' || pa_debug.G_err_Stage);
706: END IF;
707:
708: G_CurrInfoPrjCurrCode := X_project_currency_code;
701: P_projfunc_currency_code => X_projfunc_currency_code,
702: P_projfunc_cost_rate_type => X_projfunc_cost_rate_type);
703: IF PG_DEBUG = 'Y' THEN
704: pa_debug.G_err_stage := 'After Calling get_projfunc_rate_type';
705: log_message('log_message: ' || pa_debug.G_err_Stage);
706: END IF;
707:
708: G_CurrInfoPrjCurrCode := X_project_currency_code;
709: G_CurrInfoPrjRtType := X_project_rate_type;
772:
773: pa_cc_utils.set_curr_function('GetVendorId');
774:
775: IF PG_DEBUG = 'Y' THEN
776: pa_debug.G_err_stage := 'In GetVendorId api with Vendor Number as an input';
777: log_message('log_message: ' || pa_debug.G_err_Stage);
778: END IF;
779:
780: SELECT vendor_ID INTO G_vendor_id
773: pa_cc_utils.set_curr_function('GetVendorId');
774:
775: IF PG_DEBUG = 'Y' THEN
776: pa_debug.G_err_stage := 'In GetVendorId api with Vendor Number as an input';
777: log_message('log_message: ' || pa_debug.G_err_Stage);
778: END IF;
779:
780: SELECT vendor_ID INTO G_vendor_id
781: FROM po_vendors
782: WHERE segment1 = p_vendor_number;
783:
784:
785: IF PG_DEBUG = 'Y' THEN
786: pa_debug.G_err_stage := 'G_vendor_id='||G_vendor_id;
787: log_message('log_message: ' || pa_debug.G_err_Stage);
788: END IF;
789:
790: pa_cc_utils.reset_curr_function;
783:
784:
785: IF PG_DEBUG = 'Y' THEN
786: pa_debug.G_err_stage := 'G_vendor_id='||G_vendor_id;
787: log_message('log_message: ' || pa_debug.G_err_Stage);
788: END IF;
789:
790: pa_cc_utils.reset_curr_function;
791:
803:
804: pa_cc_utils.set_curr_function('GetVendorId for an employee (person_id):'||p_person_id);
805:
806: IF PG_DEBUG = 'Y' THEN
807: pa_debug.G_err_stage := 'In GetVendorId api with person id as an input';
808: log_message('log_message: ' || pa_debug.G_err_Stage);
809: END IF;
810:
811: select vendor_id
804: pa_cc_utils.set_curr_function('GetVendorId for an employee (person_id):'||p_person_id);
805:
806: IF PG_DEBUG = 'Y' THEN
807: pa_debug.G_err_stage := 'In GetVendorId api with person id as an input';
808: log_message('log_message: ' || pa_debug.G_err_Stage);
809: END IF;
810:
811: select vendor_id
812: into g_vendor_id
814: where employee_id = p_person_id
815: and vendor_type_lookup_code = 'EMPLOYEE' ;
816:
817: IF PG_DEBUG = 'Y' THEN
818: pa_debug.G_err_stage := 'G_vendor_id='||g_vendor_id;
819: log_message('log_message: ' || pa_debug.G_err_Stage);
820: END IF;
821:
822: pa_cc_utils.reset_curr_function;
815: and vendor_type_lookup_code = 'EMPLOYEE' ;
816:
817: IF PG_DEBUG = 'Y' THEN
818: pa_debug.G_err_stage := 'G_vendor_id='||g_vendor_id;
819: log_message('log_message: ' || pa_debug.G_err_Stage);
820: END IF;
821:
822: pa_cc_utils.reset_curr_function;
823:
833:
834: pa_cc_utils.set_curr_function('GetEtypeInfo');
835:
836: IF PG_DEBUG = 'Y' THEN
837: pa_debug.G_err_stage := 'In GetEtypeInfo api';
838: log_message('log_message: ' || pa_debug.G_err_Stage);
839: END IF;
840:
841: If (G_ETypeInfoEtype = X_etype AND trunc(G_ETypeInfoDate) = trunc(X_date)) Then
834: pa_cc_utils.set_curr_function('GetEtypeInfo');
835:
836: IF PG_DEBUG = 'Y' THEN
837: pa_debug.G_err_stage := 'In GetEtypeInfo api';
838: log_message('log_message: ' || pa_debug.G_err_Stage);
839: END IF;
840:
841: If (G_ETypeInfoEtype = X_etype AND trunc(G_ETypeInfoDate) = trunc(X_date)) Then
842:
840:
841: If (G_ETypeInfoEtype = X_etype AND trunc(G_ETypeInfoDate) = trunc(X_date)) Then
842:
843: IF PG_DEBUG = 'Y' THEN
844: pa_debug.G_err_Stage := 'Cached Values';
845: log_message('log_message: ' || pa_debug.G_err_Stage);
846: END IF;
847:
848: G_ETypeInfoEtype := X_etype;
841: If (G_ETypeInfoEtype = X_etype AND trunc(G_ETypeInfoDate) = trunc(X_date)) Then
842:
843: IF PG_DEBUG = 'Y' THEN
844: pa_debug.G_err_Stage := 'Cached Values';
845: log_message('log_message: ' || pa_debug.G_err_Stage);
846: END IF;
847:
848: G_ETypeInfoEtype := X_etype;
849: G_ETypeInfoDate := X_date;
849: G_ETypeInfoDate := X_date;
850:
851: Else
852: IF PG_DEBUG = 'Y' THEN
853: pa_debug.G_err_Stage := 'Selecting Values';
854: log_message('log_message: ' || pa_debug.G_err_Stage);
855: END IF;
856:
857: SELECT
850:
851: Else
852: IF PG_DEBUG = 'Y' THEN
853: pa_debug.G_err_Stage := 'Selecting Values';
854: log_message('log_message: ' || pa_debug.G_err_Stage);
855: END IF;
856:
857: SELECT
858: /* et.system_linkage_function */ /* Commented for Bug#2726242 */
908:
909: If (G_EClassInfoEtype = X_etype AND G_EClassInfoSysLink = X_system_linkage) then
910:
911: IF PG_DEBUG = 'Y' THEN
912: pa_debug.G_err_Stage := 'Cached Values';
913: log_message('log_message: ' || pa_debug.G_err_Stage);
914: END IF;
915:
916: G_EClassInfoEtype := X_etype;
909: If (G_EClassInfoEtype = X_etype AND G_EClassInfoSysLink = X_system_linkage) then
910:
911: IF PG_DEBUG = 'Y' THEN
912: pa_debug.G_err_Stage := 'Cached Values';
913: log_message('log_message: ' || pa_debug.G_err_Stage);
914: END IF;
915:
916: G_EClassInfoEtype := X_etype;
917: G_EClassInfoSysLink := X_system_linkage;
918:
919: Else
920:
921: IF PG_DEBUG = 'Y' THEN
922: pa_debug.G_err_Stage := 'Selecting Values';
923: log_message('log_message: ' || pa_debug.G_err_Stage);
924: END IF;
925:
926: SELECT
919: Else
920:
921: IF PG_DEBUG = 'Y' THEN
922: pa_debug.G_err_Stage := 'Selecting Values';
923: log_message('log_message: ' || pa_debug.G_err_Stage);
924: END IF;
925:
926: SELECT
927: ets.system_linkage_function
967: BEGIN
968:
969: pa_cc_utils.set_curr_function('GetNlrInfo');
970: IF PG_DEBUG = 'Y' THEN
971: pa_debug.G_err_Stage := 'select from pa_non_labor_resources';
972: log_message('log_message: ' || pa_debug.G_err_Stage);
973: END IF;
974:
975: If (G_NlrInfoNlr = X_nlr) Then
968:
969: pa_cc_utils.set_curr_function('GetNlrInfo');
970: IF PG_DEBUG = 'Y' THEN
971: pa_debug.G_err_Stage := 'select from pa_non_labor_resources';
972: log_message('log_message: ' || pa_debug.G_err_Stage);
973: END IF;
974:
975: If (G_NlrInfoNlr = X_nlr) Then
976:
974:
975: If (G_NlrInfoNlr = X_nlr) Then
976:
977: IF PG_DEBUG = 'Y' THEN
978: pa_debug.G_err_Stage := 'Cached Values';
979: log_message('log_message: ' || pa_debug.G_err_Stage);
980: END IF;
981:
982: G_NlrInfoNlr := X_nlr;
975: If (G_NlrInfoNlr = X_nlr) Then
976:
977: IF PG_DEBUG = 'Y' THEN
978: pa_debug.G_err_Stage := 'Cached Values';
979: log_message('log_message: ' || pa_debug.G_err_Stage);
980: END IF;
981:
982: G_NlrInfoNlr := X_nlr;
983:
983:
984: Else
985:
986: IF PG_DEBUG = 'Y' THEN
987: pa_debug.G_err_Stage := 'Selecting Values';
988: log_message('log_message: ' || pa_debug.G_err_Stage);
989: END IF;
990:
991: SELECT
984: Else
985:
986: IF PG_DEBUG = 'Y' THEN
987: pa_debug.G_err_Stage := 'Selecting Values';
988: log_message('log_message: ' || pa_debug.G_err_Stage);
989: END IF;
990:
991: SELECT
992: nlr.expenditure_type
1006: End If;
1007:
1008: BEGIN
1009: IF PG_DEBUG = 'Y' THEN
1010: pa_debug.G_err_stage := 'select from pa_non_labor_resource_orgs';
1011: log_message('log_message: ' || pa_debug.G_err_Stage);
1012: END IF;
1013:
1014: If (G_NlrInfoNlr = X_nlr and G_NlrInfoNlroId = X_nlro_id) Then
1007:
1008: BEGIN
1009: IF PG_DEBUG = 'Y' THEN
1010: pa_debug.G_err_stage := 'select from pa_non_labor_resource_orgs';
1011: log_message('log_message: ' || pa_debug.G_err_Stage);
1012: END IF;
1013:
1014: If (G_NlrInfoNlr = X_nlr and G_NlrInfoNlroId = X_nlro_id) Then
1015:
1062:
1063: pa_cc_utils.set_curr_function('CheckDupItem');
1064:
1065: IF PG_DEBUG = 'Y' THEN
1066: pa_debug.G_err_stage := 'In CheckDupItem api';
1067: log_message('log_message: ' || pa_debug.G_err_Stage);
1068: END IF;
1069:
1070: BEGIN
1063: pa_cc_utils.set_curr_function('CheckDupItem');
1064:
1065: IF PG_DEBUG = 'Y' THEN
1066: pa_debug.G_err_stage := 'In CheckDupItem api';
1067: log_message('log_message: ' || pa_debug.G_err_Stage);
1068: END IF;
1069:
1070: BEGIN
1071: SELECT
1115:
1116: pa_cc_utils.set_curr_function('CheckDupAdjItem');
1117:
1118: IF PG_DEBUG = 'Y' THEN
1119: pa_debug.G_err_stage := 'In CheckDupAdjItem api';
1120: log_message('log_message: ' || pa_debug.G_err_Stage);
1121: END IF;
1122:
1123: IF ( i > 0 ) THEN
1116: pa_cc_utils.set_curr_function('CheckDupAdjItem');
1117:
1118: IF PG_DEBUG = 'Y' THEN
1119: pa_debug.G_err_stage := 'In CheckDupAdjItem api';
1120: log_message('log_message: ' || pa_debug.G_err_Stage);
1121: END IF;
1122:
1123: IF ( i > 0 ) THEN
1124:
1155:
1156: If (X_Project_id = G_PrjInfoPrjId) Then
1157:
1158: IF PG_DEBUG = 'Y' THEN
1159: pa_debug.G_err_stage := 'Inside GetProjTypeInfo, using cached values';
1160: log_message('log_message: ' || pa_debug.G_err_stage);
1161: END IF;
1162:
1163: X_Proj_bcost_flag := G_PrjInfoBCostFlag;
1156: If (X_Project_id = G_PrjInfoPrjId) Then
1157:
1158: IF PG_DEBUG = 'Y' THEN
1159: pa_debug.G_err_stage := 'Inside GetProjTypeInfo, using cached values';
1160: log_message('log_message: ' || pa_debug.G_err_stage);
1161: END IF;
1162:
1163: X_Proj_bcost_flag := G_PrjInfoBCostFlag;
1164: X_proj_type_class := G_PrjInfoTypeClass;
1167:
1168: Else
1169:
1170: IF PG_DEBUG = 'Y' THEN
1171: pa_debug.G_err_stage := 'Inside GetProjTypeInfo, selecting values';
1172: log_message('log_message: ' || pa_debug.G_err_stage);
1173: END IF;
1174:
1175: -- SST changes, added project_type_class to select statement
1168: Else
1169:
1170: IF PG_DEBUG = 'Y' THEN
1171: pa_debug.G_err_stage := 'Inside GetProjTypeInfo, selecting values';
1172: log_message('log_message: ' || pa_debug.G_err_stage);
1173: END IF;
1174:
1175: -- SST changes, added project_type_class to select statement
1176: SELECT burden_cost_flag, project_type_class_code, burden_amt_display_method,
1216: -- pa_cc_utils.set_curr_function('CheckCCID');
1217: -- not setting error stack because this procedure
1218: -- will be violating its associated pragma.
1219: IF PG_DEBUG = 'Y' THEN
1220: pa_debug.G_err_stage := 'Inside CheckCCID api';
1221: log_message('log_message: ' || pa_debug.G_err_stage);
1222: END IF;
1223:
1224: If ccid is null Then
1217: -- not setting error stack because this procedure
1218: -- will be violating its associated pragma.
1219: IF PG_DEBUG = 'Y' THEN
1220: pa_debug.G_err_stage := 'Inside CheckCCID api';
1221: log_message('log_message: ' || pa_debug.G_err_stage);
1222: END IF;
1223:
1224: If ccid is null Then
1225: G_PrevCCID := ccid;
1748: EXCEPTION
1749: WHEN OTHERS THEN
1750:
1751: IF PG_DEBUG = 'Y' THEN
1752: pa_debug.G_err_stage := 'PO_PROCESSED_AMT_CHK : Search of Records : ' ||SQLERRM;
1753: log_message('log_message: ' || pa_debug.G_err_stage,1);
1754: END IF;
1755:
1756: END ;
1749: WHEN OTHERS THEN
1750:
1751: IF PG_DEBUG = 'Y' THEN
1752: pa_debug.G_err_stage := 'PO_PROCESSED_AMT_CHK : Search of Records : ' ||SQLERRM;
1753: log_message('log_message: ' || pa_debug.G_err_stage,1);
1754: END IF;
1755:
1756: END ;
1757:
1758: END IF ;
1759:
1760: -- Now Acquire the lock for Po Line Id and Task Id combination String.
1761:
1762: l_lock_status := Pa_Debug.Acquire_User_Lock(l_Line_Task_str);
1763:
1764: IF (l_lock_status = 0) THEN
1765:
1766: l_counter := PoLineTaskTab.COUNT;
1774:
1775: ELSE
1776:
1777: IF PG_DEBUG = 'Y' THEN
1778: pa_debug.G_err_stage := 'PO_PROCESSED_AMT_CHK : Failed To Aquire Lock for : '||l_Line_Task_str;
1779: log_message('log_message: ' || pa_debug.G_err_stage,1);
1780: END IF;
1781:
1782: x_status := 'PO_LINE_TASK_LOCKED';
1775: ELSE
1776:
1777: IF PG_DEBUG = 'Y' THEN
1778: pa_debug.G_err_stage := 'PO_PROCESSED_AMT_CHK : Failed To Aquire Lock for : '||l_Line_Task_str;
1779: log_message('log_message: ' || pa_debug.G_err_stage,1);
1780: END IF;
1781:
1782: x_status := 'PO_LINE_TASK_LOCKED';
1783: RETURN;
1787: EXCEPTION
1788: WHEN OTHERS THEN
1789:
1790: IF PG_DEBUG = 'Y' THEN
1791: pa_debug.G_err_stage := 'PO_PROCESSED_AMT_CHK : Insertion of Records : ' ||SQLERRM;
1792: log_message('log_message: ' || pa_debug.G_err_stage,1);
1793: END IF;
1794:
1795: END po_processed_amt_chk;
1788: WHEN OTHERS THEN
1789:
1790: IF PG_DEBUG = 'Y' THEN
1791: pa_debug.G_err_stage := 'PO_PROCESSED_AMT_CHK : Insertion of Records : ' ||SQLERRM;
1792: log_message('log_message: ' || pa_debug.G_err_stage,1);
1793: END IF;
1794:
1795: END po_processed_amt_chk;
1796:
1819: EXCEPTION
1820: WHEN OTHERS THEN
1821:
1822: IF PG_DEBUG = 'Y' THEN
1823: pa_debug.G_err_stage := 'UNDO_PROCESSED_AMT_CHK : While Undoing Processed Amt Check : ' ||SQLERRM;
1824: log_message('log_message: ' || pa_debug.G_err_stage,1);
1825: END IF;
1826:
1827: END undo_processed_amt_chk;
1820: WHEN OTHERS THEN
1821:
1822: IF PG_DEBUG = 'Y' THEN
1823: pa_debug.G_err_stage := 'UNDO_PROCESSED_AMT_CHK : While Undoing Processed Amt Check : ' ||SQLERRM;
1824: log_message('log_message: ' || pa_debug.G_err_stage,1);
1825: END IF;
1826:
1827: END undo_processed_amt_chk;
1828:
1832: BEGIN
1833: pa_cc_utils.set_curr_function('ValidateItem');
1834:
1835: IF PG_DEBUG = 'Y' THEN
1836: pa_debug.G_err_stage := 'Inside ValidateItem';
1837: log_message('log_message: ' || pa_debug.G_err_stage);
1838: END IF;
1839:
1840: G_adj_item_id := NULL;
1833: pa_cc_utils.set_curr_function('ValidateItem');
1834:
1835: IF PG_DEBUG = 'Y' THEN
1836: pa_debug.G_err_stage := 'Inside ValidateItem';
1837: log_message('log_message: ' || pa_debug.G_err_stage);
1838: END IF;
1839:
1840: G_adj_item_id := NULL;
1841: G_job_id := NULL;
1861:
1862: /* END Bug 16451280 */
1863:
1864: IF (SIGN(x_denom_raw_cost)=-1 and X_accrual_flag='Y' AND l_all_neg_acc = 'N' ) THEN -- Bug 16451280
1865: pa_debug.G_err_Stage := 'Negative Accrual Transaction';
1866: log_message('log_message: ' || pa_debug.G_err_Stage);
1867: X_status := 'NEG_ACCRUAL_TRANS';
1868: pa_cc_utils.reset_curr_function;
1869: RETURN;
1862: /* END Bug 16451280 */
1863:
1864: IF (SIGN(x_denom_raw_cost)=-1 and X_accrual_flag='Y' AND l_all_neg_acc = 'N' ) THEN -- Bug 16451280
1865: pa_debug.G_err_Stage := 'Negative Accrual Transaction';
1866: log_message('log_message: ' || pa_debug.G_err_Stage);
1867: X_status := 'NEG_ACCRUAL_TRANS';
1868: pa_cc_utils.reset_curr_function;
1869: RETURN;
1870: END IF;
1872:
1873: IF (nvl(X_module, 'EXTERNAL') <> 'PAAPIMP') THEN ---{
1874:
1875: IF PG_DEBUG = 'Y' THEN
1876: pa_debug.G_err_stage := 'Calling module not PAAPIMP';
1877: log_message('log_message: ' || pa_debug.G_err_stage);
1878: END IF;
1879:
1880: --
1873: IF (nvl(X_module, 'EXTERNAL') <> 'PAAPIMP') THEN ---{
1874:
1875: IF PG_DEBUG = 'Y' THEN
1876: pa_debug.G_err_stage := 'Calling module not PAAPIMP';
1877: log_message('log_message: ' || pa_debug.G_err_stage);
1878: END IF;
1879:
1880: --
1881: -- Changes for CBGA
1929:
1930: IF ( nvl( X_module, 'EXTERNAL' ) <> 'PAXTRTRX' ) THEN
1931:
1932: IF PG_DEBUG = 'Y' THEN
1933: pa_debug.G_err_Stage := 'G_trx_link = ' || G_trx_link;
1934: log_message('log_message: ' || pa_debug.G_err_Stage);
1935: END IF;
1936:
1937: IF (G_trx_link is null OR X_trx_src <> G_trx_source) Then --3567234
1930: IF ( nvl( X_module, 'EXTERNAL' ) <> 'PAXTRTRX' ) THEN
1931:
1932: IF PG_DEBUG = 'Y' THEN
1933: pa_debug.G_err_Stage := 'G_trx_link = ' || G_trx_link;
1934: log_message('log_message: ' || pa_debug.G_err_Stage);
1935: END IF;
1936:
1937: IF (G_trx_link is null OR X_trx_src <> G_trx_source) Then --3567234
1938: IF PG_DEBUG = 'Y' THEN
1935: END IF;
1936:
1937: IF (G_trx_link is null OR X_trx_src <> G_trx_source) Then --3567234
1938: IF PG_DEBUG = 'Y' THEN
1939: pa_debug.G_err_Stage := 'Calling GetTrxSrcInfo';
1940: log_message('log_message: ' || pa_debug.G_err_Stage);
1941: END IF;
1942: GetTrxSrcInfo( X_trx_src );
1943: End If;
1936:
1937: IF (G_trx_link is null OR X_trx_src <> G_trx_source) Then --3567234
1938: IF PG_DEBUG = 'Y' THEN
1939: pa_debug.G_err_Stage := 'Calling GetTrxSrcInfo';
1940: log_message('log_message: ' || pa_debug.G_err_Stage);
1941: END IF;
1942: GetTrxSrcInfo( X_trx_src );
1943: End If;
1944:
1943: End If;
1944:
1945: IF ( G_trx_link IS NULL ) THEN
1946: IF PG_DEBUG = 'Y' THEN
1947: pa_debug.G_err_Stage := 'Invalid Trx Source';
1948: log_message('log_message: ' || pa_debug.G_err_Stage);
1949: END IF;
1950: X_status := 'INVALID_TRX_SOURCE';
1951: pa_cc_utils.reset_curr_function;
1944:
1945: IF ( G_trx_link IS NULL ) THEN
1946: IF PG_DEBUG = 'Y' THEN
1947: pa_debug.G_err_Stage := 'Invalid Trx Source';
1948: log_message('log_message: ' || pa_debug.G_err_Stage);
1949: END IF;
1950: X_status := 'INVALID_TRX_SOURCE';
1951: pa_cc_utils.reset_curr_function;
1952: RETURN;
2006: -- Verify that the expenditure ending date is a valid expenditure week
2007: -- ending date
2008: --
2009: IF PG_DEBUG = 'Y' THEN
2010: pa_debug.G_err_stage := 'Calling pa_utils.GetWeekEnding';
2011: log_message('log_message: ' || pa_debug.G_err_Stage);
2012: END IF;
2013: IF (trunc( X_end_date) <> trunc(pa_utils.NewGetWeekEnding( X_end_date )) ) THEN
2014: X_status := 'INVALID_END_DATE';
2007: -- ending date
2008: --
2009: IF PG_DEBUG = 'Y' THEN
2010: pa_debug.G_err_stage := 'Calling pa_utils.GetWeekEnding';
2011: log_message('log_message: ' || pa_debug.G_err_Stage);
2012: END IF;
2013: IF (trunc( X_end_date) <> trunc(pa_utils.NewGetWeekEnding( X_end_date )) ) THEN
2014: X_status := 'INVALID_END_DATE';
2015: pa_cc_utils.reset_curr_function;
2033: G_Org_Id := P_Organization_Id;
2034:
2035: /* Bug 6519602: Base Bug 6519570 - Changes start */
2036: IF PG_DEBUG = 'Y' THEN
2037: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId';
2038: log_message('log_message: ' || pa_debug.G_err_Stage);
2039: END IF;
2040:
2041: -- 10253400: Payroll integration enhancement for 12.2..start
2034:
2035: /* Bug 6519602: Base Bug 6519570 - Changes start */
2036: IF PG_DEBUG = 'Y' THEN
2037: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId';
2038: log_message('log_message: ' || pa_debug.G_err_Stage);
2039: END IF;
2040:
2041: -- 10253400: Payroll integration enhancement for 12.2..start
2042: -- Job related parameters are now sent for ST. Validate them.
2042: -- Job related parameters are now sent for ST. Validate them.
2043: IF (p_job_id is not null or p_job_name is not null) and X_system_linkage = 'ST' then
2044:
2045: IF PG_DEBUG = 'Y' THEN
2046: pa_debug.G_err_Stage := 'Calling pa_utils.GetJobId';
2047: log_message('log_message: ' || pa_debug.G_err_Stage);
2048: END IF;
2049:
2050: /* Start changes for bug#12646514 */
2043: IF (p_job_id is not null or p_job_name is not null) and X_system_linkage = 'ST' then
2044:
2045: IF PG_DEBUG = 'Y' THEN
2046: pa_debug.G_err_Stage := 'Calling pa_utils.GetJobId';
2047: log_message('log_message: ' || pa_debug.G_err_Stage);
2048: END IF;
2049:
2050: /* Start changes for bug#12646514 */
2051: G_job_id := pa_utils.GetJobId(X_Business_Group_Id => G_Business_Group_Id
2055: /* End changes for bug#12646514 */
2056:
2057: ELSE
2058: IF PG_DEBUG = 'Y' THEN
2059: pa_debug.G_err_Stage := 'Calling pa_utils.GetEmpJobId..2';
2060: log_message('log_message: ' || pa_debug.G_err_Stage);
2061: END IF;
2062:
2063: G_job_id := pa_utils.GetEmpJobId(
2056:
2057: ELSE
2058: IF PG_DEBUG = 'Y' THEN
2059: pa_debug.G_err_Stage := 'Calling pa_utils.GetEmpJobId..2';
2060: log_message('log_message: ' || pa_debug.G_err_Stage);
2061: END IF;
2062:
2063: G_job_id := pa_utils.GetEmpJobId(
2064: X_person_id => G_person_id,
2078:
2079: -- 10253400: Payroll integration enhancement for 12.2..end
2080:
2081: IF PG_DEBUG = 'Y' THEN
2082: pa_debug.G_err_stage := ' G_Job_Id = ' || G_Job_Id;
2083: log_message('log_message: ' || pa_debug.G_err_stage);
2084: END IF;
2085: /* Bug 6519602: Base Bug 6519570 - Changes end */
2086:
2079: -- 10253400: Payroll integration enhancement for 12.2..end
2080:
2081: IF PG_DEBUG = 'Y' THEN
2082: pa_debug.G_err_stage := ' G_Job_Id = ' || G_Job_Id;
2083: log_message('log_message: ' || pa_debug.G_err_stage);
2084: END IF;
2085: /* Bug 6519602: Base Bug 6519570 - Changes end */
2086:
2087: ELSE
2097:
2098: G_person_id := NULL;
2099:
2100: IF PG_DEBUG = 'Y' THEN
2101: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';
2102: log_message('log_message: ' || pa_debug.G_err_Stage);
2103: END IF;
2104:
2105: IF ( X_oname IS NOT NULL ) THEN
2098: G_person_id := NULL;
2099:
2100: IF PG_DEBUG = 'Y' THEN
2101: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';
2102: log_message('log_message: ' || pa_debug.G_err_Stage);
2103: END IF;
2104:
2105: IF ( X_oname IS NOT NULL ) THEN
2106:
2134: -- Get the person ID for the employee number given
2135: ELSIF ( X_enum IS NOT NULL ) THEN
2136:
2137: IF PG_DEBUG = 'Y' THEN
2138: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpId, G_business_Group_id = ' || G_business_Group_id;
2139: log_message('log_message: ' || pa_debug.G_err_Stage);
2140: END IF;
2141: -- Fixed Bug 1534973, 1581184
2142: -- Passing X_Ei_Date parameter to GetEmpId
2135: ELSIF ( X_enum IS NOT NULL ) THEN
2136:
2137: IF PG_DEBUG = 'Y' THEN
2138: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpId, G_business_Group_id = ' || G_business_Group_id;
2139: log_message('log_message: ' || pa_debug.G_err_Stage);
2140: END IF;
2141: -- Fixed Bug 1534973, 1581184
2142: -- Passing X_Ei_Date parameter to GetEmpId
2143:
2168: RETURN;
2169: END IF;
2170:
2171: IF PG_DEBUG = 'Y' THEN
2172: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgId';
2173: log_message('log_message: ' || pa_debug.G_err_Stage);
2174: END IF;
2175:
2176: G_org_id := pa_utils.GetOrgId(X_oname);
2169: END IF;
2170:
2171: IF PG_DEBUG = 'Y' THEN
2172: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgId';
2173: log_message('log_message: ' || pa_debug.G_err_Stage);
2174: END IF;
2175:
2176: G_org_id := pa_utils.GetOrgId(X_oname);
2177:
2184: -- Bug 2655157 : Below code added for the error being raised in
2185: -- Review Transactions form
2186: IF ( X_oname IS NULL ) THEN
2187: IF PG_DEBUG = 'Y' THEN
2188: pa_debug.G_err_Stage := 'Calling pa_utils.GetEmpOrgId';
2189: log_message('log_message: ' || pa_debug.G_err_Stage);
2190: END IF;
2191:
2192: G_org_id := pa_utils.GetEmpOrgId(G_person_id, X_Ei_Date);
2185: -- Review Transactions form
2186: IF ( X_oname IS NULL ) THEN
2187: IF PG_DEBUG = 'Y' THEN
2188: pa_debug.G_err_Stage := 'Calling pa_utils.GetEmpOrgId';
2189: log_message('log_message: ' || pa_debug.G_err_Stage);
2190: END IF;
2191:
2192: G_org_id := pa_utils.GetEmpOrgId(G_person_id, X_Ei_Date);
2193:
2199:
2200: ELSE
2201:
2202: IF PG_DEBUG = 'Y' THEN
2203: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';
2204: log_message('log_message: ' || pa_debug.G_err_Stage);
2205: END IF;
2206:
2207: --Start of changes for Bug 3010848
2200: ELSE
2201:
2202: IF PG_DEBUG = 'Y' THEN
2203: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';
2204: log_message('log_message: ' || pa_debug.G_err_Stage);
2205: END IF;
2206:
2207: --Start of changes for Bug 3010848
2208: --G_org_id := pa_utils.GetOrgId(X_oname);
2232: -- Get the job ID of the employee's job
2233: -- assignment as of the item date
2234:
2235: IF PG_DEBUG = 'Y' THEN
2236: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId..3';
2237: log_message('log_message: ' || pa_debug.G_err_Stage);
2238: END IF;
2239:
2240: -- 10253400: Payroll integration enhancement for 12.2..start
2233: -- assignment as of the item date
2234:
2235: IF PG_DEBUG = 'Y' THEN
2236: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId..3';
2237: log_message('log_message: ' || pa_debug.G_err_Stage);
2238: END IF;
2239:
2240: -- 10253400: Payroll integration enhancement for 12.2..start
2241: -- Job related parameters are now sent for ST. Validate them.
2240: -- 10253400: Payroll integration enhancement for 12.2..start
2241: -- Job related parameters are now sent for ST. Validate them.
2242: IF (p_job_id is not null or p_job_name is not null) and X_system_linkage = 'ST' then
2243: IF PG_DEBUG = 'Y' THEN
2244: pa_debug.G_err_Stage := 'Calling pa_utils.GetJobId..2';
2245: log_message('log_message: ' || pa_debug.G_err_Stage);
2246: END IF;
2247: /* Start changes for bug#12646514 */
2248:
2241: -- Job related parameters are now sent for ST. Validate them.
2242: IF (p_job_id is not null or p_job_name is not null) and X_system_linkage = 'ST' then
2243: IF PG_DEBUG = 'Y' THEN
2244: pa_debug.G_err_Stage := 'Calling pa_utils.GetJobId..2';
2245: log_message('log_message: ' || pa_debug.G_err_Stage);
2246: END IF;
2247: /* Start changes for bug#12646514 */
2248:
2249: G_job_id := pa_utils.GetJobId(X_Business_Group_Id => G_Business_Group_Id
2254:
2255: -- 10253400: Payroll integration enhancement for 12.2..end
2256: ELSE
2257: IF PG_DEBUG = 'Y' THEN
2258: pa_debug.G_err_Stage := 'Calling pa_utils.GetEmpJobId';
2259: log_message('log_message: ' || pa_debug.G_err_Stage);
2260: END IF;
2261:
2262: G_job_id := pa_utils.GetEmpJobId(
2255: -- 10253400: Payroll integration enhancement for 12.2..end
2256: ELSE
2257: IF PG_DEBUG = 'Y' THEN
2258: pa_debug.G_err_Stage := 'Calling pa_utils.GetEmpJobId';
2259: log_message('log_message: ' || pa_debug.G_err_Stage);
2260: END IF;
2261:
2262: G_job_id := pa_utils.GetEmpJobId(
2263: X_person_id => G_person_id,
2325: G_Job_Id := P_Emp_Job_Id;
2326:
2327: If G_org_id is NULL or G_Job_Id is NULL Then
2328: IF PG_DEBUG = 'Y' THEN
2329: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId..1';
2330: log_message('log_message: ' || pa_debug.G_err_Stage);
2331: END IF;
2332:
2333: -- 10253400: Payroll integration enhancement for 12.2.. start
2326:
2327: If G_org_id is NULL or G_Job_Id is NULL Then
2328: IF PG_DEBUG = 'Y' THEN
2329: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId..1';
2330: log_message('log_message: ' || pa_debug.G_err_Stage);
2331: END IF;
2332:
2333: -- 10253400: Payroll integration enhancement for 12.2.. start
2334: IF p_job_id is not null or p_job_name is not null then
2333: -- 10253400: Payroll integration enhancement for 12.2.. start
2334: IF p_job_id is not null or p_job_name is not null then
2335:
2336: IF PG_DEBUG = 'Y' THEN
2337: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId..3';
2338: log_message('log_message: ' || pa_debug.G_err_Stage);
2339: END IF;
2340: /* Start changes for bug#12646514 */
2341: G_Job_ID := pa_utils.getjobid(X_Business_Group_Id => G_Business_Group_Id,X_Job_Id => p_Job_Id,
2334: IF p_job_id is not null or p_job_name is not null then
2335:
2336: IF PG_DEBUG = 'Y' THEN
2337: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId..3';
2338: log_message('log_message: ' || pa_debug.G_err_Stage);
2339: END IF;
2340: /* Start changes for bug#12646514 */
2341: G_Job_ID := pa_utils.getjobid(X_Business_Group_Id => G_Business_Group_Id,X_Job_Id => p_Job_Id,
2342: X_Job_Name => p_Job_Name,
2422: -- Get the organization ID for the incurred by organization name given
2423: ELSIF ( X_enum IS NULL AND X_oname IS NOT NULL ) THEN
2424:
2425: IF PG_DEBUG = 'Y' THEN
2426: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';
2427: log_message('log_message: ' || pa_debug.G_err_Stage);
2428: END IF;
2429:
2430: G_person_id := NULL;
2423: ELSIF ( X_enum IS NULL AND X_oname IS NOT NULL ) THEN
2424:
2425: IF PG_DEBUG = 'Y' THEN
2426: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';
2427: log_message('log_message: ' || pa_debug.G_err_Stage);
2428: END IF;
2429:
2430: G_person_id := NULL;
2431: --Start of changes for 3010848
2465: IF G_org_id is not NULL THEN
2466: IF pa_trx_import.g_skip_tc_flag <> 'Y' and PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date = 'Y' then /* Added for Bug # 2170237 */
2467: -- Modified the above condition for BUG6931833
2468: IF PG_DEBUG = 'Y' THEN
2469: pa_debug.G_err_stage := 'Calling pa_utils2.CheckExporg';
2470: log_message('log_message: ' || pa_debug.G_err_Stage);
2471: log_message('log_message: ' || 'G_org_id = ' || G_org_id);
2472: END IF;
2473: IF pa_utils2.CheckExporg(G_org_id,X_ei_date) = 'N' then
2466: IF pa_trx_import.g_skip_tc_flag <> 'Y' and PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date = 'Y' then /* Added for Bug # 2170237 */
2467: -- Modified the above condition for BUG6931833
2468: IF PG_DEBUG = 'Y' THEN
2469: pa_debug.G_err_stage := 'Calling pa_utils2.CheckExporg';
2470: log_message('log_message: ' || pa_debug.G_err_Stage);
2471: log_message('log_message: ' || 'G_org_id = ' || G_org_id);
2472: END IF;
2473: IF pa_utils2.CheckExporg(G_org_id,X_ei_date) = 'N' then
2474: X_status := 'PA_EXP_ORG_NOT_ACTIVE';
2489:
2490: IF P_Location_Id is not null or P_Location_Code is not null then
2491:
2492: IF PG_DEBUG = 'Y' THEN
2493: pa_debug.G_err_stage := 'Calling pa_utils.GetLocationId';
2494: log_message('log_message: ' || pa_debug.G_err_Stage);
2495: log_message('log_message: ' || 'G_org_id = ' || G_org_id);
2496: END IF;
2497:
2490: IF P_Location_Id is not null or P_Location_Code is not null then
2491:
2492: IF PG_DEBUG = 'Y' THEN
2493: pa_debug.G_err_stage := 'Calling pa_utils.GetLocationId';
2494: log_message('log_message: ' || pa_debug.G_err_Stage);
2495: log_message('log_message: ' || 'G_org_id = ' || G_org_id);
2496: END IF;
2497:
2498: G_location_id := pa_utils.getlocationId(p_location_id
2499: ,p_location_code
2500: ,X_ei_Date);
2501:
2502: IF PG_DEBUG = 'Y' THEN
2503: pa_debug.G_err_stage := 'Called pa_utils.GetLocationId';
2504: log_message('log_message: ' || pa_debug.G_err_Stage);
2505: log_message('log_message: ' || 'G_location_id = ' || G_location_id);
2506: END IF;
2507:
2500: ,X_ei_Date);
2501:
2502: IF PG_DEBUG = 'Y' THEN
2503: pa_debug.G_err_stage := 'Called pa_utils.GetLocationId';
2504: log_message('log_message: ' || pa_debug.G_err_Stage);
2505: log_message('log_message: ' || 'G_location_id = ' || G_location_id);
2506: END IF;
2507:
2508: if G_location_id is null then
2524: ELSE
2525: IF (X_override_to_oname IS NOT NULL) THEN
2526:
2527: IF PG_DEBUG = 'Y' THEN
2528: pa_debug.G_err_stage := 'Calling pa_utils.GetOrgnId for override org';
2529: log_message('log_message: ' || pa_debug.G_err_Stage);
2530: END IF;
2531:
2532: --Start of changes for bug 3010848
2525: IF (X_override_to_oname IS NOT NULL) THEN
2526:
2527: IF PG_DEBUG = 'Y' THEN
2528: pa_debug.G_err_stage := 'Calling pa_utils.GetOrgnId for override org';
2529: log_message('log_message: ' || pa_debug.G_err_Stage);
2530: END IF;
2531:
2532: --Start of changes for bug 3010848
2533: --G_override_to_org_id := pa_utils.GetOrgId(X_override_to_oname);
2613: IF P_Project_Id is not null THEN
2614: G_project_id := P_Project_Id;
2615: ELSE
2616: IF PG_DEBUG = 'Y' THEN
2617: pa_debug.G_err_stage := 'Calling pa_utils.GetProjId';
2618: log_message('log_message: ' || pa_debug.G_err_Stage);
2619: END IF;
2620:
2621: G_project_id := pa_utils.GetProjId( X_pnum );
2614: G_project_id := P_Project_Id;
2615: ELSE
2616: IF PG_DEBUG = 'Y' THEN
2617: pa_debug.G_err_stage := 'Calling pa_utils.GetProjId';
2618: log_message('log_message: ' || pa_debug.G_err_Stage);
2619: END IF;
2620:
2621: G_project_id := pa_utils.GetProjId( X_pnum );
2622: END IF;
2628: IF P_Task_Id is not NULL THEN
2629: G_task_id := P_Task_Id;
2630: ELSE
2631: IF PG_DEBUG = 'Y' THEN
2632: pa_debug.G_err_stage := 'Calling pa_utils.GetTaskId';
2633: log_message('log_message: ' || pa_debug.G_err_Stage);
2634: END IF;
2635:
2636: G_task_id := pa_utils.GetTaskId( G_project_id, X_tnum );
2629: G_task_id := P_Task_Id;
2630: ELSE
2631: IF PG_DEBUG = 'Y' THEN
2632: pa_debug.G_err_stage := 'Calling pa_utils.GetTaskId';
2633: log_message('log_message: ' || pa_debug.G_err_Stage);
2634: END IF;
2635:
2636: G_task_id := pa_utils.GetTaskId( G_project_id, X_tnum );
2637: END IF;
2646: -- Check pa_expend_typ_sys_links table for for existence and activeness of
2647: -- the given exp_type/sys_link combination
2648:
2649: IF PG_DEBUG = 'Y' THEN
2650: pa_debug.G_err_stage := 'Calling GetEtypeEclassInfo';
2651: log_message('log_message: ' || pa_debug.G_err_Stage);
2652: END IF;
2653: GetEtypeEclassInfo(X_etype, X_system_linkage) ;
2654:
2647: -- the given exp_type/sys_link combination
2648:
2649: IF PG_DEBUG = 'Y' THEN
2650: pa_debug.G_err_stage := 'Calling GetEtypeEclassInfo';
2651: log_message('log_message: ' || pa_debug.G_err_Stage);
2652: END IF;
2653: GetEtypeEclassInfo(X_etype, X_system_linkage) ;
2654:
2655: IF ( G_etype_link is NULL ) then
2667:
2668: -- Check pa_expenditure_types table for for existence and activeness of
2669: -- the given exp_type combination
2670: IF PG_DEBUG = 'Y' THEN
2671: pa_debug.G_err_stage := 'Calling GetEtypeInfo';
2672: log_message('log_message: ' || pa_debug.G_err_Stage);
2673: END IF;
2674: GetEtypeInfo( X_etype, X_ei_date );
2675:
2668: -- Check pa_expenditure_types table for for existence and activeness of
2669: -- the given exp_type combination
2670: IF PG_DEBUG = 'Y' THEN
2671: pa_debug.G_err_stage := 'Calling GetEtypeInfo';
2672: log_message('log_message: ' || pa_debug.G_err_Stage);
2673: END IF;
2674: GetEtypeInfo( X_etype, X_ei_date );
2675:
2676: IF ( NOT G_etype_active ) THEN
2698:
2699: ELSE --Calling module = PAAPIMP
2700:
2701: IF PG_DEBUG = 'Y' THEN
2702: pa_debug.G_err_stage := 'Calling module is PAAPIMP';
2703: log_message('log_message: ' || pa_debug.G_err_stage);
2704: END IF;
2705:
2706: G_project_id := P_Project_Id;
2699: ELSE --Calling module = PAAPIMP
2700:
2701: IF PG_DEBUG = 'Y' THEN
2702: pa_debug.G_err_stage := 'Calling module is PAAPIMP';
2703: log_message('log_message: ' || pa_debug.G_err_stage);
2704: END IF;
2705:
2706: G_project_id := P_Project_Id;
2707: G_task_id := P_Task_Id;
2793: /* End bug 5400719 */
2794: G_Job_Id := P_Emp_Job_Id;
2795:
2796: IF PG_DEBUG = 'Y' THEN
2797: pa_debug.G_err_stage := 'AP EXPENSE, G_Org_Id, G_Job_Id = ' || G_Org_Id || ',' || G_Job_Id;
2798: log_message('log_message: ' || pa_debug.G_err_stage);
2799: END IF;
2800:
2801: If (G_Org_Id is NULL or G_Job_Id is NULL) Then
2794: G_Job_Id := P_Emp_Job_Id;
2795:
2796: IF PG_DEBUG = 'Y' THEN
2797: pa_debug.G_err_stage := 'AP EXPENSE, G_Org_Id, G_Job_Id = ' || G_Org_Id || ',' || G_Job_Id;
2798: log_message('log_message: ' || pa_debug.G_err_stage);
2799: END IF;
2800:
2801: If (G_Org_Id is NULL or G_Job_Id is NULL) Then
2802: X_status := 'NO_ASSIGNMENT';
2809: END IF; ---}
2810:
2811: IF ( G_project_id IS NULL ) THEN
2812: IF PG_DEBUG = 'Y' THEN
2813: pa_debug.G_err_stage := 'Project Id is null';
2814: log_message('log_message: ' || pa_debug.G_err_stage);
2815: END IF;
2816: X_status := 'INVALID_PROJECT';
2817: pa_cc_utils.reset_curr_function;
2810:
2811: IF ( G_project_id IS NULL ) THEN
2812: IF PG_DEBUG = 'Y' THEN
2813: pa_debug.G_err_stage := 'Project Id is null';
2814: log_message('log_message: ' || pa_debug.G_err_stage);
2815: END IF;
2816: X_status := 'INVALID_PROJECT';
2817: pa_cc_utils.reset_curr_function;
2818: RETURN;
2817: pa_cc_utils.reset_curr_function;
2818: RETURN;
2819: ELSE
2820: IF PG_DEBUG = 'Y' THEN
2821: pa_debug.G_err_stage := 'Calling GetProjTypeInfo';
2822: log_message('log_message: ' || pa_debug.G_err_Stage);
2823: END IF;
2824:
2825: -- Bug 2634812 : Deriving total_burden_flag
2818: RETURN;
2819: ELSE
2820: IF PG_DEBUG = 'Y' THEN
2821: pa_debug.G_err_stage := 'Calling GetProjTypeInfo';
2822: log_message('log_message: ' || pa_debug.G_err_Stage);
2823: END IF;
2824:
2825: -- Bug 2634812 : Deriving total_burden_flag
2826: GetProjTypeInfo( G_project_id,
2830: G_Total_Burden_Flag ) ;
2831:
2832: IF G_proj_bcost_flag IS NULL THEN
2833: IF PG_DEBUG = 'Y' THEN
2834: pa_debug.G_err_stage := 'Project Type is invalid';
2835: log_message('log_message: ' || pa_debug.G_err_stage);
2836: END IF;
2837:
2838: X_status := 'INVALID_PROJ_TYPE' ;
2831:
2832: IF G_proj_bcost_flag IS NULL THEN
2833: IF PG_DEBUG = 'Y' THEN
2834: pa_debug.G_err_stage := 'Project Type is invalid';
2835: log_message('log_message: ' || pa_debug.G_err_stage);
2836: END IF;
2837:
2838: X_status := 'INVALID_PROJ_TYPE' ;
2839: pa_cc_utils.reset_curr_function;
2850: -- ===========================================================================
2851: -- Check if new transactions are allowed against this project
2852:
2853: IF PG_DEBUG = 'Y' THEN
2854: pa_debug.G_err_stage := 'Calling pa_project_utils.check_project_action_allowed';
2855: log_message('log_message: ' || pa_debug.G_err_Stage);
2856: END IF;
2857:
2858: -- PA-K Changes: Using Caching for performance
2851: -- Check if new transactions are allowed against this project
2852:
2853: IF PG_DEBUG = 'Y' THEN
2854: pa_debug.G_err_stage := 'Calling pa_project_utils.check_project_action_allowed';
2855: log_message('log_message: ' || pa_debug.G_err_Stage);
2856: END IF;
2857:
2858: -- PA-K Changes: Using Caching for performance
2859:
2873:
2874: IF l_NewTxnsAllowed = 'N'
2875: THEN
2876: IF PG_DEBUG = 'Y' THEN
2877: pa_debug.G_err_stage := 'Project does not allow new txns';
2878: log_message('log_message: ' || pa_debug.G_err_stage);
2879: END IF;
2880:
2881: X_status := 'PA_NEW_TXNS_NOT_ALLOWED';
2874: IF l_NewTxnsAllowed = 'N'
2875: THEN
2876: IF PG_DEBUG = 'Y' THEN
2877: pa_debug.G_err_stage := 'Project does not allow new txns';
2878: log_message('log_message: ' || pa_debug.G_err_stage);
2879: END IF;
2880:
2881: X_status := 'PA_NEW_TXNS_NOT_ALLOWED';
2882: pa_cc_utils.reset_curr_function;
2891: If pa_trx_import.g_skip_tc_flag <> 'Y' and PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date = 'Y' then
2892: --Modified above condition for BUG6931833
2893:
2894: IF PG_DEBUG = 'Y' THEN
2895: pa_debug.G_err_stage := 'Calling pa_utils.IsCrossChargeable';
2896: log_message('log_message: ' || pa_debug.G_err_Stage);
2897: END IF;
2898:
2899: If not pa_utils.IsCrossChargeable(G_Project_Id) then
2892: --Modified above condition for BUG6931833
2893:
2894: IF PG_DEBUG = 'Y' THEN
2895: pa_debug.G_err_stage := 'Calling pa_utils.IsCrossChargeable';
2896: log_message('log_message: ' || pa_debug.G_err_Stage);
2897: END IF;
2898:
2899: If not pa_utils.IsCrossChargeable(G_Project_Id) then
2900: X_Status := 'PA_PROJECT_NOT_VALID' ;
2907: -- ELSIF ( last_task IS NULL OR X_tnum <> last_task ) THEN
2908:
2909: IF ( G_task_id IS NULL ) THEN
2910: IF PG_DEBUG = 'Y' THEN
2911: pa_debug.G_err_stage := 'Task Id is null';
2912: log_message('log_message: ' || pa_debug.G_err_stage);
2913: END IF;
2914:
2915: X_status := 'INVALID_TASK';
2908:
2909: IF ( G_task_id IS NULL ) THEN
2910: IF PG_DEBUG = 'Y' THEN
2911: pa_debug.G_err_stage := 'Task Id is null';
2912: log_message('log_message: ' || pa_debug.G_err_stage);
2913: END IF;
2914:
2915: X_status := 'INVALID_TASK';
2916: pa_cc_utils.reset_curr_function;
2916: pa_cc_utils.reset_curr_function;
2917: RETURN;
2918: ELSE
2919: IF PG_DEBUG = 'Y' THEN
2920: pa_debug.G_err_stage := 'Calling pa_utils2.GetLaborCostMultiplier';
2921: log_message('log_message: ' || pa_debug.G_err_Stage);
2922: END IF;
2923: G_lcm := pa_utils2.GetLaborCostMultiplier(G_Task_id);
2924: last_task := X_tnum;
2917: RETURN;
2918: ELSE
2919: IF PG_DEBUG = 'Y' THEN
2920: pa_debug.G_err_stage := 'Calling pa_utils2.GetLaborCostMultiplier';
2921: log_message('log_message: ' || pa_debug.G_err_Stage);
2922: END IF;
2923: G_lcm := pa_utils2.GetLaborCostMultiplier(G_Task_id);
2924: last_task := X_tnum;
2925: END IF;
3015:
3016: G_Cbs_Element_Id := P_cbs_element_id;
3017:
3018: IF PG_DEBUG = 'Y' THEN
3019: pa_debug.G_err_stage := 'Validating the cost code id';
3020: log_message('log_message: ' || pa_debug.G_err_Stage);
3021: END IF;
3022:
3023: PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid(G_Cbs_Element_Id,
3016: G_Cbs_Element_Id := P_cbs_element_id;
3017:
3018: IF PG_DEBUG = 'Y' THEN
3019: pa_debug.G_err_stage := 'Validating the cost code id';
3020: log_message('log_message: ' || pa_debug.G_err_Stage);
3021: END IF;
3022:
3023: PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid(G_Cbs_Element_Id,
3024: G_task_id,
3029: );
3030:
3031: IF temp_status IS NOT NULL THEN
3032: IF PG_DEBUG = 'Y' THEN
3033: pa_debug.G_err_stage := 'PA_CBS_INVALID_COST_CODE';
3034: log_message('log_message: ' || pa_debug.G_err_Stage);
3035: END IF;
3036:
3037: G_cbs_element_id := NULL;
3030:
3031: IF temp_status IS NOT NULL THEN
3032: IF PG_DEBUG = 'Y' THEN
3033: pa_debug.G_err_stage := 'PA_CBS_INVALID_COST_CODE';
3034: log_message('log_message: ' || pa_debug.G_err_Stage);
3035: END IF;
3036:
3037: G_cbs_element_id := NULL;
3038:
3040: pa_cc_utils.reset_curr_function;
3041: RETURN;
3042: ELSE
3043: IF PG_DEBUG = 'Y' THEN
3044: pa_debug.G_err_stage := 'The cost code id is valid for the project/task combination';
3045: log_message('log_message: ' || pa_debug.G_err_Stage);
3046: END IF;
3047:
3048: END IF;
3041: RETURN;
3042: ELSE
3043: IF PG_DEBUG = 'Y' THEN
3044: pa_debug.G_err_stage := 'The cost code id is valid for the project/task combination';
3045: log_message('log_message: ' || pa_debug.G_err_Stage);
3046: END IF;
3047:
3048: END IF;
3049:
3049:
3050: ELSIF P_cbs_element_name is not null THEN
3051:
3052: IF PG_DEBUG = 'Y' THEN
3053: pa_debug.G_err_stage := 'Validating the cost code name';
3054: log_message('log_message: ' || pa_debug.G_err_Stage);
3055: END IF;
3056:
3057: PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid(P_cbs_element_name,
3050: ELSIF P_cbs_element_name is not null THEN
3051:
3052: IF PG_DEBUG = 'Y' THEN
3053: pa_debug.G_err_stage := 'Validating the cost code name';
3054: log_message('log_message: ' || pa_debug.G_err_Stage);
3055: END IF;
3056:
3057: PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid(P_cbs_element_name,
3058: G_task_id,
3063: );
3064:
3065: IF temp_status IS NOT NULL THEN
3066: IF PG_DEBUG = 'Y' THEN
3067: pa_debug.G_err_stage := 'PA_CBS_INVALID_COST_CODE';
3068: log_message('log_message: ' || pa_debug.G_err_Stage);
3069: END IF;
3070:
3071: G_cbs_element_id := NULL;
3064:
3065: IF temp_status IS NOT NULL THEN
3066: IF PG_DEBUG = 'Y' THEN
3067: pa_debug.G_err_stage := 'PA_CBS_INVALID_COST_CODE';
3068: log_message('log_message: ' || pa_debug.G_err_Stage);
3069: END IF;
3070:
3071: G_cbs_element_id := NULL;
3072:
3074: pa_cc_utils.reset_curr_function;
3075: RETURN;
3076: ELSE
3077: IF PG_DEBUG = 'Y' THEN
3078: pa_debug.G_err_stage := 'Getting the cost code element id for the corresponding cost code name';
3079: log_message('log_message: ' || pa_debug.G_err_Stage);
3080: END IF;
3081:
3082: BEGIN
3075: RETURN;
3076: ELSE
3077: IF PG_DEBUG = 'Y' THEN
3078: pa_debug.G_err_stage := 'Getting the cost code element id for the corresponding cost code name';
3079: log_message('log_message: ' || pa_debug.G_err_Stage);
3080: END IF;
3081:
3082: BEGIN
3083: SELECT RBS_ELEMENT_ID
3096: END IF;
3097:
3098: ELSE
3099: IF PG_DEBUG = 'Y' THEN
3100: pa_debug.G_err_stage := 'PA_CBS_NO_COST_CODE';
3101: log_message('log_message: ' || pa_debug.G_err_Stage);
3102: END IF;
3103:
3104: G_cbs_element_id := NULL;
3097:
3098: ELSE
3099: IF PG_DEBUG = 'Y' THEN
3100: pa_debug.G_err_stage := 'PA_CBS_NO_COST_CODE';
3101: log_message('log_message: ' || pa_debug.G_err_Stage);
3102: END IF;
3103:
3104: G_cbs_element_id := NULL;
3105:
3111: ELSE
3112: G_cbs_element_id := NULL;
3113:
3114: IF PG_DEBUG = 'Y' THEN
3115: pa_debug.G_err_stage := 'The project id '|| G_project_id || ' is not CBS Enabled';
3116: log_message('log_message: ' || pa_debug.G_err_Stage);
3117: END IF;
3118:
3119: IF p_cbs_element_id IS NOT NULL OR P_cbs_element_name IS NOT NULL THEN
3112: G_cbs_element_id := NULL;
3113:
3114: IF PG_DEBUG = 'Y' THEN
3115: pa_debug.G_err_stage := 'The project id '|| G_project_id || ' is not CBS Enabled';
3116: log_message('log_message: ' || pa_debug.G_err_Stage);
3117: END IF;
3118:
3119: IF p_cbs_element_id IS NOT NULL OR P_cbs_element_name IS NOT NULL THEN
3120:
3118:
3119: IF p_cbs_element_id IS NOT NULL OR P_cbs_element_name IS NOT NULL THEN
3120:
3121: IF PG_DEBUG = 'Y' THEN
3122: pa_debug.G_err_stage := 'PA_CBS_PROJ_NON_CBS';
3123: log_message('log_message: ' || pa_debug.G_err_Stage);
3124: END IF;
3125:
3126: X_status := 'PA_CBS_PROJ_NON_CBS';
3119: IF p_cbs_element_id IS NOT NULL OR P_cbs_element_name IS NOT NULL THEN
3120:
3121: IF PG_DEBUG = 'Y' THEN
3122: pa_debug.G_err_stage := 'PA_CBS_PROJ_NON_CBS';
3123: log_message('log_message: ' || pa_debug.G_err_Stage);
3124: END IF;
3125:
3126: X_status := 'PA_CBS_PROJ_NON_CBS';
3127: pa_cc_utils.reset_curr_function;
3157:
3158: ELSE -- X_denom_currency_code IS NOT NULL
3159:
3160: IF PG_DEBUG = 'Y' THEN
3161: pa_debug.G_err_stage := 'Calling pa_multi_currency.validate_currency_code';
3162: log_message('log_message: ' || pa_debug.G_err_Stage);
3163: END IF;
3164: IF (pa_multi_currency.validate_currency_code(
3165: P_currency_code =>X_denom_currency_code,
3158: ELSE -- X_denom_currency_code IS NOT NULL
3159:
3160: IF PG_DEBUG = 'Y' THEN
3161: pa_debug.G_err_stage := 'Calling pa_multi_currency.validate_currency_code';
3162: log_message('log_message: ' || pa_debug.G_err_Stage);
3163: END IF;
3164: IF (pa_multi_currency.validate_currency_code(
3165: P_currency_code =>X_denom_currency_code,
3166: P_ei_date =>X_ei_date)= 'N')
3179: -- currency attributes. Get project currency information
3180: -------------------------------------------------------------------------*/
3181:
3182: IF PG_DEBUG = 'Y' THEN
3183: pa_debug.G_err_stage := 'Calling GetProjCurrInfo';
3184: log_message('log_message: ' || pa_debug.G_err_Stage);
3185: END IF;
3186:
3187: -- PA-I Changes: Get Proj Functional currency code
3180: -------------------------------------------------------------------------*/
3181:
3182: IF PG_DEBUG = 'Y' THEN
3183: pa_debug.G_err_stage := 'Calling GetProjCurrInfo';
3184: log_message('log_message: ' || pa_debug.G_err_Stage);
3185: END IF;
3186:
3187: -- PA-I Changes: Get Proj Functional currency code
3188: GetProjCurrInfo(G_task_id,
3232:
3233: Else
3234:
3235: IF PG_DEBUG = 'Y' THEN
3236: pa_debug.G_err_stage := 'Calling pa_multi_currency.get_conversion_type';
3237: log_message('log_message: ' || pa_debug.G_err_Stage);
3238: END IF;
3239: G_acct_rate_type := pa_multi_currency.get_conversion_type(
3240: P_user_rate_type => X_acct_rate_type);
3233: Else
3234:
3235: IF PG_DEBUG = 'Y' THEN
3236: pa_debug.G_err_stage := 'Calling pa_multi_currency.get_conversion_type';
3237: log_message('log_message: ' || pa_debug.G_err_Stage);
3238: END IF;
3239: G_acct_rate_type := pa_multi_currency.get_conversion_type(
3240: P_user_rate_type => X_acct_rate_type);
3241:
3263:
3264: --Corrected Fix for Bug 2489534
3265: If (nvl(X_module, 'EXTERNAL') <> 'PAAPIMP') Then
3266: IF PG_DEBUG = 'Y' THEN
3267: pa_debug.G_err_stage := 'Calling pa_multi_currency.get_conversion_type';
3268: log_message('log_message: ' || pa_debug.G_err_Stage);
3269: END IF;
3270: G_project_rate_type := pa_multi_currency.get_conversion_type(
3271: P_user_rate_type => X_project_rate_type);
3264: --Corrected Fix for Bug 2489534
3265: If (nvl(X_module, 'EXTERNAL') <> 'PAAPIMP') Then
3266: IF PG_DEBUG = 'Y' THEN
3267: pa_debug.G_err_stage := 'Calling pa_multi_currency.get_conversion_type';
3268: log_message('log_message: ' || pa_debug.G_err_Stage);
3269: END IF;
3270: G_project_rate_type := pa_multi_currency.get_conversion_type(
3271: P_user_rate_type => X_project_rate_type);
3272: Else
3295:
3296: --Corrected Fix for Bug 2489534
3297: If (nvl(X_module, 'EXTERNAL') <> 'PAAPIMP') Then
3298: IF PG_DEBUG = 'Y' THEN
3299: pa_debug.G_err_stage := 'Calling pa_multi_currency.get_conversion_type';
3300: log_message('log_message: ' || pa_debug.G_err_Stage);
3301: END IF;
3302: G_projfunc_cost_rate_type := pa_multi_currency.get_conversion_type(
3303: P_user_rate_type => X_projfunc_cost_rate_type);
3296: --Corrected Fix for Bug 2489534
3297: If (nvl(X_module, 'EXTERNAL') <> 'PAAPIMP') Then
3298: IF PG_DEBUG = 'Y' THEN
3299: pa_debug.G_err_stage := 'Calling pa_multi_currency.get_conversion_type';
3300: log_message('log_message: ' || pa_debug.G_err_Stage);
3301: END IF;
3302: G_projfunc_cost_rate_type := pa_multi_currency.get_conversion_type(
3303: P_user_rate_type => X_projfunc_cost_rate_type);
3304: Else
3325: IF (( G_acct_rate_type = 'User' ) and (X_denom_currency_code <> G_accounting_currency_code) ) THEN
3326:
3327: -- check if rate type 'User' is allowed
3328: IF PG_DEBUG = 'Y' THEN
3329: pa_debug.G_err_stage := 'Calling pa_multi_currency.is_user_rate_type_allowed';
3330: log_message('log_message: ' || pa_debug.G_err_Stage);
3331: END IF;
3332: IF ( pa_multi_currency.is_user_rate_type_allowed(
3333: P_from_currency => X_denom_currency_code,
3326:
3327: -- check if rate type 'User' is allowed
3328: IF PG_DEBUG = 'Y' THEN
3329: pa_debug.G_err_stage := 'Calling pa_multi_currency.is_user_rate_type_allowed';
3330: log_message('log_message: ' || pa_debug.G_err_Stage);
3331: END IF;
3332: IF ( pa_multi_currency.is_user_rate_type_allowed(
3333: P_from_currency => X_denom_currency_code,
3334: P_to_currency => G_accounting_currency_code,
3360: -- Added below for Bug 16451280
3361: IF (( G_project_rate_type = 'User' ) and (X_denom_currency_code <> X_project_currency_code) ) THEN
3362:
3363: IF PG_DEBUG = 'Y' THEN
3364: pa_debug.G_err_stage := 'Calling pa_multi_currency.is_user_rate_type_allowed';
3365: log_message('log_message: ' || pa_debug.G_err_Stage);
3366: END IF;
3367: IF ( pa_multi_currency.is_user_rate_type_allowed(
3368: P_from_currency => X_denom_currency_code,
3361: IF (( G_project_rate_type = 'User' ) and (X_denom_currency_code <> X_project_currency_code) ) THEN
3362:
3363: IF PG_DEBUG = 'Y' THEN
3364: pa_debug.G_err_stage := 'Calling pa_multi_currency.is_user_rate_type_allowed';
3365: log_message('log_message: ' || pa_debug.G_err_Stage);
3366: END IF;
3367: IF ( pa_multi_currency.is_user_rate_type_allowed(
3368: P_from_currency => X_denom_currency_code,
3369: P_to_currency => X_project_currency_code,
3392:
3393: IF ( ( G_projfunc_cost_rate_type = 'User' ) and (X_denom_currency_code <> X_projfunc_currency_code) ) THEN
3394:
3395: IF PG_DEBUG = 'Y' THEN
3396: pa_debug.G_err_stage := 'Calling pa_multi_currency.is_user_rate_type_allowed';
3397: log_message('log_message: ' || pa_debug.G_err_Stage);
3398: END IF;
3399: IF ( pa_multi_currency.is_user_rate_type_allowed(
3400: P_from_currency => X_denom_currency_code,
3393: IF ( ( G_projfunc_cost_rate_type = 'User' ) and (X_denom_currency_code <> X_projfunc_currency_code) ) THEN
3394:
3395: IF PG_DEBUG = 'Y' THEN
3396: pa_debug.G_err_stage := 'Calling pa_multi_currency.is_user_rate_type_allowed';
3397: log_message('log_message: ' || pa_debug.G_err_Stage);
3398: END IF;
3399: IF ( pa_multi_currency.is_user_rate_type_allowed(
3400: P_from_currency => X_denom_currency_code,
3401: P_to_currency => X_projfunc_currency_code,
3470:
3471: IF ( X_receipt_currency_code IS NOT NULL ) THEN
3472:
3473: IF PG_DEBUG = 'Y' THEN
3474: pa_debug.G_err_stage := 'Calling pa_multi_currency.validate_currency_code';
3475: log_message('log_message: ' || pa_debug.G_err_Stage);
3476: END IF;
3477: IF (pa_multi_currency.validate_currency_code(
3478: P_currency_code =>X_receipt_currency_code,
3471: IF ( X_receipt_currency_code IS NOT NULL ) THEN
3472:
3473: IF PG_DEBUG = 'Y' THEN
3474: pa_debug.G_err_stage := 'Calling pa_multi_currency.validate_currency_code';
3475: log_message('log_message: ' || pa_debug.G_err_Stage);
3476: END IF;
3477: IF (pa_multi_currency.validate_currency_code(
3478: P_currency_code =>X_receipt_currency_code,
3479: P_ei_date => X_ei_date)= 'N')
3505: -- derive the receipt exchange rate from the ratio of quantity
3506: -- to receipt amount
3507:
3508: IF PG_DEBUG = 'Y' THEN
3509: pa_debug.G_err_stage := 'Calling pa_currency.round_trans_currency_amt';
3510: log_message('log_message: ' || pa_debug.G_err_Stage);
3511: END IF;
3512: X_receipt_exchange_rate := (X_qty/
3513: pa_currency.round_trans_currency_amt1(
3506: -- to receipt amount
3507:
3508: IF PG_DEBUG = 'Y' THEN
3509: pa_debug.G_err_stage := 'Calling pa_currency.round_trans_currency_amt';
3510: log_message('log_message: ' || pa_debug.G_err_Stage);
3511: END IF;
3512: X_receipt_exchange_rate := (X_qty/
3513: pa_currency.round_trans_currency_amt1(
3514: X_receipt_currency_amount,
3634: l_acct_exchange_rate := X_acct_exchange_rate;
3635: l_acct_raw_cost := X_acct_raw_cost;
3636:
3637: IF PG_DEBUG = 'Y' THEN
3638: pa_debug.G_err_stage := 'Calling pa_multi_currency.convert_amount';
3639: log_message('log_message: ' || pa_debug.G_err_Stage);
3640: END IF;
3641:
3642: pa_multi_currency.convert_amount(
3635: l_acct_raw_cost := X_acct_raw_cost;
3636:
3637: IF PG_DEBUG = 'Y' THEN
3638: pa_debug.G_err_stage := 'Calling pa_multi_currency.convert_amount';
3639: log_message('log_message: ' || pa_debug.G_err_Stage);
3640: END IF;
3641:
3642: pa_multi_currency.convert_amount(
3643: P_from_currency => X_denom_currency_code,
3703: -- If functional and transaction currencies are same the the
3704: -- corresponding amounts should also be equal
3705: --
3706: IF PG_DEBUG = 'Y' THEN
3707: pa_debug.G_err_stage := 'Calling pa_multi_currency.round_trans_currency_amt';
3708: log_message('log_message: ' || pa_debug.G_err_Stage);
3709: END IF;
3710:
3711:
3704: -- corresponding amounts should also be equal
3705: --
3706: IF PG_DEBUG = 'Y' THEN
3707: pa_debug.G_err_stage := 'Calling pa_multi_currency.round_trans_currency_amt';
3708: log_message('log_message: ' || pa_debug.G_err_Stage);
3709: END IF;
3710:
3711:
3712: /* Start 10357604 */
3757:
3758: BEGIN
3759:
3760: IF PG_DEBUG = 'Y' THEN
3761: pa_debug.G_err_stage := 'Calling pa_multi_currency_txn.get_currency_amounts';
3762: log_message('log_message: ' || pa_debug.G_err_Stage);
3763: END IF;
3764: pa_multi_currency_txn.get_currency_amounts(
3765: P_task_id => G_task_id,
3758: BEGIN
3759:
3760: IF PG_DEBUG = 'Y' THEN
3761: pa_debug.G_err_stage := 'Calling pa_multi_currency_txn.get_currency_amounts';
3762: log_message('log_message: ' || pa_debug.G_err_Stage);
3763: END IF;
3764: pa_multi_currency_txn.get_currency_amounts(
3765: P_task_id => G_task_id,
3766: P_ei_date => X_ei_date,
3819:
3820: IF ( X_system_linkage in ( 'ST', 'OT' )) THEN
3821:
3822: IF PG_DEBUG = 'Y' THEN
3823: pa_debug.G_err_stage := 'Calling pa_utils.DateInExpWeek';
3824: log_message('log_message: ' || pa_debug.G_err_Stage);
3825: END IF;
3826:
3827: IF ( NOT pa_utils.DateInExpWeek( X_ei_date , X_end_date ) ) THEN
3820: IF ( X_system_linkage in ( 'ST', 'OT' )) THEN
3821:
3822: IF PG_DEBUG = 'Y' THEN
3823: pa_debug.G_err_stage := 'Calling pa_utils.DateInExpWeek';
3824: log_message('log_message: ' || pa_debug.G_err_Stage);
3825: END IF;
3826:
3827: IF ( NOT pa_utils.DateInExpWeek( X_ei_date , X_end_date ) ) THEN
3828: X_status := 'ITEM_NOT_IN_WEEK';
3882: IF P_NLR_Org_Id is not null Then
3883: G_nlro_id := P_NLR_Org_Id;
3884: ELSE
3885: IF PG_DEBUG = 'Y' THEN
3886: pa_debug.G_err_stage := 'Calling pa_utils.GetOrgnId';
3887: log_message('log_message: ' || pa_debug.G_err_Stage);
3888: END IF;
3889: --Start of changes for Bug 3010848
3890:
3883: G_nlro_id := P_NLR_Org_Id;
3884: ELSE
3885: IF PG_DEBUG = 'Y' THEN
3886: pa_debug.G_err_stage := 'Calling pa_utils.GetOrgnId';
3887: log_message('log_message: ' || pa_debug.G_err_Stage);
3888: END IF;
3889: --Start of changes for Bug 3010848
3890:
3891: --G_nlro_id := pa_utils.GetOrgId( X_nlro_name );
3908: RETURN;
3909: END IF;
3910:
3911: IF PG_DEBUG = 'Y' THEN
3912: pa_debug.G_err_stage := 'Calling GetNlrInfo(X_nlr,G_nlro_id) ';
3913: log_message('log_message: ' || pa_debug.G_err_Stage);
3914: END IF;
3915: GetNlrInfo( X_nlr, G_nlro_id );
3916:
3909: END IF;
3910:
3911: IF PG_DEBUG = 'Y' THEN
3912: pa_debug.G_err_stage := 'Calling GetNlrInfo(X_nlr,G_nlro_id) ';
3913: log_message('log_message: ' || pa_debug.G_err_Stage);
3914: END IF;
3915: GetNlrInfo( X_nlr, G_nlro_id );
3916:
3917: IF ( G_nlr_etype IS NULL ) THEN
4003: ( nvl( G_gl_accted_flag,'N' ) = 'Y') AND
4004: ( nvl(G_proj_bcost_flag, 'N') = 'Y') THEN
4005:
4006: IF PG_DEBUG = 'Y' THEN
4007: pa_debug.G_err_stage := 'Calling pa_cost_plus1.get_compile_set_info';
4008: log_message('log_message: ' || pa_debug.G_err_Stage);
4009: END IF;
4010: pa_cost_plus1.get_compile_set_info(
4011: task_id => G_task_id,
4004: ( nvl(G_proj_bcost_flag, 'N') = 'Y') THEN
4005:
4006: IF PG_DEBUG = 'Y' THEN
4007: pa_debug.G_err_stage := 'Calling pa_cost_plus1.get_compile_set_info';
4008: log_message('log_message: ' || pa_debug.G_err_Stage);
4009: END IF;
4010: pa_cost_plus1.get_compile_set_info(
4011: task_id => G_task_id,
4012: p_txn_interface_id => X_txn_interface_id, -- added for bug 2563364
4163: --
4164:
4165: /* --Commented code for Bug 2798971
4166: IF PG_DEBUG = 'Y' THEN
4167: pa_debug.G_err_stage := 'Calling pa_currency.round_trans_currency_amt';
4168: log_message('log_message: ' || pa_debug.G_err_Stage);
4169: END IF;
4170: X_denom_burdened_cost := pa_currency.round_trans_currency_amt1(
4171: X_denom_raw_cost * (1 + G_compiled_multiplier ),X_denom_currency_code);
4164:
4165: /* --Commented code for Bug 2798971
4166: IF PG_DEBUG = 'Y' THEN
4167: pa_debug.G_err_stage := 'Calling pa_currency.round_trans_currency_amt';
4168: log_message('log_message: ' || pa_debug.G_err_Stage);
4169: END IF;
4170: X_denom_burdened_cost := pa_currency.round_trans_currency_amt1(
4171: X_denom_raw_cost * (1 + G_compiled_multiplier ),X_denom_currency_code);
4172:
4184:
4185: /* Added code for 2798971 */
4186: IF (nvl(G_proj_bcost_flag, 'N') = 'Y') THEN
4187: IF PG_DEBUG = 'Y' THEN
4188: pa_debug.G_err_stage := 'Calling pa_cost_plus1.get_indirect_cost_import';
4189: log_message('log_message: ' || pa_debug.G_err_Stage);
4190: END IF;
4191: pa_cost_plus1.get_indirect_cost_import (
4192: task_id => G_task_id,
4185: /* Added code for 2798971 */
4186: IF (nvl(G_proj_bcost_flag, 'N') = 'Y') THEN
4187: IF PG_DEBUG = 'Y' THEN
4188: pa_debug.G_err_stage := 'Calling pa_cost_plus1.get_indirect_cost_import';
4189: log_message('log_message: ' || pa_debug.G_err_Stage);
4190: END IF;
4191: pa_cost_plus1.get_indirect_cost_import (
4192: task_id => G_task_id,
4193: p_txn_interface_id => X_txn_interface_id, -- added for bug 3246794
4282: -- initilize l_status
4283: l_status := NULL;
4284:
4285: IF PG_DEBUG = 'Y' THEN
4286: pa_debug.G_err_stage := 'Calling pa_multi_currency.convert_amount for functional currency';
4287: log_message('log_message: ' || pa_debug.G_err_Stage);
4288: END IF;
4289: pa_multi_currency.convert_amount(
4290: P_from_currency => X_denom_currency_code,
4283: l_status := NULL;
4284:
4285: IF PG_DEBUG = 'Y' THEN
4286: pa_debug.G_err_stage := 'Calling pa_multi_currency.convert_amount for functional currency';
4287: log_message('log_message: ' || pa_debug.G_err_Stage);
4288: END IF;
4289: pa_multi_currency.convert_amount(
4290: P_from_currency => X_denom_currency_code,
4291: P_to_currency => G_accounting_currency_code,
4313:
4314: l_status := NULL;
4315:
4316: IF PG_DEBUG = 'Y' THEN
4317: pa_debug.G_err_stage := 'Calling pa_multi_currency.convert_amount for project currency';
4318: log_message('log_message: ' || pa_debug.G_err_Stage);
4319: END IF;
4320: pa_multi_currency.convert_amount(
4321: P_from_currency => X_denom_currency_code,
4314: l_status := NULL;
4315:
4316: IF PG_DEBUG = 'Y' THEN
4317: pa_debug.G_err_stage := 'Calling pa_multi_currency.convert_amount for project currency';
4318: log_message('log_message: ' || pa_debug.G_err_Stage);
4319: END IF;
4320: pa_multi_currency.convert_amount(
4321: P_from_currency => X_denom_currency_code,
4322: P_to_currency => X_project_currency_code,
4345:
4346: l_status := NULL;
4347:
4348: IF PG_DEBUG = 'Y' THEN
4349: pa_debug.G_err_stage := 'Calling pa_multi_currency.convert_amount for project functional currency';
4350: log_message('log_message: ' || pa_debug.G_err_Stage);
4351: END IF;
4352: pa_multi_currency.convert_amount(
4353: P_from_currency => X_denom_currency_code,
4346: l_status := NULL;
4347:
4348: IF PG_DEBUG = 'Y' THEN
4349: pa_debug.G_err_stage := 'Calling pa_multi_currency.convert_amount for project functional currency';
4350: log_message('log_message: ' || pa_debug.G_err_Stage);
4351: END IF;
4352: pa_multi_currency.convert_amount(
4353: P_from_currency => X_denom_currency_code,
4354: P_to_currency => X_projfunc_currency_code,
4377: -- acct_burdened_cost is derived by multiplying the acct_raw_cost with
4378: -- denom_cost_ratio.
4379:
4380: IF PG_DEBUG = 'Y' THEN
4381: pa_debug.G_err_stage := 'Calling pa_currency.round_trans_currency_amt';
4382: log_message('log_message: ' || pa_debug.G_err_Stage);
4383: END IF;
4384:
4385: X_project_burdened_cost := pa_currency.round_trans_currency_amt1(
4378: -- denom_cost_ratio.
4379:
4380: IF PG_DEBUG = 'Y' THEN
4381: pa_debug.G_err_stage := 'Calling pa_currency.round_trans_currency_amt';
4382: log_message('log_message: ' || pa_debug.G_err_Stage);
4383: END IF;
4384:
4385: X_project_burdened_cost := pa_currency.round_trans_currency_amt1(
4386: X_project_raw_cost *
4409: --PA-J Receipt Accrual Changes : Added AP VARIANCE and PO RECEIPT transaction sources
4410: --PA-I Changes : Added Discounts for AP Discounts project
4411:
4412: IF Checkccid(X_drccid) IS NULL THEN
4413: pa_debug.G_err_stage := 'Calling Checkccid'; log_message(pa_debug.G_err_Stage);
4414: X_status := 'INVALID_DR_CCID' ;
4415: pa_cc_utils.reset_curr_function;
4416: RETURN ;
4417: END IF ;
4475:
4476: IF G_allow_dup_flag <> 'Y' THEN
4477:
4478: IF PG_DEBUG = 'Y' THEN
4479: pa_debug.G_err_stage := 'Calling CheckDupItem';
4480: log_message('log_message: ' || pa_debug.G_err_Stage);
4481: END IF;
4482: CheckDupItem ( X_trx_src, X_trx_ref, temp_status );
4483: IF ( temp_status IS NOT NULL ) THEN
4476: IF G_allow_dup_flag <> 'Y' THEN
4477:
4478: IF PG_DEBUG = 'Y' THEN
4479: pa_debug.G_err_stage := 'Calling CheckDupItem';
4480: log_message('log_message: ' || pa_debug.G_err_Stage);
4481: END IF;
4482: CheckDupItem ( X_trx_src, X_trx_ref, temp_status );
4483: IF ( temp_status IS NOT NULL ) THEN
4484: X_status := temp_status;
4501: ( X_match_flag = 'N' and X_trx_src = 'ORACLE TIME AND LABOR' ) OR
4502: ( nvl(p_adj_exp_item_id,0) > 0 and nvl(X_module, 'EXTERNAL') = 'PAAPIMP') ) THEN
4503:
4504: IF PG_DEBUG = 'Y' THEN
4505: pa_debug.G_err_stage := 'Calling pa_adjustments.VerifyOrigItem';
4506: log_message('log_message: ' || pa_debug.G_err_Stage);
4507: END IF;
4508:
4509: /* REL12 AP Lines Uptake */
4502: ( nvl(p_adj_exp_item_id,0) > 0 and nvl(X_module, 'EXTERNAL') = 'PAAPIMP') ) THEN
4503:
4504: IF PG_DEBUG = 'Y' THEN
4505: pa_debug.G_err_stage := 'Calling pa_adjustments.VerifyOrigItem';
4506: log_message('log_message: ' || pa_debug.G_err_Stage);
4507: END IF;
4508:
4509: /* REL12 AP Lines Uptake */
4510: IF ( p_adj_exp_item_id is not NULL and
4541: ( X_module = 'PAXTRTRX' OR X_module = 'PAAPIMP') THEN
4542:
4543:
4544: IF PG_DEBUG = 'Y' THEN
4545: pa_debug.G_err_stage := 'Calling pa_adjustments.ExpAdjItemTab';
4546: log_message('log_message: ' || pa_debug.G_err_Stage);
4547: END IF;
4548: pa_adjustments.ExpAdjItemTab(G_adj_item_id) := G_adj_item_id;
4549:
4542:
4543:
4544: IF PG_DEBUG = 'Y' THEN
4545: pa_debug.G_err_stage := 'Calling pa_adjustments.ExpAdjItemTab';
4546: log_message('log_message: ' || pa_debug.G_err_Stage);
4547: END IF;
4548: pa_adjustments.ExpAdjItemTab(G_adj_item_id) := G_adj_item_id;
4549:
4550: -- Commenting out the following procedure because verifyorigitem
4553:
4554: -- CheckDupAdjItem( G_adj_item_id, temp_status );
4555:
4556: IF PG_DEBUG = 'Y' THEN
4557: pa_debug.G_err_stage := 'Locking adjusting item:'||to_char(G_adj_item_id);
4558: log_message('log_message: ' || pa_debug.G_err_Stage);
4559: END IF;
4560:
4561: BEGIN
4554: -- CheckDupAdjItem( G_adj_item_id, temp_status );
4555:
4556: IF PG_DEBUG = 'Y' THEN
4557: pa_debug.G_err_stage := 'Locking adjusting item:'||to_char(G_adj_item_id);
4558: log_message('log_message: ' || pa_debug.G_err_Stage);
4559: END IF;
4560:
4561: BEGIN
4562:
4624: <
4625: BEGIN
4626:
4627: IF PG_DEBUG = 'Y' THEN
4628: pa_debug.G_err_stage := 'Calling PA_CC_IDENT.PA_CC_IDENTIFY_TXN_ADJ';
4629: log_message('log_message: ' || pa_debug.G_err_Stage);
4630: END IF;
4631:
4632: G_unmatched_negative_txn_flag := NVL(X_match_flag, 'N'); -- Bug 16451280
4625: BEGIN
4626:
4627: IF PG_DEBUG = 'Y' THEN
4628: pa_debug.G_err_stage := 'Calling PA_CC_IDENT.PA_CC_IDENTIFY_TXN_ADJ';
4629: log_message('log_message: ' || pa_debug.G_err_Stage);
4630: END IF;
4631:
4632: G_unmatched_negative_txn_flag := NVL(X_match_flag, 'N'); -- Bug 16451280
4633:
4664: X_Calling_Module => 'TRANSACTION_IMPORT');
4665:
4666: EXCEPTION WHEN others THEN
4667: IF PG_DEBUG = 'Y' THEN
4668: log_message('log_message: ' || pa_debug.G_err_stack,1);
4669: log_message('log_message: ' || SQLERRM,1);
4670: log_message('log_message: ' || pa_debug.G_err_stage,1);
4671: END IF;
4672: X_Status := 'PA_ERR_IN_CC_IDENT_API';
4666: EXCEPTION WHEN others THEN
4667: IF PG_DEBUG = 'Y' THEN
4668: log_message('log_message: ' || pa_debug.G_err_stack,1);
4669: log_message('log_message: ' || SQLERRM,1);
4670: log_message('log_message: ' || pa_debug.G_err_stage,1);
4671: END IF;
4672: X_Status := 'PA_ERR_IN_CC_IDENT_API';
4673: pa_cc_utils.reset_curr_function;
4674: RETURN;
4720: only the reciever org id info. */
4721: ELSE
4722: /* IC Changes: Get receiver organization ID */
4723: IF PG_DEBUG = 'Y' THEN
4724: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';
4725: log_message('log_message: ' || pa_debug.G_err_Stage);
4726: END IF;
4727: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,
4728: p_task_id => NULL);
4721: ELSE
4722: /* IC Changes: Get receiver organization ID */
4723: IF PG_DEBUG = 'Y' THEN
4724: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';
4725: log_message('log_message: ' || pa_debug.G_err_Stage);
4726: END IF;
4727: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,
4728: p_task_id => NULL);
4729: END IF; -- End gl_accted_flag = Y
4769: --Identify if the transaction is a period-end accrual transaction
4770: IF (x_system_linkage = 'PJ' and x_accrual_flag = 'Y') THEN
4771:
4772: IF PG_DEBUG = 'Y' THEN
4773: pa_debug.G_err_stage := 'This is a Period-End Accrual transaction';
4774: log_message('log_message: ' || pa_debug.G_err_Stage);
4775: END IF;
4776:
4777: l_period_end_txn := 'Y';
4770: IF (x_system_linkage = 'PJ' and x_accrual_flag = 'Y') THEN
4771:
4772: IF PG_DEBUG = 'Y' THEN
4773: pa_debug.G_err_stage := 'This is a Period-End Accrual transaction';
4774: log_message('log_message: ' || pa_debug.G_err_Stage);
4775: END IF;
4776:
4777: l_period_end_txn := 'Y';
4778:
4781: --If transaction is accounted then derive the provider and receiver set of books information.
4782: IF ( nvl(G_gl_accted_flag,'N') = 'Y' or l_period_end_txn = 'Y') THEN
4783:
4784: IF PG_DEBUG = 'Y' THEN
4785: pa_debug.G_err_stage := 'Retrieve provider and receiver set_of_books';
4786: log_message('log_message: ' || pa_debug.G_err_Stage);
4787: END IF;
4788:
4789: log_message('log_message: x_org_id= ' || X_org_id || ' Prev = '|| Prev_OrgId); -- For bug 3590027
4782: IF ( nvl(G_gl_accted_flag,'N') = 'Y' or l_period_end_txn = 'Y') THEN
4783:
4784: IF PG_DEBUG = 'Y' THEN
4785: pa_debug.G_err_stage := 'Retrieve provider and receiver set_of_books';
4786: log_message('log_message: ' || pa_debug.G_err_Stage);
4787: END IF;
4788:
4789: log_message('log_message: x_org_id= ' || X_org_id || ' Prev = '|| Prev_OrgId); -- For bug 3590027
4790: if (nvl(X_org_id,-101) <> nvl(Prev_OrgId,-99)) then -- Added nvl to X_org_id for bug 3590027
4789: log_message('log_message: x_org_id= ' || X_org_id || ' Prev = '|| Prev_OrgId); -- For bug 3590027
4790: if (nvl(X_org_id,-101) <> nvl(Prev_OrgId,-99)) then -- Added nvl to X_org_id for bug 3590027
4791:
4792: IF PG_DEBUG = 'Y' THEN
4793: pa_debug.G_err_stage := 'Diff org_id';
4794: log_message('log_message: ' || pa_debug.G_err_Stage);
4795: END IF;
4796:
4797: select set_of_books_id
4790: if (nvl(X_org_id,-101) <> nvl(Prev_OrgId,-99)) then -- Added nvl to X_org_id for bug 3590027
4791:
4792: IF PG_DEBUG = 'Y' THEN
4793: pa_debug.G_err_stage := 'Diff org_id';
4794: log_message('log_message: ' || pa_debug.G_err_Stage);
4795: END IF;
4796:
4797: select set_of_books_id
4798: into G_SobId
4803: Prev_OrgID := X_Org_Id;
4804: else
4805:
4806: IF PG_DEBUG = 'Y' THEN
4807: pa_debug.G_err_stage := 'Same org_id';
4808: log_message('log_message: ' || pa_debug.G_err_Stage);
4809: END IF;
4810:
4811: G_SobId := Prev_SobId;
4804: else
4805:
4806: IF PG_DEBUG = 'Y' THEN
4807: pa_debug.G_err_stage := 'Same org_id';
4808: log_message('log_message: ' || pa_debug.G_err_Stage);
4809: END IF;
4810:
4811: G_SobId := Prev_SobId;
4812: end if;
4822: log_message('log_message: G_RecvrOrgId= ' || G_RecvrOrgId || ' Prev = '|| Prev_RecvrOrgId);--Bug 3590027
4823: if (nvl(G_RecvrOrgId,-101) <> nvl(Prev_RecvrOrgId,-99)) then -- Added nvl to G_RecvrOrgId for 3590027
4824:
4825: IF PG_DEBUG = 'Y' THEN
4826: pa_debug.G_err_stage := 'Diff recvr_org_id';
4827: log_message('log_message: ' || pa_debug.G_err_Stage);
4828: END IF;
4829:
4830: select set_of_books_id
4823: if (nvl(G_RecvrOrgId,-101) <> nvl(Prev_RecvrOrgId,-99)) then -- Added nvl to G_RecvrOrgId for 3590027
4824:
4825: IF PG_DEBUG = 'Y' THEN
4826: pa_debug.G_err_stage := 'Diff recvr_org_id';
4827: log_message('log_message: ' || pa_debug.G_err_Stage);
4828: END IF;
4829:
4830: select set_of_books_id
4831: into G_RecvrSobId
4836: Prev_RecvrOrgID := G_RecvrOrgId;
4837: else
4838:
4839: IF PG_DEBUG = 'Y' THEN
4840: pa_debug.G_err_stage := 'Same recvr_org_id';
4841: log_message('log_message: ' || pa_debug.G_err_Stage);
4842: END IF;
4843:
4844: G_RecvrSobId := Prev_RecvrSobId;
4837: else
4838:
4839: IF PG_DEBUG = 'Y' THEN
4840: pa_debug.G_err_stage := 'Same recvr_org_id';
4841: log_message('log_message: ' || pa_debug.G_err_Stage);
4842: END IF;
4843:
4844: G_RecvrSobId := Prev_RecvrSobId;
4845: end if;
4854: --pa_integration.get_period_information to derive the period information.
4855: IF ( (nvl(G_gl_accted_flag,'N') = 'Y') and (l_period_end_txn = 'N')) THEN
4856:
4857: IF PG_DEBUG = 'Y' THEN
4858: pa_debug.G_err_stage := 'Start PA_Date and Recvr_PA_Date Checks for non-period-end accrual txns';
4859: log_message('log_message: ' || pa_debug.G_err_Stage);
4860: END IF;
4861:
4862: IF PG_DEBUG = 'Y' THEN
4855: IF ( (nvl(G_gl_accted_flag,'N') = 'Y') and (l_period_end_txn = 'N')) THEN
4856:
4857: IF PG_DEBUG = 'Y' THEN
4858: pa_debug.G_err_stage := 'Start PA_Date and Recvr_PA_Date Checks for non-period-end accrual txns';
4859: log_message('log_message: ' || pa_debug.G_err_Stage);
4860: END IF;
4861:
4862: IF PG_DEBUG = 'Y' THEN
4863: pa_debug.G_err_stage := 'Calling pa_integration.get_period_information';
4859: log_message('log_message: ' || pa_debug.G_err_Stage);
4860: END IF;
4861:
4862: IF PG_DEBUG = 'Y' THEN
4863: pa_debug.G_err_stage := 'Calling pa_integration.get_period_information';
4864: log_message('log_message: ' || pa_debug.G_err_Stage);
4865: END IF;
4866:
4867: pa_integration.get_period_information(
4860: END IF;
4861:
4862: IF PG_DEBUG = 'Y' THEN
4863: pa_debug.G_err_stage := 'Calling pa_integration.get_period_information';
4864: log_message('log_message: ' || pa_debug.G_err_Stage);
4865: END IF;
4866:
4867: pa_integration.get_period_information(
4868: p_expenditure_item_date => X_ei_date
4891: log_message('log_message: ' || 'G_RecvrGlDate = '|| G_RecvrGlDate || ' G_RecvrGlPeriodName = '|| G_RecvrGlPeriodName);
4892: END IF;
4893:
4894: IF PG_DEBUG = 'Y' THEN
4895: pa_debug.G_err_stage := 'After pa_integration.get_period_information';
4896: log_message('log_message: ' || pa_debug.G_err_Stage);
4897: END IF;
4898:
4899: --Pa_date check being done here
4892: END IF;
4893:
4894: IF PG_DEBUG = 'Y' THEN
4895: pa_debug.G_err_stage := 'After pa_integration.get_period_information';
4896: log_message('log_message: ' || pa_debug.G_err_Stage);
4897: END IF;
4898:
4899: --Pa_date check being done here
4900: IF G_PaDate is NULL then
4899: --Pa_date check being done here
4900: IF G_PaDate is NULL then
4901:
4902: IF PG_DEBUG = 'Y' THEN
4903: pa_debug.G_err_stage := 'PA_Date is null';
4904: log_message('log_message: ' || pa_debug.G_err_Stage);
4905: END IF;
4906:
4907: X_status := 'INVALID_PA_DATE' ;
4900: IF G_PaDate is NULL then
4901:
4902: IF PG_DEBUG = 'Y' THEN
4903: pa_debug.G_err_stage := 'PA_Date is null';
4904: log_message('log_message: ' || pa_debug.G_err_Stage);
4905: END IF;
4906:
4907: X_status := 'INVALID_PA_DATE' ;
4908: pa_cc_utils.reset_curr_function;
4912:
4913: IF nvl(X_org_id,-999) <> nvl(G_RecvrOrgId,-999) THEN ----------------------{
4914:
4915: IF PG_DEBUG = 'Y' THEN
4916: pa_debug.G_err_stage := 'Before Check for the Receiver Date';
4917: log_message('log_message: ' || pa_debug.G_err_Stage);
4918: END IF;
4919:
4920: IF G_RecvrPaDate is NULL then
4913: IF nvl(X_org_id,-999) <> nvl(G_RecvrOrgId,-999) THEN ----------------------{
4914:
4915: IF PG_DEBUG = 'Y' THEN
4916: pa_debug.G_err_stage := 'Before Check for the Receiver Date';
4917: log_message('log_message: ' || pa_debug.G_err_Stage);
4918: END IF;
4919:
4920: IF G_RecvrPaDate is NULL then
4921:
4919:
4920: IF G_RecvrPaDate is NULL then
4921:
4922: IF PG_DEBUG = 'Y' THEN
4923: pa_debug.G_err_stage := 'Recvr_PA_Date is null';
4924: log_message('log_message: ' || pa_debug.G_err_Stage);
4925: END IF;
4926:
4927: X_status := 'INVALID_RECVR_PA_DATE' ;
4920: IF G_RecvrPaDate is NULL then
4921:
4922: IF PG_DEBUG = 'Y' THEN
4923: pa_debug.G_err_stage := 'Recvr_PA_Date is null';
4924: log_message('log_message: ' || pa_debug.G_err_Stage);
4925: END IF;
4926:
4927: X_status := 'INVALID_RECVR_PA_DATE' ;
4928: pa_cc_utils.reset_curr_function;
4932:
4933: IF G_RecvrGlDate is NULL then
4934:
4935: IF PG_DEBUG = 'Y' THEN
4936: pa_debug.G_err_stage := 'Recvr_GL_Date is null';
4937: log_message('log_message: ' || pa_debug.G_err_Stage);
4938: END IF;
4939:
4940: X_status := 'INVALID_RECVR_GL_DATE' ;
4933: IF G_RecvrGlDate is NULL then
4934:
4935: IF PG_DEBUG = 'Y' THEN
4936: pa_debug.G_err_stage := 'Recvr_GL_Date is null';
4937: log_message('log_message: ' || pa_debug.G_err_Stage);
4938: END IF;
4939:
4940: X_status := 'INVALID_RECVR_GL_DATE' ;
4941: pa_cc_utils.reset_curr_function;
4943:
4944: END IF ;
4945:
4946: IF PG_DEBUG = 'Y' THEN
4947: pa_debug.G_err_stage := 'After Check for the Receiver Date';
4948: log_message('log_message: ' || pa_debug.G_err_Stage);
4949: END IF;
4950:
4951: END IF ; ----------------------------------}
4944: END IF ;
4945:
4946: IF PG_DEBUG = 'Y' THEN
4947: pa_debug.G_err_stage := 'After Check for the Receiver Date';
4948: log_message('log_message: ' || pa_debug.G_err_Stage);
4949: END IF;
4950:
4951: END IF ; ----------------------------------}
4952:
4957: --and reversing line.
4958: IF ( l_period_end_txn = 'Y' ) THEN
4959:
4960: IF PG_DEBUG = 'Y' THEN
4961: pa_debug.G_err_stage := 'Start PA_Date and Recvr_PA_Date Checks for period-end accrual txns';
4962: log_message('log_message: ' || pa_debug.G_err_Stage);
4963: END IF;
4964:
4965: IF PG_DEBUG = 'Y' THEN
4958: IF ( l_period_end_txn = 'Y' ) THEN
4959:
4960: IF PG_DEBUG = 'Y' THEN
4961: pa_debug.G_err_stage := 'Start PA_Date and Recvr_PA_Date Checks for period-end accrual txns';
4962: log_message('log_message: ' || pa_debug.G_err_Stage);
4963: END IF;
4964:
4965: IF PG_DEBUG = 'Y' THEN
4966: pa_debug.G_err_stage := 'Calling pa_utils2.get_accrual_period_information';
4962: log_message('log_message: ' || pa_debug.G_err_Stage);
4963: END IF;
4964:
4965: IF PG_DEBUG = 'Y' THEN
4966: pa_debug.G_err_stage := 'Calling pa_utils2.get_accrual_period_information';
4967: log_message('log_message: ' || pa_debug.G_err_Stage);
4968: END IF;
4969:
4970: G_GlDate := X_gl_date;
4963: END IF;
4964:
4965: IF PG_DEBUG = 'Y' THEN
4966: pa_debug.G_err_stage := 'Calling pa_utils2.get_accrual_period_information';
4967: log_message('log_message: ' || pa_debug.G_err_Stage);
4968: END IF;
4969:
4970: G_GlDate := X_gl_date;
4971:
5009:
5010: if (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) then
5011: x_status := x_error_code;
5012: IF PG_DEBUG = 'Y' THEN
5013: pa_debug.G_err_stage := 'Error returned for accrual date derivation = '||x_status;
5014: log_message('log_message: ' || pa_debug.G_err_Stage);
5015: END IF;
5016: pa_cc_utils.reset_curr_function;
5017: RETURN;
5010: if (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) then
5011: x_status := x_error_code;
5012: IF PG_DEBUG = 'Y' THEN
5013: pa_debug.G_err_stage := 'Error returned for accrual date derivation = '||x_status;
5014: log_message('log_message: ' || pa_debug.G_err_Stage);
5015: END IF;
5016: pa_cc_utils.reset_curr_function;
5017: RETURN;
5018: end if;
5024: G_RevAccDate := G_AccDate;
5025: G_RevRecvrAccDate := G_RecvrAccDate;
5026:
5027: IF PG_DEBUG = 'Y' THEN
5028: pa_debug.G_err_stage := 'Calling pa_utils2.get_accrual_period_information for the reversing line';
5029: log_message('log_message: ' || pa_debug.G_err_Stage);
5030: END IF;
5031:
5032:
5025: G_RevRecvrAccDate := G_RecvrAccDate;
5026:
5027: IF PG_DEBUG = 'Y' THEN
5028: pa_debug.G_err_stage := 'Calling pa_utils2.get_accrual_period_information for the reversing line';
5029: log_message('log_message: ' || pa_debug.G_err_Stage);
5030: END IF;
5031:
5032:
5033: --Call get_accrual_period_information API for the reversing line
5070:
5071: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
5072: x_status := x_error_code;
5073: IF PG_DEBUG = 'Y' THEN
5074: pa_debug.G_err_stage := 'Error returned for reversal line accrual date derivation = '||x_status;
5075: log_message('log_message: ' || pa_debug.G_err_Stage);
5076: END IF;
5077: pa_cc_utils.reset_curr_function;
5078: RETURN;
5071: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
5072: x_status := x_error_code;
5073: IF PG_DEBUG = 'Y' THEN
5074: pa_debug.G_err_stage := 'Error returned for reversal line accrual date derivation = '||x_status;
5075: log_message('log_message: ' || pa_debug.G_err_Stage);
5076: END IF;
5077: pa_cc_utils.reset_curr_function;
5078: RETURN;
5079: END IF;
5097:
5098: If (G_trx_predef_flag = 'Y') Then
5099:
5100: IF PG_DEBUG = 'Y' THEN
5101: pa_debug.G_err_stage := 'Get Assignment and work type for predefined';
5102: log_message('log_message: ' || pa_debug.G_err_Stage);
5103: END IF;
5104:
5105: If (x_system_linkage in ('ST', 'OT', 'ER')) Then
5098: If (G_trx_predef_flag = 'Y') Then
5099:
5100: IF PG_DEBUG = 'Y' THEN
5101: pa_debug.G_err_stage := 'Get Assignment and work type for predefined';
5102: log_message('log_message: ' || pa_debug.G_err_Stage);
5103: END IF;
5104:
5105: If (x_system_linkage in ('ST', 'OT', 'ER')) Then
5106:
5104:
5105: If (x_system_linkage in ('ST', 'OT', 'ER')) Then
5106:
5107: IF PG_DEBUG = 'Y' THEN
5108: pa_debug.G_err_stage := 'Sys Link is ST OT ER';
5109: log_message('log_message: ' || pa_debug.G_err_Stage);
5110: END IF;
5111:
5112: If (P_Assignment_Id is not null) Then
5105: If (x_system_linkage in ('ST', 'OT', 'ER')) Then
5106:
5107: IF PG_DEBUG = 'Y' THEN
5108: pa_debug.G_err_stage := 'Sys Link is ST OT ER';
5109: log_message('log_message: ' || pa_debug.G_err_Stage);
5110: END IF;
5111:
5112: If (P_Assignment_Id is not null) Then
5113:
5111:
5112: If (P_Assignment_Id is not null) Then
5113:
5114: IF PG_DEBUG = 'Y' THEN
5115: pa_debug.G_err_stage := 'P_Assignment_id is not null';
5116: log_message('log_message: ' || pa_debug.G_err_Stage);
5117: END IF;
5118:
5119: G_Assignment_Id := P_Assignment_Id;
5112: If (P_Assignment_Id is not null) Then
5113:
5114: IF PG_DEBUG = 'Y' THEN
5115: pa_debug.G_err_stage := 'P_Assignment_id is not null';
5116: log_message('log_message: ' || pa_debug.G_err_Stage);
5117: END IF;
5118:
5119: G_Assignment_Id := P_Assignment_Id;
5120:
5118:
5119: G_Assignment_Id := P_Assignment_Id;
5120:
5121: IF PG_DEBUG = 'Y' THEN
5122: pa_debug.G_err_stage := 'G_Assignment_Id = ' || G_Assignment_Id;
5123: log_message('log_message: ' || pa_debug.G_err_Stage);
5124: END IF;
5125:
5126: Else
5119: G_Assignment_Id := P_Assignment_Id;
5120:
5121: IF PG_DEBUG = 'Y' THEN
5122: pa_debug.G_err_stage := 'G_Assignment_Id = ' || G_Assignment_Id;
5123: log_message('log_message: ' || pa_debug.G_err_Stage);
5124: END IF;
5125:
5126: Else
5127:
5125:
5126: Else
5127:
5128: IF PG_DEBUG = 'Y' THEN
5129: pa_debug.G_err_stage := 'P_Assignment_id is null';
5130: log_message('log_message: ' || pa_debug.G_err_Stage);
5131: END IF;
5132:
5133: G_Assignment_Id := pa_utils4.get_assignment_id(
5126: Else
5127:
5128: IF PG_DEBUG = 'Y' THEN
5129: pa_debug.G_err_stage := 'P_Assignment_id is null';
5130: log_message('log_message: ' || pa_debug.G_err_Stage);
5131: END IF;
5132:
5133: G_Assignment_Id := pa_utils4.get_assignment_id(
5134: p_person_id => G_Person_Id
5136: ,p_task_id => G_Task_Id
5137: ,p_ei_date => X_Ei_Date);
5138:
5139: IF PG_DEBUG = 'Y' THEN
5140: pa_debug.G_err_stage := 'G_Assignment_Id = ' || G_Assignment_Id;
5141: log_message('log_message: ' || pa_debug.G_err_Stage);
5142: END IF;
5143:
5144: End If;
5137: ,p_ei_date => X_Ei_Date);
5138:
5139: IF PG_DEBUG = 'Y' THEN
5140: pa_debug.G_err_stage := 'G_Assignment_Id = ' || G_Assignment_Id;
5141: log_message('log_message: ' || pa_debug.G_err_Stage);
5142: END IF;
5143:
5144: End If;
5145:
5145:
5146: Else
5147:
5148: IF PG_DEBUG = 'Y' THEN
5149: pa_debug.G_err_stage := 'Sys Link is not ST OT ER';
5150: log_message('log_message: ' || pa_debug.G_err_Stage);
5151: END IF;
5152:
5153: G_Assignment_Id := NULL;
5146: Else
5147:
5148: IF PG_DEBUG = 'Y' THEN
5149: pa_debug.G_err_stage := 'Sys Link is not ST OT ER';
5150: log_message('log_message: ' || pa_debug.G_err_Stage);
5151: END IF;
5152:
5153: G_Assignment_Id := NULL;
5154:
5161:
5162: If (P_Work_Type_Id is not null) Then
5163:
5164: IF PG_DEBUG = 'Y' THEN
5165: pa_debug.G_err_stage := 'P_Work_Type_Id is not null';
5166: log_message('log_message: ' || pa_debug.G_err_Stage);
5167: END IF;
5168:
5169: G_Work_Type_Id := P_Work_Type_Id;
5162: If (P_Work_Type_Id is not null) Then
5163:
5164: IF PG_DEBUG = 'Y' THEN
5165: pa_debug.G_err_stage := 'P_Work_Type_Id is not null';
5166: log_message('log_message: ' || pa_debug.G_err_Stage);
5167: END IF;
5168:
5169: G_Work_Type_Id := P_Work_Type_Id;
5170:
5168:
5169: G_Work_Type_Id := P_Work_Type_Id;
5170:
5171: IF PG_DEBUG = 'Y' THEN
5172: pa_debug.G_err_stage := 'G_Work_Type_Id = ' || G_Work_Type_Id;
5173: log_message('log_message: ' || pa_debug.G_err_Stage);
5174: END IF;
5175:
5176: Else
5169: G_Work_Type_Id := P_Work_Type_Id;
5170:
5171: IF PG_DEBUG = 'Y' THEN
5172: pa_debug.G_err_stage := 'G_Work_Type_Id = ' || G_Work_Type_Id;
5173: log_message('log_message: ' || pa_debug.G_err_Stage);
5174: END IF;
5175:
5176: Else
5177:
5175:
5176: Else
5177:
5178: IF PG_DEBUG = 'Y' THEN
5179: pa_debug.G_err_stage := 'P_Work_Type_Id is null';
5180: log_message('log_message: ' || pa_debug.G_err_Stage);
5181: END IF;
5182:
5183: G_Work_Type_Id := pa_utils4.get_work_type_id(
5176: Else
5177:
5178: IF PG_DEBUG = 'Y' THEN
5179: pa_debug.G_err_stage := 'P_Work_Type_Id is null';
5180: log_message('log_message: ' || pa_debug.G_err_Stage);
5181: END IF;
5182:
5183: G_Work_Type_Id := pa_utils4.get_work_type_id(
5184: p_project_id => G_Project_Id
5185: ,p_task_id => G_Task_Id
5186: ,p_assignment_id => nvl(G_Assignment_Id,0));
5187:
5188: IF PG_DEBUG = 'Y' THEN
5189: pa_debug.G_err_stage := 'G_Work_Type_Id = ' || G_Work_Type_Id;
5190: log_message('log_message: ' || pa_debug.G_err_Stage);
5191: END IF;
5192:
5193: If (G_Work_Type_Id is NULL and nvl(pa_utils4.is_exp_work_type_enabled,'N') = 'Y') Then
5186: ,p_assignment_id => nvl(G_Assignment_Id,0));
5187:
5188: IF PG_DEBUG = 'Y' THEN
5189: pa_debug.G_err_stage := 'G_Work_Type_Id = ' || G_Work_Type_Id;
5190: log_message('log_message: ' || pa_debug.G_err_Stage);
5191: END IF;
5192:
5193: If (G_Work_Type_Id is NULL and nvl(pa_utils4.is_exp_work_type_enabled,'N') = 'Y') Then
5194: /*** added and condition bug 3104004 */
5199:
5200: End If;
5201:
5202: IF PG_DEBUG = 'Y' THEN
5203: pa_debug.G_err_stage := 'Get Tp Amt Type';
5204: log_message('log_message: ' || pa_debug.G_err_Stage);
5205: END IF;
5206:
5207: G_Tp_Amt_Type_Code := pa_utils4.get_tp_amt_type_code(
5200: End If;
5201:
5202: IF PG_DEBUG = 'Y' THEN
5203: pa_debug.G_err_stage := 'Get Tp Amt Type';
5204: log_message('log_message: ' || pa_debug.G_err_Stage);
5205: END IF;
5206:
5207: G_Tp_Amt_Type_Code := pa_utils4.get_tp_amt_type_code(
5208: p_work_type_id => G_Work_Type_Id);
5207: G_Tp_Amt_Type_Code := pa_utils4.get_tp_amt_type_code(
5208: p_work_type_id => G_Work_Type_Id);
5209:
5210: IF PG_DEBUG = 'Y' THEN
5211: pa_debug.G_err_stage := 'G_Tp_Amt_Type_Code = ' || G_Tp_Amt_Type_Code;
5212: log_message('log_message: ' || pa_debug.G_err_Stage);
5213: END IF;
5214:
5215: /**End If;** commented bug 3104004 */ /*Bug# 2737538 wrapped tp_amt_type_code and work_type related calls if work type profile is enabled*/
5208: p_work_type_id => G_Work_Type_Id);
5209:
5210: IF PG_DEBUG = 'Y' THEN
5211: pa_debug.G_err_stage := 'G_Tp_Amt_Type_Code = ' || G_Tp_Amt_Type_Code;
5212: log_message('log_message: ' || pa_debug.G_err_Stage);
5213: END IF;
5214:
5215: /**End If;** commented bug 3104004 */ /*Bug# 2737538 wrapped tp_amt_type_code and work_type related calls if work type profile is enabled*/
5216:
5216:
5217: Else
5218:
5219: IF PG_DEBUG = 'Y' THEN
5220: pa_debug.G_err_stage := 'Calling API to derive/validate assignment and work type info';
5221: log_message('log_message: ' || pa_debug.G_err_Stage);
5222: log_message('log_message: ' || 'Assignment Name = ' || X_Assignment_Name || ' Work Type Name = ' || X_Work_Type_Name);
5223: END IF;
5224:
5217: Else
5218:
5219: IF PG_DEBUG = 'Y' THEN
5220: pa_debug.G_err_stage := 'Calling API to derive/validate assignment and work type info';
5221: log_message('log_message: ' || pa_debug.G_err_Stage);
5222: log_message('log_message: ' || 'Assignment Name = ' || X_Assignment_Name || ' Work Type Name = ' || X_Work_Type_Name);
5223: END IF;
5224:
5225: pa_utils4.get_work_assignment(
5248:
5249: IF (l_asgn_work_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
5250:
5251: IF PG_DEBUG = 'Y' THEN
5252: pa_debug.G_err_stage := 'Get Work Type and Assignment API failed';
5253: log_message('log_message: ' || pa_debug.G_err_Stage);
5254: log_message('log_message: ' || 'Ret Sts = ' || l_asgn_work_ret_sts || ' Error = ' || l_asgn_work_err_msg);
5255: END IF;
5256:
5249: IF (l_asgn_work_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
5250:
5251: IF PG_DEBUG = 'Y' THEN
5252: pa_debug.G_err_stage := 'Get Work Type and Assignment API failed';
5253: log_message('log_message: ' || pa_debug.G_err_Stage);
5254: log_message('log_message: ' || 'Ret Sts = ' || l_asgn_work_ret_sts || ' Error = ' || l_asgn_work_err_msg);
5255: END IF;
5256:
5257: X_Status := l_asgn_work_err_msg;
5304: THEN
5305:
5306:
5307: IF PG_DEBUG = 'Y' THEN
5308: pa_debug.G_err_stage := 'If any of the PO attributes are not null';
5309: log_message('log_message: ' || pa_debug.G_err_Stage);
5310: END IF;
5311:
5312: IF Pa_Pjc_CWk_Utils.Is_CWK_TC_Xface_Allowed(G_Project_Id) <> 'Y' THEN
5305:
5306:
5307: IF PG_DEBUG = 'Y' THEN
5308: pa_debug.G_err_stage := 'If any of the PO attributes are not null';
5309: log_message('log_message: ' || pa_debug.G_err_Stage);
5310: END IF;
5311:
5312: IF Pa_Pjc_CWk_Utils.Is_CWK_TC_Xface_Allowed(G_Project_Id) <> 'Y' THEN
5313: X_Status := 'PA_CWK_TC_NOT_ALLOWED';
5323: RETURN;
5324: END IF;
5325:
5326: IF PG_DEBUG = 'Y' THEN
5327: pa_debug.G_err_stage := 'Calling PO Validation api';
5328: log_message('log_message: ' || pa_debug.G_err_Stage);
5329: END IF;
5330:
5331: PO_PA_INTEGRATION_GRP.validate_temp_labor_po (
5324: END IF;
5325:
5326: IF PG_DEBUG = 'Y' THEN
5327: pa_debug.G_err_stage := 'Calling PO Validation api';
5328: log_message('log_message: ' || pa_debug.G_err_Stage);
5329: END IF;
5330:
5331: PO_PA_INTEGRATION_GRP.validate_temp_labor_po (
5332: P_Api_Version => 1.0,
5353: G_acct_rate_type := X_acct_rate_type; -- Bug: 3570261
5354:
5355:
5356: IF PG_DEBUG = 'Y' THEN
5357: pa_debug.G_err_stage := 'After PO_PA_INTEGRATION_GRP.validate_temp_labor_po ';
5358: log_message('log_message: ' || pa_debug.G_err_Stage);
5359: END IF;
5360:
5361: IF temp_status IS NOT NULL THEN
5354:
5355:
5356: IF PG_DEBUG = 'Y' THEN
5357: pa_debug.G_err_stage := 'After PO_PA_INTEGRATION_GRP.validate_temp_labor_po ';
5358: log_message('log_message: ' || pa_debug.G_err_Stage);
5359: END IF;
5360:
5361: IF temp_status IS NOT NULL THEN
5362: IF PG_DEBUG = 'Y' THEN
5359: END IF;
5360:
5361: IF temp_status IS NOT NULL THEN
5362: IF PG_DEBUG = 'Y' THEN
5363: pa_debug.G_err_stage := 'validate_temp_labor_po has failed';
5364: log_message('log_message: ' || pa_debug.G_err_Stage);
5365: END IF;
5366:
5367: X_status := temp_status;
5360:
5361: IF temp_status IS NOT NULL THEN
5362: IF PG_DEBUG = 'Y' THEN
5363: pa_debug.G_err_stage := 'validate_temp_labor_po has failed';
5364: log_message('log_message: ' || pa_debug.G_err_Stage);
5365: END IF;
5366:
5367: X_status := temp_status;
5368: pa_cc_utils.reset_curr_function;
5462: l_costed := 0;
5463: End If;
5464:
5465: IF PG_DEBUG = 'Y' THEN
5466: pa_debug.G_err_stage := 'Get the Processed Amount for Line ID : '||P_Po_Line_Id || ' and Task ID '||G_task_id;
5467: log_message('log_message: ' || pa_debug.G_err_stage,1);
5468: END IF;
5469:
5470: po_processed_amt_chk(P_Po_Line_Id => P_Po_Line_Id
5463: End If;
5464:
5465: IF PG_DEBUG = 'Y' THEN
5466: pa_debug.G_err_stage := 'Get the Processed Amount for Line ID : '||P_Po_Line_Id || ' and Task ID '||G_task_id;
5467: log_message('log_message: ' || pa_debug.G_err_stage,1);
5468: END IF;
5469:
5470: po_processed_amt_chk(P_Po_Line_Id => P_Po_Line_Id
5471: ,P_Task_Id => G_task_id
5474: ,X_status => temp_status);
5475:
5476: IF temp_status IS NOT NULL THEN
5477: IF PG_DEBUG = 'Y' THEN
5478: pa_debug.G_err_stage := 'po_processed_amt_chk unable to get a lock';
5479: log_message('log_message: ' || pa_debug.G_err_Stage);
5480: END IF;
5481: X_status := temp_status;
5482: pa_cc_utils.reset_curr_function;
5475:
5476: IF temp_status IS NOT NULL THEN
5477: IF PG_DEBUG = 'Y' THEN
5478: pa_debug.G_err_stage := 'po_processed_amt_chk unable to get a lock';
5479: log_message('log_message: ' || pa_debug.G_err_Stage);
5480: END IF;
5481: X_status := temp_status;
5482: pa_cc_utils.reset_curr_function;
5483: RETURN;
5532: --
5533: -- DFF Upgrade:
5534: -- Calls pa_transactions_pub.validate_dff
5535: IF PG_DEBUG = 'Y' THEN
5536: pa_debug.G_err_stage := 'Calling pa_transactions_pub.validate_dff';
5537: log_message('log_message: ' || pa_debug.G_err_Stage);
5538: END IF;
5539:
5540: pa_transactions_pub.validate_dff(
5533: -- DFF Upgrade:
5534: -- Calls pa_transactions_pub.validate_dff
5535: IF PG_DEBUG = 'Y' THEN
5536: pa_debug.G_err_stage := 'Calling pa_transactions_pub.validate_dff';
5537: log_message('log_message: ' || pa_debug.G_err_Stage);
5538: END IF;
5539:
5540: pa_transactions_pub.validate_dff(
5541: p_dff_name => 'PA_EXPENDITURE_ITEMS_DESC_FLEX',
5572: RETURN;
5573: END IF;
5574:
5575: IF PG_DEBUG = 'Y' THEN
5576: pa_debug.G_err_stage := 'Calling pa_transactions_pub.validate_transaction';
5577: log_message('log_message: ' || pa_debug.G_err_Stage);
5578: END IF;
5579:
5580: If PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date = 'Y' then -- Added for BUG6931833
5573: END IF;
5574:
5575: IF PG_DEBUG = 'Y' THEN
5576: pa_debug.G_err_stage := 'Calling pa_transactions_pub.validate_transaction';
5577: log_message('log_message: ' || pa_debug.G_err_Stage);
5578: END IF;
5579:
5580: If PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date = 'Y' then -- Added for BUG6931833
5581:
5652:
5653: END IF;
5654:
5655: IF PG_DEBUG = 'Y' THEN
5656: pa_debug.G_err_stage := 'After pa_transactions_pub.validate_transaction';
5657: log_message('log_message: ' || pa_debug.G_err_Stage);
5658: END IF;
5659:
5660: -- IF G_skip_tc_flag <> 'Y' THEN /* commented for Bug # 2108456 */
5653: END IF;
5654:
5655: IF PG_DEBUG = 'Y' THEN
5656: pa_debug.G_err_stage := 'After pa_transactions_pub.validate_transaction';
5657: log_message('log_message: ' || pa_debug.G_err_Stage);
5658: END IF;
5659:
5660: -- IF G_skip_tc_flag <> 'Y' THEN /* commented for Bug # 2108456 */
5661:
5661:
5662: IF ( temp_msg_type = 'E' AND temp_status IS NOT NULL ) THEN
5663:
5664: IF PG_DEBUG = 'Y' THEN
5665: pa_debug.G_err_stage := 'Validate_transaction has failed' ;
5666: log_message('log_message: ' || pa_debug.G_err_Stage);
5667: END IF;
5668:
5669: X_status := temp_status;
5662: IF ( temp_msg_type = 'E' AND temp_status IS NOT NULL ) THEN
5663:
5664: IF PG_DEBUG = 'Y' THEN
5665: pa_debug.G_err_stage := 'Validate_transaction has failed' ;
5666: log_message('log_message: ' || pa_debug.G_err_Stage);
5667: END IF;
5668:
5669: X_status := temp_status;
5670:
5697: -- REL12 AP Lines Uptake
5698: NVL(p_fc_document_type, 'NOT' ) <> 'NOT' THEN
5699:
5700: IF PG_DEBUG = 'Y' THEN
5701: pa_debug.G_err_stage := 'Before calling tr_import_funds_check';
5702: log_message('log_message: ' || pa_debug.G_err_Stage);
5703: log_message('log_message: Value of pa_date is= ' || pa_date);
5704: log_message('log_message: Value of X_trx_src is= ' || X_trx_src);
5705: log_message('log_message: Value of X_acct_raw_cost is= ' || X_acct_raw_cost);
5698: NVL(p_fc_document_type, 'NOT' ) <> 'NOT' THEN
5699:
5700: IF PG_DEBUG = 'Y' THEN
5701: pa_debug.G_err_stage := 'Before calling tr_import_funds_check';
5702: log_message('log_message: ' || pa_debug.G_err_Stage);
5703: log_message('log_message: Value of pa_date is= ' || pa_date);
5704: log_message('log_message: Value of X_trx_src is= ' || X_trx_src);
5705: log_message('log_message: Value of X_acct_raw_cost is= ' || X_acct_raw_cost);
5706: log_message('log_message: Value of p_adj_exp_item_id is= ' || p_adj_exp_item_id);
5733:
5734: IF l_fc_return_status <> FND_API.G_RET_STS_SUCCESS then
5735:
5736: IF PG_DEBUG = 'Y' THEN
5737: pa_debug.G_err_stage := 'Call to tr_import_funds_check did not succeed';
5738: log_message('log_message: ' || pa_debug.G_err_Stage);
5739: END IF;
5740:
5741: x_status := l_fc_error_msg ;
5734: IF l_fc_return_status <> FND_API.G_RET_STS_SUCCESS then
5735:
5736: IF PG_DEBUG = 'Y' THEN
5737: pa_debug.G_err_stage := 'Call to tr_import_funds_check did not succeed';
5738: log_message('log_message: ' || pa_debug.G_err_Stage);
5739: END IF;
5740:
5741: x_status := l_fc_error_msg ;
5742: pa_cc_utils.reset_curr_function;
5743: return;
5744: END IF;
5745:
5746: IF PG_DEBUG = 'Y' THEN
5747: pa_debug.G_err_stage := 'Call to internal funds check packet insert success';
5748: log_message('log_message: ' || pa_debug.G_err_Stage);
5749: log_message('log_message: Before Calling Pa_Funds_Control_Pkg.pa_funds_check');
5750: END IF;
5751:
5744: END IF;
5745:
5746: IF PG_DEBUG = 'Y' THEN
5747: pa_debug.G_err_stage := 'Call to internal funds check packet insert success';
5748: log_message('log_message: ' || pa_debug.G_err_Stage);
5749: log_message('log_message: Before Calling Pa_Funds_Control_Pkg.pa_funds_check');
5750: END IF;
5751:
5752: IF Pa_Funds_Control_Pkg.pa_funds_check(p_calling_module => 'TRXIMPORT',
5768:
5769: IF l_fc_return_status <> FND_API.G_RET_STS_SUCCESS then
5770:
5771: IF PG_DEBUG = 'Y' THEN
5772: pa_debug.G_err_stage := 'Call to funds check not success';
5773: log_message('log_message: ' || pa_debug.G_err_Stage);
5774: END IF;
5775:
5776: --x_status := l_fc_return_status ;
5769: IF l_fc_return_status <> FND_API.G_RET_STS_SUCCESS then
5770:
5771: IF PG_DEBUG = 'Y' THEN
5772: pa_debug.G_err_stage := 'Call to funds check not success';
5773: log_message('log_message: ' || pa_debug.G_err_Stage);
5774: END IF;
5775:
5776: --x_status := l_fc_return_status ;
5777: x_status := 'PA_FC_ERROR' ;
5779: return;
5780: END IF;
5781:
5782: IF PG_DEBUG = 'Y' THEN
5783: pa_debug.G_err_stage := 'Check if there are any failed records';
5784: END IF;
5785: log_message('log_message: ' || pa_debug.G_err_Stage);
5786:
5787: Open c_check_fail(l_packet_id);
5781:
5782: IF PG_DEBUG = 'Y' THEN
5783: pa_debug.G_err_stage := 'Check if there are any failed records';
5784: END IF;
5785: log_message('log_message: ' || pa_debug.G_err_Stage);
5786:
5787: Open c_check_fail(l_packet_id);
5788: Fetch c_check_fail
5789: into l_dummy ;
5790:
5791: close c_check_fail ;
5792:
5793: IF PG_DEBUG = 'Y' THEN
5794: pa_debug.G_err_stage := 'After select to check for funds check failed records';
5795: log_message('log_message: ' || pa_debug.G_err_Stage);
5796: END IF;
5797: IF l_dummy = 'X' Then
5798:
5791: close c_check_fail ;
5792:
5793: IF PG_DEBUG = 'Y' THEN
5794: pa_debug.G_err_stage := 'After select to check for funds check failed records';
5795: log_message('log_message: ' || pa_debug.G_err_Stage);
5796: END IF;
5797: IF l_dummy = 'X' Then
5798:
5799: IF PG_DEBUG = 'Y' THEN
5796: END IF;
5797: IF l_dummy = 'X' Then
5798:
5799: IF PG_DEBUG = 'Y' THEN
5800: pa_debug.G_err_stage := 'This transaction failed funds check';
5801: log_message('log_message: ' || pa_debug.G_err_Stage);
5802: END IF;
5803:
5804: x_status := 'PA_FC_ERROR' ;
5797: IF l_dummy = 'X' Then
5798:
5799: IF PG_DEBUG = 'Y' THEN
5800: pa_debug.G_err_stage := 'This transaction failed funds check';
5801: log_message('log_message: ' || pa_debug.G_err_Stage);
5802: END IF;
5803:
5804: x_status := 'PA_FC_ERROR' ;
5805:
5806: pa_cc_utils.reset_curr_function;
5807: return;
5808: ELSE
5809: IF PG_DEBUG = 'Y' THEN
5810: pa_debug.G_err_stage := 'This transaction passed funds check';
5811: log_message('log_message: ' || pa_debug.G_err_Stage);
5812: END IF;
5813:
5814: NULL;
5807: return;
5808: ELSE
5809: IF PG_DEBUG = 'Y' THEN
5810: pa_debug.G_err_stage := 'This transaction passed funds check';
5811: log_message('log_message: ' || pa_debug.G_err_Stage);
5812: END IF;
5813:
5814: NULL;
5815:
5816: END IF;
5817: ELSE
5818:
5819: IF PG_DEBUG = 'Y' THEN
5820: pa_debug.G_err_stage := 'Error during funds check';
5821: log_message('log_message: ' || pa_debug.G_err_Stage);
5822: END IF;
5823:
5824: x_status := 'PA_FC_UNEXP_ERROR' ;
5817: ELSE
5818:
5819: IF PG_DEBUG = 'Y' THEN
5820: pa_debug.G_err_stage := 'Error during funds check';
5821: log_message('log_message: ' || pa_debug.G_err_Stage);
5822: END IF;
5823:
5824: x_status := 'PA_FC_UNEXP_ERROR' ;
5825: pa_cc_utils.reset_curr_function;
5825: pa_cc_utils.reset_curr_function;
5826: return;
5827: END IF;
5828: IF PG_DEBUG = 'Y' THEN
5829: pa_debug.G_err_stage := 'Done with funds check';
5830: log_message('log_message: ' || pa_debug.G_err_Stage);
5831: END IF;
5832: END IF; --- }
5833:
5826: return;
5827: END IF;
5828: IF PG_DEBUG = 'Y' THEN
5829: pa_debug.G_err_stage := 'Done with funds check';
5830: log_message('log_message: ' || pa_debug.G_err_Stage);
5831: END IF;
5832: END IF; --- }
5833:
5834: /* X_bill_flag := temp_bill_flag; commented for bug 6509828*/
5838: --Since p_assignment_id in PATC cannot be changed to IN/OUT, we are using the
5839: --the global variable set in PATC.
5840: --Thus assign PATC.global variable to G_Assignment_Id here for sys links ER,ST,OT.
5841: if (x_system_linkage in ('ST', 'OT', 'ER')) then
5842: pa_debug.G_err_stage := 'Override Assignment Id';
5843: G_Assignment_Id := PATC.G_OVERIDE_ASSIGNMENT_ID;
5844:
5845: /* Start of bug 2648550 */
5846: G_Work_Type_Id := PATC.G_OVERIDE_WORK_TYPE_ID;
5854: END IF;
5855: end if;
5856:
5857: IF PG_DEBUG = 'Y' THEN
5858: pa_debug.G_err_stage := 'Done with Validate Item';
5859: log_message('log_message: ' || pa_debug.G_err_Stage);
5860: END IF;
5861: pa_cc_utils.reset_curr_function; /* bug 2181553 */
5862:
5855: end if;
5856:
5857: IF PG_DEBUG = 'Y' THEN
5858: pa_debug.G_err_stage := 'Done with Validate Item';
5859: log_message('log_message: ' || pa_debug.G_err_Stage);
5860: END IF;
5861: pa_cc_utils.reset_curr_function; /* bug 2181553 */
5862:
5863: -- S.N. CWK changes -> hkulkarn ---> If called from form, release the locks.
5872: EXCEPTION
5873: WHEN OTHERS THEN
5874: IF PG_DEBUG = 'Y' THEN
5875: log_message('log_message: ' || 'In OTHERS of ValidateItem');
5876: log_message('log_message: ' || pa_debug.G_err_Stack,1);
5877: log_message('log_message: ' || SQLERRM,1);
5878: log_message('log_message: ' || pa_debug.G_err_stage,1);
5879: END IF;
5880:
5874: IF PG_DEBUG = 'Y' THEN
5875: log_message('log_message: ' || 'In OTHERS of ValidateItem');
5876: log_message('log_message: ' || pa_debug.G_err_Stack,1);
5877: log_message('log_message: ' || SQLERRM,1);
5878: log_message('log_message: ' || pa_debug.G_err_stage,1);
5879: END IF;
5880:
5881: release_po_line_task_lock; -- bug 3512984
5882:
5920: pa_cc_utils.reset_curr_function;
5921: EXCEPTION
5922: WHEN OTHERS THEN
5923: IF PG_DEBUG = 'Y' THEN
5924: log_message('log_message: ' || pa_debug.G_err_Stack,1);
5925: log_message('log_message: ' || pa_debug.G_err_Stage,1);
5926: log_message('log_message: ' || SQLERRM,1);
5927: END IF;
5928: RAISE ;
5921: EXCEPTION
5922: WHEN OTHERS THEN
5923: IF PG_DEBUG = 'Y' THEN
5924: log_message('log_message: ' || pa_debug.G_err_Stack,1);
5925: log_message('log_message: ' || pa_debug.G_err_Stage,1);
5926: log_message('log_message: ' || SQLERRM,1);
5927: END IF;
5928: RAISE ;
5929:
7072:
7073: IF X_transaction_source NOT IN ('PTE TIME', 'PTE EXPENSE') THEN
7074:
7075: IF PG_DEBUG = 'Y' THEN
7076: pa_debug.G_err_Stage := 'Calling pa_transactions.InsertExpGroupNew';
7077: log_message('log_message: ' || pa_debug.G_err_Stage);
7078: log_message('log_message: ' || 'Group Name = ' || group_name || ' Sys Link = ' || current_system_linkage);
7079: END IF;
7080:
7073: IF X_transaction_source NOT IN ('PTE TIME', 'PTE EXPENSE') THEN
7074:
7075: IF PG_DEBUG = 'Y' THEN
7076: pa_debug.G_err_Stage := 'Calling pa_transactions.InsertExpGroupNew';
7077: log_message('log_message: ' || pa_debug.G_err_Stage);
7078: log_message('log_message: ' || 'Group Name = ' || group_name || ' Sys Link = ' || current_system_linkage);
7079: END IF;
7080:
7081: IF (group_name <> nvl(G_group_name,'X')) THEN
7106: -- for the expenditure.
7107: IF ( X_transaction_source = 'Oracle Self Service Time' ) THEN
7108:
7109: IF PG_DEBUG = 'Y' THEN
7110: pa_debug.G_err_Stage := 'Updating exp for SST';
7111: log_message('log_message: ' || pa_debug.G_err_Stage);
7112: END IF;
7113:
7114: UPDATE pa_expenditures
7107: IF ( X_transaction_source = 'Oracle Self Service Time' ) THEN
7108:
7109: IF PG_DEBUG = 'Y' THEN
7110: pa_debug.G_err_Stage := 'Updating exp for SST';
7111: log_message('log_message: ' || pa_debug.G_err_Stage);
7112: END IF;
7113:
7114: UPDATE pa_expenditures
7115: SET expenditure_group = group_name
7116: WHERE expenditure_id = G_expenditure_id;
7117:
7118: ELSE
7119: IF PG_DEBUG = 'Y' THEN
7120: pa_debug.G_err_Stage := 'Calling pa_transactions.InsertExp';
7121: log_message('log_message: ' || pa_debug.G_err_Stage);
7122: END IF;
7123: -- Trx_import enhancement
7124: -- Bug 2048868 : Added 5 parameters to pass currency attributes to
7117:
7118: ELSE
7119: IF PG_DEBUG = 'Y' THEN
7120: pa_debug.G_err_Stage := 'Calling pa_transactions.InsertExp';
7121: log_message('log_message: ' || pa_debug.G_err_Stage);
7122: END IF;
7123: -- Trx_import enhancement
7124: -- Bug 2048868 : Added 5 parameters to pass currency attributes to
7125: -- pa_transactions.insertexp
7225:
7226: END IF;
7227:
7228: IF PG_DEBUG = 'Y' THEN
7229: pa_debug.G_err_Stage := 'Calling pa_transactions.InsItems';
7230: log_message('log_message: ' || pa_debug.G_err_Stage);
7231: END IF;
7232:
7233: select decode(G_gl_accted_flag,'N','N',decode(G_gl_posted_flag,'Y','Y','P')) into l_gl_accted_flag from dual;
7226: END IF;
7227:
7228: IF PG_DEBUG = 'Y' THEN
7229: pa_debug.G_err_Stage := 'Calling pa_transactions.InsItems';
7230: log_message('log_message: ' || pa_debug.G_err_Stage);
7231: END IF;
7232:
7233: select decode(G_gl_accted_flag,'N','N',decode(G_gl_posted_flag,'Y','Y','P')) into l_gl_accted_flag from dual;
7234:
7268:
7269: IF ( temp_status < 0 ) THEN
7270: error_msg := SQLERRM( temp_status);
7271: IF PG_DEBUG = 'Y' THEN
7272: log_message('log_message: ' || pa_debug.G_err_Stack,1);
7273: log_message('log_message: ' || error_msg,1);
7274: log_message('log_message: ' || pa_debug.G_err_Stage,1);
7275: END IF;
7276: raise_application_error( -20000, error_msg ) ;
7270: error_msg := SQLERRM( temp_status);
7271: IF PG_DEBUG = 'Y' THEN
7272: log_message('log_message: ' || pa_debug.G_err_Stack,1);
7273: log_message('log_message: ' || error_msg,1);
7274: log_message('log_message: ' || pa_debug.G_err_Stage,1);
7275: END IF;
7276: raise_application_error( -20000, error_msg ) ;
7277: END IF;
7278: END IF; --> l_gms_enabled = 'Y'
7277: END IF;
7278: END IF; --> l_gms_enabled = 'Y'
7279:
7280: IF PG_DEBUG = 'Y' THEN
7281: pa_debug.G_err_stage := 'Updating txn interface status to I';
7282: log_message('log_message: ' || pa_debug.G_err_Stage);
7283: END IF;
7284:
7285: -- BUG:4748305 DFHC.D4:PRC INTERFACE SUPPLIER COST NOT INTERFACING
7278: END IF; --> l_gms_enabled = 'Y'
7279:
7280: IF PG_DEBUG = 'Y' THEN
7281: pa_debug.G_err_stage := 'Updating txn interface status to I';
7282: log_message('log_message: ' || pa_debug.G_err_Stage);
7283: END IF;
7284:
7285: -- BUG:4748305 DFHC.D4:PRC INTERFACE SUPPLIER COST NOT INTERFACING
7286: -- VALID INVOICE DISTRIBUTIONS
7305: AND batch_name = P_batch_name
7306: AND transaction_rejection_code is NULL; -- Bug 3613784 : Performance fix
7307:
7308: IF PG_DEBUG = 'Y' THEN
7309: pa_debug.G_err_stage := 'Updated ' || SQL%ROWCOUNT || ' txn interface for accepted expenditures';
7310: log_message('log_message: ' || pa_debug.G_err_Stage);
7311: END IF;
7312:
7313: ELSE --IF ( NOT REJECT_EXP ) THEN
7306: AND transaction_rejection_code is NULL; -- Bug 3613784 : Performance fix
7307:
7308: IF PG_DEBUG = 'Y' THEN
7309: pa_debug.G_err_stage := 'Updated ' || SQL%ROWCOUNT || ' txn interface for accepted expenditures';
7310: log_message('log_message: ' || pa_debug.G_err_Stage);
7311: END IF;
7312:
7313: ELSE --IF ( NOT REJECT_EXP ) THEN
7314:
7312:
7313: ELSE --IF ( NOT REJECT_EXP ) THEN
7314:
7315: IF PG_DEBUG = 'Y' THEN
7316: pa_debug.G_err_stage := 'Updating txn interface for rejected expenditures';
7317: log_message('log_message: ' || pa_debug.G_err_Stage);
7318: END IF;
7319: UPDATE pa_transaction_interface
7320: SET
7313: ELSE --IF ( NOT REJECT_EXP ) THEN
7314:
7315: IF PG_DEBUG = 'Y' THEN
7316: pa_debug.G_err_stage := 'Updating txn interface for rejected expenditures';
7317: log_message('log_message: ' || pa_debug.G_err_Stage);
7318: END IF;
7319: UPDATE pa_transaction_interface
7320: SET
7321: transaction_status_code = decode(expenditure_item_id, 0, 'P', 'R') , /* Bug 8709614 */
7334: expenditure_id = G_expenditure_id
7335: AND batch_name = P_batch_name ; -- Bug 3613784 : Performance fix
7336:
7337: IF PG_DEBUG = 'Y' THEN
7338: pa_debug.G_err_stage := 'Updated ' || SQL%ROWCOUNT || ' txn interface for rejected expenditures';
7339: log_message('log_message: ' || pa_debug.G_err_Stage);
7340: END IF;
7341: END IF;
7342:
7335: AND batch_name = P_batch_name ; -- Bug 3613784 : Performance fix
7336:
7337: IF PG_DEBUG = 'Y' THEN
7338: pa_debug.G_err_stage := 'Updated ' || SQL%ROWCOUNT || ' txn interface for rejected expenditures';
7339: log_message('log_message: ' || pa_debug.G_err_Stage);
7340: END IF;
7341: END IF;
7342:
7343: IF PG_DEBUG = 'Y' THEN
7340: END IF;
7341: END IF;
7342:
7343: IF PG_DEBUG = 'Y' THEN
7344: pa_debug.G_err_stage := 'Calling pa_transactions.FlushEiTabs';
7345: log_message('log_message: ' || pa_debug.G_err_Stage);
7346: END IF;
7347: pa_transactions.FlushEiTabs;
7348:
7341: END IF;
7342:
7343: IF PG_DEBUG = 'Y' THEN
7344: pa_debug.G_err_stage := 'Calling pa_transactions.FlushEiTabs';
7345: log_message('log_message: ' || pa_debug.G_err_Stage);
7346: END IF;
7347: pa_transactions.FlushEiTabs;
7348:
7349: -- Bug 752915, added the following to flush the adjustments ei pl/sql table
7686: -- written out for the Interface programs from AP.
7687: -- The following two lines should take care of this problem.
7688:
7689: If G_debug_mode is NULL Then
7690: fnd_profile.get('PA_DEBUG_MODE',G_debug_mode);
7691: G_debug_mode := NVL(G_debug_mode, 'N');
7692:
7693: pa_debug.set_process(x_process => 'PLSQL',
7694: x_debug_mode => G_debug_mode);
7689: If G_debug_mode is NULL Then
7690: fnd_profile.get('PA_DEBUG_MODE',G_debug_mode);
7691: G_debug_mode := NVL(G_debug_mode, 'N');
7692:
7693: pa_debug.set_process(x_process => 'PLSQL',
7694: x_debug_mode => G_debug_mode);
7695: End If;
7696:
7697: pa_cc_utils.log_message('Debug Mode = '||G_debug_mode,1);
7713: END IF;
7714:
7715: IF (G_trx_link is null) Then
7716: IF PG_DEBUG = 'Y' THEN
7717: pa_debug.G_err_Stage := 'Retriving Transaction_source';
7718: log_message('log_message: ' || pa_debug.G_err_Stage);
7719: END IF;
7720: GetTrxSrcInfo( X_transaction_source );
7721: End If;
7714:
7715: IF (G_trx_link is null) Then
7716: IF PG_DEBUG = 'Y' THEN
7717: pa_debug.G_err_Stage := 'Retriving Transaction_source';
7718: log_message('log_message: ' || pa_debug.G_err_Stage);
7719: END IF;
7720: GetTrxSrcInfo( X_transaction_source );
7721: End If;
7722:
7725: log_message('log_message: ' || 'Initial l_Batch_Size = ' || l_Batch_Size);
7726: END IF;
7727:
7728: IF PG_DEBUG = 'Y' THEN
7729: pa_debug.G_err_stage := 'Retriving Currency Info from Imp options';
7730: log_message('log_message: ' || pa_debug.G_err_stage);
7731: END IF;
7732:
7733: IF (G_accounting_currency_code IS NULL) THEN
7726: END IF;
7727:
7728: IF PG_DEBUG = 'Y' THEN
7729: pa_debug.G_err_stage := 'Retriving Currency Info from Imp options';
7730: log_message('log_message: ' || pa_debug.G_err_stage);
7731: END IF;
7732:
7733: IF (G_accounting_currency_code IS NULL) THEN
7734: GetImpCurrInfo;
7758: IF PG_DEBUG = 'Y' THEN
7759: log_message('log_message: ' || 'Module:'||v_calling_module);
7760: END IF;
7761: IF PG_DEBUG = 'Y' THEN
7762: pa_debug.G_err_stage := 'Open and Fetch transaction batches';
7763: log_message('log_message: ' || pa_debug.G_err_stage);
7764: END IF;
7765:
7766: /* Check if gms is enabled and keep the status in a variable */
7759: log_message('log_message: ' || 'Module:'||v_calling_module);
7760: END IF;
7761: IF PG_DEBUG = 'Y' THEN
7762: pa_debug.G_err_stage := 'Open and Fetch transaction batches';
7763: log_message('log_message: ' || pa_debug.G_err_stage);
7764: END IF;
7765:
7766: /* Check if gms is enabled and keep the status in a variable */
7767:
7766: /* Check if gms is enabled and keep the status in a variable */
7767:
7768: l_gms_enabled := gms_pa_costing_pkg.grants_implemented;
7769:
7770: /* if NVL(fnd_profile.value('PA_DEBUG_MODE'), 'N') = 'Y' then --FSIO Change
7771: G_FSIO_ENABLED := 'Y';
7772: else
7773: G_FSIO_ENABLED := 'N';
7774: end if; */
7780: <
7781: Loop ---{
7782:
7783: IF PG_DEBUG = 'Y' THEN
7784: pa_debug.G_err_Stage := 'Start TrxBatches loop';
7785: log_message('log_message: ' || pa_debug.G_err_stage);
7786: END IF;
7787:
7788: Fetch TrxBatches INTO TrxBatch;
7781: Loop ---{
7782:
7783: IF PG_DEBUG = 'Y' THEN
7784: pa_debug.G_err_Stage := 'Start TrxBatches loop';
7785: log_message('log_message: ' || pa_debug.G_err_stage);
7786: END IF;
7787:
7788: Fetch TrxBatches INTO TrxBatch;
7789:
7788: Fetch TrxBatches INTO TrxBatch;
7789:
7790: If TrxBatches%ROWCOUNT = 0 and G_Exit_Main is null Then
7791: IF PG_DEBUG = 'Y' THEN
7792: log_message('log_message: ' || pa_debug.G_err_stage,1);
7793: END IF;
7794: G_Exit_Main := TRUE;
7795: Exit batches;
7796: Elsif TrxBatches%NOTFOUND Then
7794: G_Exit_Main := TRUE;
7795: Exit batches;
7796: Elsif TrxBatches%NOTFOUND Then
7797: IF PG_DEBUG = 'Y' THEN
7798: pa_debug.G_err_Stage := 'TrxBatches notfound, exit trxbatches';
7799: log_message('log_message: ' || pa_debug.G_err_stage,1);
7800: END IF;
7801: If X_transaction_source <> 'ORACLE TIME AND LABOR' Then --bug8530681
7802: G_Exit_Main := TRUE; --Bug 7307479
7795: Exit batches;
7796: Elsif TrxBatches%NOTFOUND Then
7797: IF PG_DEBUG = 'Y' THEN
7798: pa_debug.G_err_Stage := 'TrxBatches notfound, exit trxbatches';
7799: log_message('log_message: ' || pa_debug.G_err_stage,1);
7800: END IF;
7801: If X_transaction_source <> 'ORACLE TIME AND LABOR' Then --bug8530681
7802: G_Exit_Main := TRUE; --Bug 7307479
7803: End If;
7821:
7822: End If;
7823:
7824: IF PG_DEBUG = 'Y' THEN
7825: pa_debug.G_err_Stage := 'Locking xface ctrl record';
7826: log_message('log_message: ' || pa_debug.G_err_stage||
7827: 'Transaction source = '||TrxBatch.transaction_source
7828: ||' batch= '||TrxBatch.batch_name||' sys link= '||
7829: TrxBatch.system_linkage_function);
7822: End If;
7823:
7824: IF PG_DEBUG = 'Y' THEN
7825: pa_debug.G_err_Stage := 'Locking xface ctrl record';
7826: log_message('log_message: ' || pa_debug.G_err_stage||
7827: 'Transaction source = '||TrxBatch.transaction_source
7828: ||' batch= '||TrxBatch.batch_name||' sys link= '||
7829: TrxBatch.system_linkage_function);
7830: END IF;
7841:
7842: IF (l_CommitSizeRecCount <> l_Batch_Size) THEN ---{
7843:
7844: IF PG_DEBUG = 'Y' THEN
7845: pa_debug.G_err_Stage := 'Open cursor trxrecs';
7846: log_message('log_message: ' || pa_debug.G_err_Stage);
7847: log_message('log_message: ' || 'source = '||TrxBatch.transaction_source ||
7848: ' , batch = ' || TrxBatch.batch_name ||
7849: ' sys link = ' || TrxBatch.system_linkage_function);
7842: IF (l_CommitSizeRecCount <> l_Batch_Size) THEN ---{
7843:
7844: IF PG_DEBUG = 'Y' THEN
7845: pa_debug.G_err_Stage := 'Open cursor trxrecs';
7846: log_message('log_message: ' || pa_debug.G_err_Stage);
7847: log_message('log_message: ' || 'source = '||TrxBatch.transaction_source ||
7848: ' , batch = ' || TrxBatch.batch_name ||
7849: ' sys link = ' || TrxBatch.system_linkage_function);
7850: END IF;
8146: End If; --} /* TrxBatch.system_linkage_function = 'ST' */
8147:
8148:
8149: IF PG_DEBUG = 'Y' THEN
8150: pa_debug.g_err_stage := 'Log: No. of records fetched = '||l_TxnIfIDTab.count;
8151: log_message('log_message: ' || pa_debug.G_err_stage);
8152: END IF;
8153: l_ActualBatchRecCnt := l_TxnIfIDTab.count;
8154:
8147:
8148:
8149: IF PG_DEBUG = 'Y' THEN
8150: pa_debug.g_err_stage := 'Log: No. of records fetched = '||l_TxnIfIDTab.count;
8151: log_message('log_message: ' || pa_debug.G_err_stage);
8152: END IF;
8153: l_ActualBatchRecCnt := l_TxnIfIDTab.count;
8154:
8155:
8320:
8321: If (nvl(G_emp_org_oride,'N') = 'N' and l_PersonIdTab(j) is not NULL) Then /* bug#2719674 added nvl */
8322:
8323: IF PG_DEBUG = 'Y' THEN
8324: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId';
8325: log_message('log_message: ' || pa_debug.G_err_Stage);
8326: END IF;
8327: pa_utils.GetEmpOrgJobId( l_PersonIdTab(j),
8328: l_EiDateTab(j),
8321: If (nvl(G_emp_org_oride,'N') = 'N' and l_PersonIdTab(j) is not NULL) Then /* bug#2719674 added nvl */
8322:
8323: IF PG_DEBUG = 'Y' THEN
8324: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId';
8325: log_message('log_message: ' || pa_debug.G_err_Stage);
8326: END IF;
8327: pa_utils.GetEmpOrgJobId( l_PersonIdTab(j),
8328: l_EiDateTab(j),
8329: l_EmpOrgIdTab(j),
8350: /* Bug 6857130 End */
8351:
8352:
8353: IF PG_DEBUG = 'Y' THEN
8354: pa_debug.G_err_stage := 'l_EmpOrgIdTab = ' || l_EmpOrgIdTab(j) ||
8355: ' l_EmpJobIdTab = ' || l_EmpJobIdTab(j) ;
8356: log_message('log_message: ' || pa_debug.G_err_Stage);
8357: END IF;
8358:
8352:
8353: IF PG_DEBUG = 'Y' THEN
8354: pa_debug.G_err_stage := 'l_EmpOrgIdTab = ' || l_EmpOrgIdTab(j) ||
8355: ' l_EmpJobIdTab = ' || l_EmpJobIdTab(j) ;
8356: log_message('log_message: ' || pa_debug.G_err_Stage);
8357: END IF;
8358:
8359: Else
8360:
8425: From Dual;
8426:
8427: IF ( FIRST_RECORD ) THEN
8428: IF PG_DEBUG = 'Y' THEN
8429: pa_debug.G_err_stage := 'Calling loadExpCompareVars';
8430: log_message('log_message: ' || 'First Record Fetched');
8431: log_message('log_message: ' || pa_debug.G_err_stage);
8432: END IF;
8433:
8427: IF ( FIRST_RECORD ) THEN
8428: IF PG_DEBUG = 'Y' THEN
8429: pa_debug.G_err_stage := 'Calling loadExpCompareVars';
8430: log_message('log_message: ' || 'First Record Fetched');
8431: log_message('log_message: ' || pa_debug.G_err_stage);
8432: END IF;
8433:
8434: loadExpCompareVars( l_Expend1
8435: , l_Expend2
8449: (x_transaction_source = 'ORACLE TIME AND LABOR' and --Bug#4049401
8450: l_EmpOrgIdTab(j) <> G_org_id) THEN
8451:
8452: IF PG_DEBUG = 'Y' THEN
8453: pa_debug.G_err_stage := 'Calling newExpend when expenditure changes';
8454: log_message('log_message: ' || pa_debug.G_err_stage);
8455: log_message('log_message: ' || 'Record Count = ' || i);
8456: END IF;
8457:
8450: l_EmpOrgIdTab(j) <> G_org_id) THEN
8451:
8452: IF PG_DEBUG = 'Y' THEN
8453: pa_debug.G_err_stage := 'Calling newExpend when expenditure changes';
8454: log_message('log_message: ' || pa_debug.G_err_stage);
8455: log_message('log_message: ' || 'Record Count = ' || i);
8456: END IF;
8457:
8458: newExpend( TrxBatch.exp_group_name
8466: , prev_person_type /* cwk */
8467: , TrxBatch.batch_name ); -- Bug 3613784 : Performance fix
8468:
8469: IF PG_DEBUG = 'Y' THEN
8470: pa_debug.G_err_stage := 'CAlling loadExpCompareVars';
8471: log_message('log_message: ' || pa_debug.G_err_stage);
8472: END IF;
8473:
8474: loadExpCompareVars( l_Expend1
8467: , TrxBatch.batch_name ); -- Bug 3613784 : Performance fix
8468:
8469: IF PG_DEBUG = 'Y' THEN
8470: pa_debug.G_err_stage := 'CAlling loadExpCompareVars';
8471: log_message('log_message: ' || pa_debug.G_err_stage);
8472: END IF;
8473:
8474: loadExpCompareVars( l_Expend1
8475: , l_Expend2
8480: , l_OrigExpTxnRef3Tab(j));
8481: END IF;
8482:
8483: IF PG_DEBUG = 'Y' THEN
8484: pa_debug.G_err_stage := 'CAlling ValidateOrgId';
8485: log_message('log_message: ' || pa_debug.G_err_stage);
8486: END IF;
8487:
8488: ValidateOrgId(l_OrgIdTab(j),X_org_status );
8481: END IF;
8482:
8483: IF PG_DEBUG = 'Y' THEN
8484: pa_debug.G_err_stage := 'CAlling ValidateOrgId';
8485: log_message('log_message: ' || pa_debug.G_err_stage);
8486: END IF;
8487:
8488: ValidateOrgId(l_OrgIdTab(j),X_org_status );
8489:
8514:
8515: l_adjTxnEiIDTab(l_txnIfIdTab(j)) := X_ei_id ;
8516:
8517: IF PG_DEBUG = 'Y' THEN
8518: pa_debug.G_err_stage := 'AP Net Zero adjusted expenditure item id:'||X_ei_id;
8519: log_message('log_message: ' || pa_debug.G_err_stage);
8520: pa_debug.G_err_stage := 'TXN Interface ID:'||l_txnIfIdTab(j);
8521: log_message('log_message: ' || pa_debug.G_err_stage);
8522: pa_debug.G_err_stage := 'l_adjTxnEiIDTab(l_txnIfIdTab(j)):'||l_adjTxnEiIDTab(l_txnIfIdTab(j));
8515: l_adjTxnEiIDTab(l_txnIfIdTab(j)) := X_ei_id ;
8516:
8517: IF PG_DEBUG = 'Y' THEN
8518: pa_debug.G_err_stage := 'AP Net Zero adjusted expenditure item id:'||X_ei_id;
8519: log_message('log_message: ' || pa_debug.G_err_stage);
8520: pa_debug.G_err_stage := 'TXN Interface ID:'||l_txnIfIdTab(j);
8521: log_message('log_message: ' || pa_debug.G_err_stage);
8522: pa_debug.G_err_stage := 'l_adjTxnEiIDTab(l_txnIfIdTab(j)):'||l_adjTxnEiIDTab(l_txnIfIdTab(j));
8523: log_message('log_message: ' || pa_debug.G_err_stage);
8516:
8517: IF PG_DEBUG = 'Y' THEN
8518: pa_debug.G_err_stage := 'AP Net Zero adjusted expenditure item id:'||X_ei_id;
8519: log_message('log_message: ' || pa_debug.G_err_stage);
8520: pa_debug.G_err_stage := 'TXN Interface ID:'||l_txnIfIdTab(j);
8521: log_message('log_message: ' || pa_debug.G_err_stage);
8522: pa_debug.G_err_stage := 'l_adjTxnEiIDTab(l_txnIfIdTab(j)):'||l_adjTxnEiIDTab(l_txnIfIdTab(j));
8523: log_message('log_message: ' || pa_debug.G_err_stage);
8524: END IF;
8517: IF PG_DEBUG = 'Y' THEN
8518: pa_debug.G_err_stage := 'AP Net Zero adjusted expenditure item id:'||X_ei_id;
8519: log_message('log_message: ' || pa_debug.G_err_stage);
8520: pa_debug.G_err_stage := 'TXN Interface ID:'||l_txnIfIdTab(j);
8521: log_message('log_message: ' || pa_debug.G_err_stage);
8522: pa_debug.G_err_stage := 'l_adjTxnEiIDTab(l_txnIfIdTab(j)):'||l_adjTxnEiIDTab(l_txnIfIdTab(j));
8523: log_message('log_message: ' || pa_debug.G_err_stage);
8524: END IF;
8525: END IF ;
8518: pa_debug.G_err_stage := 'AP Net Zero adjusted expenditure item id:'||X_ei_id;
8519: log_message('log_message: ' || pa_debug.G_err_stage);
8520: pa_debug.G_err_stage := 'TXN Interface ID:'||l_txnIfIdTab(j);
8521: log_message('log_message: ' || pa_debug.G_err_stage);
8522: pa_debug.G_err_stage := 'l_adjTxnEiIDTab(l_txnIfIdTab(j)):'||l_adjTxnEiIDTab(l_txnIfIdTab(j));
8523: log_message('log_message: ' || pa_debug.G_err_stage);
8524: END IF;
8525: END IF ;
8526:
8519: log_message('log_message: ' || pa_debug.G_err_stage);
8520: pa_debug.G_err_stage := 'TXN Interface ID:'||l_txnIfIdTab(j);
8521: log_message('log_message: ' || pa_debug.G_err_stage);
8522: pa_debug.G_err_stage := 'l_adjTxnEiIDTab(l_txnIfIdTab(j)):'||l_adjTxnEiIDTab(l_txnIfIdTab(j));
8523: log_message('log_message: ' || pa_debug.G_err_stage);
8524: END IF;
8525: END IF ;
8526:
8527: END IF ;
8532: log_message('log_message: l_adjTxnInterfaceIdTab(j) :' || l_adjTxnInterfaceIdTab(j));
8533: END IF ;
8534:
8535: IF PG_DEBUG = 'Y' THEN
8536: pa_debug.G_err_stage := 'CAlling ValidateItem';
8537: log_message('log_message: ' || pa_debug.G_err_stage);
8538: END IF;
8539: log_message('before calling validateitemotl: worktype: ' || l_worktypeidtab(j));
8540: x_status := NULL ;
8533: END IF ;
8534:
8535: IF PG_DEBUG = 'Y' THEN
8536: pa_debug.G_err_stage := 'CAlling ValidateItem';
8537: log_message('log_message: ' || pa_debug.G_err_stage);
8538: END IF;
8539: log_message('before calling validateitemotl: worktype: ' || l_worktypeidtab(j));
8540: x_status := NULL ;
8541:
8708: -- Cash based accounting support
8709: -- IF x_status is NULL THEN was added.
8710: --
8711: IF PG_DEBUG = 'Y' THEN
8712: pa_debug.G_err_stage := 'before calling ValidateItem API.. job name: '||l_job_nametab(j) ||', job id: ' || l_job_idtab(j);
8713: log_message('log_message: ' || pa_debug.G_err_stage);
8714: END IF;
8715:
8716: IF x_status is NULL THEN
8709: -- IF x_status is NULL THEN was added.
8710: --
8711: IF PG_DEBUG = 'Y' THEN
8712: pa_debug.G_err_stage := 'before calling ValidateItem API.. job name: '||l_job_nametab(j) ||', job id: ' || l_job_idtab(j);
8713: log_message('log_message: ' || pa_debug.G_err_stage);
8714: END IF;
8715:
8716: IF x_status is NULL THEN
8717: --select
8838: -- End: Added for CBS Enhancement Bug 16220146
8839: END IF ;
8840:
8841: IF PG_DEBUG = 'Y' THEN
8842: pa_debug.G_err_stage := 'Done calling ValidateItem API';
8843: log_message('log_message: ' || pa_debug.G_err_stage);
8844: END IF;
8845: End If;
8846:
8839: END IF ;
8840:
8841: IF PG_DEBUG = 'Y' THEN
8842: pa_debug.G_err_stage := 'Done calling ValidateItem API';
8843: log_message('log_message: ' || pa_debug.G_err_stage);
8844: END IF;
8845: End If;
8846:
8847: if l_location_idTab(j) is null then
8874: -- x_status and continue validations if x_status is NULL and vertical
8875: -- application is implemented only.
8876: -- ------------------------------------------------------------------------
8877: IF PG_DEBUG = 'Y' THEN
8878: pa_debug.G_err_stage := 'Calling PA_GMS_API api';
8879: log_message('log_message: ' || pa_debug.G_err_stage);
8880: END IF;
8881:
8882: IF l_gms_enabled = 'Y' and l_gms_fundscheck = 'Y' THEN
8875: -- application is implemented only.
8876: -- ------------------------------------------------------------------------
8877: IF PG_DEBUG = 'Y' THEN
8878: pa_debug.G_err_stage := 'Calling PA_GMS_API api';
8879: log_message('log_message: ' || pa_debug.G_err_stage);
8880: END IF;
8881:
8882: IF l_gms_enabled = 'Y' and l_gms_fundscheck = 'Y' THEN
8883: PA_GMS_API.vert_app_validate(X_transaction_source,
8897:
8898: END IF; --> gms_enabled.
8899:
8900: IF PG_DEBUG = 'Y' THEN
8901: pa_debug.G_err_stage := 'After PA_GMS_API api';
8902: log_message('log_message: ' || pa_debug.G_err_stage);
8903: END IF;
8904:
8905: -- validateitem has lot of return statements, so instead
8898: END IF; --> gms_enabled.
8899:
8900: IF PG_DEBUG = 'Y' THEN
8901: pa_debug.G_err_stage := 'After PA_GMS_API api';
8902: log_message('log_message: ' || pa_debug.G_err_stage);
8903: END IF;
8904:
8905: -- validateitem has lot of return statements, so instead
8906: -- resetting the error stack for each return statement
8914:
8915: IF ( X_status IS NOT NULL ) THEN
8916:
8917: IF PG_DEBUG = 'Y' THEN
8918: pa_debug.G_err_stage := 'Updating txn interface table for txn'||
8919: ' rejected by validateitem';
8920: log_message('log_message: ' || pa_debug.G_err_stage);
8921: END IF;
8922:
8916:
8917: IF PG_DEBUG = 'Y' THEN
8918: pa_debug.G_err_stage := 'Updating txn interface table for txn'||
8919: ' rejected by validateitem';
8920: log_message('log_message: ' || pa_debug.G_err_stage);
8921: END IF;
8922:
8923: /* PA-K
8924: Performance Team Suggestion: To combine the below update (by txn_interface_id) with the
8973: IF v_calling_module = 'PAAPIMP' and
8974: TrxBatch.system_linkage_function = 'VI' THEN
8975:
8976: IF PG_DEBUG = 'Y' THEN
8977: pa_debug.G_err_stage := 'Processing the valid distributions '||
8978: ' accepted by validateitem';
8979: log_message('log_message: ' || pa_debug.G_err_stage);
8980: END IF;
8981:
8975:
8976: IF PG_DEBUG = 'Y' THEN
8977: pa_debug.G_err_stage := 'Processing the valid distributions '||
8978: ' accepted by validateitem';
8979: log_message('log_message: ' || pa_debug.G_err_stage);
8980: END IF;
8981:
8982:
8983: REJECT_EXP := FALSE;
8983: REJECT_EXP := FALSE;
8984: END IF ;
8985:
8986: IF PG_DEBUG = 'Y' THEN
8987: pa_debug.G_err_stage := 'Updating txn interface table for txn'||
8988: ' accepted by validateitem';
8989: log_message('log_message: ' || pa_debug.G_err_stage);
8990: END IF;
8991:
8985:
8986: IF PG_DEBUG = 'Y' THEN
8987: pa_debug.G_err_stage := 'Updating txn interface table for txn'||
8988: ' accepted by validateitem';
8989: log_message('log_message: ' || pa_debug.G_err_stage);
8990: END IF;
8991:
8992: UPDATE pa_transaction_interface
8993: SET
9033:
9034: ELSIF ( G_trx_costed = 'Y' ) THEN
9035:
9036: IF PG_DEBUG = 'Y' THEN
9037: pa_debug.G_err_stage := 'rounding transaction raw cost';
9038: log_message('log_message: ' || pa_debug.G_err_stage);
9039: END IF;
9040:
9041: l_DenomRawCostTab(j) := pa_currency.round_trans_currency_amt1(l_DenomRawCostTab(j),l_DenomCurrCodeTab(j));
9034: ELSIF ( G_trx_costed = 'Y' ) THEN
9035:
9036: IF PG_DEBUG = 'Y' THEN
9037: pa_debug.G_err_stage := 'rounding transaction raw cost';
9038: log_message('log_message: ' || pa_debug.G_err_stage);
9039: END IF;
9040:
9041: l_DenomRawCostTab(j) := pa_currency.round_trans_currency_amt1(l_DenomRawCostTab(j),l_DenomCurrCodeTab(j));
9042:
9042:
9043: /* Added the call to round off denom_burdened_cost for bug 2871273 */
9044:
9045: IF PG_DEBUG = 'Y' THEN
9046: pa_debug.G_err_stage := 'rounding transaction burden cost';
9047: log_message('log_message: ' || pa_debug.G_err_stage);
9048: END IF;
9049:
9050: l_DenomBdCostTab(j) := pa_currency.round_trans_currency_amt1(l_DenomBdCostTab(j),l_DenomCurrCodeTab(j));
9043: /* Added the call to round off denom_burdened_cost for bug 2871273 */
9044:
9045: IF PG_DEBUG = 'Y' THEN
9046: pa_debug.G_err_stage := 'rounding transaction burden cost';
9047: log_message('log_message: ' || pa_debug.G_err_stage);
9048: END IF;
9049:
9050: l_DenomBdCostTab(j) := pa_currency.round_trans_currency_amt1(l_DenomBdCostTab(j),l_DenomCurrCodeTab(j));
9051:
9096: log_message('log_message: payment_hist_dist_id for discounts and payments. ') ;
9097: log_message('log_message: For prepay application in cash based accounting, SR5') ;
9098: log_message('log_message: is populated with the pre-pay appdist_id.') ;
9099:
9100: pa_debug.G_err_stage := 'l_VendorIdTab(j) : '|| l_VendorIdTab(j) ;
9101: log_message('log_message: ' || pa_debug.G_err_stage);
9102:
9103: pa_debug.G_err_stage := 'l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9104: log_message('log_message: ' || pa_debug.G_err_stage);
9097: log_message('log_message: For prepay application in cash based accounting, SR5') ;
9098: log_message('log_message: is populated with the pre-pay appdist_id.') ;
9099:
9100: pa_debug.G_err_stage := 'l_VendorIdTab(j) : '|| l_VendorIdTab(j) ;
9101: log_message('log_message: ' || pa_debug.G_err_stage);
9102:
9103: pa_debug.G_err_stage := 'l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9104: log_message('log_message: ' || pa_debug.G_err_stage);
9105: pa_debug.G_err_stage := 'l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9099:
9100: pa_debug.G_err_stage := 'l_VendorIdTab(j) : '|| l_VendorIdTab(j) ;
9101: log_message('log_message: ' || pa_debug.G_err_stage);
9102:
9103: pa_debug.G_err_stage := 'l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9104: log_message('log_message: ' || pa_debug.G_err_stage);
9105: pa_debug.G_err_stage := 'l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9106: log_message('log_message: ' || pa_debug.G_err_stage);
9107: pa_debug.G_err_stage := 'l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9100: pa_debug.G_err_stage := 'l_VendorIdTab(j) : '|| l_VendorIdTab(j) ;
9101: log_message('log_message: ' || pa_debug.G_err_stage);
9102:
9103: pa_debug.G_err_stage := 'l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9104: log_message('log_message: ' || pa_debug.G_err_stage);
9105: pa_debug.G_err_stage := 'l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9106: log_message('log_message: ' || pa_debug.G_err_stage);
9107: pa_debug.G_err_stage := 'l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9108: log_message('log_message: ' || pa_debug.G_err_stage);
9101: log_message('log_message: ' || pa_debug.G_err_stage);
9102:
9103: pa_debug.G_err_stage := 'l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9104: log_message('log_message: ' || pa_debug.G_err_stage);
9105: pa_debug.G_err_stage := 'l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9106: log_message('log_message: ' || pa_debug.G_err_stage);
9107: pa_debug.G_err_stage := 'l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9108: log_message('log_message: ' || pa_debug.G_err_stage);
9109: pa_debug.G_err_stage := 'l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9102:
9103: pa_debug.G_err_stage := 'l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9104: log_message('log_message: ' || pa_debug.G_err_stage);
9105: pa_debug.G_err_stage := 'l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9106: log_message('log_message: ' || pa_debug.G_err_stage);
9107: pa_debug.G_err_stage := 'l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9108: log_message('log_message: ' || pa_debug.G_err_stage);
9109: pa_debug.G_err_stage := 'l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9110: log_message('log_message: ' || pa_debug.G_err_stage);
9103: pa_debug.G_err_stage := 'l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9104: log_message('log_message: ' || pa_debug.G_err_stage);
9105: pa_debug.G_err_stage := 'l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9106: log_message('log_message: ' || pa_debug.G_err_stage);
9107: pa_debug.G_err_stage := 'l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9108: log_message('log_message: ' || pa_debug.G_err_stage);
9109: pa_debug.G_err_stage := 'l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9110: log_message('log_message: ' || pa_debug.G_err_stage);
9111: pa_debug.G_err_stage := 'l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9104: log_message('log_message: ' || pa_debug.G_err_stage);
9105: pa_debug.G_err_stage := 'l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9106: log_message('log_message: ' || pa_debug.G_err_stage);
9107: pa_debug.G_err_stage := 'l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9108: log_message('log_message: ' || pa_debug.G_err_stage);
9109: pa_debug.G_err_stage := 'l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9110: log_message('log_message: ' || pa_debug.G_err_stage);
9111: pa_debug.G_err_stage := 'l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9112: log_message('log_message: ' || pa_debug.G_err_stage);
9105: pa_debug.G_err_stage := 'l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9106: log_message('log_message: ' || pa_debug.G_err_stage);
9107: pa_debug.G_err_stage := 'l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9108: log_message('log_message: ' || pa_debug.G_err_stage);
9109: pa_debug.G_err_stage := 'l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9110: log_message('log_message: ' || pa_debug.G_err_stage);
9111: pa_debug.G_err_stage := 'l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9112: log_message('log_message: ' || pa_debug.G_err_stage);
9113: END IF;
9106: log_message('log_message: ' || pa_debug.G_err_stage);
9107: pa_debug.G_err_stage := 'l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9108: log_message('log_message: ' || pa_debug.G_err_stage);
9109: pa_debug.G_err_stage := 'l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9110: log_message('log_message: ' || pa_debug.G_err_stage);
9111: pa_debug.G_err_stage := 'l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9112: log_message('log_message: ' || pa_debug.G_err_stage);
9113: END IF;
9114:
9107: pa_debug.G_err_stage := 'l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9108: log_message('log_message: ' || pa_debug.G_err_stage);
9109: pa_debug.G_err_stage := 'l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9110: log_message('log_message: ' || pa_debug.G_err_stage);
9111: pa_debug.G_err_stage := 'l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9112: log_message('log_message: ' || pa_debug.G_err_stage);
9113: END IF;
9114:
9115: IF v_calling_module = 'PAAPIMP' THEN
9108: log_message('log_message: ' || pa_debug.G_err_stage);
9109: pa_debug.G_err_stage := 'l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9110: log_message('log_message: ' || pa_debug.G_err_stage);
9111: pa_debug.G_err_stage := 'l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9112: log_message('log_message: ' || pa_debug.G_err_stage);
9113: END IF;
9114:
9115: IF v_calling_module = 'PAAPIMP' THEN
9116:
9183: -- 4927696 PAYABLES INTERFACE TO POPULATE SR_5 WITH PAYMENT_HIST_DIST_ID
9184:
9185: /* Bug 8674676. If its cancelled payment then system_reference 5 should be parent payment_hist_dist_id.
9186: Added additional debug messages also */
9187: pa_debug.G_err_stage := '1. After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9188: log_message('log_message: ' || pa_debug.G_err_stage);
9189:
9190: select decode(reversal_flag, 'Y', reversed_pay_hist_dist_id,l_SysRef1Tab(j))
9191: into l_SysRef5Tab(j)
9184:
9185: /* Bug 8674676. If its cancelled payment then system_reference 5 should be parent payment_hist_dist_id.
9186: Added additional debug messages also */
9187: pa_debug.G_err_stage := '1. After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9188: log_message('log_message: ' || pa_debug.G_err_stage);
9189:
9190: select decode(reversal_flag, 'Y', reversed_pay_hist_dist_id,l_SysRef1Tab(j))
9191: into l_SysRef5Tab(j)
9192: from ap_payment_hist_dists
9191: into l_SysRef5Tab(j)
9192: from ap_payment_hist_dists
9193: where payment_hist_dist_id = l_SysRef1Tab(j);
9194:
9195: pa_debug.G_err_stage := '2. After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9196: log_message('log_message: ' || pa_debug.G_err_stage);
9197:
9198: --l_SysRef5Tab(j) := l_SysRef1Tab(j) ;
9199: --Commented for bug 8674676 and added above decode logic.
9192: from ap_payment_hist_dists
9193: where payment_hist_dist_id = l_SysRef1Tab(j);
9194:
9195: pa_debug.G_err_stage := '2. After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9196: log_message('log_message: ' || pa_debug.G_err_stage);
9197:
9198: --l_SysRef5Tab(j) := l_SysRef1Tab(j) ;
9199: --Commented for bug 8674676 and added above decode logic.
9200:
9218: END IF ; -- IF v_calling_module = 'PAAPIMP'
9219:
9220: IF PG_DEBUG = 'Y' THEN
9221:
9222: pa_debug.G_err_stage := ' After l_VendorIdTab(j) : '|| l_VendorIdTab(j) ;
9223: log_message('log_message: ' || pa_debug.G_err_stage);
9224:
9225: pa_debug.G_err_stage := ' After l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9226: log_message('log_message: ' || pa_debug.G_err_stage);
9219:
9220: IF PG_DEBUG = 'Y' THEN
9221:
9222: pa_debug.G_err_stage := ' After l_VendorIdTab(j) : '|| l_VendorIdTab(j) ;
9223: log_message('log_message: ' || pa_debug.G_err_stage);
9224:
9225: pa_debug.G_err_stage := ' After l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9226: log_message('log_message: ' || pa_debug.G_err_stage);
9227: pa_debug.G_err_stage := ' After l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9221:
9222: pa_debug.G_err_stage := ' After l_VendorIdTab(j) : '|| l_VendorIdTab(j) ;
9223: log_message('log_message: ' || pa_debug.G_err_stage);
9224:
9225: pa_debug.G_err_stage := ' After l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9226: log_message('log_message: ' || pa_debug.G_err_stage);
9227: pa_debug.G_err_stage := ' After l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9228: log_message('log_message: ' || pa_debug.G_err_stage);
9229: pa_debug.G_err_stage := ' After l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9222: pa_debug.G_err_stage := ' After l_VendorIdTab(j) : '|| l_VendorIdTab(j) ;
9223: log_message('log_message: ' || pa_debug.G_err_stage);
9224:
9225: pa_debug.G_err_stage := ' After l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9226: log_message('log_message: ' || pa_debug.G_err_stage);
9227: pa_debug.G_err_stage := ' After l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9228: log_message('log_message: ' || pa_debug.G_err_stage);
9229: pa_debug.G_err_stage := ' After l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9230: log_message('log_message: ' || pa_debug.G_err_stage);
9223: log_message('log_message: ' || pa_debug.G_err_stage);
9224:
9225: pa_debug.G_err_stage := ' After l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9226: log_message('log_message: ' || pa_debug.G_err_stage);
9227: pa_debug.G_err_stage := ' After l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9228: log_message('log_message: ' || pa_debug.G_err_stage);
9229: pa_debug.G_err_stage := ' After l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9230: log_message('log_message: ' || pa_debug.G_err_stage);
9231: pa_debug.G_err_stage := 'After l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9224:
9225: pa_debug.G_err_stage := ' After l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9226: log_message('log_message: ' || pa_debug.G_err_stage);
9227: pa_debug.G_err_stage := ' After l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9228: log_message('log_message: ' || pa_debug.G_err_stage);
9229: pa_debug.G_err_stage := ' After l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9230: log_message('log_message: ' || pa_debug.G_err_stage);
9231: pa_debug.G_err_stage := 'After l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9232: log_message('log_message: ' || pa_debug.G_err_stage);
9225: pa_debug.G_err_stage := ' After l_SysRef1Tab(j) : '|| l_SysRef1Tab(j) ;
9226: log_message('log_message: ' || pa_debug.G_err_stage);
9227: pa_debug.G_err_stage := ' After l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9228: log_message('log_message: ' || pa_debug.G_err_stage);
9229: pa_debug.G_err_stage := ' After l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9230: log_message('log_message: ' || pa_debug.G_err_stage);
9231: pa_debug.G_err_stage := 'After l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9232: log_message('log_message: ' || pa_debug.G_err_stage);
9233: pa_debug.G_err_stage := 'After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9226: log_message('log_message: ' || pa_debug.G_err_stage);
9227: pa_debug.G_err_stage := ' After l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9228: log_message('log_message: ' || pa_debug.G_err_stage);
9229: pa_debug.G_err_stage := ' After l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9230: log_message('log_message: ' || pa_debug.G_err_stage);
9231: pa_debug.G_err_stage := 'After l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9232: log_message('log_message: ' || pa_debug.G_err_stage);
9233: pa_debug.G_err_stage := 'After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9234: log_message('log_message: ' || pa_debug.G_err_stage);
9227: pa_debug.G_err_stage := ' After l_SysRef2Tab(j) : '|| l_SysRef2Tab(j) ;
9228: log_message('log_message: ' || pa_debug.G_err_stage);
9229: pa_debug.G_err_stage := ' After l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9230: log_message('log_message: ' || pa_debug.G_err_stage);
9231: pa_debug.G_err_stage := 'After l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9232: log_message('log_message: ' || pa_debug.G_err_stage);
9233: pa_debug.G_err_stage := 'After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9234: log_message('log_message: ' || pa_debug.G_err_stage);
9235: END IF;
9228: log_message('log_message: ' || pa_debug.G_err_stage);
9229: pa_debug.G_err_stage := ' After l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9230: log_message('log_message: ' || pa_debug.G_err_stage);
9231: pa_debug.G_err_stage := 'After l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9232: log_message('log_message: ' || pa_debug.G_err_stage);
9233: pa_debug.G_err_stage := 'After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9234: log_message('log_message: ' || pa_debug.G_err_stage);
9235: END IF;
9236:
9229: pa_debug.G_err_stage := ' After l_SysRef3Tab(j) : '|| l_SysRef3Tab(j) ;
9230: log_message('log_message: ' || pa_debug.G_err_stage);
9231: pa_debug.G_err_stage := 'After l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9232: log_message('log_message: ' || pa_debug.G_err_stage);
9233: pa_debug.G_err_stage := 'After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9234: log_message('log_message: ' || pa_debug.G_err_stage);
9235: END IF;
9236:
9237: /* REL12-AP Lines uptake END */
9230: log_message('log_message: ' || pa_debug.G_err_stage);
9231: pa_debug.G_err_stage := 'After l_SysRef4Tab(j) : '|| l_SysRef4Tab(j) ;
9232: log_message('log_message: ' || pa_debug.G_err_stage);
9233: pa_debug.G_err_stage := 'After l_SysRef5Tab(j) : '|| l_SysRef5Tab(j) ;
9234: log_message('log_message: ' || pa_debug.G_err_stage);
9235: END IF;
9236:
9237: /* REL12-AP Lines uptake END */
9238:
9305: --IF ( G_project_type_class IN ('CONTRACT','CAPITAL') AND
9306: l_billableFlagTab(j) IN ( 'Y','N')) THEN
9307:
9308: IF PG_DEBUG = 'Y' THEN
9309: pa_debug.G_err_stage := 'Project_type_class in Contract, Capital';
9310: log_message('log_message: ' || pa_debug.G_err_stage);
9311: END IF;
9312:
9313: X_billable_flag := l_billableFlagTab(j);
9306: l_billableFlagTab(j) IN ( 'Y','N')) THEN
9307:
9308: IF PG_DEBUG = 'Y' THEN
9309: pa_debug.G_err_stage := 'Project_type_class in Contract, Capital';
9310: log_message('log_message: ' || pa_debug.G_err_stage);
9311: END IF;
9312:
9313: X_billable_flag := l_billableFlagTab(j);
9314:
9324: --two profiles and if it is Y then use the billable_flag from
9325: --validate_transaction and if N then override with what user entered.
9326:
9327: IF PG_DEBUG = 'Y' THEN
9328: pa_debug.G_err_stage := 'Calling pa_utils4.get_transaction_billability';
9329: log_message('log_message: ' || pa_debug.G_err_stage);
9330: log_message('log_message: ' || 'Billable Flag before get_trxn_work_billabilty = ' || X_billable_flag);
9331: log_message('log_message: ' || 'Work Type Id = ' || G_work_type_id);
9332: END IF;
9325: --validate_transaction and if N then override with what user entered.
9326:
9327: IF PG_DEBUG = 'Y' THEN
9328: pa_debug.G_err_stage := 'Calling pa_utils4.get_transaction_billability';
9329: log_message('log_message: ' || pa_debug.G_err_stage);
9330: log_message('log_message: ' || 'Billable Flag before get_trxn_work_billabilty = ' || X_billable_flag);
9331: log_message('log_message: ' || 'Work Type Id = ' || G_work_type_id);
9332: END IF;
9333:
9411: /* End of bug 4107560 */
9412:
9413:
9414: IF PG_DEBUG = 'Y' THEN
9415: pa_debug.G_err_stage := 'Calling Loadei';
9416: log_message('log_message: ' || pa_debug.G_err_stage);
9417: END IF;
9418:
9419: -- REL12 AP Lines uptake..
9412:
9413:
9414: IF PG_DEBUG = 'Y' THEN
9415: pa_debug.G_err_stage := 'Calling Loadei';
9416: log_message('log_message: ' || pa_debug.G_err_stage);
9417: END IF;
9418:
9419: -- REL12 AP Lines uptake..
9420: l_temp_adjItemID := G_adj_item_id ;
9587: -- Call LoadEI for creating the reversing item.
9588: if (l_AccrualFlagTab(j) = 'Y' and l_SysLinkTab(j) = 'PJ' and X_ei_id is not NULL ) then
9589:
9590: IF PG_DEBUG = 'Y' THEN
9591: pa_debug.G_err_stage := 'Calling Loadei for the reversing line of a Period-End Accrual transaction';
9592: log_message('log_message: ' || pa_debug.G_err_stage);
9593: END IF;
9594:
9595: -- increment the counter
9588: if (l_AccrualFlagTab(j) = 'Y' and l_SysLinkTab(j) = 'PJ' and X_ei_id is not NULL ) then
9589:
9590: IF PG_DEBUG = 'Y' THEN
9591: pa_debug.G_err_stage := 'Calling Loadei for the reversing line of a Period-End Accrual transaction';
9592: log_message('log_message: ' || pa_debug.G_err_stage);
9593: END IF;
9594:
9595: -- increment the counter
9596: i := i + 1;
9714: /***** Bug 4091706 CWK Changes *****/
9715:
9716:
9717: IF PG_DEBUG = 'Y' THEN
9718: pa_debug.G_err_stage := 'Calling newExpend after TrxRecs loop';
9719: log_message('log_message: ' || pa_debug.G_err_stage);
9720: END IF;
9721: newExpend( TrxBatch.exp_group_name
9722: , current_period
9715:
9716:
9717: IF PG_DEBUG = 'Y' THEN
9718: pa_debug.G_err_stage := 'Calling newExpend after TrxRecs loop';
9719: log_message('log_message: ' || pa_debug.G_err_stage);
9720: END IF;
9721: newExpend( TrxBatch.exp_group_name
9722: , current_period
9723: , i
9741:
9742: ELSE
9743:
9744: IF PG_DEBUG = 'Y' THEN
9745: pa_debug.G_err_stage := 'Processed the commit size records, exit batches';
9746: log_message('log_message: ' || pa_debug.G_err_stage);
9747: END IF;
9748:
9749: Exit batches;
9742: ELSE
9743:
9744: IF PG_DEBUG = 'Y' THEN
9745: pa_debug.G_err_stage := 'Processed the commit size records, exit batches';
9746: log_message('log_message: ' || pa_debug.G_err_stage);
9747: END IF;
9748:
9749: Exit batches;
9750:
9752:
9753: ELSE
9754:
9755: IF PG_DEBUG = 'Y' THEN
9756: pa_debug.G_err_stage := 'Not able to lock TrxBatch record';
9757: log_message('log_message: ' || pa_debug.G_err_stage);
9758: END IF;
9759:
9760: --Bug 3239369
9753: ELSE
9754:
9755: IF PG_DEBUG = 'Y' THEN
9756: pa_debug.G_err_stage := 'Not able to lock TrxBatch record';
9757: log_message('log_message: ' || pa_debug.G_err_stage);
9758: END IF;
9759:
9760: --Bug 3239369
9761: G_Exit_Main := TRUE;
9773:
9774:
9775: --PA-K Changes: UpdControlProcessed will be done for each loop of TrxBatches
9776: IF PG_DEBUG = 'Y' THEN
9777: pa_debug.G_err_stage := 'Calling UpdControlProcessed';
9778: log_message('log_message: ' || pa_debug.G_err_stage);
9779: END IF;
9780:
9781: UpdControlProcessed( P_TrxSource => TrxBatch.transaction_source,
9774:
9775: --PA-K Changes: UpdControlProcessed will be done for each loop of TrxBatches
9776: IF PG_DEBUG = 'Y' THEN
9777: pa_debug.G_err_stage := 'Calling UpdControlProcessed';
9778: log_message('log_message: ' || pa_debug.G_err_stage);
9779: END IF;
9780:
9781: UpdControlProcessed( P_TrxSource => TrxBatch.transaction_source,
9782: P_BatchName => TrxBatch.batch_name,
9810: IF G_gl_accted_flag = 'Y' AND
9811: G_Process_Funds_Flag = 'Y' THEN
9812:
9813: IF PG_DEBUG = 'Y' THEN
9814: pa_debug.G_err_stage := 'Calling tieback funds check records';
9815: log_message('log_message: ' || pa_debug.G_err_stage);
9816: END IF;
9817:
9818: IF PG_DEBUG = 'Y' THEN
9811: G_Process_Funds_Flag = 'Y' THEN
9812:
9813: IF PG_DEBUG = 'Y' THEN
9814: pa_debug.G_err_stage := 'Calling tieback funds check records';
9815: log_message('log_message: ' || pa_debug.G_err_stage);
9816: END IF;
9817:
9818: IF PG_DEBUG = 'Y' THEN
9819: pa_debug.G_err_stage := 'Tieback Mode = '||X_transaction_source;
9815: log_message('log_message: ' || pa_debug.G_err_stage);
9816: END IF;
9817:
9818: IF PG_DEBUG = 'Y' THEN
9819: pa_debug.G_err_stage := 'Tieback Mode = '||X_transaction_source;
9820: log_message('log_message: ' || pa_debug.G_err_stage);
9821: END IF;
9822:
9823: tieback_fc_records (x_return_status => l_return_status,
9816: END IF;
9817:
9818: IF PG_DEBUG = 'Y' THEN
9819: pa_debug.G_err_stage := 'Tieback Mode = '||X_transaction_source;
9820: log_message('log_message: ' || pa_debug.G_err_stage);
9821: END IF;
9822:
9823: tieback_fc_records (x_return_status => l_return_status,
9824: p_calling_mode => X_transaction_source) ;
9863: EXCEPTION
9864:
9865: WHEN OTHERS THEN
9866: IF PG_DEBUG = 'Y' THEN
9867: pa_debug.G_err_stage := 'In OTHERS exception of import1';
9868: log_message('log_message: ' || pa_debug.G_err_stage,1);
9869: log_message('Error: ' || sqlerrm,1);
9870: END IF;
9871:
9864:
9865: WHEN OTHERS THEN
9866: IF PG_DEBUG = 'Y' THEN
9867: pa_debug.G_err_stage := 'In OTHERS exception of import1';
9868: log_message('log_message: ' || pa_debug.G_err_stage,1);
9869: log_message('Error: ' || sqlerrm,1);
9870: END IF;
9871:
9872: release_po_line_task_lock; -- bug 3512984
9904:
9905: EXCEPTION WHEN others THEN
9906: IF PG_DEBUG = 'Y' THEN
9907: log_message('log_message: ' || 'Error in Init procedure',1);
9908: log_message('log_message: ' || 'Stage='||pa_debug.G_err_stage,1);
9909: log_message('log_message: ' || SQLERRM);
9910: END IF;
9911:
9912: raise_application_error(-20001,'Init:'||SQLERRM);
9961:
9962: <
9963: BEGIN
9964: IF PG_DEBUG = 'Y' THEN
9965: pa_debug.G_err_Stage := 'Calling pre_import extension';
9966: log_message('log_message: ' || pa_debug.G_err_Stage);
9967: END IF;
9968:
9969: pa_trx_import.pre_import(P_transaction_source => X_transaction_source,
9962: <
9963: BEGIN
9964: IF PG_DEBUG = 'Y' THEN
9965: pa_debug.G_err_Stage := 'Calling pre_import extension';
9966: log_message('log_message: ' || pa_debug.G_err_Stage);
9967: END IF;
9968:
9969: pa_trx_import.pre_import(P_transaction_source => X_transaction_source,
9970: P_batch => X_batch,
9978:
9979: EXCEPTION WHEN others THEN
9980: IF PG_DEBUG = 'Y' THEN
9981: log_message('log_message: ' || 'Error in pre_import procedure',1);
9982: log_message('log_message: ' || 'Stage='||pa_debug.G_err_stage,1);
9983: log_message('log_message: ' || SQLERRM);
9984: END IF;
9985: raise_application_error(-20002,'pre_import:'||SQLERRM);
9986: END pre_import;
9998: /* PA-K Changes: Commenting the call to count_status
9999: Report will directly select the counts from the interface table */
10000:
10001: IF PG_DEBUG = 'Y' THEN
10002: pa_debug.G_err_stage := 'After import1';
10003: log_message('log_message: ' || pa_debug.G_err_stage);
10004: END IF;
10005:
10006:
9999: Report will directly select the counts from the interface table */
10000:
10001: IF PG_DEBUG = 'Y' THEN
10002: pa_debug.G_err_stage := 'After import1';
10003: log_message('log_message: ' || pa_debug.G_err_stage);
10004: END IF;
10005:
10006:
10007: EXCEPTION WHEN others THEN
10007: EXCEPTION WHEN others THEN
10008:
10009: IF PG_DEBUG = 'Y' THEN
10010: log_message('log_message: ' || 'Error in import1 procedure',1);
10011: log_message('log_message: ' || 'Stage='||pa_debug.G_err_stage,1);
10012: log_message('log_message: ' || SQLERRM);
10013: END IF;
10014:
10015: If X_transaction_source = 'ORACLE TIME AND LABOR' Then
10016:
10017: BEGIN
10018:
10019: IF PG_DEBUG = 'Y' THEN
10020: pa_debug.G_err_stage := 'Calling eception handler for OTL';
10021: log_message('log_message: ' || pa_debug.G_err_stage,1);
10022: END IF;
10023:
10024:
10017: BEGIN
10018:
10019: IF PG_DEBUG = 'Y' THEN
10020: pa_debug.G_err_stage := 'Calling eception handler for OTL';
10021: log_message('log_message: ' || pa_debug.G_err_stage,1);
10022: END IF;
10023:
10024:
10025: -- Get cursor handle
10024:
10025: -- Get cursor handle
10026: l_cursor := dbms_sql.open_cursor;
10027:
10028: l_Exception_Desc := 'Error in Projects Import routine: ' || pa_debug.G_err_stage || ' : ' || SQLERRM;
10029:
10030: -- Associate a sql statement with the cursor.
10031:
10032: --FP M OTL API changes (bug 3600642)
10038: ' P_Exception_Description => :Exception_Desc );'||
10039: 'END;';
10040:
10041: IF PG_DEBUG = 'Y' THEN
10042: pa_debug.G_err_stage := 'After constructing the dynamic sql OTL';
10043: log_message('log_message: ' || pa_debug.G_err_stage,1);
10044: END IF;
10045:
10046: -- parse the sql statement to check for any syntax or symantic errors
10039: 'END;';
10040:
10041: IF PG_DEBUG = 'Y' THEN
10042: pa_debug.G_err_stage := 'After constructing the dynamic sql OTL';
10043: log_message('log_message: ' || pa_debug.G_err_stage,1);
10044: END IF;
10045:
10046: -- parse the sql statement to check for any syntax or symantic errors
10047:
10059:
10060:
10061: l_rows := dbms_sql.execute(l_cursor);
10062: IF PG_DEBUG = 'Y' THEN
10063: pa_debug.G_err_stage := 'After executing the dynamic sql OTL';
10064: log_message('log_message: ' || pa_debug.G_err_stage,1);
10065: END IF;
10066:
10067: EXCEPTION
10060:
10061: l_rows := dbms_sql.execute(l_cursor);
10062: IF PG_DEBUG = 'Y' THEN
10063: pa_debug.G_err_stage := 'After executing the dynamic sql OTL';
10064: log_message('log_message: ' || pa_debug.G_err_stage,1);
10065: END IF;
10066:
10067: EXCEPTION
10068: When Others Then
10066:
10067: EXCEPTION
10068: When Others Then
10069: IF PG_DEBUG = 'Y' THEN
10070: pa_debug.G_err_stage := 'In excp of the dynamic sql executing OTL';
10071: log_message('log_message: ' || pa_debug.G_err_stage,1);
10072: END IF;
10073:
10074: dbms_sql.close_cursor(l_cursor);
10067: EXCEPTION
10068: When Others Then
10069: IF PG_DEBUG = 'Y' THEN
10070: pa_debug.G_err_stage := 'In excp of the dynamic sql executing OTL';
10071: log_message('log_message: ' || pa_debug.G_err_stage,1);
10072: END IF;
10073:
10074: dbms_sql.close_cursor(l_cursor);
10075: RAISE;
10080:
10081:
10082:
10083:
10084: raise_application_error(-20003,'import1_prog:'||SQLERRM||pa_debug.G_err_stage);
10085:
10086: END import1_prog;
10087:
10088:
10095:
10096: <
10097: BEGIN
10098: IF PG_DEBUG = 'Y' THEN
10099: pa_debug.G_err_Stage := 'Calling post_import extension';
10100: log_message('log_message: ' || pa_debug.G_err_Stage);
10101: END IF;
10102:
10103: pa_trx_import.post_import(P_transaction_source => X_transaction_source,
10096: <
10097: BEGIN
10098: IF PG_DEBUG = 'Y' THEN
10099: pa_debug.G_err_Stage := 'Calling post_import extension';
10100: log_message('log_message: ' || pa_debug.G_err_Stage);
10101: END IF;
10102:
10103: pa_trx_import.post_import(P_transaction_source => X_transaction_source,
10104: P_batch => X_batch,
10113: EXCEPTION WHEN others THEN
10114: IF PG_DEBUG = 'Y' THEN
10115: log_message('log_message: ' || 'Error in post import procedure',1);
10116: log_message('log_message: ' || SQLERRM);
10117: log_message('log_message: ' || 'Stage='||pa_debug.G_err_stage,1);
10118: END IF;
10119: raise_application_error(-20004,'post_import:'||SQLERRM);
10120: END post_import;
10121:
10122: /* Bug 6998382 Moved the condition to exit the import1 procedure here so that the post processing client extension
10123: is called for the last batch as well */
10124: If (G_Exit_Main) Then
10125: IF PG_DEBUG = 'Y' THEN
10126: pa_debug.G_err_stage := 'G_Exit_Main is true, exit main loop';
10127: log_message('log_message: ' || pa_debug.G_err_stage,1);
10128: END IF;
10129: Exit main_loop;
10130: End If;
10123: is called for the last batch as well */
10124: If (G_Exit_Main) Then
10125: IF PG_DEBUG = 'Y' THEN
10126: pa_debug.G_err_stage := 'G_Exit_Main is true, exit main loop';
10127: log_message('log_message: ' || pa_debug.G_err_stage,1);
10128: END IF;
10129: Exit main_loop;
10130: End If;
10131: /* Bug 6998382 End */
10151:
10152: -- Get the debug mode, if the debug is turned on then write
10153: -- log messages to the log file.
10154:
10155: fnd_profile.get('PA_DEBUG_MODE',G_debug_mode);
10156: G_debug_mode := NVL(G_debug_mode, 'N');
10157:
10158: pa_debug.set_process(x_process => 'PLSQL',
10159: x_debug_mode => G_debug_mode);
10154:
10155: fnd_profile.get('PA_DEBUG_MODE',G_debug_mode);
10156: G_debug_mode := NVL(G_debug_mode, 'N');
10157:
10158: pa_debug.set_process(x_process => 'PLSQL',
10159: x_debug_mode => G_debug_mode);
10160:
10161: pa_cc_utils.log_message('Debug Mode = '||G_debug_mode,1);
10162: pa_cc_utils.set_curr_function('pa_trx_import.init');
10161: pa_cc_utils.log_message('Debug Mode = '||G_debug_mode,1);
10162: pa_cc_utils.set_curr_function('pa_trx_import.init');
10163:
10164: IF PG_DEBUG = 'Y' THEN
10165: pa_debug.G_err_Stage := 'retriving transaction source';
10166: log_message('log_message: ' || pa_debug.G_err_Stage);
10167: END IF;
10168:
10169: -- Transaction import program is always run for 1 transaction source
10162: pa_cc_utils.set_curr_function('pa_trx_import.init');
10163:
10164: IF PG_DEBUG = 'Y' THEN
10165: pa_debug.G_err_Stage := 'retriving transaction source';
10166: log_message('log_message: ' || pa_debug.G_err_Stage);
10167: END IF;
10168:
10169: -- Transaction import program is always run for 1 transaction source
10170: -- get the transaction source info and store in pkg body global variables
10537: l_records_updated := l_records_updated + SQL%ROWCOUNT;
10538:
10539:
10540: IF PG_DEBUG = 'Y' THEN
10541: pa_debug.G_err_stage := 'Updated PacketId [' || p_packet_id || ']-' || l_records_updated || ' records to A/C';
10542: log_message('log_message: ' || pa_debug.G_err_Stage);
10543: END IF;
10544:
10545:
10538:
10539:
10540: IF PG_DEBUG = 'Y' THEN
10541: pa_debug.G_err_stage := 'Updated PacketId [' || p_packet_id || ']-' || l_records_updated || ' records to A/C';
10542: log_message('log_message: ' || pa_debug.G_err_Stage);
10543: END IF;
10544:
10545:
10546: IF PG_DEBUG = 'Y' THEN
10574:
10575: pa_cc_utils.set_curr_function('tieback_fc_records');
10576:
10577: IF PG_DEBUG = 'Y' THEN
10578: pa_debug.G_err_stage := 'Start of tieback_fc_records';
10579: log_message('log_message: ' || pa_debug.G_err_Stage);
10580: END IF;
10581:
10582: -- set the return status to success
10575: pa_cc_utils.set_curr_function('tieback_fc_records');
10576:
10577: IF PG_DEBUG = 'Y' THEN
10578: pa_debug.G_err_stage := 'Start of tieback_fc_records';
10579: log_message('log_message: ' || pa_debug.G_err_Stage);
10580: END IF;
10581:
10582: -- set the return status to success
10583: x_return_status := FND_API.G_RET_STS_SUCCESS;
10593: l_bc_pkt_id;
10594:
10595: if c_exp_item_id%notfound then
10596: IF PG_DEBUG = 'Y' THEN
10597: pa_debug.G_err_stage := 'No packets found for updating of exp item id , exit';
10598: log_message('log_message: ' || pa_debug.G_err_Stage);
10599: END IF;
10600: exit;
10601: end if;
10594:
10595: if c_exp_item_id%notfound then
10596: IF PG_DEBUG = 'Y' THEN
10597: pa_debug.G_err_stage := 'No packets found for updating of exp item id , exit';
10598: log_message('log_message: ' || pa_debug.G_err_Stage);
10599: END IF;
10600: exit;
10601: end if;
10602:
10610: -- Bug 5560524 : Added 'AP ERV' to the following condition.
10611: if (p_calling_mode in ('AP VARIANCE', 'AP ERV' , 'PO RECEIPT', 'PO RECEIPT NRTAX')) Then
10612:
10613: IF PG_DEBUG = 'Y' THEN
10614: pa_debug.G_err_stage := 'Before opening the cursor select_bc_packets for ' || p_calling_mode;
10615: log_message('log_message: ' || pa_debug.G_err_Stage);
10616: END IF;
10617:
10618: open select_bc_packets(p_calling_mode) ;
10611: if (p_calling_mode in ('AP VARIANCE', 'AP ERV' , 'PO RECEIPT', 'PO RECEIPT NRTAX')) Then
10612:
10613: IF PG_DEBUG = 'Y' THEN
10614: pa_debug.G_err_stage := 'Before opening the cursor select_bc_packets for ' || p_calling_mode;
10615: log_message('log_message: ' || pa_debug.G_err_Stage);
10616: END IF;
10617:
10618: open select_bc_packets(p_calling_mode) ;
10619:
10630: l_budget_version_id;
10631:
10632: if select_bc_packets%notfound then
10633: IF PG_DEBUG = 'Y' THEN
10634: pa_debug.G_err_stage := 'No packets found, exit';
10635: log_message('log_message: ' || pa_debug.G_err_Stage);
10636: END IF;
10637: exit ;
10638: end if;
10631:
10632: if select_bc_packets%notfound then
10633: IF PG_DEBUG = 'Y' THEN
10634: pa_debug.G_err_stage := 'No packets found, exit';
10635: log_message('log_message: ' || pa_debug.G_err_Stage);
10636: END IF;
10637: exit ;
10638: end if;
10639:
10637: exit ;
10638: end if;
10639:
10640: IF PG_DEBUG = 'Y' THEN
10641: pa_debug.G_err_stage := 'Old Pkt = ' || l_old_pkt
10642: || ' Packet Id = ' || l_packet_id
10643: || ' Ref2 = ' || l_sys_ref2
10644: || ' document dist id = ' || l_doc_dist_id
10645: || ' Ref4 = ' || l_sys_ref4;
10642: || ' Packet Id = ' || l_packet_id
10643: || ' Ref2 = ' || l_sys_ref2
10644: || ' document dist id = ' || l_doc_dist_id
10645: || ' Ref4 = ' || l_sys_ref4;
10646: log_message('log_message: ' || pa_debug.G_err_Stage);
10647: END IF;
10648:
10649: IF (l_old_pkt <> l_packet_id) THEN
10650: IF PG_DEBUG = 'Y' THEN
10647: END IF;
10648:
10649: IF (l_old_pkt <> l_packet_id) THEN
10650: IF PG_DEBUG = 'Y' THEN
10651: pa_debug.G_err_stage := 'Calling Upd_Sts_Enc_Bal';
10652: log_message('log_message: ' || pa_debug.G_err_Stage);
10653: END IF;
10654:
10655: Upd_Sts_Enc_Bal(p_packet_id => l_packet_id,
10648:
10649: IF (l_old_pkt <> l_packet_id) THEN
10650: IF PG_DEBUG = 'Y' THEN
10651: pa_debug.G_err_stage := 'Calling Upd_Sts_Enc_Bal';
10652: log_message('log_message: ' || pa_debug.G_err_Stage);
10653: END IF;
10654:
10655: Upd_Sts_Enc_Bal(p_packet_id => l_packet_id,
10656: x_return_status => x_return_status);
10655: Upd_Sts_Enc_Bal(p_packet_id => l_packet_id,
10656: x_return_status => x_return_status);
10657:
10658: IF PG_DEBUG = 'Y' THEN
10659: pa_debug.G_err_stage := 'After Calling Upd_Sts_Enc_Bal';
10660: log_message('log_message: ' || pa_debug.G_err_Stage);
10661: END IF;
10662: END IF;
10663:
10656: x_return_status => x_return_status);
10657:
10658: IF PG_DEBUG = 'Y' THEN
10659: pa_debug.G_err_stage := 'After Calling Upd_Sts_Enc_Bal';
10660: log_message('log_message: ' || pa_debug.G_err_Stage);
10661: END IF;
10662: END IF;
10663:
10664: IF (pa_funds_control_utils.get_bdgt_link(l_Project_Id, 'STD') = 'Y') THEN
10685: and cdl.expenditure_item_id = l_ExpItemId_temp_Tab(j) ;
10686: END IF ;
10687:
10688: IF PG_DEBUG = 'Y' THEN
10689: pa_debug.G_err_stage := 'Updated Ref2-Ref3 [' || l_sys_ref2 || ',' || l_doc_dist_id || ',' || l_sys_ref4 || ']-'
10690: || SQL%ROWCOUNT || ' Budget CCID';
10691: log_message('log_message: ' || pa_debug.G_err_Stage);
10692: END IF;
10693:
10687:
10688: IF PG_DEBUG = 'Y' THEN
10689: pa_debug.G_err_stage := 'Updated Ref2-Ref3 [' || l_sys_ref2 || ',' || l_doc_dist_id || ',' || l_sys_ref4 || ']-'
10690: || SQL%ROWCOUNT || ' Budget CCID';
10691: log_message('log_message: ' || pa_debug.G_err_Stage);
10692: END IF;
10693:
10694: END IF;
10695:
10706:
10707: elsif (p_calling_mode in ('AP INVOICE', 'AP NRTAX') ) then
10708:
10709: IF PG_DEBUG = 'Y' THEN
10710: pa_debug.G_err_stage := 'Before opening the cursor rcpt_acc_ap_pkts for ' || p_calling_mode;
10711: log_message('log_message: ' || pa_debug.G_err_Stage);
10712: END IF;
10713:
10714: open rcpt_acc_ap_pkts(p_calling_mode);
10707: elsif (p_calling_mode in ('AP INVOICE', 'AP NRTAX') ) then
10708:
10709: IF PG_DEBUG = 'Y' THEN
10710: pa_debug.G_err_stage := 'Before opening the cursor rcpt_acc_ap_pkts for ' || p_calling_mode;
10711: log_message('log_message: ' || pa_debug.G_err_Stage);
10712: END IF;
10713:
10714: open rcpt_acc_ap_pkts(p_calling_mode);
10715:
10726: l_budget_version_id;
10727:
10728: if rcpt_acc_ap_pkts%notfound then
10729: IF PG_DEBUG = 'Y' THEN
10730: pa_debug.G_err_stage := 'No packets found, exit';
10731: log_message('log_message: ' || pa_debug.G_err_Stage);
10732: END IF;
10733: exit;
10734: end if;
10727:
10728: if rcpt_acc_ap_pkts%notfound then
10729: IF PG_DEBUG = 'Y' THEN
10730: pa_debug.G_err_stage := 'No packets found, exit';
10731: log_message('log_message: ' || pa_debug.G_err_Stage);
10732: END IF;
10733: exit;
10734: end if;
10735:
10733: exit;
10734: end if;
10735:
10736: IF PG_DEBUG = 'Y' THEN
10737: pa_debug.G_err_stage := 'Old Pkt = ' || l_old_pkt
10738: || ' Packet Id = ' || l_packet_id
10739: || ' Ref2 = ' || l_sys_ref2
10740: || ' Document dist Id = ' || l_doc_dist_id
10741: || ' Ref4 = ' || l_sys_ref4;
10738: || ' Packet Id = ' || l_packet_id
10739: || ' Ref2 = ' || l_sys_ref2
10740: || ' Document dist Id = ' || l_doc_dist_id
10741: || ' Ref4 = ' || l_sys_ref4;
10742: log_message('log_message: ' || pa_debug.G_err_Stage);
10743: END IF;
10744:
10745: IF (l_old_pkt <> l_packet_id) THEN
10746: IF PG_DEBUG = 'Y' THEN
10743: END IF;
10744:
10745: IF (l_old_pkt <> l_packet_id) THEN
10746: IF PG_DEBUG = 'Y' THEN
10747: pa_debug.G_err_stage := 'Calling Upd_Sts_Enc_Bal';
10748: log_message('log_message: ' || pa_debug.G_err_Stage);
10749: END IF;
10750:
10751: Upd_Sts_Enc_Bal(p_packet_id => l_packet_id,
10744:
10745: IF (l_old_pkt <> l_packet_id) THEN
10746: IF PG_DEBUG = 'Y' THEN
10747: pa_debug.G_err_stage := 'Calling Upd_Sts_Enc_Bal';
10748: log_message('log_message: ' || pa_debug.G_err_Stage);
10749: END IF;
10750:
10751: Upd_Sts_Enc_Bal(p_packet_id => l_packet_id,
10752: x_return_status => x_return_status);
10751: Upd_Sts_Enc_Bal(p_packet_id => l_packet_id,
10752: x_return_status => x_return_status);
10753:
10754: IF PG_DEBUG = 'Y' THEN
10755: pa_debug.G_err_stage := 'After Calling Upd_Sts_Enc_Bal';
10756: log_message('log_message: ' || pa_debug.G_err_Stage);
10757: END IF;
10758: END IF;
10759:
10752: x_return_status => x_return_status);
10753:
10754: IF PG_DEBUG = 'Y' THEN
10755: pa_debug.G_err_stage := 'After Calling Upd_Sts_Enc_Bal';
10756: log_message('log_message: ' || pa_debug.G_err_Stage);
10757: END IF;
10758: END IF;
10759:
10760: IF (pa_funds_control_utils.get_bdgt_link(l_Project_Id, 'STD') = 'Y') THEN
10781: and cdl.expenditure_item_id = l_ExpItemId_temp_Tab(j) ; /*REL12 : AP Lines Uptake changes*/
10782: END IF ;
10783:
10784: IF PG_DEBUG = 'Y' THEN
10785: pa_debug.G_err_stage := 'Updated Ref2-Ref3 [' || l_sys_ref2 || ',' || l_doc_dist_id || ',' || l_sys_ref4 || ']-'
10786: || SQL%ROWCOUNT || ' Budget CCID';
10787: log_message('log_message: ' || pa_debug.G_err_Stage);
10788: END IF;
10789:
10783:
10784: IF PG_DEBUG = 'Y' THEN
10785: pa_debug.G_err_stage := 'Updated Ref2-Ref3 [' || l_sys_ref2 || ',' || l_doc_dist_id || ',' || l_sys_ref4 || ']-'
10786: || SQL%ROWCOUNT || ' Budget CCID';
10787: log_message('log_message: ' || pa_debug.G_err_Stage);
10788: END IF;
10789:
10790: END IF;
10791:
10804:
10805: elsif (p_calling_mode in ('AP DISCOUNTS')) Then --Bug 2339216
10806:
10807: IF PG_DEBUG = 'Y' THEN
10808: pa_debug.G_err_stage := 'Before opening the cursor select_disc_packets for ' || p_calling_mode;
10809: log_message('log_message: ' || pa_debug.G_err_Stage);
10810: END IF;
10811:
10812: open select_disc_packets(p_calling_mode) ;
10805: elsif (p_calling_mode in ('AP DISCOUNTS')) Then --Bug 2339216
10806:
10807: IF PG_DEBUG = 'Y' THEN
10808: pa_debug.G_err_stage := 'Before opening the cursor select_disc_packets for ' || p_calling_mode;
10809: log_message('log_message: ' || pa_debug.G_err_Stage);
10810: END IF;
10811:
10812: open select_disc_packets(p_calling_mode) ;
10813:
10824: l_budget_version_id;
10825:
10826: if select_disc_packets%notfound then
10827: IF PG_DEBUG = 'Y' THEN
10828: pa_debug.G_err_stage := 'No discount packets found, exit';
10829: log_message('log_message: ' || pa_debug.G_err_Stage);
10830: END IF;
10831: exit ;
10832: end if;
10825:
10826: if select_disc_packets%notfound then
10827: IF PG_DEBUG = 'Y' THEN
10828: pa_debug.G_err_stage := 'No discount packets found, exit';
10829: log_message('log_message: ' || pa_debug.G_err_Stage);
10830: END IF;
10831: exit ;
10832: end if;
10833:
10831: exit ;
10832: end if;
10833:
10834: IF PG_DEBUG = 'Y' THEN
10835: pa_debug.G_err_stage := 'Old Pkt = ' || l_old_pkt
10836: || ' Packet Id = ' || l_packet_id
10837: || ' Ref2 = ' || l_sys_ref2
10838: || ' Document dist Id = ' || l_doc_dist_id
10839: || ' Ref4 = ' || l_sys_ref4;
10836: || ' Packet Id = ' || l_packet_id
10837: || ' Ref2 = ' || l_sys_ref2
10838: || ' Document dist Id = ' || l_doc_dist_id
10839: || ' Ref4 = ' || l_sys_ref4;
10840: log_message('log_message: ' || pa_debug.G_err_Stage);
10841: END IF;
10842:
10843: IF (l_old_pkt <> l_packet_id) THEN
10844: IF PG_DEBUG = 'Y' THEN
10841: END IF;
10842:
10843: IF (l_old_pkt <> l_packet_id) THEN
10844: IF PG_DEBUG = 'Y' THEN
10845: pa_debug.G_err_stage := 'Calling Upd_Sts_Enc_Bal for discount';
10846: log_message('log_message: ' || pa_debug.G_err_Stage);
10847: END IF;
10848:
10849: Upd_Sts_Enc_Bal(p_packet_id => l_packet_id,
10842:
10843: IF (l_old_pkt <> l_packet_id) THEN
10844: IF PG_DEBUG = 'Y' THEN
10845: pa_debug.G_err_stage := 'Calling Upd_Sts_Enc_Bal for discount';
10846: log_message('log_message: ' || pa_debug.G_err_Stage);
10847: END IF;
10848:
10849: Upd_Sts_Enc_Bal(p_packet_id => l_packet_id,
10850: x_return_status => x_return_status);
10849: Upd_Sts_Enc_Bal(p_packet_id => l_packet_id,
10850: x_return_status => x_return_status);
10851:
10852: IF PG_DEBUG = 'Y' THEN
10853: pa_debug.G_err_stage := 'After Calling Upd_Sts_Enc_Bal';
10854: log_message('log_message: ' || pa_debug.G_err_Stage);
10855: END IF;
10856: END IF;
10857:
10850: x_return_status => x_return_status);
10851:
10852: IF PG_DEBUG = 'Y' THEN
10853: pa_debug.G_err_stage := 'After Calling Upd_Sts_Enc_Bal';
10854: log_message('log_message: ' || pa_debug.G_err_Stage);
10855: END IF;
10856: END IF;
10857:
10858: IF (pa_funds_control_utils.get_bdgt_link(l_Project_Id, 'STD') = 'Y') THEN
10880: and cdl.expenditure_item_id = l_ExpItemId_temp_Tab(j) ;
10881: END IF ;
10882:
10883: IF PG_DEBUG = 'Y' THEN
10884: pa_debug.G_err_stage := 'Updated Ref2-Ref3 [' || l_sys_ref2 || ',' || l_sys_ref3 || ',' || l_sys_ref4 || ']-'
10885: || SQL%ROWCOUNT || ' Budget CCID';
10886: log_message('log_message: ' || pa_debug.G_err_Stage);
10887: END IF;
10888:
10882:
10883: IF PG_DEBUG = 'Y' THEN
10884: pa_debug.G_err_stage := 'Updated Ref2-Ref3 [' || l_sys_ref2 || ',' || l_sys_ref3 || ',' || l_sys_ref4 || ']-'
10885: || SQL%ROWCOUNT || ' Budget CCID';
10886: log_message('log_message: ' || pa_debug.G_err_Stage);
10887: END IF;
10888:
10889: END IF;
10890:
10894: close select_disc_packets;
10895: end if;
10896:
10897: /* Start of bug 3239837 */
10898: pa_debug.G_err_stage := 'Update rejected interface records in pa_bc_packets to T';
10899: pa_cc_utils.log_message(pa_debug.G_err_Stage);
10900:
10901: update pa_bc_packets
10902: set status_code = 'T',
10895: end if;
10896:
10897: /* Start of bug 3239837 */
10898: pa_debug.G_err_stage := 'Update rejected interface records in pa_bc_packets to T';
10899: pa_cc_utils.log_message(pa_debug.G_err_Stage);
10900:
10901: update pa_bc_packets
10902: set status_code = 'T',
10903: result_code = 'F140'
10910: and transaction_status_code = 'R'
10911: and orig_transaction_reference = to_char(g_request_id)
10912: );
10913:
10914: pa_debug.G_err_stage := 'In stage 1 Updated count to T = '|| SQL%ROWCOUNT;
10915: pa_cc_utils.log_message(pa_debug.G_err_Stage);
10916:
10917: update pa_bc_packets
10918: set status_code = 'T',
10911: and orig_transaction_reference = to_char(g_request_id)
10912: );
10913:
10914: pa_debug.G_err_stage := 'In stage 1 Updated count to T = '|| SQL%ROWCOUNT;
10915: pa_cc_utils.log_message(pa_debug.G_err_Stage);
10916:
10917: update pa_bc_packets
10918: set status_code = 'T',
10919: result_code = 'F140'
10931: and pti.transaction_status_code = 'R'
10932: and pti.orig_transaction_reference = to_char(g_request_id))
10933: );
10934:
10935: pa_debug.G_err_stage := 'In stage 2 Updated count to T = '|| SQL%ROWCOUNT;
10936: pa_cc_utils.log_message(pa_debug.G_err_Stage);
10937:
10938: /* End of bug 3239837 */
10939:
10932: and pti.orig_transaction_reference = to_char(g_request_id))
10933: );
10934:
10935: pa_debug.G_err_stage := 'In stage 2 Updated count to T = '|| SQL%ROWCOUNT;
10936: pa_cc_utils.log_message(pa_debug.G_err_Stage);
10937:
10938: /* End of bug 3239837 */
10939:
10940: --Bug 3592289
10959: --Bug 3592289 End
10960:
10961:
10962: IF PG_DEBUG = 'Y' THEN
10963: pa_debug.G_err_stage := 'Done with Tieback';
10964: log_message('log_message: ' || pa_debug.G_err_Stage);
10965: END IF;
10966:
10967: pa_cc_utils.reset_curr_function;
10960:
10961:
10962: IF PG_DEBUG = 'Y' THEN
10963: pa_debug.G_err_stage := 'Done with Tieback';
10964: log_message('log_message: ' || pa_debug.G_err_Stage);
10965: END IF;
10966:
10967: pa_cc_utils.reset_curr_function;
10968:
11054: l_Period_Name pa_bc_packets.period_name%type;
11055: BEGIN
11056:
11057: IF PG_DEBUG = 'Y' THEN
11058: pa_debug.G_err_stage := 'Inside Get_FC_Period_Name function';
11059: log_message('log_message: ' || pa_debug.G_err_Stage);
11060: END IF;
11061:
11062: If P_GL_Date = G_PrevFCGlDate Then
11055: BEGIN
11056:
11057: IF PG_DEBUG = 'Y' THEN
11058: pa_debug.G_err_stage := 'Inside Get_FC_Period_Name function';
11059: log_message('log_message: ' || pa_debug.G_err_Stage);
11060: END IF;
11061:
11062: If P_GL_Date = G_PrevFCGlDate Then
11063:
11079:
11080: End If;
11081:
11082: IF PG_DEBUG = 'Y' THEN
11083: pa_debug.G_err_stage := 'Period_Name is='||l_Period_Name;
11084: log_message('log_message: ' || pa_debug.G_err_Stage);
11085: END IF;
11086:
11087: Return l_Period_Name;
11080: End If;
11081:
11082: IF PG_DEBUG = 'Y' THEN
11083: pa_debug.G_err_stage := 'Period_Name is='||l_Period_Name;
11084: log_message('log_message: ' || pa_debug.G_err_Stage);
11085: END IF;
11086:
11087: Return l_Period_Name;
11088:
11095: BEGIN
11096:
11097: pa_cc_utils.set_curr_function('tr_import_funds_check');
11098: IF PG_DEBUG = 'Y' THEN
11099: pa_debug.G_err_stage := 'Inside Tr_Import_Funds_Check';
11100: log_message('log_message: ' || pa_debug.G_err_Stage);
11101: END IF;
11102:
11103: --
11096:
11097: pa_cc_utils.set_curr_function('tr_import_funds_check');
11098: IF PG_DEBUG = 'Y' THEN
11099: pa_debug.G_err_stage := 'Inside Tr_Import_Funds_Check';
11100: log_message('log_message: ' || pa_debug.G_err_Stage);
11101: END IF;
11102:
11103: --
11104: -- 1. Generate a packet identifier for all the records that
11104: -- 1. Generate a packet identifier for all the records that
11105: -- needs to be inserted into Pa BC Packets
11106: --
11107: IF PG_DEBUG = 'Y' THEN
11108: pa_debug.G_err_stage := 'Generateing new packet Id';
11109: log_message('log_message: ' || pa_debug.G_err_Stage);
11110: END IF;
11111: Select Gl_Bc_Packets_s.NextVal
11112: Into l_Packet_Id
11105: -- needs to be inserted into Pa BC Packets
11106: --
11107: IF PG_DEBUG = 'Y' THEN
11108: pa_debug.G_err_stage := 'Generateing new packet Id';
11109: log_message('log_message: ' || pa_debug.G_err_Stage);
11110: END IF;
11111: Select Gl_Bc_Packets_s.NextVal
11112: Into l_Packet_Id
11113: From dual;
11122: --for both the reversing raw and burden lines and also the EXP lines.
11123: --Funds Check API will derive the GL_Date based on the Period_Name, so what
11124: --we insert for gl_date is irrelevant here.
11125: IF PG_DEBUG = 'Y' THEN
11126: pa_debug.G_err_stage := 'Calling G_FC_Period_Name';
11127: log_message('log_message: ' || pa_debug.G_err_Stage);
11128: END IF;
11129:
11130: G_FC_Period_Name := Get_FC_Period_Name(P_Gl_Date => G_FC_Gl_Date);
11123: --Funds Check API will derive the GL_Date based on the Period_Name, so what
11124: --we insert for gl_date is irrelevant here.
11125: IF PG_DEBUG = 'Y' THEN
11126: pa_debug.G_err_stage := 'Calling G_FC_Period_Name';
11127: log_message('log_message: ' || pa_debug.G_err_Stage);
11128: END IF;
11129:
11130: G_FC_Period_Name := Get_FC_Period_Name(P_Gl_Date => G_FC_Gl_Date);
11131:
11129:
11130: G_FC_Period_Name := Get_FC_Period_Name(P_Gl_Date => G_FC_Gl_Date);
11131:
11132: IF PG_DEBUG = 'Y' THEN
11133: pa_debug.G_err_stage := 'G_FC_Period_Name = ' || G_FC_Period_Name;
11134: log_message('log_message: ' || pa_debug.G_err_Stage);
11135: log_message('log_message: Value of l_txn_source= ' || l_txn_source);
11136: END IF;
11137: --End Bug 2905892
11130: G_FC_Period_Name := Get_FC_Period_Name(P_Gl_Date => G_FC_Gl_Date);
11131:
11132: IF PG_DEBUG = 'Y' THEN
11133: pa_debug.G_err_stage := 'G_FC_Period_Name = ' || G_FC_Period_Name;
11134: log_message('log_message: ' || pa_debug.G_err_Stage);
11135: log_message('log_message: Value of l_txn_source= ' || l_txn_source);
11136: END IF;
11137: --End Bug 2905892
11138:
11183:
11184: ELSIF (l_txn_source in ('AP INVOICE', 'AP NRTAX') ) THEN
11185:
11186: IF PG_DEBUG = 'Y' THEN
11187: pa_debug.G_err_stage := 'Selecting PO Dist Id for AP Invoice';
11188: log_message('log_message: ' || pa_debug.G_err_Stage);
11189: END IF;
11190:
11191: -- REL12 : AP Lines Uptake changes
11184: ELSIF (l_txn_source in ('AP INVOICE', 'AP NRTAX') ) THEN
11185:
11186: IF PG_DEBUG = 'Y' THEN
11187: pa_debug.G_err_stage := 'Selecting PO Dist Id for AP Invoice';
11188: log_message('log_message: ' || pa_debug.G_err_Stage);
11189: END IF;
11190:
11191: -- REL12 : AP Lines Uptake changes
11192: -- Commented logic associated with IPV and ERV columns as these will be now interfaced
11225:
11226: If (l_po_dist_id is not null AND l_inv_type <> 'PREPAYMENT' ) Then
11227:
11228: IF PG_DEBUG = 'Y' THEN
11229: pa_debug.G_err_stage := 'PO Dist Found, Selecting Receipt Accrual Flag';
11230: log_message('log_message: ' || pa_debug.G_err_Stage);
11231: END IF;
11232:
11233: --R12 Funds management uptake changes: Obsolete logic which was based on financial system parameters.Going forward
11226: If (l_po_dist_id is not null AND l_inv_type <> 'PREPAYMENT' ) Then
11227:
11228: IF PG_DEBUG = 'Y' THEN
11229: pa_debug.G_err_stage := 'PO Dist Found, Selecting Receipt Accrual Flag';
11230: log_message('log_message: ' || pa_debug.G_err_Stage);
11231: END IF;
11232:
11233: --R12 Funds management uptake changes: Obsolete logic which was based on financial system parameters.Going forward
11234: --commitments fundscheck will be performed irrespective of value stored in encumbrance types.
11260: nvl(Pa_Pjc_Cwk_Utils.Is_rate_based_line( null, l_po_dist_id),'N') = 'Y' AND
11261: Pa_Pjc_CWk_Utils.Is_CWK_TC_Xface_Allowed(l_project_id) = 'Y')Then
11262:
11263: IF PG_DEBUG = 'Y' THEN
11264: pa_debug.G_err_stage := 'PO accrues on receipt or Enc Type Same for non-accrue on receipt';
11265: log_message('log_message: ' || pa_debug.G_err_Stage);
11266: END IF;
11267:
11268: --This is not a normal invoice meaning we have to reverse the
11261: Pa_Pjc_CWk_Utils.Is_CWK_TC_Xface_Allowed(l_project_id) = 'Y')Then
11262:
11263: IF PG_DEBUG = 'Y' THEN
11264: pa_debug.G_err_stage := 'PO accrues on receipt or Enc Type Same for non-accrue on receipt';
11265: log_message('log_message: ' || pa_debug.G_err_Stage);
11266: END IF;
11267:
11268: --This is not a normal invoice meaning we have to reverse the
11269: --PO commitment and then check if there is any variances and
11279: log_message('log_message: ' || ' Acct PO Amt = ' || l_acct_po_amt);
11280: END IF;
11281:
11282: IF PG_DEBUG = 'Y' THEN
11283: pa_debug.G_err_stage := 'Calling ap_po_funds_check';
11284: log_message('log_message: ' || pa_debug.G_err_Stage);
11285: END IF;
11286:
11287: ap_po_funds_check (
11280: END IF;
11281:
11282: IF PG_DEBUG = 'Y' THEN
11283: pa_debug.G_err_stage := 'Calling ap_po_funds_check';
11284: log_message('log_message: ' || pa_debug.G_err_Stage);
11285: END IF;
11286:
11287: ap_po_funds_check (
11288: p_txn_source => l_txn_source,
11302: x_error_stage => x_error_stage,
11303: x_return_status => x_return_status);
11304:
11305: IF PG_DEBUG = 'Y' THEN
11306: pa_debug.G_err_stage := 'After ap_po_funds_check';
11307: log_message('log_message: ' || pa_debug.G_err_Stage);
11308: END IF;
11309:
11310: End If;
11303: x_return_status => x_return_status);
11304:
11305: IF PG_DEBUG = 'Y' THEN
11306: pa_debug.G_err_stage := 'After ap_po_funds_check';
11307: log_message('log_message: ' || pa_debug.G_err_Stage);
11308: END IF;
11309:
11310: End If;
11311:
11313:
11314: If (l_normal_inv = 'Y') Then
11315:
11316: IF PG_DEBUG = 'Y' THEN
11317: pa_debug.G_err_stage := 'Start funds check packet insert for AP - non accrue on receipt diff enc type';
11318: log_message('log_message: ' || pa_debug.G_err_Stage);
11319: log_message('log_message: Calling ap_funds_check api');
11320: END IF;
11321:
11314: If (l_normal_inv = 'Y') Then
11315:
11316: IF PG_DEBUG = 'Y' THEN
11317: pa_debug.G_err_stage := 'Start funds check packet insert for AP - non accrue on receipt diff enc type';
11318: log_message('log_message: ' || pa_debug.G_err_Stage);
11319: log_message('log_message: Calling ap_funds_check api');
11320: END IF;
11321:
11322: ap_funds_check (
11333: x_error_stage => x_error_stage,
11334: x_return_status => x_return_status);
11335:
11336: IF PG_DEBUG = 'Y' THEN
11337: pa_debug.G_err_stage := 'After ap_funds_check';
11338: log_message('log_message: ' || pa_debug.G_err_Stage);
11339: END IF;
11340:
11341: /*REL12 : AP Lines Uptake changes
11334: x_return_status => x_return_status);
11335:
11336: IF PG_DEBUG = 'Y' THEN
11337: pa_debug.G_err_stage := 'After ap_funds_check';
11338: log_message('log_message: ' || pa_debug.G_err_Stage);
11339: END IF;
11340:
11341: /*REL12 : AP Lines Uptake changes
11342: Commented below logic as IPV / ERV/QV/AV lines will be separately interfaced
11348: -- Added the below section for Receipt records to be funds checked.
11349: ELSIF (l_txn_source in ('PO RECEIPT', 'PO RECEIPT NRTAX')) THEN
11350:
11351: IF PG_DEBUG = 'Y' THEN
11352: pa_debug.G_err_stage := 'Start funds check packet insert for PO Receipts';
11353: log_message('log_message: ' || pa_debug.G_err_Stage);
11354: log_message('log_message: Calling po_funds_check api');
11355: END IF;
11356:
11349: ELSIF (l_txn_source in ('PO RECEIPT', 'PO RECEIPT NRTAX')) THEN
11350:
11351: IF PG_DEBUG = 'Y' THEN
11352: pa_debug.G_err_stage := 'Start funds check packet insert for PO Receipts';
11353: log_message('log_message: ' || pa_debug.G_err_Stage);
11354: log_message('log_message: Calling po_funds_check api');
11355: END IF;
11356:
11357: po_funds_check (
11368: x_error_stage => x_error_stage,
11369: x_return_status => x_return_status);
11370:
11371: IF PG_DEBUG = 'Y' THEN
11372: pa_debug.G_err_stage := 'After po_funds_check';
11373: log_message('log_message: ' || pa_debug.G_err_Stage);
11374: END IF;
11375:
11376: /* Bug 5560524 : Modified the following If condition so that ap_funds_check is also called for
11369: x_return_status => x_return_status);
11370:
11371: IF PG_DEBUG = 'Y' THEN
11372: pa_debug.G_err_stage := 'After po_funds_check';
11373: log_message('log_message: ' || pa_debug.G_err_Stage);
11374: END IF;
11375:
11376: /* Bug 5560524 : Modified the following If condition so that ap_funds_check is also called for
11377: 'AP ERV' transaction source. */
11377: 'AP ERV' transaction source. */
11378: ELSIF (l_txn_source in ('AP VARIANCE','AP ERV')) THEN
11379:
11380: IF PG_DEBUG = 'Y' THEN
11381: pa_debug.G_err_stage := 'Start funds check packet insert for AP Variance records';
11382: log_message('log_message: ' || pa_debug.G_err_Stage);
11383: log_message('log_message: Calling ap_funds_check api');
11384: END IF;
11385:
11378: ELSIF (l_txn_source in ('AP VARIANCE','AP ERV')) THEN
11379:
11380: IF PG_DEBUG = 'Y' THEN
11381: pa_debug.G_err_stage := 'Start funds check packet insert for AP Variance records';
11382: log_message('log_message: ' || pa_debug.G_err_Stage);
11383: log_message('log_message: Calling ap_funds_check api');
11384: END IF;
11385:
11386: ap_funds_check (
11397: x_error_stage => x_error_stage,
11398: x_return_status => x_return_status);
11399:
11400: IF PG_DEBUG = 'Y' THEN
11401: pa_debug.G_err_stage := 'After ap_funds_check';
11402: log_message('log_message: ' || pa_debug.G_err_Stage);
11403: END IF;
11404: -- R12 AP lines uptake : Prepayment changes: This is fired for both Cash and Accrual based AP discounts.
11405: ELSIF (l_txn_source in ('AP DISCOUNTS')) THEN --2339216
11398: x_return_status => x_return_status);
11399:
11400: IF PG_DEBUG = 'Y' THEN
11401: pa_debug.G_err_stage := 'After ap_funds_check';
11402: log_message('log_message: ' || pa_debug.G_err_Stage);
11403: END IF;
11404: -- R12 AP lines uptake : Prepayment changes: This is fired for both Cash and Accrual based AP discounts.
11405: ELSIF (l_txn_source in ('AP DISCOUNTS')) THEN --2339216
11406: IF PG_DEBUG = 'Y' THEN
11403: END IF;
11404: -- R12 AP lines uptake : Prepayment changes: This is fired for both Cash and Accrual based AP discounts.
11405: ELSIF (l_txn_source in ('AP DISCOUNTS')) THEN --2339216
11406: IF PG_DEBUG = 'Y' THEN
11407: pa_debug.G_err_stage := 'Selecting disc amount for AP Invoice';
11408: log_message('log_message: ' || pa_debug.G_err_Stage);
11409: END IF;
11410:
11411: IF PG_DEBUG = 'Y' THEN
11404: -- R12 AP lines uptake : Prepayment changes: This is fired for both Cash and Accrual based AP discounts.
11405: ELSIF (l_txn_source in ('AP DISCOUNTS')) THEN --2339216
11406: IF PG_DEBUG = 'Y' THEN
11407: pa_debug.G_err_stage := 'Selecting disc amount for AP Invoice';
11408: log_message('log_message: ' || pa_debug.G_err_Stage);
11409: END IF;
11410:
11411: IF PG_DEBUG = 'Y' THEN
11412: pa_debug.G_err_stage := 'Discount amount='||p_acct_raw_cost;
11408: log_message('log_message: ' || pa_debug.G_err_Stage);
11409: END IF;
11410:
11411: IF PG_DEBUG = 'Y' THEN
11412: pa_debug.G_err_stage := 'Discount amount='||p_acct_raw_cost;
11413: log_message('log_message: ' || pa_debug.G_err_Stage);
11414: END IF;
11415:
11416: if ( p_acct_raw_cost <> 0 ) then
11409: END IF;
11410:
11411: IF PG_DEBUG = 'Y' THEN
11412: pa_debug.G_err_stage := 'Discount amount='||p_acct_raw_cost;
11413: log_message('log_message: ' || pa_debug.G_err_Stage);
11414: END IF;
11415:
11416: if ( p_acct_raw_cost <> 0 ) then
11417:
11415:
11416: if ( p_acct_raw_cost <> 0 ) then
11417:
11418: IF PG_DEBUG = 'Y' THEN
11419: pa_debug.G_err_stage := 'Aefore Calling ap_disc_funds_check';
11420: log_message('log_message: ' || pa_debug.G_err_Stage);
11421: END IF;
11422:
11423: ap_disc_funds_check (
11416: if ( p_acct_raw_cost <> 0 ) then
11417:
11418: IF PG_DEBUG = 'Y' THEN
11419: pa_debug.G_err_stage := 'Aefore Calling ap_disc_funds_check';
11420: log_message('log_message: ' || pa_debug.G_err_Stage);
11421: END IF;
11422:
11423: ap_disc_funds_check (
11424: p_txn_source => l_txn_source,
11435: x_error_stage => x_error_stage,
11436: x_return_status => x_return_status);
11437:
11438: IF PG_DEBUG = 'Y' THEN
11439: pa_debug.G_err_stage := 'After Call ap_disc_funds_check';
11440: log_message('log_message: ' || pa_debug.G_err_Stage);
11441: END IF;
11442: end if; --2339216
11443: END IF; --p_txn_source check
11436: x_return_status => x_return_status);
11437:
11438: IF PG_DEBUG = 'Y' THEN
11439: pa_debug.G_err_stage := 'After Call ap_disc_funds_check';
11440: log_message('log_message: ' || pa_debug.G_err_Stage);
11441: END IF;
11442: end if; --2339216
11443: END IF; --p_txn_source check
11444:
11485:
11486: pa_cc_utils.set_curr_function('ap_disc_funds_check');
11487:
11488: IF PG_DEBUG = 'Y' THEN
11489: pa_debug.G_err_stage := 'Inside AP_Disc_Funds_Check';
11490: log_message('log_message: ' || pa_debug.G_err_Stage);
11491: log_message('log_message: Before calling insert_ap_bc_packets api');
11492: END IF;
11493:
11486: pa_cc_utils.set_curr_function('ap_disc_funds_check');
11487:
11488: IF PG_DEBUG = 'Y' THEN
11489: pa_debug.G_err_stage := 'Inside AP_Disc_Funds_Check';
11490: log_message('log_message: ' || pa_debug.G_err_Stage);
11491: log_message('log_message: Before calling insert_ap_bc_packets api');
11492: END IF;
11493:
11494: insert_ap_bc_packets( p_packet_id => p_packet_id,
11555:
11556: pa_cc_utils.set_curr_function('ap_funds_check');
11557:
11558: IF PG_DEBUG = 'Y' THEN
11559: pa_debug.G_err_stage := 'Inside AP_Funds_Check';
11560: log_message('log_message: ' || pa_debug.G_err_Stage);
11561: log_message('log_message: Before calling insert_ap_bc_packets api');
11562: END IF;
11563:
11556: pa_cc_utils.set_curr_function('ap_funds_check');
11557:
11558: IF PG_DEBUG = 'Y' THEN
11559: pa_debug.G_err_stage := 'Inside AP_Funds_Check';
11560: log_message('log_message: ' || pa_debug.G_err_Stage);
11561: log_message('log_message: Before calling insert_ap_bc_packets api');
11562: END IF;
11563:
11564: insert_ap_bc_packets( p_packet_id => p_packet_id,
11711:
11712: pa_cc_utils.set_curr_function('po_funds_check');
11713:
11714: IF PG_DEBUG = 'Y' THEN
11715: pa_debug.G_err_stage := 'Inside PO_Funds_Check';
11716: log_message('log_message: ' || pa_debug.G_err_Stage);
11717: log_message('log_message: Before Calling GetCommSummAmt api');
11718: END IF;
11719:
11712: pa_cc_utils.set_curr_function('po_funds_check');
11713:
11714: IF PG_DEBUG = 'Y' THEN
11715: pa_debug.G_err_stage := 'Inside PO_Funds_Check';
11716: log_message('log_message: ' || pa_debug.G_err_Stage);
11717: log_message('log_message: Before Calling GetCommSummAmt api');
11718: END IF;
11719:
11720: -- Bug 4346519 : Receipt Returns ( i.e. -ve amt getting interfaced to projects) should reserve the cmt costs that are getting
11774:
11775: END IF;
11776:
11777: IF PG_DEBUG = 'Y' THEN
11778: pa_debug.G_err_stage := 'Before Calling insert_po_bc_packets';
11779: log_message('log_message: ' || pa_debug.G_err_Stage);
11780: END IF;
11781:
11782: insert_po_bc_packets (p_packet_id => p_packet_id ,
11775: END IF;
11776:
11777: IF PG_DEBUG = 'Y' THEN
11778: pa_debug.G_err_stage := 'Before Calling insert_po_bc_packets';
11779: log_message('log_message: ' || pa_debug.G_err_Stage);
11780: END IF;
11781:
11782: insert_po_bc_packets (p_packet_id => p_packet_id ,
11783: p_sys_ref2 => p_sys_ref2 ,
11790: p_adj_exp_item_id => p_adj_exp_item_id,
11791: p_txn_interface_id => p_txn_interface_id);
11792:
11793: IF PG_DEBUG = 'Y' THEN
11794: pa_debug.G_err_stage := 'After Calling insert_po_bc_packets';
11795: log_message('log_message: ' || pa_debug.G_err_Stage);
11796: END IF;
11797:
11798: IF PG_DEBUG = 'Y' THEN
11791: p_txn_interface_id => p_txn_interface_id);
11792:
11793: IF PG_DEBUG = 'Y' THEN
11794: pa_debug.G_err_stage := 'After Calling insert_po_bc_packets';
11795: log_message('log_message: ' || pa_debug.G_err_Stage);
11796: END IF;
11797:
11798: IF PG_DEBUG = 'Y' THEN
11799: log_message('log_message: ' || 'Returning from po funds check');
11852:
11853: pa_cc_utils.set_curr_function('ap_po_funds_check');
11854:
11855: IF PG_DEBUG = 'Y' THEN
11856: pa_debug.G_err_stage := 'Inside ap_po_Funds_Check';
11857: log_message('log_message: ' || pa_debug.G_err_Stage);
11858: END IF;
11859:
11860: IF PG_DEBUG = 'Y' THEN
11853: pa_cc_utils.set_curr_function('ap_po_funds_check');
11854:
11855: IF PG_DEBUG = 'Y' THEN
11856: pa_debug.G_err_stage := 'Inside ap_po_Funds_Check';
11857: log_message('log_message: ' || pa_debug.G_err_Stage);
11858: END IF;
11859:
11860: IF PG_DEBUG = 'Y' THEN
11861: pa_debug.G_err_stage := 'Start funds check packet insert for AP records that accrue on receipt';
11857: log_message('log_message: ' || pa_debug.G_err_Stage);
11858: END IF;
11859:
11860: IF PG_DEBUG = 'Y' THEN
11861: pa_debug.G_err_stage := 'Start funds check packet insert for AP records that accrue on receipt';
11862: log_message('log_message: ' || pa_debug.G_err_Stage);
11863: END IF;
11864:
11865: IF PG_DEBUG = 'Y' THEN
11858: END IF;
11859:
11860: IF PG_DEBUG = 'Y' THEN
11861: pa_debug.G_err_stage := 'Start funds check packet insert for AP records that accrue on receipt';
11862: log_message('log_message: ' || pa_debug.G_err_Stage);
11863: END IF;
11864:
11865: IF PG_DEBUG = 'Y' THEN
11866: pa_debug.G_err_stage := 'Call po_funds_check to reverse out the PO commitment';
11862: log_message('log_message: ' || pa_debug.G_err_Stage);
11863: END IF;
11864:
11865: IF PG_DEBUG = 'Y' THEN
11866: pa_debug.G_err_stage := 'Call po_funds_check to reverse out the PO commitment';
11867: log_message('log_message: ' || pa_debug.G_err_Stage);
11868: END IF;
11869:
11870: po_funds_check (
11863: END IF;
11864:
11865: IF PG_DEBUG = 'Y' THEN
11866: pa_debug.G_err_stage := 'Call po_funds_check to reverse out the PO commitment';
11867: log_message('log_message: ' || pa_debug.G_err_Stage);
11868: END IF;
11869:
11870: po_funds_check (
11871: p_txn_source => p_txn_source,
11881: x_error_stage => x_error_stage,
11882: x_return_status => x_return_status);
11883:
11884: IF PG_DEBUG = 'Y' THEN
11885: pa_debug.G_err_stage := 'After calling po_funds_check api';
11886: log_message('log_message: ' || pa_debug.G_err_Stage);
11887: log_message('log_message: Value of p_base_qty_var_amt= '||p_base_qty_var_amt);
11888: log_message('log_message: Value of p_base_amt_var_amt= '||p_base_amt_var_amt);
11889: END IF;
11882: x_return_status => x_return_status);
11883:
11884: IF PG_DEBUG = 'Y' THEN
11885: pa_debug.G_err_stage := 'After calling po_funds_check api';
11886: log_message('log_message: ' || pa_debug.G_err_Stage);
11887: log_message('log_message: Value of p_base_qty_var_amt= '||p_base_qty_var_amt);
11888: log_message('log_message: Value of p_base_amt_var_amt= '||p_base_amt_var_amt);
11889: END IF;
11890:
11897:
11898: IF NVL(p_base_qty_var_amt,0) <> 0 THEN
11899:
11900: IF PG_DEBUG = 'Y' THEN
11901: pa_debug.G_err_stage := 'Call ap_funds_check to reverse out the ap p_base_qty_var_amt = '||p_base_qty_var_amt;
11902: log_message('log_message: ' || pa_debug.G_err_Stage);
11903: END IF;
11904:
11905: ap_funds_check (
11898: IF NVL(p_base_qty_var_amt,0) <> 0 THEN
11899:
11900: IF PG_DEBUG = 'Y' THEN
11901: pa_debug.G_err_stage := 'Call ap_funds_check to reverse out the ap p_base_qty_var_amt = '||p_base_qty_var_amt;
11902: log_message('log_message: ' || pa_debug.G_err_Stage);
11903: END IF;
11904:
11905: ap_funds_check (
11906: p_txn_source => 'AP VARIANCE',
11916: x_error_stage => x_error_stage,
11917: x_return_status => x_return_status);
11918:
11919: IF PG_DEBUG = 'Y' THEN
11920: pa_debug.G_err_stage := 'After calling ap_funds_check api';
11921: log_message('log_message: ' || pa_debug.G_err_Stage);
11922: END IF;
11923: END IF; --IF NVL(p_base_qty_var_amt,0) <> 0 THEN
11924:
11917: x_return_status => x_return_status);
11918:
11919: IF PG_DEBUG = 'Y' THEN
11920: pa_debug.G_err_stage := 'After calling ap_funds_check api';
11921: log_message('log_message: ' || pa_debug.G_err_Stage);
11922: END IF;
11923: END IF; --IF NVL(p_base_qty_var_amt,0) <> 0 THEN
11924:
11925:
11925:
11926: IF NVL(p_base_amt_var_amt,0) <> 0 THEN
11927:
11928: IF PG_DEBUG = 'Y' THEN
11929: pa_debug.G_err_stage := 'Call ap_funds_check to reverse out the ap p_base_amt_var_amt = '||p_base_amt_var_amt;
11930: log_message('log_message: ' || pa_debug.G_err_Stage);
11931: END IF;
11932:
11933: ap_funds_check (
11926: IF NVL(p_base_amt_var_amt,0) <> 0 THEN
11927:
11928: IF PG_DEBUG = 'Y' THEN
11929: pa_debug.G_err_stage := 'Call ap_funds_check to reverse out the ap p_base_amt_var_amt = '||p_base_amt_var_amt;
11930: log_message('log_message: ' || pa_debug.G_err_Stage);
11931: END IF;
11932:
11933: ap_funds_check (
11934: p_txn_source => 'AP VARIANCE',
11944: x_error_stage => x_error_stage,
11945: x_return_status => x_return_status);
11946:
11947: IF PG_DEBUG = 'Y' THEN
11948: pa_debug.G_err_stage := 'After calling ap_funds_check api';
11949: log_message('log_message: ' || pa_debug.G_err_Stage);
11950: END IF;
11951:
11952: END IF; --IF NVL(p_base_amt_var_amt,0) <> 0 THEN
11945: x_return_status => x_return_status);
11946:
11947: IF PG_DEBUG = 'Y' THEN
11948: pa_debug.G_err_stage := 'After calling ap_funds_check api';
11949: log_message('log_message: ' || pa_debug.G_err_Stage);
11950: END IF;
11951:
11952: END IF; --IF NVL(p_base_amt_var_amt,0) <> 0 THEN
11953:
12151: /*E.N. 5297060*/
12152:
12153: IF ( G_Org_Id IS NULL ) THEN
12154: IF PG_DEBUG = 'Y' THEN
12155: pa_debug.G_err_Stage := 'P_Emp_Org_Id is null';
12156: log_message('log_message: ' || pa_debug.G_err_Stage);
12157: END IF;
12158: X_status := 'NO_ASSIGNMENT';
12159: pa_cc_utils.reset_curr_function;
12152:
12153: IF ( G_Org_Id IS NULL ) THEN
12154: IF PG_DEBUG = 'Y' THEN
12155: pa_debug.G_err_Stage := 'P_Emp_Org_Id is null';
12156: log_message('log_message: ' || pa_debug.G_err_Stage);
12157: END IF;
12158: X_status := 'NO_ASSIGNMENT';
12159: pa_cc_utils.reset_curr_function;
12160: RETURN;
12178:
12179: END IF;
12180:
12181: IF PG_DEBUG = 'Y' THEN
12182: pa_debug.G_err_stage := 'Calling GetProjCurrInfo';
12183: log_message('log_message: ' || pa_debug.G_err_Stage);
12184: END IF;
12185:
12186: GetProjCurrInfo(G_task_id,
12179: END IF;
12180:
12181: IF PG_DEBUG = 'Y' THEN
12182: pa_debug.G_err_stage := 'Calling GetProjCurrInfo';
12183: log_message('log_message: ' || pa_debug.G_err_Stage);
12184: END IF;
12185:
12186: GetProjCurrInfo(G_task_id,
12187: X_project_currency_code,
12207:
12208: /* Added the call to GetProjTypeInfo for getting the project type class for
12209: * bug#4903329 */
12210: IF PG_DEBUG = 'Y' THEN
12211: pa_debug.G_err_stage := 'Calling GetProjTypeInfo';
12212: log_message('log_message: ' || pa_debug.G_err_Stage);
12213: END IF;
12214:
12215:
12208: /* Added the call to GetProjTypeInfo for getting the project type class for
12209: * bug#4903329 */
12210: IF PG_DEBUG = 'Y' THEN
12211: pa_debug.G_err_stage := 'Calling GetProjTypeInfo';
12212: log_message('log_message: ' || pa_debug.G_err_Stage);
12213: END IF;
12214:
12215:
12216: GetProjTypeInfo( G_project_id,
12227:
12228: IF G_allow_dup_flag <> 'Y' THEN
12229:
12230: IF PG_DEBUG = 'Y' THEN
12231: pa_debug.G_err_stage := 'Calling CheckDupItem';
12232: log_message('log_message: ' || pa_debug.G_err_Stage);
12233: END IF;
12234: CheckDupItem ( X_trx_src, X_trx_ref, temp_status );
12235: IF ( temp_status IS NOT NULL ) THEN
12228: IF G_allow_dup_flag <> 'Y' THEN
12229:
12230: IF PG_DEBUG = 'Y' THEN
12231: pa_debug.G_err_stage := 'Calling CheckDupItem';
12232: log_message('log_message: ' || pa_debug.G_err_Stage);
12233: END IF;
12234: CheckDupItem ( X_trx_src, X_trx_ref, temp_status );
12235: IF ( temp_status IS NOT NULL ) THEN
12236: X_status := temp_status;
12246: --
12247: IF ( ( X_qty < 0 and X_match_flag = 'N' ) OR
12248: ( X_match_flag = 'N' and X_trx_src = 'ORACLE TIME AND LABOR' ) ) THEN
12249: IF PG_DEBUG = 'Y' THEN
12250: pa_debug.G_err_stage := 'Calling pa_adjustments.VerifyOrigItem';
12251: log_message('log_message: ' || pa_debug.G_err_Stage);
12252: END IF;
12253: G_adj_item_id := pa_adjustments.VerifyOrigItem(
12254: X_person_id => G_person_id
12247: IF ( ( X_qty < 0 and X_match_flag = 'N' ) OR
12248: ( X_match_flag = 'N' and X_trx_src = 'ORACLE TIME AND LABOR' ) ) THEN
12249: IF PG_DEBUG = 'Y' THEN
12250: pa_debug.G_err_stage := 'Calling pa_adjustments.VerifyOrigItem';
12251: log_message('log_message: ' || pa_debug.G_err_Stage);
12252: END IF;
12253: G_adj_item_id := pa_adjustments.VerifyOrigItem(
12254: X_person_id => G_person_id
12255: , X_org_id => G_org_id
12276:
12277: ELSIF ( G_adj_item_id IS NOT NULL AND X_module = 'PAXTRTRX' ) THEN
12278:
12279: IF PG_DEBUG = 'Y' THEN
12280: pa_debug.G_err_stage := 'Calling pa_adjustments.ExpAdjItemTab';
12281: log_message('log_message: ' || pa_debug.G_err_Stage);
12282: END IF;
12283: pa_adjustments.ExpAdjItemTab(G_adj_item_id) := G_adj_item_id;
12284:
12277: ELSIF ( G_adj_item_id IS NOT NULL AND X_module = 'PAXTRTRX' ) THEN
12278:
12279: IF PG_DEBUG = 'Y' THEN
12280: pa_debug.G_err_stage := 'Calling pa_adjustments.ExpAdjItemTab';
12281: log_message('log_message: ' || pa_debug.G_err_Stage);
12282: END IF;
12283: pa_adjustments.ExpAdjItemTab(G_adj_item_id) := G_adj_item_id;
12284:
12285: IF PG_DEBUG = 'Y' THEN
12282: END IF;
12283: pa_adjustments.ExpAdjItemTab(G_adj_item_id) := G_adj_item_id;
12284:
12285: IF PG_DEBUG = 'Y' THEN
12286: pa_debug.G_err_stage := 'Locking adjusting item:'||to_char(G_adj_item_id);
12287: log_message('log_message: ' || pa_debug.G_err_Stage);
12288: END IF;
12289:
12290: BEGIN
12283: pa_adjustments.ExpAdjItemTab(G_adj_item_id) := G_adj_item_id;
12284:
12285: IF PG_DEBUG = 'Y' THEN
12286: pa_debug.G_err_stage := 'Locking adjusting item:'||to_char(G_adj_item_id);
12287: log_message('log_message: ' || pa_debug.G_err_Stage);
12288: END IF;
12289:
12290: BEGIN
12291:
12313:
12314: END IF;
12315:
12316: IF PG_DEBUG = 'Y' THEN
12317: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';
12318: log_message('log_message: ' || pa_debug.G_err_Stage);
12319: END IF;
12320: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,
12321: p_task_id => NULL);
12314: END IF;
12315:
12316: IF PG_DEBUG = 'Y' THEN
12317: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';
12318: log_message('log_message: ' || pa_debug.G_err_Stage);
12319: END IF;
12320: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,
12321: p_task_id => NULL);
12322:
12320: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,
12321: p_task_id => NULL);
12322:
12323: IF PG_DEBUG = 'Y' THEN
12324: pa_debug.G_err_stage := 'Calling API to derive/validate assignment and work type info';
12325: log_message('log_message: ' || pa_debug.G_err_Stage);
12326: log_message('log_message: ' || 'Assignment Name = ' || X_Assignment_Name || ' Work Type Name = ' || X_Work_Type_Name);
12327: END IF;
12328:
12321: p_task_id => NULL);
12322:
12323: IF PG_DEBUG = 'Y' THEN
12324: pa_debug.G_err_stage := 'Calling API to derive/validate assignment and work type info';
12325: log_message('log_message: ' || pa_debug.G_err_Stage);
12326: log_message('log_message: ' || 'Assignment Name = ' || X_Assignment_Name || ' Work Type Name = ' || X_Work_Type_Name);
12327: END IF;
12328:
12329: /*S.N. 5297060*/
12351:
12352: IF (l_asgn_work_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
12353:
12354: IF PG_DEBUG = 'Y' THEN
12355: pa_debug.G_err_stage := 'Get Work Type and Assignment API failed';
12356: log_message('log_message: ' || pa_debug.G_err_Stage);
12357: log_message('log_message: ' || 'Ret Sts = ' || l_asgn_work_ret_sts || ' Error = ' || l_asgn_work_err_msg);
12358: END IF;
12359:
12352: IF (l_asgn_work_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
12353:
12354: IF PG_DEBUG = 'Y' THEN
12355: pa_debug.G_err_stage := 'Get Work Type and Assignment API failed';
12356: log_message('log_message: ' || pa_debug.G_err_Stage);
12357: log_message('log_message: ' || 'Ret Sts = ' || l_asgn_work_ret_sts || ' Error = ' || l_asgn_work_err_msg);
12358: END IF;
12359:
12360: X_Status := l_asgn_work_err_msg;
12371: G_IcProcessed_Code := 'X';
12372: l_temp_g_assignment_id := G_Assignment_Id; -- bug 5297060
12373:
12374: IF PG_DEBUG = 'Y' THEN
12375: pa_debug.G_err_stage := 'Calling patc client extension for override to assignment id';
12376: log_message('log_message: ' || pa_debug.G_err_Stage);
12377: END IF;
12378:
12379: patcx.tc_extension( X_project_id => g_project_id
12372: l_temp_g_assignment_id := G_Assignment_Id; -- bug 5297060
12373:
12374: IF PG_DEBUG = 'Y' THEN
12375: pa_debug.G_err_stage := 'Calling patc client extension for override to assignment id';
12376: log_message('log_message: ' || pa_debug.G_err_Stage);
12377: END IF;
12378:
12379: patcx.tc_extension( X_project_id => g_project_id
12380: , X_task_id => g_task_id
12455:
12456: EXCEPTION
12457: WHEN OTHERS THEN
12458: IF PG_DEBUG = 'Y' THEN
12459: log_message('log_message: ' || pa_debug.G_err_Stack,1);
12460: log_message('log_message: ' || pa_debug.G_err_stage,1);
12461: log_message('log_message: ' || SQLERRM,1);
12462: END IF;
12463: pa_cc_utils.reset_curr_function;
12456: EXCEPTION
12457: WHEN OTHERS THEN
12458: IF PG_DEBUG = 'Y' THEN
12459: log_message('log_message: ' || pa_debug.G_err_Stack,1);
12460: log_message('log_message: ' || pa_debug.G_err_stage,1);
12461: log_message('log_message: ' || SQLERRM,1);
12462: END IF;
12463: pa_cc_utils.reset_curr_function;
12464: RAISE ;
12493: LOOP
12494: BEGIN
12495:
12496: l_lock_status := -1;
12497: l_lock_status := Pa_Debug.Release_User_Lock(PoLineTaskTab(i));
12498:
12499: IF (l_lock_status = 0) THEN
12500: IF PG_DEBUG = 'Y' THEN
12501: pa_debug.G_err_stage := 'RELEASE_PO_LINE_TASK_LOCK : Released Lock for : '||PoLineTaskTab(i);
12497: l_lock_status := Pa_Debug.Release_User_Lock(PoLineTaskTab(i));
12498:
12499: IF (l_lock_status = 0) THEN
12500: IF PG_DEBUG = 'Y' THEN
12501: pa_debug.G_err_stage := 'RELEASE_PO_LINE_TASK_LOCK : Released Lock for : '||PoLineTaskTab(i);
12502: log_message('log_message: ' || pa_debug.G_err_stage,1);
12503: END IF;
12504: ELSE
12505: IF PG_DEBUG = 'Y' THEN
12498:
12499: IF (l_lock_status = 0) THEN
12500: IF PG_DEBUG = 'Y' THEN
12501: pa_debug.G_err_stage := 'RELEASE_PO_LINE_TASK_LOCK : Released Lock for : '||PoLineTaskTab(i);
12502: log_message('log_message: ' || pa_debug.G_err_stage,1);
12503: END IF;
12504: ELSE
12505: IF PG_DEBUG = 'Y' THEN
12506: pa_debug.G_err_stage := 'RELEASE_PO_LINE_TASK_LOCK : Failed To Release Lock for : '||PoLineTaskTab(i);
12502: log_message('log_message: ' || pa_debug.G_err_stage,1);
12503: END IF;
12504: ELSE
12505: IF PG_DEBUG = 'Y' THEN
12506: pa_debug.G_err_stage := 'RELEASE_PO_LINE_TASK_LOCK : Failed To Release Lock for : '||PoLineTaskTab(i);
12507: log_message('log_message: ' || pa_debug.G_err_stage,1);
12508: END IF;
12509: END IF;
12510:
12503: END IF;
12504: ELSE
12505: IF PG_DEBUG = 'Y' THEN
12506: pa_debug.G_err_stage := 'RELEASE_PO_LINE_TASK_LOCK : Failed To Release Lock for : '||PoLineTaskTab(i);
12507: log_message('log_message: ' || pa_debug.G_err_stage,1);
12508: END IF;
12509: END IF;
12510:
12511: EXCEPTION
12511: EXCEPTION
12512: WHEN OTHERS THEN
12513:
12514: IF PG_DEBUG = 'Y' THEN
12515: pa_debug.G_err_stage := 'RELEASE_PO_LINE_TASK_LOCK : In Process of Releasing Locks : ' ||SQLERRM;
12516: log_message('log_message: ' || pa_debug.G_err_stage,1);
12517: END IF;
12518:
12519: END ;
12512: WHEN OTHERS THEN
12513:
12514: IF PG_DEBUG = 'Y' THEN
12515: pa_debug.G_err_stage := 'RELEASE_PO_LINE_TASK_LOCK : In Process of Releasing Locks : ' ||SQLERRM;
12516: log_message('log_message: ' || pa_debug.G_err_stage,1);
12517: END IF;
12518:
12519: END ;
12520:
12760:
12761: pa_cc_utils.set_curr_function('ap_funds_check');
12762:
12763: IF PG_DEBUG = 'Y' THEN
12764: pa_debug.G_err_stage := 'Inside AP_Funds_Check';
12765: log_message('log_message: ' || pa_debug.G_err_Stage);
12766: END IF;
12767:
12768: -- Calling GetCommSummAmt to calculate AP distribution's raw and burden amount to be relieved/reserved.
12761: pa_cc_utils.set_curr_function('ap_funds_check');
12762:
12763: IF PG_DEBUG = 'Y' THEN
12764: pa_debug.G_err_stage := 'Inside AP_Funds_Check';
12765: log_message('log_message: ' || pa_debug.G_err_Stage);
12766: END IF;
12767:
12768: -- Calling GetCommSummAmt to calculate AP distribution's raw and burden amount to be relieved/reserved.
12769: GetCommSummAmt(p_ap_pkt_raw_amt => l_raw_amount);
12768: -- Calling GetCommSummAmt to calculate AP distribution's raw and burden amount to be relieved/reserved.
12769: GetCommSummAmt(p_ap_pkt_raw_amt => l_raw_amount);
12770:
12771: IF PG_DEBUG = 'Y' THEN
12772: pa_debug.G_err_stage := 'Before calling insert_cash_ap_bc_packets';
12773: log_message('log_message: ' || pa_debug.G_err_Stage);
12774: END IF;
12775:
12776: insert_cash_ap_bc_packets( p_packet_id => p_packet_id,
12769: GetCommSummAmt(p_ap_pkt_raw_amt => l_raw_amount);
12770:
12771: IF PG_DEBUG = 'Y' THEN
12772: pa_debug.G_err_stage := 'Before calling insert_cash_ap_bc_packets';
12773: log_message('log_message: ' || pa_debug.G_err_Stage);
12774: END IF;
12775:
12776: insert_cash_ap_bc_packets( p_packet_id => p_packet_id,
12777: p_sys_ref2 => p_sys_ref2,