[Home] [Help]
PACKAGE BODY: APPS.GL_AUTOREV_CRITERIA_SETS_PKG
Source
1 PACKAGE BODY GL_AUTOREV_CRITERIA_SETS_PKG AS
2 /* $Header: glistcsb.pls 120.2 2003/12/15 22:25:10 spala noship $ */
3
4 --
5 -- PUBLIC FUNCTIONS
6
7 -- ************************************************************************
8 -- Called by Journal Reversal Criteria Set form
9 -- ************************************************************************
10 PROCEDURE insert_row(X_Criteria_Set_Id NUMBER,
11 X_Criteria_Set_Name VARCHAR2,
12 X_Criteria_Set_Desc VARCHAR2,
13 X_Creation_Date DATE,
14 X_Last_Update_Date DATE,
15 X_Created_By NUMBER,
16 X_Last_Updated_By NUMBER,
17 X_Last_Update_Login NUMBER,
18 X_Attribute1 VARCHAR2,
19 X_Attribute2 VARCHAR2,
20 X_Attribute3 VARCHAR2,
21 X_Attribute4 VARCHAR2,
22 X_Attribute5 VARCHAR2,
23 X_Attribute6 VARCHAR2,
24 X_Attribute7 VARCHAR2,
25 X_Attribute8 VARCHAR2,
26 X_Attribute9 VARCHAR2,
27 X_Attribute10 VARCHAR2,
28 X_Attribute11 VARCHAR2,
29 X_Attribute12 VARCHAR2,
30 X_Attribute13 VARCHAR2,
31 X_Attribute14 VARCHAR2,
32 X_Attribute15 VARCHAR2,
33 X_Context VARCHAR2,
34 X_Security_Flag VARCHAR2
35 ) IS
36
37
38 BEGIN
39
40
41 INSERT INTO gl_autorev_criteria_sets(
42 criteria_set_id,
43 criteria_set_name,
44 criteria_set_desc,
45 creation_date,
46 last_update_date,
47 created_by,
48 last_updated_by,
49 last_update_login,
50 attribute1,
51 attribute2,
52 attribute3,
53 attribute4,
54 attribute5,
55 attribute6,
56 attribute7,
57 attribute8,
58 attribute9,
59 attribute10,
60 attribute11,
61 attribute12 ,
62 attribute13,
63 attribute14 ,
64 attribute15 ,
65 context,
66 security_flag)
67 VALUES(x_Criteria_Set_id,
68 X_Criteria_Set_Name,
69 X_Criteria_Set_Desc,
70 X_Creation_Date,
71 X_Last_Update_Date,
72 X_Created_By,
73 X_Last_Updated_By,
74 X_Last_Update_Login,
75 X_Attribute1,
76 X_Attribute2,
77 X_Attribute3,
78 X_Attribute4,
79 X_Attribute5,
80 X_Attribute6,
81 X_Attribute7,
82 X_Attribute8,
83 X_Attribute9,
84 X_Attribute10,
85 X_Attribute11,
86 X_Attribute12,
87 X_Attribute13,
88 X_Attribute14,
89 X_Attribute15,
90 X_Context,
91 X_Security_Flag);
92
93 -- Insert Detail values also into GL_AUTOREVERS_OPTIONS
94
95 GL_AUTOREVERSE_OPTIONS_PKG.Insert_Criteria_Reversal_Cat(
96 x_criteria_set_id => X_Criteria_Set_id,
97 x_created_by => X_Created_By,
98 x_last_updated_by => X_Last_Updated_By,
99 x_last_update_login => X_Last_Update_Login);
100
101 EXCEPTION
102 WHEN OTHERS THEN
103 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
104 fnd_message.set_token('PROCEDURE',
105 'Criteria_reversal_cat');
106 RAISE;
107 END insert_row;
108
109 -- ************************************************************************
110 -- Called by Journal Reversal Criteria Set form
111 -- ************************************************************************
112
113 FUNCTION get_criteria_set_id RETURN NUMBER IS
114 l_criteria_set_id NUMBER;
115
116 BEGIN
117 -- Fetch criteria_set_id from the sequence
118
119 SELECT GL_AUTOREV_CRITERIA_SETS_S.Nextval INTO l_criteria_set_id
120 FROM DUAL;
121
122 -- Retrun new criteria_set_id;
123
124 RETURN(l_criteria_set_id);
125
126 EXCEPTION
127 WHEN OTHERS THEN
128 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
129 fnd_message.set_token('PROCEDURE',
130 'get_criteria_set_id');
131 RAISE;
132 END get_criteria_set_id;
133
134 -- ************************************************************************
135 -- Called by Journal Reversal Criteria Set form
136 -- ************************************************************************
137
138 Procedure Delete_row( X_Criteria_set_Id NUMBER) IS
139
140 l_ledger_id NUMBER := 0;
141 BEGIN
142 DELETE FROM GL_AUTOREVERSE_OPTIONS G
143 WHERE G.CRITERIA_SET_ID = x_criteria_set_id;
144
145 EXCEPTION
146 WHEN OTHERS THEN
147 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
148 fnd_message.set_token('PROCEDURE',
149 'GL_AUTOREV_CRITERIA_SETS.Delete_Row');
150 RAISE;
151 END Delete_Row;
152
153 -- ************************************************************************
154 -- Called by Journal Reversal Criteria Set form
155 -- ************************************************************************
156
157 FUNCTION Check_Ledger_Assign( X_Criteria_set_Id NUMBER)
158 Return Boolean IS
159
160 x_ledger_id NUMBER := 0;
161 BEGIN
162 SELECT 1 into x_ledger_id FROM DUAL
163 WHERE EXISTS (SELECT ledger_id FROM GL_LEDGERS
164 where criteria_set_id = x_criteria_set_id);
165
166 If (x_ledger_id = 1) Then
167 FND_MESSAGE.Set_name('SQLGL','GL_AR_LEDGER_CRITERIA_SET_ASSG');
168 APP_EXCEPTION.RAISE_EXCEPTION;
169 Return(False);
170 END IF;
171 Return (True);
172 EXCEPTION
173 WHEN app_exceptions.application_exception THEN
174 RAISE;
175
176 When NO_DATA_FOUND THEN
177 NULL;
178 Return(True);
179 WHEN OTHERS THEN
180 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
181 fnd_message.set_token('PROCEDURE',
182 'GL_AUTOREV_CRITERIA_SETS.Check_Ledger_Assign');
183 RAISE;
184
185
186 END Check_Ledger_Assign;
187
188 END GL_AUTOREV_CRITERIA_SETS_PKG;