DBA Data[Home] [Help]

APPS.PA_TRX_IMPORT dependencies on PA_UTILS

Line 1265: l_return_number := pa_utils.GetEmpOrgId( l_emp_number, p_ei_date );

1261: End If;
1262:
1263: If l_emp_number is NOT NULL then
1264:
1265: l_return_number := pa_utils.GetEmpOrgId( l_emp_number, p_ei_date );
1266: If l_return_number is NULL then
1267: l_return_string := 'N';
1268: End If;
1269: End If;

Line 1365: IF pa_utils2.CheckExporg(p_incurred_by_org_id,p_exp_item_date) = 'N' then

1361:
1362: IF PG_DEBUG = 'Y' THEN
1363: log_message('log_message: Validating exp dates -> Exp Org Level' );
1364: END IF;
1365: IF pa_utils2.CheckExporg(p_incurred_by_org_id,p_exp_item_date) = 'N' then
1366: x_err_msg_cd := 'PA_EXP_ORG_NOT_ACTIVE' ;
1367: x_status := FND_API.G_RET_STS_ERROR ;
1368: RETURN ;
1369: END IF;

Line 1765: G_Business_Group_Id := pa_utils2.GetBusinessGroupId(X_Business_Group_Name);

1761: ELSIF G_Prev_Business_Group_Name = X_Business_Group_Name THEN
1762:
1763: G_Business_Group_Id := G_Prev_Business_Group_Id ;
1764: ELSE
1765: G_Business_Group_Id := pa_utils2.GetBusinessGroupId(X_Business_Group_Name);
1766:
1767: IF G_Business_Group_Id is NULL THEN
1768:
1769: X_status := 'PA_INVALID_BUSINESS_GROUP';

Line 1874: pa_debug.G_err_stage := 'Calling pa_utils.GetWeekEnding';

1870: -- Verify that the expenditure ending date is a valid expenditure week
1871: -- ending date
1872: --
1873: IF PG_DEBUG = 'Y' THEN
1874: pa_debug.G_err_stage := 'Calling pa_utils.GetWeekEnding';
1875: log_message('log_message: ' || pa_debug.G_err_Stage);
1876: END IF;
1877: IF (trunc( X_end_date) <> trunc(pa_utils.NewGetWeekEnding( X_end_date )) ) THEN
1878: X_status := 'INVALID_END_DATE';

Line 1877: IF (trunc( X_end_date) <> trunc(pa_utils.NewGetWeekEnding( X_end_date )) ) THEN

1873: IF PG_DEBUG = 'Y' THEN
1874: pa_debug.G_err_stage := 'Calling pa_utils.GetWeekEnding';
1875: log_message('log_message: ' || pa_debug.G_err_Stage);
1876: END IF;
1877: IF (trunc( X_end_date) <> trunc(pa_utils.NewGetWeekEnding( X_end_date )) ) THEN
1878: X_status := 'INVALID_END_DATE';
1879: pa_cc_utils.reset_curr_function;
1880: RETURN;
1881:

Line 1901: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId';

