DBA Data[Home] [Help]

APPS.PATC dependencies on PA_TRX_IMPORT

Line 329: ( X_calling_Module = 'PAAPIMP' and Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' ) THEN

325: -- AP, we do not report any error. PAAPIMP is the only module
326: -- which transfers records from AP
327: IF ( X_calling_Module <> 'PAAPIMP')
328: OR -- added this for bug fix :2345895
329: ( X_calling_Module = 'PAAPIMP' and Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' ) THEN
330: print_message('PATC ERROR:'||msg_name);
331: X_status := msg_name;
332: -- Begin bug 4518893
333: If ( nvl(X_msg_type,'W') = 'E' ) THEN

Line 414: IF pa_trx_import.g_skip_tc_flag <> 'Y' then /* Added for Bug # 2170237 */

410: FROM pa_organizations_v
411: WHERE organization_id = X_nl_resource_org_id
412: AND X_ei_date between date_from and nvl(date_to,X_ei_date);
413: IF ( dummy = 0 ) THEN
414: IF pa_trx_import.g_skip_tc_flag <> 'Y' then /* Added for Bug # 2170237 */
415: return_error('PA_TR_EPE_NLR_ORG_NOT_ACTIVE') ;
416: END IF ; /* Added for Bug # 2170237 */
417: END IF ;
418:

Line 725: ']TC skip Flag:['||Pa_Trx_Import.G_Skip_Tc_Flag||']');

721: X_transfer_ei||']incurred_by_org_id:['||X_incurred_by_org_id||']vendor_id:['||X_vendor_id||
722: ']System linkage:['||P_sys_link_function||'] assignment_id:['||p_assignment_id||
723: ']work_type_id:['||p_work_type_id||']Billable_flag:['||x_billable_flag||']'||
724: 'calling module :['||X_Calling_Module||']Transaction_source:['||X_transaction_source||
725: ']TC skip Flag:['||Pa_Trx_Import.G_Skip_Tc_Flag||']');
726:
727: /** Initialize the transaction controls skip flag for each call
728: * if the calling module is PAAPIMP and transaction source is AP EXPENSE
729: * we should revalidate the transaction at the time of import.and override the

Line 730: * Pa_Trx_Import.G_Skip_Tc_flag **/

726:
727: /** Initialize the transaction controls skip flag for each call
728: * if the calling module is PAAPIMP and transaction source is AP EXPENSE
729: * we should revalidate the transaction at the time of import.and override the
730: * Pa_Trx_Import.G_Skip_Tc_flag **/
731: G_TRX_SKIP_FLAG := nvl(Pa_Trx_Import.G_Skip_Tc_Flag,'N');
732:
733: /* Start- Commented the following code to override the skip tc flag for bug 4549869
734: IF ( x_calling_module = 'PAAPIMP' and x_transaction_source = 'AP EXPENSE') Then */

Line 731: G_TRX_SKIP_FLAG := nvl(Pa_Trx_Import.G_Skip_Tc_Flag,'N');

727: /** Initialize the transaction controls skip flag for each call
728: * if the calling module is PAAPIMP and transaction source is AP EXPENSE
729: * we should revalidate the transaction at the time of import.and override the
730: * Pa_Trx_Import.G_Skip_Tc_flag **/
731: G_TRX_SKIP_FLAG := nvl(Pa_Trx_Import.G_Skip_Tc_Flag,'N');
732:
733: /* Start- Commented the following code to override the skip tc flag for bug 4549869
734: IF ( x_calling_module = 'PAAPIMP' and x_transaction_source = 'AP EXPENSE') Then */
735: /** If the expenditure type is part of ER and VI then we should revalidate the

Line 745: /* print_message('Overriding the Pa_Trx_Import.G_Skip_Tc_Flag ');

741: ,x_return_string => l_return_string );
742: If l_return_string = 'VI,ER,' or l_return_string = 'ER,VI,' then Bug# 2955795*/
743: /*
744: If p_sys_link_function ='ER' Then Bug# 2955795*/
745: /* print_message('Overriding the Pa_Trx_Import.G_Skip_Tc_Flag ');
746: Pa_Trx_Import.G_Skip_Tc_Flag := 'N';
747: End if;
748: End If;
749: Ends- Commented the following code to override the skip tc flag for bug 4549869 */

