[Home] [Help]
2581:
2582: last_proj := X_pnum;
2583:
2584: /* Bug 2726763: Remove reduntant call to pa_project_utils.check_project_action_allowed
2585: This check is already present in PATC.
2586:
2587: -- ===========================================================================
2588: -- Check if new transactions are allowed against this project
2589:
5369:
5370: /* X_bill_flag := temp_bill_flag; commented for bug 6509828*/
5371:
5372: --PA-J Txn Ctrl Changes
5373: --Assignment_Id is overwritten by the User in PATC/PATCX.
5374: --Since p_assignment_id in PATC cannot be changed to IN/OUT, we are using the
5375: --the global variable set in PATC.
5376: --Thus assign PATC.global variable to G_Assignment_Id here for sys links ER,ST,OT.
5377: if (x_system_linkage in ('ST', 'OT', 'ER')) then
5370: /* X_bill_flag := temp_bill_flag; commented for bug 6509828*/
5371:
5372: --PA-J Txn Ctrl Changes
5373: --Assignment_Id is overwritten by the User in PATC/PATCX.
5374: --Since p_assignment_id in PATC cannot be changed to IN/OUT, we are using the
5375: --the global variable set in PATC.
5376: --Thus assign PATC.global variable to G_Assignment_Id here for sys links ER,ST,OT.
5377: if (x_system_linkage in ('ST', 'OT', 'ER')) then
5378: pa_debug.G_err_stage := 'Override Assignment Id';
5371:
5372: --PA-J Txn Ctrl Changes
5373: --Assignment_Id is overwritten by the User in PATC/PATCX.
5374: --Since p_assignment_id in PATC cannot be changed to IN/OUT, we are using the
5375: --the global variable set in PATC.
5376: --Thus assign PATC.global variable to G_Assignment_Id here for sys links ER,ST,OT.
5377: if (x_system_linkage in ('ST', 'OT', 'ER')) then
5378: pa_debug.G_err_stage := 'Override Assignment Id';
5379: G_Assignment_Id := PATC.G_OVERIDE_ASSIGNMENT_ID;
5372: --PA-J Txn Ctrl Changes
5373: --Assignment_Id is overwritten by the User in PATC/PATCX.
5374: --Since p_assignment_id in PATC cannot be changed to IN/OUT, we are using the
5375: --the global variable set in PATC.
5376: --Thus assign PATC.global variable to G_Assignment_Id here for sys links ER,ST,OT.
5377: if (x_system_linkage in ('ST', 'OT', 'ER')) then
5378: pa_debug.G_err_stage := 'Override Assignment Id';
5379: G_Assignment_Id := PATC.G_OVERIDE_ASSIGNMENT_ID;
5380:
5375: --the global variable set in PATC.
5376: --Thus assign PATC.global variable to G_Assignment_Id here for sys links ER,ST,OT.
5377: if (x_system_linkage in ('ST', 'OT', 'ER')) then
5378: pa_debug.G_err_stage := 'Override Assignment Id';
5379: G_Assignment_Id := PATC.G_OVERIDE_ASSIGNMENT_ID;
5380:
5381: /* Start of bug 2648550 */
5382: G_Work_Type_Id := PATC.G_OVERIDE_WORK_TYPE_ID;
5383: G_Tp_Amt_Type_Code := PATC.G_OVERIDE_TP_AMT_TYPE_CODE;
5378: pa_debug.G_err_stage := 'Override Assignment Id';
5379: G_Assignment_Id := PATC.G_OVERIDE_ASSIGNMENT_ID;
5380:
5381: /* Start of bug 2648550 */
5382: G_Work_Type_Id := PATC.G_OVERIDE_WORK_TYPE_ID;
5383: G_Tp_Amt_Type_Code := PATC.G_OVERIDE_TP_AMT_TYPE_CODE;
5384: X_Assignment_Name := PATC.G_OVERIDE_ASSIGNMENT_NAME ;
5385: X_Work_Type_Name := PATC.G_OVERIDE_WORK_TYPE_NAME;
5386: /* End of bug 2648550 */
5379: G_Assignment_Id := PATC.G_OVERIDE_ASSIGNMENT_ID;
5380:
5381: /* Start of bug 2648550 */
5382: G_Work_Type_Id := PATC.G_OVERIDE_WORK_TYPE_ID;
5383: G_Tp_Amt_Type_Code := PATC.G_OVERIDE_TP_AMT_TYPE_CODE;
5384: X_Assignment_Name := PATC.G_OVERIDE_ASSIGNMENT_NAME ;
5385: X_Work_Type_Name := PATC.G_OVERIDE_WORK_TYPE_NAME;
5386: /* End of bug 2648550 */
5387:
5380:
5381: /* Start of bug 2648550 */
5382: G_Work_Type_Id := PATC.G_OVERIDE_WORK_TYPE_ID;
5383: G_Tp_Amt_Type_Code := PATC.G_OVERIDE_TP_AMT_TYPE_CODE;
5384: X_Assignment_Name := PATC.G_OVERIDE_ASSIGNMENT_NAME ;
5385: X_Work_Type_Name := PATC.G_OVERIDE_WORK_TYPE_NAME;
5386: /* End of bug 2648550 */
5387:
5388: IF PG_DEBUG = 'Y' THEN
5381: /* Start of bug 2648550 */
5382: G_Work_Type_Id := PATC.G_OVERIDE_WORK_TYPE_ID;
5383: G_Tp_Amt_Type_Code := PATC.G_OVERIDE_TP_AMT_TYPE_CODE;
5384: X_Assignment_Name := PATC.G_OVERIDE_ASSIGNMENT_NAME ;
5385: X_Work_Type_Name := PATC.G_OVERIDE_WORK_TYPE_NAME;
5386: /* End of bug 2648550 */
5387:
5388: IF PG_DEBUG = 'Y' THEN
5389: log_message('log_message: ' || 'Overriding Assignment Id = ' || G_Assignment_Id);
11486: G_IcProcessed_Code := 'X';
11487: l_temp_g_assignment_id := G_Assignment_Id; -- bug 5297060
11488:
11489: IF PG_DEBUG = 'Y' THEN
11490: pa_debug.G_err_stage := 'Calling patc client extension for override to assignment id';
11491: log_message('log_message: ' || pa_debug.G_err_Stage);
11492: END IF;
11493:
11494: patcx.tc_extension( X_project_id => g_project_id
11490: pa_debug.G_err_stage := 'Calling patc client extension for override to assignment id';
11491: log_message('log_message: ' || pa_debug.G_err_Stage);
11492: END IF;
11493:
11494: patcx.tc_extension( X_project_id => g_project_id
11495: , X_task_id => g_task_id
11496: , X_expenditure_item_date => X_ei_date
11497: , X_expenditure_type => X_etype
11498: , X_non_labor_resource => X_nlr
11549: , p_po_price_type => p_po_price_type );
11550:
11551: -- No change to Billable Flag here, use what is inserted into the interface table
11552: X_status := temp_status; -- Added for bug#6278593
11553: /*S.N. 5297060 The patcx extension parameter x_assignment_id is IN OUT so the value can change
11554: for assignment_id. To handle this we will use a dummy assigment id to hold the value
11555: and reset the value back if the transaction is a reversal. */
11556: If X_match_flag = 'N' Then
11557: G_assignment_id := l_temp_g_assignment_id;