[Home] [Help]
1172: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1173: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1174: End If;
1175: /* Bug 6698171 */ if (l_New_Timecard_Rec.Person_Type = 'EMP') then /* Added if..else for bug 7505424 */
1176: patc.check_termination (l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1177: else
1178: patc.check_termination_for_cwk(l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1179: end if;
1180: -- following if does validation for employee termination
1174: End If;
1175: /* Bug 6698171 */ if (l_New_Timecard_Rec.Person_Type = 'EMP') then /* Added if..else for bug 7505424 */
1176: patc.check_termination (l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1177: else
1178: patc.check_termination_for_cwk(l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1179: end if;
1180: -- following if does validation for employee termination
1181: IF l_New_Timecard_Rec.Expenditure_Item_Date <= nvl(l_ac_termination_date, l_New_Timecard_Rec.Expenditure_Item_Date) then
1182:
4107: -- Pre-Reqs : None
4108: -- Type : Procedure
4109: -- Function : This procedure is called by public procedure Update_Process.
4110: -- The only intent of this procedure is to get the BILLABLE_FLAG
4111: -- from patc/patcx and return control back to the calling procedure.
4112: -- No handled errors will be returned to the OTL client team server code calling
4113: -- procedure. Unhandled exceptions will be allowed.
4114: --
4115: -- P_Operation: SAVE
4230: l_Data_Conflict_Flag = 'N' Then
4231:
4232: l_Status := Null;
4233:
4234: G_Stage := 'Firing patc(). Only want the Billable Flag and no validation checked.';
4235:
4236: Pa_Transactions_Pub.Validate_Transaction(
4237: X_Project_Id => l_Proj_Attrib_Rec.Project_Id,
4238: X_Task_Id => l_Proj_Attrib_Rec.Task_Id,
4242: X_Person_Id => l_Proj_Attrib_Rec.Inc_By_Person_Id,
4243: X_Billable_Flag => l_Proj_Attrib_Rec.Billable_Flag,
4244: X_Quantity => l_Proj_Attrib_Rec.Quantity,
4245: X_Transfer_Ei => Null,
4246: X_Incurred_By_Org_Id => Null, -- letting patc get it
4247: X_NL_Resource_Org_Id => Null,
4248: X_Transaction_Source => 'ORACLE TIME AND LABOR',
4249: X_Calling_Module => 'PAXVOTCB',
4250: X_Vendor_Id => l_Proj_Attrib_Rec.Vendor_Id, -- PA.M/CWK changes
4284: P_Sys_Link_Function => l_Proj_Attrib_Rec.Sys_Linkage_Func);
4285:
4286:
4287:
4288: G_Stage := 'Check the returned status from patc.';
4289: If ( l_Status is null OR
4290: ( l_Status is NOT NULL AND nvl(l_Msg_Type,'W') <> 'E') ) Then /*Bug4518893*/
4291:
4292: G_Stage := 'Patc returned status that is Null.';
4288: G_Stage := 'Check the returned status from patc.';
4289: If ( l_Status is null OR
4290: ( l_Status is NOT NULL AND nvl(l_Msg_Type,'W') <> 'E') ) Then /*Bug4518893*/
4291:
4292: G_Stage := 'Patc returned status that is Null.';
4293:
4294: -- Populate the Billable Flag in the pl/sql table
4295: -- Bug 4318639 Added IF condition to see if the billable_flag_index is populated.
4296: -- If no project related data was entered or there is no project_id attribution data in the
4426: Is
4427:
4428: l_Status Varchar2(30) := Null;
4429: l_Exp_Status Varchar2(30) := Null;
4430: l_Not_Bypass_Patc_Flag Boolean := True;
4431: l_Error_Level Varchar2(10) := Null; /* Added for Bug#2798986 */
4432:
4433: /* The OTL item has been imported into projects and max orig_transaction_reference does not match
4434: * its equivalent in OTL( to_char(BB_ID) || to_char(BB_OVN) ) Then l_BB_Detail_Changed = 'Y' else 'N'
5156: -- Transaction Control validation call.
5157:
5158: l_Status := Null;
5159:
5160: G_Stage := 'Firing patc call.';
5161: Pa_Transactions_Pub.Validate_Transaction(
5162: X_Project_Id => l_Proj_Attrib_Rec.Project_Id,
5163: X_Task_Id => l_Proj_Attrib_Rec.Task_Id,
5164: X_Ei_Date => l_Proj_Attrib_Rec.Expenditure_Item_Date,
5167: X_Person_Id => l_Proj_Attrib_Rec.Inc_By_Person_Id,
5168: X_Billable_Flag => l_Proj_Attrib_Rec.Billable_Flag2,
5169: X_Quantity => l_Proj_Attrib_Rec.Quantity,
5170: X_Transfer_Ei => Null,
5171: X_Incurred_By_Org_Id => Null, -- letting patc get it
5172: X_NL_Resource_Org_Id => Null,
5173: X_Transaction_Source => 'ORACLE TIME AND LABOR',
5174: X_Calling_Module => 'PAXVOTCB',
5175: X_Vendor_Id => l_Proj_Attrib_Rec.Vendor_Id,
5214:
5215:
5216: /* Bug 7645561*/
5217: If (l_status <> 'PA_NO_ASSIGNMENT' or test_term_with_pay is Null) then
5218: -- check if patc has returned any errors
5219: If l_Status is Not Null Then
5220:
5221: If Pa_Otc_Api.IsNumber(l_Status) Then
5222:
5223: Raise E_Unhandled_Exception;
5224:
5225: Else
5226:
5227: G_Stage := 'Patc returned status that is Not Null - Inserting error rec.';
5228: G_Msg_Tokens_Table.Delete;
5229:
5230: If l_Msg_Token1_Value is not null Then
5231:
5228: G_Msg_Tokens_Table.Delete;
5229:
5230: If l_Msg_Token1_Value is not null Then
5231:
5232: G_Msg_Tokens_Table(1).Token_Name := 'PATC_MSG_TOKEN1';
5233: G_Msg_Tokens_Table(1).Token_Value := l_Msg_Token1_Value;
5234:
5235: -- Begin message token is not defined for bug#4593869
5236: Else
5234:
5235: -- Begin message token is not defined for bug#4593869
5236: Else
5237:
5238: G_Msg_Tokens_Table(1).Token_Name := 'PATC_MSG_TOKEN1';
5239: G_Msg_Tokens_Table(1).Token_Value := FND_API.G_MISS_CHAR;
5240:
5241: -- End message token is not defined for bug#4593869
5242: End If;
5242: End If;
5243:
5244: If l_Msg_Token2_Value is not null Then
5245:
5246: G_Msg_Tokens_Table(2).Token_Name := 'PATC_MSG_TOKEN2';
5247: G_Msg_Tokens_Table(2).Token_Value := l_Msg_Token2_Value;
5248:
5249: -- Begin message token is not defined for bug#4593869
5250: Else
5248:
5249: -- Begin message token is not defined for bug#4593869
5250: Else
5251:
5252: G_Msg_Tokens_Table(2).Token_Name := 'PATC_MSG_TOKEN2';
5253: G_Msg_Tokens_Table(2).Token_Value := FND_API.G_MISS_CHAR;
5254:
5255: -- End message token is not defined for bug#4593869
5256: End If;
5256: End If;
5257:
5258: If l_Msg_Token3_Value is not null Then
5259:
5260: G_Msg_Tokens_Table(3).Token_Name := 'PATC_MSG_TOKEN3';
5261: G_Msg_Tokens_Table(3).Token_Value := l_Msg_Token3_Value;
5262:
5263: -- Begin message token is not defined for bug#4593869
5264: Else
5262:
5263: -- Begin message token is not defined for bug#4593869
5264: Else
5265:
5266: G_Msg_Tokens_Table(3).Token_Name := 'PATC_MSG_TOKEN3';
5267: G_Msg_Tokens_Table(3).Token_Value := FND_API.G_MISS_CHAR;
5268:
5269: -- End message token is not defined for bug#4593869
5270: End If;
5312:
5313: /* l_Billable_Flag is coming from the pl/sql table
5314: * This can occur if another app changes project,task,billable_flag
5315: * in update phase of validation logic and billable no longer
5316: * matches what patc returns.
5317: */
5318:
5319: G_Stage := 'Get translated value for Billable_flag code using fnd_lookups.';
5320: l_Bill_Flag_Meaning := Null;
5358:
5359: /* l_Billable_Flag is coming from the pl/sql table
5360: * This can occur if another app changes project,task,billable_flag
5361: * in update phase of validation logic and billable no longer
5362: * matches what patc returns.
5363: */
5364:
5365: G_Stage := 'Get translated value for Billable_flag code using fnd_lookups.';
5366: l_Bill_Flag_Meaning := Null;