Line 746: Pa_Trx_Import.G_Skip_Tc_Flag := 'N';

742: If l_return_string = 'VI,ER,' or l_return_string = 'ER,VI,' then Bug# 2955795*/
743: /*
744: If p_sys_link_function ='ER' Then Bug# 2955795*/
745: /* print_message('Overriding the Pa_Trx_Import.G_Skip_Tc_Flag ');
746: Pa_Trx_Import.G_Skip_Tc_Flag := 'N';
747: End if;
748: End If;
749: Ends- Commented the following code to override the skip tc flag for bug 4549869 */
750: X_msg_type := 'E'; -- Initiliaze Error/Warning indicator parameter.

Line 837: /*Bug 2726763: Since the check to see if project is chargeable is done in pa_trx_import

833:
834: END IF;
835: /*Bug# 2188422*/
836:
837: /*Bug 2726763: Since the check to see if project is chargeable is done in pa_trx_import
838: -- only if the transaction source's skip_tc_validation_flag is 'N', we have
839: -- to add the check here for calling module 'APXIIMPT'. For all other calling
840: -- modules the check will be performed when selecting the project from the
841: -- form's LOV */

Line 859: -- * pa_trx_import.g_skip_tc_flag <> 'Y' then -- code added for Bug 1299910

855: -- * project status is not 'CLOSED'
856: -- * task is chargeable
857: -- * item date is between start and end dates of project/task
858: -- * Made changes in the call of Return Error Based on the global Parameter
859: -- * pa_trx_import.g_skip_tc_flag <> 'Y' then -- code added for Bug 1299910
860:
861: OPEN project_info;
862:
863: FETCH project_info INTO proj;

Line 875: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

871: -- Calling Modules.
872: print_message('Stage:PATC:10.10.004');
873: IF ( project_info%ROWCOUNT = 0 ) THEN -- Project/Task combination is
874: -- not valid
875: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
876: print_message('Stage:PATC:10.10.005');
877: return_error( 'PA_EXP_INV_PJTK' );
878: End If;
879:

Line 883: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

879:
880: ELSIF ( proj.p_template_flag = 'Y' ) THEN -- Checks if it is a
881: -- template project
882:
883: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
884: print_message('Stage:PATC:10.10.006');
885: return_error( 'PA_EX_TEMPLATE_PROJECT');
886: End If;
887:

Line 892: AND PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date ='Y' THEN

888: -- BUG: 4600792 PQE:R12 CHANGE AWARD END WHEN ENCUMBRANCE EXISTS, IMPORT ENC REVERSALS FOR CLOSE
889: --
890: /* Added trunc() for bug#5999555 */
891: ELSIF ( trunc(X_ei_date) NOT BETWEEN trunc(proj.p_start_date) AND trunc(proj.p_end_date) )
892: AND PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date ='Y' THEN
893:
894: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
895: print_message('Stage:PATC:10.10.007');
896: return_error( 'PA_EX_PROJECT_DATE' );

Line 894: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

890: /* Added trunc() for bug#5999555 */
891: ELSIF ( trunc(X_ei_date) NOT BETWEEN trunc(proj.p_start_date) AND trunc(proj.p_end_date) )
892: AND PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date ='Y' THEN
893:
894: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
895: print_message('Stage:PATC:10.10.007');
896: return_error( 'PA_EX_PROJECT_DATE' );
897: End If;
898:

Line 901: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

897: End If;
898:
899: ELSIF (PA_PROJECT_UTILS.Check_prj_stus_action_allowed(proj.project_status_code,'NEW_TXNS') = 'N' ) THEN
900:
901: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
902: print_message('Stage:PATC:10.10.008');
903: return_error( 'PA_NEW_TXNS_NOT_ALLOWED' );
904: End If;
905:

