[Home] [Help]
149: -- Used as a counter to bulk insert.
150: G_Txn_Rec_Count Number := Null;
151:
152: -- Handling unhandled exceptions
153: G_EXCEPT_CNT_ALLOWED Number := to_Number(Nvl(Fnd_Profile.Value('HXC_RETRIEVAL_MAX_ERRORS'),0));
154: G_Unhandled_Except_Cnt Number;
155:
156: G_BAD_OTL_DATA Exception;
157: HXC_RETRIEVAL_MAX_ERRORS Exception;
155:
156: G_BAD_OTL_DATA Exception;
157: HXC_RETRIEVAL_MAX_ERRORS Exception;
158:
159: G_Debug_Mode Varchar2(1) := Nvl(Fnd_Profile.Value('PA_DEBUG_MODE'), 'N');
160:
161: -- Begin PA.M/CWK changes
162: G_Po_Line_Id Number := Null;
163: G_Vendor_Id Number := Null;
1892: Is
1893:
1894: l_Exp_Item_Id Pa_Expenditure_Items_All.Expenditure_Item_Id%TYPE := Null;
1895: l_RowId RowId;
1896: l_Last_Update_Login Pa_Expenditure_Items_All.Last_Update_Login%TYPE := to_Number(Fnd_Profile.Value('LOGIN_ID'));
1897: --Added for bug 4105561
1898: x_request_id NUMBER(15);
1899: x_program_application_id NUMBER(15);
1900: x_program_id NUMBER(15);
4800: End If; -- l_UOM <> 'HOURS'
4801:
4802: G_Stage := 'Check for quantity being negative.';
4803: If l_Proj_Attrib_Rec.Quantity < 0 And
4804: Nvl(Fnd_Profile.Value('PA_SST_ALLOW_NEGATIVE_TXN'),'N') = 'N' Then
4805:
4806: -- If the quantity is less than 0 and the profile is set to not allow
4807: -- for negative transactions then raise error in error table.
4808: --
5488: P_Time_Attribute_Id => Null);
5489:
5490: End If;
5491:
5492: If Nvl(Fnd_Profile.Value('PA_SST_ENABLE_BUS_MSG'),'N') = 'Y' Then
5493:
5494: -- Business Message Call
5495: G_Stage := 'Calling Business Message API';
5496: Pa_Time_Client_Extn.Display_Business_Message(
6206: Update Pa_Expenditure_Items
6207: Set
6208: Orig_Transaction_Reference = To_Char(P_BB_Id) || ':' || To_Char(l_Ovn_Check_Value),
6209: last_update_date = sysdate,
6210: last_updated_by = to_Number(Fnd_Profile.Value('USER_ID')),
6211: last_update_login = to_Number(Fnd_Profile.Value('LOGIN_ID'))
6212: Where
6213: RowId = l_RowId;
6214:
6207: Set
6208: Orig_Transaction_Reference = To_Char(P_BB_Id) || ':' || To_Char(l_Ovn_Check_Value),
6209: last_update_date = sysdate,
6210: last_updated_by = to_Number(Fnd_Profile.Value('USER_ID')),
6211: last_update_login = to_Number(Fnd_Profile.Value('LOGIN_ID'))
6212: Where
6213: RowId = l_RowId;
6214:
6215: -- Since only the ovn has changed we don't care about net zero flag value.
7545:
7546: G_Stage := 'Check Multi Org';
7547: If Pa_Utils.Pa_Morg_Implemented = 'Y' Then
7548:
7549: l_Org_Id := Fnd_Profile.Value('ORG_ID');
7550:
7551: End If;
7552:
7553: -- Insert Timecard Scope record
7947: -- R12 change
7948: -- This section of code is conditionally getting the override approver person id if the
7949: -- overriding approver flag is set to Yes and AutoApproval is set to No. This is not
7950: -- correct. We need only be concerned about the autoapproval flag.
7951: -- If Nvl(Fnd_Profile.Value('PA_ONLINE_OVERRIDE_APPROVER'),'N') = 'Y' Then
7952: If Nvl(Fnd_Profile.Value('PA_PTE_AUTOAPPROVE_TS'),'N') = 'N' Then
7953:
7954: /* This variable is being used in the summary validate and
7955: * business message section of the procedure.
7948: -- This section of code is conditionally getting the override approver person id if the
7949: -- overriding approver flag is set to Yes and AutoApproval is set to No. This is not
7950: -- correct. We need only be concerned about the autoapproval flag.
7951: -- If Nvl(Fnd_Profile.Value('PA_ONLINE_OVERRIDE_APPROVER'),'N') = 'Y' Then
7952: If Nvl(Fnd_Profile.Value('PA_PTE_AUTOAPPROVE_TS'),'N') = 'N' Then
7953:
7954: /* This variable is being used in the summary validate and
7955: * business message section of the procedure.
7956: */
8160:
8161: /* If the AutoApproval flag is Yes then there is no reason to get the business message for this
8162: * timecard.
8163: */
8164: If X_AutoApproval_Flag = 'N' and Nvl(Fnd_Profile.Value('PA_SST_ENABLE_BUS_MSG'),'N') = 'Y' Then
8165:
8166: G_Stage := 'Calling Pa_Time_Client_Extn.Display_Business_Message()';
8167: Pa_Time_Client_Extn.Display_Business_Message(
8168: P_Timecard_Table => l_Timecard_Table,
8421: */
8422: -- Bug 2773066
8423: -- We don't need to check if the profile is set at this point.
8424: -- If the overriding approver is populated then use it when appropriate.
8425: -- If Nvl(Fnd_Profile.Value('PA_ONLINE_OVERRIDE_APPROVER'),'N') = 'Y' And
8426: If l_Overriding_Approver_Id Is Not Null And
8427: P_Previous_Approver_Id Is Null Then
8428:
8429: X_Approver_Person_Id := l_Overriding_Approver_Id;
8562: G_Stage := 'Check if overriding approver exists when the scope is TIMECARD.';
8563: -- Bug 2773066
8564: -- We don't need to check the overriding approver profile.
8565: -- If it is populated then it should be picked up and used when and if needed.
8566: -- If Nvl(Fnd_Profile.Value('PA_ONLINE_OVERRIDE_APPROVER'),'N') = 'Y' And
8567: If l_Time_Building_Blocks(i).Scope = 'TIMECARD' Then
8568:
8569: G_Stage := 'Now loop thru and attribution records for the TIMECARD scope building block.';
8570: <