17: --
18: -- PUBLIC FUNCTIONS
19: --
20:
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_code_combinations%ROWTYPE ) IS
22: recinfo_old gl_code_combinations%ROWTYPE;
23:
24: BEGIN
25:
18: -- PUBLIC FUNCTIONS
19: --
20:
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_code_combinations%ROWTYPE ) IS
22: recinfo_old gl_code_combinations%ROWTYPE;
23:
24: BEGIN
25:
26: /* rgopalan 3.1.03 */
29: recinfo_old := recinfo;
30:
31: SELECT *
32: INTO recinfo
33: FROM gl_code_combinations
34: WHERE code_combination_id = recinfo.code_combination_id;
35:
36: EXCEPTION
37: WHEN OTHERS THEN
53: X_code_combination_id NUMBER,
54: X_account_type IN OUT NOCOPY VARCHAR2,
55: X_template_id IN OUT NOCOPY NUMBER ) IS
56:
57: recinfo gl_code_combinations%ROWTYPE;
58:
59: -- for NOCOPY rgopalan
60: l_account_type gl_code_combinations.account_type%TYPE;
61: l_template_id gl_code_combinations.template_id%TYPE;
56:
57: recinfo gl_code_combinations%ROWTYPE;
58:
59: -- for NOCOPY rgopalan
60: l_account_type gl_code_combinations.account_type%TYPE;
61: l_template_id gl_code_combinations.template_id%TYPE;
62:
63: BEGIN
64:
57: recinfo gl_code_combinations%ROWTYPE;
58:
59: -- for NOCOPY rgopalan
60: l_account_type gl_code_combinations.account_type%TYPE;
61: l_template_id gl_code_combinations.template_id%TYPE;
62:
63: BEGIN
64:
65: -- copying the old value, rgopalan
95: PROCEDURE check_unique( x_rowid VARCHAR2,
96: x_ccid NUMBER ) IS
97: CURSOR c_dup IS
98: SELECT 'Duplicate'
99: FROM gl_code_combinations cc
100: WHERE cc.code_combination_id = x_ccid
101: AND ( x_rowid is NULL
102: OR
103: cc.rowid <> x_rowid );
139: End if;
140: --Bug 3199481 (end)
141: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
142: fnd_message.set_token('PROCEDURE',
143: 'GL_CODE_COMBINATIONS_PKG.check_unique');
144: RAISE;
145:
146: END check_unique;
147:
152: x_template_id IN OUT NOCOPY NUMBER,
153: x_sobid NUMBER ) IS
154:
155: new_sob_id NUMBER(15);
156: l_template_id gl_code_combinations.template_id%TYPE;
157:
158: BEGIN
159:
160: -- copying old value. rgopalan
165: st.ledger_id, -- bug 6315298
166: st.template_id
167: INTO new_sob_id,
168: x_template_id
169: FROM gl_code_combinations cc,
170: gl_summary_templates st
171: WHERE cc.code_combination_id = x_ccid
172: AND st.template_id(+) = cc.template_id;
173:
204: End if;
205: --Bug 3199481 (end)
206: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
207: fnd_message.set_token('PROCEDURE',
208: 'GL_CODE_COMBINATIONS_PKG.get_valid_sob_summary');
209: RAISE;
210:
211: END get_valid_sob_summary;
212:
324: X_IGI_balanced_budget_flag VARCHAR2
325: -- OPSFI: BUD, mhazarik 13-Jan-00 End 1
326:
327: ) IS
328: CURSOR C IS SELECT rowid FROM gl_code_combinations
329: WHERE code_combination_id = X_Code_Combination_Id;
330:
331: BEGIN
332:
329: WHERE code_combination_id = X_Code_Combination_Id;
330:
331: BEGIN
332:
333: INSERT INTO gl_code_combinations(
334: code_combination_id,
335: last_update_date,
336: last_updated_by,
337: chart_of_accounts_id,
663: -- OPSFI: BUD, mhazarik 13-Jan-00 End 4
664: ) IS
665: CURSOR C IS
666: SELECT *
667: FROM gl_code_combinations
668: WHERE rowid = X_Rowid
669: FOR UPDATE of Code_Combination_Id NOWAIT;
670: Recinfo C%ROWTYPE;
671:
1117: X_igi_balanced_budget_flag VARCHAR2
1118: -- OPSFI: BUD, mhazarik 13-Jan-00 End 6
1119: ) IS
1120: BEGIN
1121: UPDATE gl_code_combinations
1122: SET
1123: code_combination_id = X_Code_Combination_Id,
1124: last_update_date = X_Last_Update_Date,
1125: last_updated_by = X_Last_Updated_By,
1237:
1238:
1239: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
1240: BEGIN
1241: DELETE FROM gl_code_combinations
1242: WHERE rowid = X_Rowid;
1243:
1244: if (SQL%NOTFOUND) then
1245: RAISE NO_DATA_FOUND;