[Home] [Help]
1190: Pa_Debug.G_err_Stage := 'Pa_Otc_Api ::: ' || G_Path || ' :: ' || G_Stage;
1191: pa_cc_utils.log_message(Pa_Debug.G_Err_Stage,0);
1192: End If;
1193: /* Bug 6698171 */ if (l_New_Timecard_Rec.Person_Type = 'EMP') then /* Added if..else for bug 7505424 */
1194: patc.check_termination (l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1195: else
1196: patc.check_termination_for_cwk(l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1197: end if;
1198: -- following if does validation for employee termination
1192: End If;
1193: /* Bug 6698171 */ if (l_New_Timecard_Rec.Person_Type = 'EMP') then /* Added if..else for bug 7505424 */
1194: patc.check_termination (l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1195: else
1196: patc.check_termination_for_cwk(l_New_Timecard_Rec.Incurred_By_Person_Id, l_New_Timecard_Rec.Expenditure_Item_Date, l_ac_termination_date);
1197: end if;
1198: -- following if does validation for employee termination
1199: IF l_New_Timecard_Rec.Expenditure_Item_Date <= nvl(l_ac_termination_date, l_New_Timecard_Rec.Expenditure_Item_Date) then
1200:
4381: -- Pre-Reqs : None
4382: -- Type : Procedure
4383: -- Function : This procedure is called by public procedure Update_Process.
4384: -- The only intent of this procedure is to get the BILLABLE_FLAG
4385: -- from patc/patcx and return control back to the calling procedure.
4386: -- No handled errors will be returned to the OTL client team server code calling
4387: -- procedure. Unhandled exceptions will be allowed.
4388: --
4389: -- P_Operation: SAVE
4527: /*End changes for bug#13803367 */
4528:
4529: l_Status := Null;
4530:
4531: G_Stage := 'Firing patc(). Only want the Billable Flag and no validation checked.';
4532:
4533: Pa_Transactions_Pub.Validate_Transaction(
4534: X_Project_Id => l_Proj_Attrib_Rec.Project_Id,
4535: X_Task_Id => l_Proj_Attrib_Rec.Task_Id,
4539: X_Person_Id => l_Proj_Attrib_Rec.Inc_By_Person_Id,
4540: X_Billable_Flag => l_Proj_Attrib_Rec.Billable_Flag,
4541: X_Quantity => l_Proj_Attrib_Rec.Quantity,
4542: X_Transfer_Ei => Null,
4543: X_Incurred_By_Org_Id => Null, -- letting patc get it
4544: X_NL_Resource_Org_Id => Null,
4545: X_Transaction_Source => 'ORACLE TIME AND LABOR',
4546: X_Calling_Module => l_calling_module, --Added for bug#13803367
4547: X_Vendor_Id => l_Proj_Attrib_Rec.Vendor_Id, -- PA.M/CWK changes
4585: -- bug 10253400: Payroll integration enhancement for 12.2..end
4586:
4587:
4588:
4589: G_Stage := 'Check the returned status from patc.';
4590: If ( l_Status is null OR
4591: ( l_Status is NOT NULL AND nvl(l_Msg_Type,'W') <> 'E') ) Then /*Bug4518893*/
4592:
4593: G_Stage := 'Patc returned status that is Null.';
4589: G_Stage := 'Check the returned status from patc.';
4590: If ( l_Status is null OR
4591: ( l_Status is NOT NULL AND nvl(l_Msg_Type,'W') <> 'E') ) Then /*Bug4518893*/
4592:
4593: G_Stage := 'Patc returned status that is Null.';
4594:
4595: -- Populate the Billable Flag in the pl/sql table
4596: -- Bug 4318639 Added IF condition to see if the billable_flag_index is populated.
4597: -- If no project related data was entered or there is no project_id attribution data in the
4727: Is
4728:
4729: l_Status Varchar2(30) := Null;
4730: l_Exp_Status Varchar2(30) := Null;
4731: l_Not_Bypass_Patc_Flag Boolean := True;
4732: l_Error_Level Varchar2(10) := Null; /* Added for Bug#2798986 */
4733:
4734: /* The OTL item has been imported into projects and max orig_transaction_reference does not match
4735: * its equivalent in OTL( to_char(BB_ID) || to_char(BB_OVN) ) Then l_BB_Detail_Changed = 'Y' else 'N'
5612: -- Transaction Control validation call.
5613:
5614: l_Status := Null;
5615:
5616: G_Stage := 'Firing patc call.';
5617: Pa_Transactions_Pub.Validate_Transaction(
5618: X_Project_Id => l_Proj_Attrib_Rec.Project_Id,
5619: X_Task_Id => l_Proj_Attrib_Rec.Task_Id,
5620: X_Ei_Date => l_Proj_Attrib_Rec.Expenditure_Item_Date,
5623: X_Person_Id => l_Proj_Attrib_Rec.Inc_By_Person_Id,
5624: X_Billable_Flag => l_Proj_Attrib_Rec.Billable_Flag2,
5625: X_Quantity => l_Proj_Attrib_Rec.Quantity,
5626: X_Transfer_Ei => Null,
5627: X_Incurred_By_Org_Id => Null, -- letting patc get it
5628: X_NL_Resource_Org_Id => Null,
5629: X_Transaction_Source => 'ORACLE TIME AND LABOR',
5630: X_Calling_Module => l_calling_module, /*Added for bug#13803367 */
5631: X_Vendor_Id => l_Proj_Attrib_Rec.Vendor_Id,
5674:
5675:
5676: /* Bug 7645561*/
5677: If (l_status <> 'PA_NO_ASSIGNMENT' or test_term_with_pay is Null) then
5678: -- check if patc has returned any errors
5679: If l_Status is Not Null Then
5680:
5681: If Pa_Otc_Api.IsNumber(l_Status) Then
5682:
5683: Raise E_Unhandled_Exception;
5684:
5685: Else
5686:
5687: G_Stage := 'Patc returned status that is Not Null - Inserting error rec.';
5688: G_Msg_Tokens_Table.Delete;
5689:
5690: If l_Msg_Token1_Value is not null Then
5691:
5688: G_Msg_Tokens_Table.Delete;
5689:
5690: If l_Msg_Token1_Value is not null Then
5691:
5692: G_Msg_Tokens_Table(1).Token_Name := 'PATC_MSG_TOKEN1';
5693: G_Msg_Tokens_Table(1).Token_Value := l_Msg_Token1_Value;
5694:
5695: -- Begin message token is not defined for bug#4593869
5696: Else
5694:
5695: -- Begin message token is not defined for bug#4593869
5696: Else
5697:
5698: G_Msg_Tokens_Table(1).Token_Name := 'PATC_MSG_TOKEN1';
5699: G_Msg_Tokens_Table(1).Token_Value := FND_API.G_MISS_CHAR;
5700:
5701: -- End message token is not defined for bug#4593869
5702: End If;
5702: End If;
5703:
5704: If l_Msg_Token2_Value is not null Then
5705:
5706: G_Msg_Tokens_Table(2).Token_Name := 'PATC_MSG_TOKEN2';
5707: G_Msg_Tokens_Table(2).Token_Value := l_Msg_Token2_Value;
5708:
5709: -- Begin message token is not defined for bug#4593869
5710: Else
5708:
5709: -- Begin message token is not defined for bug#4593869
5710: Else
5711:
5712: G_Msg_Tokens_Table(2).Token_Name := 'PATC_MSG_TOKEN2';
5713: G_Msg_Tokens_Table(2).Token_Value := FND_API.G_MISS_CHAR;
5714:
5715: -- End message token is not defined for bug#4593869
5716: End If;
5716: End If;
5717:
5718: If l_Msg_Token3_Value is not null Then
5719:
5720: G_Msg_Tokens_Table(3).Token_Name := 'PATC_MSG_TOKEN3';
5721: G_Msg_Tokens_Table(3).Token_Value := l_Msg_Token3_Value;
5722:
5723: -- Begin message token is not defined for bug#4593869
5724: Else
5722:
5723: -- Begin message token is not defined for bug#4593869
5724: Else
5725:
5726: G_Msg_Tokens_Table(3).Token_Name := 'PATC_MSG_TOKEN3';
5727: G_Msg_Tokens_Table(3).Token_Value := FND_API.G_MISS_CHAR;
5728:
5729: -- End message token is not defined for bug#4593869
5730: End If;
5772:
5773: /* l_Billable_Flag is coming from the pl/sql table
5774: * This can occur if another app changes project,task,billable_flag
5775: * in update phase of validation logic and billable no longer
5776: * matches what patc returns.
5777: */
5778:
5779: G_Stage := 'Get translated value for Billable_flag code using fnd_lookups.';
5780: l_Bill_Flag_Meaning := Null;
5818:
5819: /* l_Billable_Flag is coming from the pl/sql table
5820: * This can occur if another app changes project,task,billable_flag
5821: * in update phase of validation logic and billable no longer
5822: * matches what patc returns.
5823: */
5824:
5825: G_Stage := 'Get translated value for Billable_flag code using fnd_lookups.';
5826: l_Bill_Flag_Meaning := Null;