DBA Data[Home] [Help]

APPS.PER_BUDGETS_PKG dependencies on PER_BUDGETS

Line 1: PACKAGE BODY PER_BUDGETS_PKG as

1: PACKAGE BODY PER_BUDGETS_PKG as
2: /* $Header: pebgt01t.pkb 115.6 2004/02/16 10:20:09 nsanghal ship $ */
3:
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

Line 7: g_package varchar2(33) := ' per_budgets_pkg.'; -- Global package name

3:
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: g_package varchar2(33) := ' per_budgets_pkg.'; -- Global package name
8:
9:
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< Chk_Unique >---------------------------------|

Line 26: FROM per_budgets b

22: hr_utility.set_location('Entering:'||l_proc, 5);
23: --
24: SELECT NULL
25: INTO l_result
26: FROM per_budgets b
27: WHERE UPPER(X_Name) = UPPER(b.Name)
28: AND UPPER(X_Budget_Type_Code) = UPPER(b.Budget_Type_Code)
29: AND X_Business_Group_Id = b.Business_Group_Id + 0
30: AND (b.Rowid <> X_Rowid or X_Rowid is null);

Line 48: -- Determine budget_type_code of per_budgets rec.

44:
45: -- ----------------------------------------------------------------------------
46: -- |-------------------------< Chk_OTA_Budget_Type >--------------------------|
47: -- ----------------------------------------------------------------------------
48: -- Determine budget_type_code of per_budgets rec.
49: -- Accepts Budget_id or Budget_Version_Id or Rowid
50: --
51: FUNCTION Chk_OTA_Budget_Type(X_Budget_Id IN NUMBER,
52: X_Budget_Version_Id IN NUMBER,

Line 58: FROM per_budget_versions bdv, per_budgets bd

54:
55: --
56: CURSOR c_bdv IS
57: SELECT NULL
58: FROM per_budget_versions bdv, per_budgets bd
59: WHERE bdv.budget_id = bd.budget_id
60: AND bdv.budget_version_id = X_Budget_Version_Id
61: AND bd.budget_type_code = 'OTA_BUDGET';
62: --

Line 65: FROM per_budgets pb

61: AND bd.budget_type_code = 'OTA_BUDGET';
62: --
63: CURSOR c_bdg1 IS
64: SELECT NULL
65: FROM per_budgets pb
66: WHERE pb.budget_id = X_Budget_Id
67: AND budget_type_code = 'OTA_BUDGET';
68: --
69: CURSOR c_bdg2 IS

Line 71: FROM per_budgets pb

67: AND budget_type_code = 'OTA_BUDGET';
68: --
69: CURSOR c_bdg2 IS
70: SELECT NULL
71: FROM per_budgets pb
72: WHERE pb.rowid = X_Rowid
73: AND budget_type_code = 'OTA_BUDGET';
74: --
75: l_result VARCHAR2(255);

Line 272: ,p_descflex_name => 'PER_BUDGETS'

268: hr_utility.set_location('Entering:'||l_proc, 5);
269: --
270: hr_dflex_utility.ins_or_upd_descflex_attribs
271: (p_appl_short_name => 'PER'
272: ,p_descflex_name => 'PER_BUDGETS'
273: ,p_attribute_category => x_attribute_category
274: ,p_attribute1_name => 'ATTRIBUTE1'
275: ,p_attribute1_value => x_attribute1
276: ,p_attribute2_name => 'ATTRIBUTE2'

Line 354: CURSOR C1 IS SELECT rowid FROM PER_BUDGETS

350: X_Attribute20 VARCHAR2,
351: X_Budget_Type_Code VARCHAR2
352: ) IS
353:
354: CURSOR C1 IS SELECT rowid FROM PER_BUDGETS
355: WHERE budget_id = X_budget_id;
356:
357: CURSOR C2 IS SELECT per_budgets_s.nextval FROM dual;
358:

Line 357: CURSOR C2 IS SELECT per_budgets_s.nextval FROM dual;

353:
354: CURSOR C1 IS SELECT rowid FROM PER_BUDGETS
355: WHERE budget_id = X_budget_id;
356:
357: CURSOR C2 IS SELECT per_budgets_s.nextval FROM dual;
358:
359: l_proc VARCHAR2(72) := g_package||'Insert_Row';
360: l_name PER_BUDGETS.NAME%TYPE;
361:

Line 360: l_name PER_BUDGETS.NAME%TYPE;

356:
357: CURSOR C2 IS SELECT per_budgets_s.nextval FROM dual;
358:
359: l_proc VARCHAR2(72) := g_package||'Insert_Row';
360: l_name PER_BUDGETS.NAME%TYPE;
361:
362: BEGIN
363: --
364: --hr_utility.trace_on;

Line 410: -- check per_budgets record does not exists for

406: ELSE
407: l_name := X_Name;
408: END IF;
409: --
410: -- check per_budgets record does not exists for
411: -- this name+bg+btc combination.
412: Chk_Unique(NULL,
413: X_Business_Group_Id,
414: X_Name,

Line 443: INSERT INTO PER_BUDGETS(

439:
440:
441:
442:
443: INSERT INTO PER_BUDGETS(
444: budget_id,
445: business_group_id,
446: period_set_name,
447: name,

Line 555: FROM PER_BUDGETS

551: X_Budget_Type_Code VARCHAR2
552: ) IS
553: CURSOR C IS
554: SELECT *
555: FROM PER_BUDGETS
556: WHERE rowid = X_Rowid
557: FOR UPDATE of Budget_Id NOWAIT;
558: Recinfo C%ROWTYPE;
559: l_proc VARCHAR2(72) := g_package||'Lock_Row';

Line 785: -- check per_budgets record does not exists for

781: Chk_Measurement_Type_Exists(X_Business_Group_Id,X_Unit);
782:
783: END IF;
784:
785: -- check per_budgets record does not exists for
786: -- this name+bg+btc combination.
787: Chk_Unique(x_Rowid,
788: X_Business_Group_Id,
789: X_Name,

Line 816: UPDATE PER_BUDGETS

812: X_Attribute19,
813: X_Attribute20);
814:
815: -- now perform update
816: UPDATE PER_BUDGETS
817: SET
818: budget_id = X_Budget_Id,
819: business_group_id = X_Business_Group_Id,
820: period_set_name = X_Period_Set_Name,

Line 867: FROM per_budgets pb

863: --
864: CURSOR C_Version is SELECT Rowid
865: FROM per_budget_versions pbv
866: where pbv.budget_id = (SELECT pb.budget_id
867: FROM per_budgets pb
868: WHERE pb.Rowid = X_Rowid);
869: --
870: l_ver_rowid VARCHAR2(30);
871: l_proc VARCHAR2(72) := g_package||'Delete_Row';

Line 899: DELETE FROM PER_BUDGETS

895: END IF;
896: CLOSE C_Version;
897:
898: --now delete the parent budget
899: DELETE FROM PER_BUDGETS
900: WHERE rowid = X_Rowid;
901:
902: if (SQL%NOTFOUND) then
903: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');

Line 913: END PER_BUDGETS_PKG;

909: hr_utility.set_location(' Leaving:'||l_proc, 10);
910: --
911: END Delete_Row;
912:
913: END PER_BUDGETS_PKG;