1897: G_Org_Id := P_Organization_Id;
1898:
1899: /* Bug 6519602: Base Bug 6519570 - Changes start */
1900: IF PG_DEBUG = 'Y' THEN
1901: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId';
1902: log_message('log_message: ' || pa_debug.G_err_Stage);
1903: END IF;
1904:
1905: G_job_id := pa_utils.GetEmpJobId(

Line 1905: G_job_id := pa_utils.GetEmpJobId(

1901: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId';
1902: log_message('log_message: ' || pa_debug.G_err_Stage);
1903: END IF;
1904:
1905: G_job_id := pa_utils.GetEmpJobId(
1906: X_person_id => G_person_id,
1907: X_date => X_ei_date ,
1908: X_po_number => p_po_number,
1909: X_po_line_num => p_po_line_num);

Line 1937: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';

1933:
1934: G_person_id := NULL;
1935:
1936: IF PG_DEBUG = 'Y' THEN
1937: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';
1938: log_message('log_message: ' || pa_debug.G_err_Stage);
1939: END IF;
1940:
1941: IF ( X_oname IS NOT NULL ) THEN

Line 1944: --G_org_id := pa_utils.GetOrgId(X_oname);

1940:
1941: IF ( X_oname IS NOT NULL ) THEN
1942:
1943: --Start of changes for bug 3010848
1944: --G_org_id := pa_utils.GetOrgId(X_oname);
1945: pa_utils.GetOrgnId(X_org_name => X_oname,
1946: X_bg_id => G_Business_Group_Id,
1947: X_Orgn_Id => G_org_id,
1948: X_Return_Status => L_Org_RetSts);

Line 1945: pa_utils.GetOrgnId(X_org_name => X_oname,

1941: IF ( X_oname IS NOT NULL ) THEN
1942:
1943: --Start of changes for bug 3010848
1944: --G_org_id := pa_utils.GetOrgId(X_oname);
1945: pa_utils.GetOrgnId(X_org_name => X_oname,
1946: X_bg_id => G_Business_Group_Id,
1947: X_Orgn_Id => G_org_id,
1948: X_Return_Status => L_Org_RetSts);
1949:

Line 1974: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpId, G_business_Group_id = ' || G_business_Group_id;

1970: -- Get the person ID for the employee number given
1971: ELSIF ( X_enum IS NOT NULL ) THEN
1972:
1973: IF PG_DEBUG = 'Y' THEN
1974: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpId, G_business_Group_id = ' || G_business_Group_id;
1975: log_message('log_message: ' || pa_debug.G_err_Stage);
1976: END IF;
1977: -- Fixed Bug 1534973, 1581184
1978: -- Passing X_Ei_Date parameter to GetEmpId

Line 1980: pa_utils2.GetEmpId( G_business_Group_id,

1976: END IF;
1977: -- Fixed Bug 1534973, 1581184
1978: -- Passing X_Ei_Date parameter to GetEmpId
1979:
1980: pa_utils2.GetEmpId( G_business_Group_id,
1981: X_enum,
1982: G_person_id,
1983: P_person_type, /* cwk */
1984: X_Ei_Date );

Line 1986: IF ( pa_utils2.G_return_status IS NOT NULL ) THEN

1982: G_person_id,
1983: P_person_type, /* cwk */
1984: X_Ei_Date );
1985:
1986: IF ( pa_utils2.G_return_status IS NOT NULL ) THEN
1987: X_status := pa_utils2.G_return_status ;
1988: pa_cc_utils.reset_curr_function;
1989: RETURN;
1990: ELSE

Line 1987: X_status := pa_utils2.G_return_status ;

1983: P_person_type, /* cwk */
1984: X_Ei_Date );
1985:
1986: IF ( pa_utils2.G_return_status IS NOT NULL ) THEN
1987: X_status := pa_utils2.G_return_status ;
1988: pa_cc_utils.reset_curr_function;
1989: RETURN;
1990: ELSE
1991: last_empno := X_enum;

Line 2008: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgId';

2004: RETURN;
2005: END IF;
2006:
2007: IF PG_DEBUG = 'Y' THEN
2008: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgId';
2009: log_message('log_message: ' || pa_debug.G_err_Stage);
2010: END IF;
2011:
2012: G_org_id := pa_utils.GetOrgId(X_oname);

Line 2012: G_org_id := pa_utils.GetOrgId(X_oname);

2008: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgId';
2009: log_message('log_message: ' || pa_debug.G_err_Stage);
2010: END IF;
2011:
2012: G_org_id := pa_utils.GetOrgId(X_oname);
2013:
2014: IF (G_org_id IS NULL) THEN
2015: X_status := 'PA_EXP_ORG_INVALID';
2016: pa_cc_utils.reset_curr_function;

Line 2024: pa_debug.G_err_Stage := 'Calling pa_utils.GetEmpOrgId';

2020: -- Bug 2655157 : Below code added for the error being raised in
2021: -- Review Transactions form
2022: IF ( X_oname IS NULL ) THEN
2023: IF PG_DEBUG = 'Y' THEN
2024: pa_debug.G_err_Stage := 'Calling pa_utils.GetEmpOrgId';
2025: log_message('log_message: ' || pa_debug.G_err_Stage);
2026: END IF;
2027:
2028: G_org_id := pa_utils.GetEmpOrgId(G_person_id, X_Ei_Date);

Line 2028: G_org_id := pa_utils.GetEmpOrgId(G_person_id, X_Ei_Date);

2024: pa_debug.G_err_Stage := 'Calling pa_utils.GetEmpOrgId';
2025: log_message('log_message: ' || pa_debug.G_err_Stage);
2026: END IF;
2027:
2028: G_org_id := pa_utils.GetEmpOrgId(G_person_id, X_Ei_Date);
2029:
2030: IF ( G_org_id IS NULL ) THEN
2031: X_status := 'PA_EXP_ORG_MANDATORY';
2032: pa_cc_utils.reset_curr_function;

Line 2039: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';

2035:
2036: ELSE
2037:
2038: IF PG_DEBUG = 'Y' THEN
2039: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';
2040: log_message('log_message: ' || pa_debug.G_err_Stage);
2041: END IF;
2042:
2043: --Start of changes for Bug 3010848

Line 2044: --G_org_id := pa_utils.GetOrgId(X_oname);

2040: log_message('log_message: ' || pa_debug.G_err_Stage);
2041: END IF;
2042:
2043: --Start of changes for Bug 3010848
2044: --G_org_id := pa_utils.GetOrgId(X_oname);
2045: pa_utils.GetOrgnId(X_org_name => X_oname,
2046: X_bg_id => G_Business_Group_Id,
2047: X_Orgn_Id => G_org_id,
2048: X_Return_Status => L_Org_RetSts);

Line 2045: pa_utils.GetOrgnId(X_org_name => X_oname,

2041: END IF;
2042:
2043: --Start of changes for Bug 3010848
2044: --G_org_id := pa_utils.GetOrgId(X_oname);
2045: pa_utils.GetOrgnId(X_org_name => X_oname,
2046: X_bg_id => G_Business_Group_Id,
2047: X_Orgn_Id => G_org_id,
2048: X_Return_Status => L_Org_RetSts);
2049:

Line 2072: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId';

2068: -- Get the job ID of the employee's job
2069: -- assignment as of the item date
2070:
2071: IF PG_DEBUG = 'Y' THEN
2072: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId';
2073: log_message('log_message: ' || pa_debug.G_err_Stage);
2074: END IF;
2075:
2076: G_job_id := pa_utils.GetEmpJobId(

Line 2076: G_job_id := pa_utils.GetEmpJobId(

2072: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpJobId';
2073: log_message('log_message: ' || pa_debug.G_err_Stage);
2074: END IF;
2075:
2076: G_job_id := pa_utils.GetEmpJobId(
2077: X_person_id => G_person_id,
2078: X_date => X_ei_date ,
2079: X_po_number => p_po_number,
2080: X_po_line_num => p_po_line_num);

Line 2138: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId';

2134: G_Job_Id := P_Emp_Job_Id;
2135:
2136: If G_org_id is NULL or G_Job_Id is NULL Then
2137: IF PG_DEBUG = 'Y' THEN
2138: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId';
2139: log_message('log_message: ' || pa_debug.G_err_Stage);
2140: END IF;
2141: pa_utils.GetEmpOrgJobId( G_person_id, X_ei_date, G_Org_Id, G_Job_Id ,p_po_number, p_po_line_num);
2142: -- Added PO params for bug 4044057

Line 2141: pa_utils.GetEmpOrgJobId( G_person_id, X_ei_date, G_Org_Id, G_Job_Id ,p_po_number, p_po_line_num);

2137: IF PG_DEBUG = 'Y' THEN
2138: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId';
2139: log_message('log_message: ' || pa_debug.G_err_Stage);
2140: END IF;
2141: pa_utils.GetEmpOrgJobId( G_person_id, X_ei_date, G_Org_Id, G_Job_Id ,p_po_number, p_po_line_num);
2142: -- Added PO params for bug 4044057
2143: -- Need to validate the assigment for the entered PO
2144:
2145: End If;

Line 2201: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';

2197: -- Get the organization ID for the incurred by organization name given
2198: ELSIF ( X_enum IS NULL AND X_oname IS NOT NULL ) THEN
2199:
2200: IF PG_DEBUG = 'Y' THEN
2201: pa_debug.G_err_Stage := 'Calling pa_utils.GetOrgnId';
2202: log_message('log_message: ' || pa_debug.G_err_Stage);
2203: END IF;
2204:
2205: G_person_id := NULL;

Line 2207: --G_org_id := pa_utils.GetOrgId( X_oname );

2203: END IF;
2204:
2205: G_person_id := NULL;
2206: --Start of changes for 3010848
2207: --G_org_id := pa_utils.GetOrgId( X_oname );
2208: pa_utils.GetOrgnId(X_org_name => X_oname,
2209: X_bg_id => G_Business_Group_Id,
2210: X_Orgn_Id => G_org_id,
2211: X_Return_Status => L_Org_RetSts);

Line 2208: pa_utils.GetOrgnId(X_org_name => X_oname,

2204:
2205: G_person_id := NULL;
2206: --Start of changes for 3010848
2207: --G_org_id := pa_utils.GetOrgId( X_oname );
2208: pa_utils.GetOrgnId(X_org_name => X_oname,
2209: X_bg_id => G_Business_Group_Id,
2210: X_Orgn_Id => G_org_id,
2211: X_Return_Status => L_Org_RetSts);
2212:

Line 2235: END IF; /*IF ( X_end_date <> trunc(pa_utils.GetWeekEnding( X_end_date )) ) */

2231: -- with supplier not being an employee
2232: ELSE
2233: G_person_id := NULL;
2234: G_org_id := NULL;
2235: END IF; /*IF ( X_end_date <> trunc(pa_utils.GetWeekEnding( X_end_date )) ) */
2236:
2237: END IF; --Predefined source check for person and organization id
2238:
2239: -- PA-K Changes: Moved CheckExporg to below one place

Line 2244: pa_debug.G_err_stage := 'Calling pa_utils2.CheckExporg';

2240: IF G_org_id is not NULL THEN
2241: IF pa_trx_import.g_skip_tc_flag <> 'Y' and PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date = 'Y' then /* Added for Bug # 2170237 */
2242: -- Modified the above condition for BUG6931833
2243: IF PG_DEBUG = 'Y' THEN
2244: pa_debug.G_err_stage := 'Calling pa_utils2.CheckExporg';
2245: log_message('log_message: ' || pa_debug.G_err_Stage);
2246: log_message('log_message: ' || 'G_org_id = ' || G_org_id);
2247: END IF;
2248: IF pa_utils2.CheckExporg(G_org_id,X_ei_date) = 'N' then

Line 2248: IF pa_utils2.CheckExporg(G_org_id,X_ei_date) = 'N' then

2244: pa_debug.G_err_stage := 'Calling pa_utils2.CheckExporg';
2245: log_message('log_message: ' || pa_debug.G_err_Stage);
2246: log_message('log_message: ' || 'G_org_id = ' || G_org_id);
2247: END IF;
2248: IF pa_utils2.CheckExporg(G_org_id,X_ei_date) = 'N' then
2249: X_status := 'PA_EXP_ORG_NOT_ACTIVE';
2250: pa_cc_utils.reset_curr_function;
2251: RETURN;
2252: END IF;

Line 2268: pa_debug.G_err_stage := 'Calling pa_utils.GetOrgnId for override org';

2264: ELSE
2265: IF (X_override_to_oname IS NOT NULL) THEN
2266:
2267: IF PG_DEBUG = 'Y' THEN
2268: pa_debug.G_err_stage := 'Calling pa_utils.GetOrgnId for override org';
2269: log_message('log_message: ' || pa_debug.G_err_Stage);
2270: END IF;
2271:
2272: --Start of changes for bug 3010848

Line 2273: --G_override_to_org_id := pa_utils.GetOrgId(X_override_to_oname);

2269: log_message('log_message: ' || pa_debug.G_err_Stage);
2270: END IF;
2271:
2272: --Start of changes for bug 3010848
2273: --G_override_to_org_id := pa_utils.GetOrgId(X_override_to_oname);
2274:
2275: pa_cc_utils.log_message('X_override_to_oname = ' || X_override_to_oname
2276: || ' G_Business_Group_Id = ' || G_Business_Group_Id);
2277:

Line 2279: pa_utils.GetOrgnId(X_org_name => X_override_to_oname,

2275: pa_cc_utils.log_message('X_override_to_oname = ' || X_override_to_oname
2276: || ' G_Business_Group_Id = ' || G_Business_Group_Id);
2277:
2278:
2279: pa_utils.GetOrgnId(X_org_name => X_override_to_oname,
2280: X_bg_id => G_Business_Group_Id,
2281: X_Orgn_Id => G_override_to_org_id,
2282: X_Return_Status => L_Org_RetSts);
2283:

Line 2296: IF pa_utils2.CheckExporg(G_override_to_org_id, X_ei_date) = 'N' THEN

2292: pa_cc_utils.reset_curr_function;
2293: RETURN;
2294: ELSIF pa_trx_import.g_skip_tc_flag <> 'Y' and PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date = 'Y' THEN /* Added for Bug # 2170237 */
2295: --Modified above condition for bug6931833
2296: IF pa_utils2.CheckExporg(G_override_to_org_id, X_ei_date) = 'N' THEN
2297: X_status := 'PA_OVERRIDE_ORG_NOT_ACTIVE';
2298: pa_cc_utils.reset_curr_function;
2299: RETURN;
2300: END IF;

Line 2354: pa_debug.G_err_stage := 'Calling pa_utils.GetProjId';

2350: IF P_Project_Id is not null THEN
2351: G_project_id := P_Project_Id;
2352: ELSE
2353: IF PG_DEBUG = 'Y' THEN
2354: pa_debug.G_err_stage := 'Calling pa_utils.GetProjId';
2355: log_message('log_message: ' || pa_debug.G_err_Stage);
2356: END IF;
2357:
2358: G_project_id := pa_utils.GetProjId( X_pnum );

Line 2358: G_project_id := pa_utils.GetProjId( X_pnum );

2354: pa_debug.G_err_stage := 'Calling pa_utils.GetProjId';
2355: log_message('log_message: ' || pa_debug.G_err_Stage);
2356: END IF;
2357:
2358: G_project_id := pa_utils.GetProjId( X_pnum );
2359: END IF;
2360:
2361: --PA-K Changes:
2362: --IF (G_Task_Id IS NULL) THEN

Line 2369: pa_debug.G_err_stage := 'Calling pa_utils.GetTaskId';

2365: IF P_Task_Id is not NULL THEN
2366: G_task_id := P_Task_Id;
2367: ELSE
2368: IF PG_DEBUG = 'Y' THEN
2369: pa_debug.G_err_stage := 'Calling pa_utils.GetTaskId';
2370: log_message('log_message: ' || pa_debug.G_err_Stage);
2371: END IF;
2372:
2373: G_task_id := pa_utils.GetTaskId( G_project_id, X_tnum );

Line 2373: G_task_id := pa_utils.GetTaskId( G_project_id, X_tnum );

2369: pa_debug.G_err_stage := 'Calling pa_utils.GetTaskId';
2370: log_message('log_message: ' || pa_debug.G_err_Stage);
2371: END IF;
2372:
2373: G_task_id := pa_utils.GetTaskId( G_project_id, X_tnum );
2374: END IF;
2375:
2376: -- ===========================================================================
2377: -- EXPENDITURE TYPE validation

Line 2632: pa_debug.G_err_stage := 'Calling pa_utils.IsCrossChargeable';

2628: If pa_trx_import.g_skip_tc_flag <> 'Y' and PA_TRX_IMPORT.Get_GVal_ProjTskEi_Date = 'Y' then
2629: --Modified above condition for BUG6931833
2630:
2631: IF PG_DEBUG = 'Y' THEN
2632: pa_debug.G_err_stage := 'Calling pa_utils.IsCrossChargeable';
2633: log_message('log_message: ' || pa_debug.G_err_Stage);
2634: END IF;
2635:
2636: If not pa_utils.IsCrossChargeable(G_Project_Id) then

Line 2636: If not pa_utils.IsCrossChargeable(G_Project_Id) then

2632: pa_debug.G_err_stage := 'Calling pa_utils.IsCrossChargeable';
2633: log_message('log_message: ' || pa_debug.G_err_Stage);
2634: END IF;
2635:
2636: If not pa_utils.IsCrossChargeable(G_Project_Id) then
2637: X_Status := 'PA_PROJECT_NOT_VALID' ;
2638: pa_cc_utils.reset_curr_function;
2639: return ;
2640: End If ;

Line 2657: pa_debug.G_err_stage := 'Calling pa_utils2.GetLaborCostMultiplier';

2653: pa_cc_utils.reset_curr_function;
2654: RETURN;
2655: ELSE
2656: IF PG_DEBUG = 'Y' THEN
2657: pa_debug.G_err_stage := 'Calling pa_utils2.GetLaborCostMultiplier';
2658: log_message('log_message: ' || pa_debug.G_err_Stage);
2659: END IF;
2660: G_lcm := pa_utils2.GetLaborCostMultiplier(G_Task_id);
2661: last_task := X_tnum;

Line 2660: G_lcm := pa_utils2.GetLaborCostMultiplier(G_Task_id);

2656: IF PG_DEBUG = 'Y' THEN
2657: pa_debug.G_err_stage := 'Calling pa_utils2.GetLaborCostMultiplier';
2658: log_message('log_message: ' || pa_debug.G_err_Stage);
2659: END IF;
2660: G_lcm := pa_utils2.GetLaborCostMultiplier(G_Task_id);
2661: last_task := X_tnum;
2662: END IF;
2663:
2664: END IF;

Line 3394: pa_debug.G_err_stage := 'Calling pa_utils.DateInExpWeek';

3390:
3391: IF ( X_system_linkage in ( 'ST', 'OT' )) THEN
3392:
3393: IF PG_DEBUG = 'Y' THEN
3394: pa_debug.G_err_stage := 'Calling pa_utils.DateInExpWeek';
3395: log_message('log_message: ' || pa_debug.G_err_Stage);
3396: END IF;
3397:
3398: IF ( NOT pa_utils.DateInExpWeek( X_ei_date , X_end_date ) ) THEN

Line 3398: IF ( NOT pa_utils.DateInExpWeek( X_ei_date , X_end_date ) ) THEN

3394: pa_debug.G_err_stage := 'Calling pa_utils.DateInExpWeek';
3395: log_message('log_message: ' || pa_debug.G_err_Stage);
3396: END IF;
3397:
3398: IF ( NOT pa_utils.DateInExpWeek( X_ei_date , X_end_date ) ) THEN
3399: X_status := 'ITEM_NOT_IN_WEEK';
3400: pa_cc_utils.reset_curr_function;
3401: RETURN;
3402: ELSIF ( X_enum IS NULL ) THEN

Line 3456: pa_debug.G_err_stage := 'Calling pa_utils.GetOrgnId';

3452: IF P_NLR_Org_Id is not null Then
3453: G_nlro_id := P_NLR_Org_Id;
3454: ELSE
3455: IF PG_DEBUG = 'Y' THEN
3456: pa_debug.G_err_stage := 'Calling pa_utils.GetOrgnId';
3457: log_message('log_message: ' || pa_debug.G_err_Stage);
3458: END IF;
3459: --Start of changes for Bug 3010848
3460:

Line 3461: --G_nlro_id := pa_utils.GetOrgId( X_nlro_name );

3457: log_message('log_message: ' || pa_debug.G_err_Stage);
3458: END IF;
3459: --Start of changes for Bug 3010848
3460:
3461: --G_nlro_id := pa_utils.GetOrgId( X_nlro_name );
3462: pa_utils.GetOrgnId(X_org_name => X_nlro_name,
3463: X_bg_id => G_Business_Group_Id,
3464: X_Orgn_Id => G_nlro_id,
3465: X_Return_Status => L_Org_RetSts);

Line 3462: pa_utils.GetOrgnId(X_org_name => X_nlro_name,

3458: END IF;
3459: --Start of changes for Bug 3010848
3460:
3461: --G_nlro_id := pa_utils.GetOrgId( X_nlro_name );
3462: pa_utils.GetOrgnId(X_org_name => X_nlro_name,
3463: X_bg_id => G_Business_Group_Id,
3464: X_Orgn_Id => G_nlro_id,
3465: X_Return_Status => L_Org_RetSts);
3466:

Line 4019: X_gl_date := pa_utils2.get_prvdr_gl_date( X_ei_date, l_appl_id , l_SobId) ;

4015: into l_SobId
4016: from pa_implementations_all
4017: where nvl(org_id,-99) = nvl(X_org_id,-99);
4018:
4019: X_gl_date := pa_utils2.get_prvdr_gl_date( X_ei_date, l_appl_id , l_SobId) ;
4020:
4021: END IF;
4022: */
4023:

Line 4285: unaccounted case, we call PA_UTILS2.GetPrjOrgId to get

4281: /* IC Change: we need to get receiver org ID regarldess
4282: of accounted or unaccounted transaction. For accounted
4283: case, we call PA_CC_IDENT.pa_cc_identify_txn_adj to
4284: get receiver org ID along with other info. For
4285: unaccounted case, we call PA_UTILS2.GetPrjOrgId to get
4286: only the reciever org id info. */
4287: ELSE
4288: /* IC Changes: Get receiver organization ID */
4289: IF PG_DEBUG = 'Y' THEN

Line 4290: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';

4286: only the reciever org id info. */
4287: ELSE
4288: /* IC Changes: Get receiver organization ID */
4289: IF PG_DEBUG = 'Y' THEN
4290: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';
4291: log_message('log_message: ' || pa_debug.G_err_Stage);
4292: END IF;
4293: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,
4294: p_task_id => NULL);

Line 4293: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,

4289: IF PG_DEBUG = 'Y' THEN
4290: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';
4291: log_message('log_message: ' || pa_debug.G_err_Stage);
4292: END IF;
4293: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,
4294: p_task_id => NULL);
4295: END IF; -- End gl_accted_flag = Y
4296: -- ==========================================================================
4297:

Line 4522: --pa_utils2.get_period_information to derive the accrual period information for the original

4518:
4519: END IF; --Accted = Y and Period_End = N
4520:
4521: --If transaction is accounted or unaccounted, period end accrual transaction then call
4522: --pa_utils2.get_period_information to derive the accrual period information for the original
4523: --and reversing line.
4524: IF ( l_period_end_txn = 'Y' ) THEN
4525:
4526: IF PG_DEBUG = 'Y' THEN

Line 4532: pa_debug.G_err_stage := 'Calling pa_utils2.get_accrual_period_information';

4528: log_message('log_message: ' || pa_debug.G_err_Stage);
4529: END IF;
4530:
4531: IF PG_DEBUG = 'Y' THEN
4532: pa_debug.G_err_stage := 'Calling pa_utils2.get_accrual_period_information';
4533: log_message('log_message: ' || pa_debug.G_err_Stage);
4534: END IF;
4535:
4536: G_GlDate := X_gl_date;

Line 4539: pa_utils2.get_accrual_period_information (

4535:
4536: G_GlDate := X_gl_date;
4537:
4538: --Call get_accrual_period_information API for the original line
4539: pa_utils2.get_accrual_period_information (
4540: p_expenditure_item_date => X_ei_date --in
4541: ,x_prvdr_accrual_date => G_AccDate --in/out. For original item this is passed OUT
4542: ,x_recvr_accrual_date => G_RecvrAccDate --in/out. For original item this is passed OUT
4543: ,p_prvdr_org_id => X_org_id --in

Line 4594: pa_debug.G_err_stage := 'Calling pa_utils2.get_accrual_period_information for the reversing line';

4590: G_RevAccDate := G_AccDate;
4591: G_RevRecvrAccDate := G_RecvrAccDate;
4592:
4593: IF PG_DEBUG = 'Y' THEN
4594: pa_debug.G_err_stage := 'Calling pa_utils2.get_accrual_period_information for the reversing line';
4595: log_message('log_message: ' || pa_debug.G_err_Stage);
4596: END IF;
4597:
4598:

Line 4600: pa_utils2.get_accrual_period_information (

4596: END IF;
4597:
4598:
4599: --Call get_accrual_period_information API for the reversing line
4600: pa_utils2.get_accrual_period_information (
4601: p_expenditure_item_date => X_ei_date
4602: ,x_prvdr_accrual_date => G_RevAccDate --in/out (both)
4603: ,x_recvr_accrual_date => G_RevRecvrAccDate --in/out (both)
4604: ,p_prvdr_org_id => X_org_id

Line 4658: -- The derivation of assignment id for ER is done in pa_utils4.

4654: -- Assignment_Id and Work_Type_Id derivation/validation checks
4655:
4656: -- PA-J Txn Ctrl Changes
4657: -- Assignment Id will now be derived for Expense Reports (system_linkage of ER)
4658: -- The derivation of assignment id for ER is done in pa_utils4.
4659:
4660: -- PA-K Changes: For pre-defined sources the values in assignment_name and
4661: -- work_type_name will be ignored. If ids are given they will used else it will be derived.
4662: -- For user defined sources ids will be ignored and the names if given will be validated

Line 4699: G_Assignment_Id := pa_utils4.get_assignment_id(

4695: pa_debug.G_err_stage := 'P_Assignment_id is null';
4696: log_message('log_message: ' || pa_debug.G_err_Stage);
4697: END IF;
4698:
4699: G_Assignment_Id := pa_utils4.get_assignment_id(
4700: p_person_id => G_Person_Id
4701: ,p_project_id => G_Project_Id
4702: ,p_task_id => G_Task_Id
4703: ,p_ei_date => X_Ei_Date);

Line 4724: /* If (nvl(pa_utils4.is_exp_work_type_enabled,'N') = 'Y') Then ** moved condition below bug 3104004 */

4720:
4721: End If;
4722:
4723: /*Bug# 2737538:Added check of profile option value for deriving work type */
4724: /* If (nvl(pa_utils4.is_exp_work_type_enabled,'N') = 'Y') Then ** moved condition below bug 3104004 */
4725:
4726: If (P_Work_Type_Id is not null) Then
4727:
4728: IF PG_DEBUG = 'Y' THEN

Line 4747: G_Work_Type_Id := pa_utils4.get_work_type_id(

4743: pa_debug.G_err_stage := 'P_Work_Type_Id is null';
4744: log_message('log_message: ' || pa_debug.G_err_Stage);
4745: END IF;
4746:
4747: G_Work_Type_Id := pa_utils4.get_work_type_id(
4748: p_project_id => G_Project_Id
4749: ,p_task_id => G_Task_Id
4750: ,p_assignment_id => nvl(G_Assignment_Id,0));
4751:

Line 4757: If (G_Work_Type_Id is NULL and nvl(pa_utils4.is_exp_work_type_enabled,'N') = 'Y') Then

4753: pa_debug.G_err_stage := 'G_Work_Type_Id = ' || G_Work_Type_Id;
4754: log_message('log_message: ' || pa_debug.G_err_Stage);
4755: END IF;
4756:
4757: If (G_Work_Type_Id is NULL and nvl(pa_utils4.is_exp_work_type_enabled,'N') = 'Y') Then
4758: /*** added and condition bug 3104004 */
4759: X_Status := 'INVALID_WORK_TYPE';
4760: pa_cc_utils.reset_curr_function;
4761: Return;

Line 4771: G_Tp_Amt_Type_Code := pa_utils4.get_tp_amt_type_code(

4767: pa_debug.G_err_stage := 'Get Tp Amt Type';
4768: log_message('log_message: ' || pa_debug.G_err_Stage);
4769: END IF;
4770:
4771: G_Tp_Amt_Type_Code := pa_utils4.get_tp_amt_type_code(
4772: p_work_type_id => G_Work_Type_Id);
4773:
4774: IF PG_DEBUG = 'Y' THEN
4775: pa_debug.G_err_stage := 'G_Tp_Amt_Type_Code = ' || G_Tp_Amt_Type_Code;

Line 4789: pa_utils4.get_work_assignment(

4785: log_message('log_message: ' || pa_debug.G_err_Stage);
4786: log_message('log_message: ' || 'Assignment Name = ' || X_Assignment_Name || ' Work Type Name = ' || X_Work_Type_Name);
4787: END IF;
4788:
4789: pa_utils4.get_work_assignment(
4790: p_person_id => G_Person_Id
4791: , p_project_id => G_Project_Id
4792: , p_task_id => G_Task_Id
4793: , p_ei_date => X_Ei_Date

Line 5432: --IF pa_utils.pa_morg_implemented = 'Y' THEN

5428: BEGIN
5429: pa_cc_utils.set_curr_function('ValidateOrgId');
5430:
5431: --PA.K Changes: For Performance moved the Multi-Org check to init procedure.
5432: --IF pa_utils.pa_morg_implemented = 'Y' THEN
5433:
5434: /* Added for bug 3590027 */
5435: IF PG_DEBUG = 'Y' THEN
5436: log_message('Before call, G_Morg: ' || G_Morg);

Line 5440: G_Morg := pa_utils.pa_morg_implemented;

5436: log_message('Before call, G_Morg: ' || G_Morg);
5437: END IF;
5438:
5439: If G_Morg is Null Then
5440: G_Morg := pa_utils.pa_morg_implemented;
5441: End If;
5442:
5443: IF PG_DEBUG = 'Y' THEN
5444: log_message('After call, G_Morg: ' || G_Morg);

Line 5496: G_OrgNameBGId := pa_utils2.GetBusinessGroupId(business_group_name);

5492: RETURN G_OrgNameOrgName;
5493:
5494: Else
5495:
5496: G_OrgNameBGId := pa_utils2.GetBusinessGroupId(business_group_name);
5497:
5498: BEGIN
5499:
5500: pa_utils2.GetEmpId ( P_Business_Group_Id => G_OrgNameBGId

Line 5500: pa_utils2.GetEmpId ( P_Business_Group_Id => G_OrgNameBGId

5496: G_OrgNameBGId := pa_utils2.GetBusinessGroupId(business_group_name);
5497:
5498: BEGIN
5499:
5500: pa_utils2.GetEmpId ( P_Business_Group_Id => G_OrgNameBGId
5501: , P_Employee_Number => employee_number
5502: , X_Employee_Id => X_emp_id
5503: , P_Person_Type => person_type
5504: , P_EiDate => expenditure_item_date);

Line 5515: --X_emp_id := pa_utils.GetEmpId(employee_number) ;

5511: WHEN OTHERS THEN
5512: NULL;
5513: END;
5514:
5515: --X_emp_id := pa_utils.GetEmpId(employee_number) ;
5516: if X_emp_id is null then
5517: RETURN NULL;
5518: else
5519:

Line 5520: X_org_name := pa_expenditures_utils.getorgtlname(pa_utils.GetEmpOrgId(X_emp_id, expenditure_item_date));

5516: if X_emp_id is null then
5517: RETURN NULL;
5518: else
5519:
5520: X_org_name := pa_expenditures_utils.getorgtlname(pa_utils.GetEmpOrgId(X_emp_id, expenditure_item_date));
5521:
5522: G_OrgNameEmpNum := employee_number;
5523: G_OrgNameDate := expenditure_item_date;
5524: G_OrgNameBGName := business_group_name;

Line 5631: select pa_utils.getweekending(max(a.expenditure_item_date)),

5627: IF PG_DEBUG = 'Y' THEN
5628: log_message('log_message: Determine the week ending date for the affected transactions. ' );
5629: END IF ;
5630:
5631: select pa_utils.getweekending(max(a.expenditure_item_date)),
5632: a.cdl_system_reference2
5633: BULK Collect into
5634: v_week_ending_dtTab,
5635: v_doc_headerIDTab

Line 6758: pa_adjustments.ExpAdjItemTab := pa_utils.EmptyIdTab;

6754: pa_transactions.FlushEiTabs;
6755:
6756: -- Bug 752915, added the following to flush the adjustments ei pl/sql table
6757: --
6758: pa_adjustments.ExpAdjItemTab := pa_utils.EmptyIdTab;
6759:
6760: /***** Bug 4106188 CWK Changes *****/
6761: -- release_po_line_task_lock;
6762: -- init_po_amt_chk;

Line 7678: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId';

7674:
7675: If (nvl(G_emp_org_oride,'N') = 'N' and l_PersonIdTab(j) is not NULL) Then /* bug#2719674 added nvl */
7676:
7677: IF PG_DEBUG = 'Y' THEN
7678: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId';
7679: log_message('log_message: ' || pa_debug.G_err_Stage);
7680: END IF;
7681: pa_utils.GetEmpOrgJobId( l_PersonIdTab(j),
7682: l_EiDateTab(j),

Line 7681: pa_utils.GetEmpOrgJobId( l_PersonIdTab(j),

7677: IF PG_DEBUG = 'Y' THEN
7678: pa_debug.G_err_stage := 'Calling pa_utils.GetEmpOrgJobId';
7679: log_message('log_message: ' || pa_debug.G_err_Stage);
7680: END IF;
7681: pa_utils.GetEmpOrgJobId( l_PersonIdTab(j),
7682: l_EiDateTab(j),
7683: l_EmpOrgIdTab(j),
7684: l_EmpJobIdTab(j) );
7685:

Line 7830: X_ei_id := pa_utils.GetNextEiId;

7826: X_ei_id := NULL ;
7827: -- null value of expenditure item id would indicate that expenditure item
7828: -- will not be created.
7829: ELSE
7830: X_ei_id := pa_utils.GetNextEiId;
7831:
7832: -- REL12 : AP Lines uptake
7833: -- Support net zero adjusted transactions for the supplier invoice interface.
7834: --

Line 8577: pa_debug.G_err_stage := 'Calling pa_utils4.get_transaction_billability';

8573: --two profiles and if it is Y then use the billable_flag from
8574: --validate_transaction and if N then override with what user entered.
8575:
8576: IF PG_DEBUG = 'Y' THEN
8577: pa_debug.G_err_stage := 'Calling pa_utils4.get_transaction_billability';
8578: log_message('log_message: ' || pa_debug.G_err_stage);
8579: log_message('log_message: ' || 'Billable Flag before get_trxn_work_billabilty = ' || X_billable_flag);
8580: log_message('log_message: ' || 'Work Type Id = ' || G_work_type_id);
8581: END IF;

Line 8583: X_billable_flag := pa_utils4.get_trxn_work_billabilty(

8579: log_message('log_message: ' || 'Billable Flag before get_trxn_work_billabilty = ' || X_billable_flag);
8580: log_message('log_message: ' || 'Work Type Id = ' || G_work_type_id);
8581: END IF;
8582:
8583: X_billable_flag := pa_utils4.get_trxn_work_billabilty(
8584: p_work_type_id => G_work_type_id,
8585: p_tc_extn_bill_flag => X_billable_flag);
8586:
8587: IF PG_DEBUG = 'Y' THEN

Line 8702: ,X_billable_flag => pa_utils4.GetOrig_EiBillability_SST(l_temp_adjItemID,X_billable_flag,X_transaction_source)

8698: ,X_raw_cost_rate => l_rawCostRateTab(j)
8699: -- Trx_import enhancement
8700: ,X_override_to_org_id => G_override_to_org_id -- Changed from NULL
8701: /* Added for bug 3220230 for getting billability of items reversed in OIT */
8702: ,X_billable_flag => pa_utils4.GetOrig_EiBillability_SST(l_temp_adjItemID,X_billable_flag,X_transaction_source)
8703: /* Added for bug 4057474 for getting bill_hold_flag of items reversed in external txn sources like OTL. */
8704: ,X_bill_hold_flag => pa_utils4.GetOrig_EiBill_hold(l_temp_adjItemID,'N')
8705: ,X_orig_transaction_ref => l_OrigTxnRefTab(j)
8706: ,X_transferred_from_ei => NULL

Line 8704: ,X_bill_hold_flag => pa_utils4.GetOrig_EiBill_hold(l_temp_adjItemID,'N')

8700: ,X_override_to_org_id => G_override_to_org_id -- Changed from NULL
8701: /* Added for bug 3220230 for getting billability of items reversed in OIT */
8702: ,X_billable_flag => pa_utils4.GetOrig_EiBillability_SST(l_temp_adjItemID,X_billable_flag,X_transaction_source)
8703: /* Added for bug 4057474 for getting bill_hold_flag of items reversed in external txn sources like OTL. */
8704: ,X_bill_hold_flag => pa_utils4.GetOrig_EiBill_hold(l_temp_adjItemID,'N')
8705: ,X_orig_transaction_ref => l_OrigTxnRefTab(j)
8706: ,X_transferred_from_ei => NULL
8707: ,X_adj_expend_item_id => G_adj_item_id
8708: ,X_attribute_category => l_AttCatTab(j)

Line 8815: X_expenditure_item_id => pa_utils.GetNextEiId

8811: -- increment the counter
8812: i := i + 1;
8813:
8814: pa_transactions.LoadEi(
8815: X_expenditure_item_id => pa_utils.GetNextEiId
8816: ,X_expenditure_id => G_expenditure_id
8817: ,X_expenditure_item_date => l_EiDateTab(j)
8818: ,X_project_id => G_project_id
8819: ,X_task_id => G_task_id

Line 9384: G_Morg := pa_utils.pa_morg_implemented;

9380:
9381: GetTrxSrcInfo ( X_trx_src => P_transaction_source );
9382:
9383: --Pa.K Changes: For performance moved the Multi-Org check to the init procedure.
9384: G_Morg := pa_utils.pa_morg_implemented;
9385:
9386: -- MOAC changes. populate the operating unit org id variable.
9387: g_moac_org_id := pa_moac_utils.get_current_org_id ;
9388:

Line 11258: G_Tp_Amt_Type_Code := pa_utils4.get_tp_amt_type_code(p_work_type_id => p_work_type_id);

11254:
11255: G_Assignment_Id := P_Assignment_Id;
11256: G_Work_Type_Id := P_Work_Type_Id;
11257:
11258: G_Tp_Amt_Type_Code := pa_utils4.get_tp_amt_type_code(p_work_type_id => p_work_type_id);
11259:
11260: END IF;
11261:
11262: IF PG_DEBUG = 'Y' THEN

Line 11432: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';

11428:
11429: END IF;
11430:
11431: IF PG_DEBUG = 'Y' THEN
11432: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';
11433: log_message('log_message: ' || pa_debug.G_err_Stage);
11434: END IF;
11435: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,
11436: p_task_id => NULL);

Line 11435: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,

11431: IF PG_DEBUG = 'Y' THEN
11432: pa_debug.G_err_stage := 'Calling PA_UTILS2.GetPrjOrgId';
11433: log_message('log_message: ' || pa_debug.G_err_Stage);
11434: END IF;
11435: G_RecvrOrgId := PA_UTILS2.GetPrjOrgId(p_project_id => G_project_id,
11436: p_task_id => NULL);
11437:
11438: IF PG_DEBUG = 'Y' THEN
11439: pa_debug.G_err_stage := 'Calling API to derive/validate assignment and work type info';

Line 11447: pa_utils4.get_work_assignment(

11443:
11444: /*S.N. 5297060*/
11445: If ( X_match_flag <> 'N' ) THEN
11446:
11447: pa_utils4.get_work_assignment(
11448: p_person_id => G_Person_Id
11449: , p_project_id => G_Project_Id
11450: , p_task_id => G_Task_Id
11451: , p_ei_date => X_Ei_Date