PACKAGE BODY: APPS.BUDGET_INQUIRY_PKG

Source

1 PACKAGE BODY BUDGET_INQUIRY_PKG AS
2 /* $Header: gliiqbdb.pls 120.2 2003/04/24 01:29:08 djogg ship $ */
3 --
4 -- PUBLIC VARIABLES
5 --
6 
7 budget_version_id    NUMBER;
8 template_id          NUMBER;
9 factor               NUMBER;
10 code_combination_id  NUMBER;
11 ledger_id	     NUMBER;
12 
13 period_name          VARCHAR2(15);
14 currency_code        VARCHAR2(15);
15 funct_curr	     VARCHAR2(15);
16 
17 --
18 -- PUBLIC PROCEDURES
19 --
20 PROCEDURE set_criteria(X_budget_version_id  	NUMBER,
21 			X_template_id		NUMBER,
22 			X_factor		NUMBER,
23 			X_code_combination_id	NUMBER,
24 			X_currency_code		VARCHAR2,
25 			X_funct_curr		VARCHAR2) IS
26 BEGIN
27    BUDGET_INQUIRY_PKG.budget_version_id 		:= X_budget_version_id;
28    BUDGET_INQUIRY_PKG.template_id 			:= X_template_id;
29    BUDGET_INQUIRY_PKG.factor 				:= X_factor;
30    BUDGET_INQUIRY_PKG.currency_code 			:= X_currency_code;
31    BUDGET_INQUIRY_PKG.code_combination_id 		:= X_code_combination_id;
32    BUDGET_INQUIRY_PKG.funct_curr			:= X_funct_curr;
33 END set_criteria;
34 
35 PROCEDURE Set_Ledger_Id(X_ledger_id NUMBER) IS
36 BEGIN
37    BUDGET_INQUIRY_PKG.ledger_id 			:= X_ledger_id;
38 END Set_Ledger_Id;
39 
40 FUNCTION Get_Ledger_Id RETURN NUMBER IS
41 BEGIN
42   RETURN BUDGET_INQUIRY_PKG.ledger_id;
43 END Get_Ledger_Id;
44 
45 FUNCTION Get_Bvid RETURN NUMBER IS
46 BEGIN
47   RETURN BUDGET_INQUIRY_PKG.budget_version_id;
48 END Get_Bvid;
49 
50 FUNCTION Get_Template_Id RETURN NUMBER IS
51 BEGIN
52   RETURN BUDGET_INQUIRY_PKG.template_id;
53 END Get_Template_Id;
54 
55 FUNCTION Get_Factor RETURN NUMBER IS
56 BEGIN
57   RETURN BUDGET_INQUIRY_PKG.factor;
58 END Get_Factor;
59 
60 FUNCTION Get_Currency RETURN VARCHAR2 IS
61 BEGIN
62   RETURN BUDGET_INQUIRY_PKG.currency_code;
63 END Get_Currency;
64 
65 FUNCTION Get_Funct_Curr RETURN VARCHAR2 IS
66 BEGIN
67   RETURN BUDGET_INQUIRY_PKG.funct_curr;
68 END Get_Funct_Curr;
69 
70 PROCEDURE Set_Period(value  VARCHAR2) IS
71 BEGIN
72    BUDGET_INQUIRY_PKG.period_name := value;
73 END Set_Period;
74 
75 FUNCTION Get_Period RETURN VARCHAR2 IS
76 BEGIN
77   RETURN BUDGET_INQUIRY_PKG.period_name;
78 END Get_Period;
79 
80 FUNCTION Get_Ccid RETURN NUMBER IS
81 BEGIN
82   RETURN BUDGET_INQUIRY_PKG.code_combination_id;
83 END Get_Ccid;
84 
85 PROCEDURE Check_Detail_Accounts(X_Code_Combination_Id  NUMBER) IS
86 
87 CURSOR C1 IS
88   SELECT  1
89     FROM  GL_ACCOUNT_HIERARCHIES
90    WHERE  SUMMARY_CODE_COMBINATION_ID = X_Code_Combination_Id;
91 
92 dummy  NUMBER;
93 
94 BEGIN
95   OPEN C1;
96   FETCH C1 INTO dummy;
97 
98   IF C1%NOTFOUND THEN
99     CLOSE C1;
100     fnd_message.set_name('SQLGL','GL_NO_CHILD_ACCOUNTS');
101     app_exception.raise_exception;
102   END IF;
103 
104   CLOSE C1;
105 END Check_Detail_Accounts;
106 
107 END BUDGET_INQUIRY_PKG;