Line 908: ELSIF ( X_ei_date NOT BETWEEN proj.t_start_date AND proj.t_end_date ) AND PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date ='Y' THEN

904: End If;
905:
906: -- BUG: 4600792 PQE:R12 CHANGE AWARD END WHEN ENCUMBRANCE EXISTS, IMPORT ENC REVERSALS FOR CLOSE
907: --
908: ELSIF ( X_ei_date NOT BETWEEN proj.t_start_date AND proj.t_end_date ) AND PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date ='Y' THEN
909:
910: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
911: print_message('Stage:PATC:10.10.009');
912: return_error( 'PA_EXP_TASK_EFF' );

Line 910: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

906: -- BUG: 4600792 PQE:R12 CHANGE AWARD END WHEN ENCUMBRANCE EXISTS, IMPORT ENC REVERSALS FOR CLOSE
907: --
908: ELSIF ( X_ei_date NOT BETWEEN proj.t_start_date AND proj.t_end_date ) AND PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date ='Y' THEN
909:
910: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
911: print_message('Stage:PATC:10.10.009');
912: return_error( 'PA_EXP_TASK_EFF' );
913: End If;
914:

Line 917: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

913: End If;
914:
915: ELSIF ( proj.t_chargeable_flag = 'N' ) THEN
916:
917: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
918: print_message('Stage:PATC:10.10.010');
919: return_error( 'PA_EXP_TASK_STATUS' );
920: End If;
921:

Line 922: ELSIF (Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y') Then

918: print_message('Stage:PATC:10.10.010');
919: return_error( 'PA_EXP_TASK_STATUS' );
920: End If;
921:
922: ELSIF (Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y') Then
923:
924: print_message('Calling Check_fin_Task_published');
925: PA_PROJ_ELEMENTS_UTILS.Check_Fin_Task_Published(
926: p_project_id => x_project_id

Line 969: PA_TRX_IMPORT.Set_GVal_ProjTskEi_Date('Y');

965:
966: -- BUG: 4600792 PQE:R12 CHANGE AWARD END WHEN ENCUMBRANCE EXISTS, IMPORT ENC REVERSALS FOR CLOSE
967: --
968: /* Initializing the value-- Bug4138033 */
969: PA_TRX_IMPORT.Set_GVal_ProjTskEi_Date('Y');
970: /* End Bug# 4138033 */
971:
972: -- If item passes basic validation, then validate the item against all
973: -- applicable task-level transaction controls

Line 1058: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

1054:
1055: -- Added x_person_id parameter to function call for bug 4585740
1056: If check_person_level_TCs(p_sys_link_function, x_project_id, x_task_id,x_person_id) THEN -- added for bug 2939224/bug 4912880 added x_person_id to call
1057:
1058: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
1059: print_message('Stage:PATC:10.11.002');
1060:
1061: -- Added following block for CWk changes bug# 5948324
1062: if l_person_Type = 'CWK' Then

Line 1090: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

1086: (p_sys_link_function = 'VI' AND check_person_level_TCs(x_project_id))) THEN */-- added for bug 2942492
1087: -- Added x_person_id parameter to function call for bug 4585740
1088: IF check_person_level_TCs(p_sys_link_function, x_project_id,x_person_id) THEN -- added for bug 2939224/bug 4912880 added x_person_id to call
1089:
1090: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
1091: print_message('Stage:PATC:10.11.003');
1092: return_error( 'PA_EXP_PJ_TC' );
1093: End If;
1094:

Line 1113: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

1109: -- a transaction control at task level.
1110:
1111: IF ( proj.t_limit_flag = 'Y' AND tc.task_id is NULL ) THEN
1112:
1113: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
1114:
1115: print_message('Stage:PATC:10.12.002');
1116: -- Begin CWK/FP_M changes
1117: /* IF p_sys_link_function not in ('USG', 'PJ') THEN --Bug 4266933*//*Commented for Bug 5735180*/

Line 1178: ( x_calling_module <> 'PAAPIMP' and Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' ) Then

1174:
1175: IF p_sys_link_function in ('ST','OT','ER') THEN
1176:
1177: IF ( x_calling_module = 'PAAPIMP' and x_transaction_source = 'AP EXPENSE') OR
1178: ( x_calling_module <> 'PAAPIMP' and Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' ) Then
1179:
1180: print_message('Stage:PATC:10.12.003.1');
1181: l_check_pjrm_tc_flag := 'Y';
1182:

Line 1207: ELSIF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' then

1203:
1204: print_message('Stage:PATC:10.12.003.3');
1205: l_check_pjrm_tc_flag := 'Y';
1206:
1207: ELSIF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' then
1208:
1209: print_message('Stage:PATC:10.12.003.4');
1210: l_check_pjrm_tc_flag := 'N';
1211:

Line 1269: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added for bug 4549869 */

1265:
1266: -- Begin bug 4068808
1267: If ((proj.p_limit_flag = 'Y' and level_flag_local = 'P') or (proj.t_limit_flag = 'Y' and level_flag_local = 'T')) Then
1268:
1269: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added for bug 4549869 */
1270:
1271: -- If P_Person_Type = 'CWK' and Tc.Employees_Only_flag = 'Y' Then
1272: If l_Person_Type = 'CWK' and Tc.Employees_Only_flag = 'E' Then
1273:

Line 1302: If Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added for bug 4549869 */

1298: End If; /* Added for bug 4549869 */
1299:
1300: ElsIf ((proj.p_limit_flag = 'N' and level_flag_local = 'P') or (proj.t_limit_flag = 'N' and level_flag_local = 'T')) Then
1301:
1302: If Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added for bug 4549869 */
1303:
1304: If l_Person_Type = 'CWK' and (tc.Employees_Only_Flag = 'C' or tc.Employees_Only_flag is Null) Then
1305:
1306: If tc.chargeable_flag = 'N' Then -- Added for Bug#4549448

Line 1356: End If; -- Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' /* Added for bug 4549869 */

1352: End If;
1353: -- End, added the following block for bug 4556126
1354: End If;
1355:
1356: End If; -- Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' /* Added for bug 4549869 */
1357:
1358: Else
1359:
1360: print_message('Stage:PATC:10.12.004.2');

Line 1371: If Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added for bug 4549869 */

1367: l_Person_Type = 'CWK' And
1368: P_Sys_Link_Function in ('ST','OT') And
1369: P_PO_Line_Id Is Not Null Then
1370:
1371: If Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added for bug 4549869 */
1372:
1373: Print_Message('Stage:PATC:10.12.004.3');
1374: X_Status := 'PA_CWK_TC_NOT_ALLOWED';
1375: X_Billable_Flag := NULL;

Line 1422: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added for bug 4549869 */

1418: /** End PA.M/Task Assignment changes **/
1419:
1420: If ((proj.p_limit_flag = 'Y' and level_flag_local = 'P') or (proj.t_limit_flag = 'Y' and level_flag_local = 'T')) Then
1421:
1422: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added for bug 4549869 */
1423:
1424: IF tc.chargeable_flag = 'N' THEN
1425:
1426: IF level_flag_local = 'T' THEN

Line 1428: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

1424: IF tc.chargeable_flag = 'N' THEN
1425:
1426: IF level_flag_local = 'T' THEN
1427:
1428: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
1429:
1430: print_message('Stage:PATC:10.12.005');
1431: return_error( 'PA_EXP_TASK_TC' );
1432:

Line 1438: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

1434:
1435: END IF ;
1436: IF level_flag_local = 'P' THEN
1437:
1438: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
1439: print_message('Stage:PATC:10.12.006');
1440: return_error( 'PA_EXP_PJ_TC' );
1441: End If;
1442: END IF ;

Line 1455: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

1451: IF level_flag = 'T' AND
1452: tc.task_id is NOT NULL AND
1453: tc.chargeable_flag = 'N' THEN
1454:
1455: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
1456: print_message('Stage:PATC:10.12.008');
1457: return_error( 'PA_EXP_TASK_TC' );
1458: End If;
1459: END IF ;

Line 1463: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */

1459: END IF ;
1460: IF level_flag = 'P' AND
1461: tc.chargeable_flag = 'N' THEN
1462:
1463: IF Pa_Trx_Import.G_Skip_Tc_Flag <> 'Y' Then /* Added If Condition for bug 1299909 */
1464: print_message('Stage:PATC:10.12.009');
1465: return_error( 'PA_EXP_PJ_TC' );
1466: End If;
1467: END IF ;

Line 1550: IF pa_trx_import.g_skip_tc_flag <> 'Y' then /* Added for Bug # 2170237 */

1546:
1547: -- Bug 570709. To add the expenditure org validation for transactions
1548: IF X_incurred_by_org_id is NOT NULL THEN
1549:
1550: IF pa_trx_import.g_skip_tc_flag <> 'Y' then /* Added for Bug # 2170237 */
1551:
1552: IF pa_utils2.CheckExporg(X_incurred_by_org_id,X_ei_date) = 'N' then
1553:
1554: print_message('Stage:PATC:10.12.011');

Line 1586: IF pa_trx_import.g_skip_tc_flag <> 'Y' then /* Added for Bug # 2170237 */

1582: print_message('Stage:PATC:10.12.012');
1583: return_error( 'NO_ASSIGNMENT');
1584: END IF;
1585:
1586: IF pa_trx_import.g_skip_tc_flag <> 'Y' then /* Added for Bug # 2170237 */
1587:
1588: IF pa_utils2.CheckExporg(X_org_id,X_ei_date) = 'N' then
1589: print_message('Stage:PATC:10.12.013');
1590: return_error( 'PA_EXP_ORG_NOT_ACTIVE');

Line 1707: If pa_trx_import.g_skip_tc_flag <> 'Y' then /* Added for Bug # 2108456 */

1703: /*End Bug4518893 */
1704:
1705: IF ( temp_status IS NOT NULL ) THEN
1706:
1707: If pa_trx_import.g_skip_tc_flag <> 'Y' then /* Added for Bug # 2108456 */
1708:
1709: print_message('Stage:PATC:10.13.002');
1710: X_msg_type := temp_msg_type;
1711: X_msg_count := temp_msg_count;

Line 1796: If pa_trx_import.g_skip_tc_flag <> 'Y' then

1792: ']override assn:['||PATC.G_OVERIDE_ASSIGNMENT_ID||']x_status ['||x_status||']');
1793:
1794: -- Begin PA.L Retirement Cost Processing changes
1795: print_message('Stage:PATC:10.14.00: Check capitalizable_flag against retirement_cost_flag');
1796: If pa_trx_import.g_skip_tc_flag <> 'Y' then
1797:
1798: If proj.p_proj_typ_class_code = 'CAPITAL' and
1799: proj.t_ret_cost_flag = 'Y' and
1800: x_billable_flag = 'Y' then

Line 1812: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;

1808: -- End PA.L Retirement Cost Processing changes
1809:
1810: print_message('END of GET_STATUS API ');
1811:
1812: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;
1813:
1814: EXCEPTION
1815: WHEN INVALID_DATA THEN
1816: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;

Line 1816: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;

1812: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;
1813:
1814: EXCEPTION
1815: WHEN INVALID_DATA THEN
1816: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;
1817: NULL;
1818: WHEN OTHERS THEN
1819: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;
1820: X_status := SQLCODE;

Line 1819: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;

1815: WHEN INVALID_DATA THEN
1816: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;
1817: NULL;
1818: WHEN OTHERS THEN
1819: Pa_Trx_Import.G_Skip_Tc_Flag := G_TRX_SKIP_FLAG;
1820: X_status := SQLCODE;
1821: X_billable_flag := NULL;
1822: print_message('Failed in GET_PATC api sqlerror:'||X_status);
1823: