47:
48: IF chk_duplicates%FOUND THEN
49: CLOSE chk_duplicates;
50: IF ( status_code = 'D' ) THEN
51: fnd_message.set_name('SQLGL', 'GL_DUP_BUD_ORG_DEL_INP');
52: app_exception.raise_exception;
53: ELSE
54: fnd_message.set_name('SQLGL', 'GL_DUPLICATE_BUD_ORG_NAME');
55: app_exception.raise_exception;
50: IF ( status_code = 'D' ) THEN
51: fnd_message.set_name('SQLGL', 'GL_DUP_BUD_ORG_DEL_INP');
52: app_exception.raise_exception;
53: ELSE
54: fnd_message.set_name('SQLGL', 'GL_DUPLICATE_BUD_ORG_NAME');
55: app_exception.raise_exception;
56: END IF;
57: END IF;
58:
61: EXCEPTION
62: WHEN app_exceptions.application_exception THEN
63: RAISE;
64: WHEN OTHERS THEN
65: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
66: fnd_message.set_token('PROCEDURE',
67: 'gl_budget_entities_pkg.check_unique');
68: RAISE;
69: END check_unique;
62: WHEN app_exceptions.application_exception THEN
63: RAISE;
64: WHEN OTHERS THEN
65: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
66: fnd_message.set_token('PROCEDURE',
67: 'gl_budget_entities_pkg.check_unique');
68: RAISE;
69: END check_unique;
70:
94: EXCEPTION
95: WHEN app_exceptions.application_exception THEN
96: RAISE;
97: WHEN OTHERS THEN
98: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
99: fnd_message.set_token('PROCEDURE',
100: 'gl_budget_entities_pkg.check_for_all');
101: RAISE;
102: END check_for_all;
95: WHEN app_exceptions.application_exception THEN
96: RAISE;
97: WHEN OTHERS THEN
98: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
99: fnd_message.set_token('PROCEDURE',
100: 'gl_budget_entities_pkg.check_for_all');
101: RAISE;
102: END check_for_all;
103:
122: EXCEPTION
123: WHEN app_exceptions.application_exception THEN
124: RAISE;
125: WHEN OTHERS THEN
126: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
127: fnd_message.set_token('PROCEDURE',
128: 'gl_budget_entities_pkg.has_ranges');
129: RAISE;
130: END has_ranges;
123: WHEN app_exceptions.application_exception THEN
124: RAISE;
125: WHEN OTHERS THEN
126: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
127: fnd_message.set_token('PROCEDURE',
128: 'gl_budget_entities_pkg.has_ranges');
129: RAISE;
130: END has_ranges;
131:
142: CLOSE get_new_id;
143: return(new_id);
144: ELSE
145: CLOSE get_new_id;
146: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
147: fnd_message.set_token('SEQUENCE', 'GL_BUDGET_ENTITIES_S');
148: app_exception.raise_exception;
149: END IF;
150:
143: return(new_id);
144: ELSE
145: CLOSE get_new_id;
146: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
147: fnd_message.set_token('SEQUENCE', 'GL_BUDGET_ENTITIES_S');
148: app_exception.raise_exception;
149: END IF;
150:
151: EXCEPTION
151: EXCEPTION
152: WHEN app_exceptions.application_exception THEN
153: RAISE;
154: WHEN OTHERS THEN
155: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
156: fnd_message.set_token('PROCEDURE',
157: 'gl_budget_entities_pkg.get_unique_id');
158: RAISE;
159: END get_unique_id;
152: WHEN app_exceptions.application_exception THEN
153: RAISE;
154: WHEN OTHERS THEN
155: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
156: fnd_message.set_token('PROCEDURE',
157: 'gl_budget_entities_pkg.get_unique_id');
158: RAISE;
159: END get_unique_id;
160:
171: FETCH lock_org INTO dummy;
172:
173: IF NOT lock_org%FOUND THEN
174: CLOSE lock_org;
175: fnd_message.set_name('SQLGL', 'GL_BUDORG_DELETED');
176: app_exception.raise_exception;
177: END IF;
178:
179: CLOSE lock_org;
180: EXCEPTION
181: WHEN app_exceptions.application_exception THEN
182: RAISE;
183: WHEN OTHERS THEN
184: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
185: fnd_message.set_token('PROCEDURE',
186: 'gl_budget_entities_pkg.lock_organization');
187: RAISE;
188: END lock_organization;
181: WHEN app_exceptions.application_exception THEN
182: RAISE;
183: WHEN OTHERS THEN
184: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
185: fnd_message.set_token('PROCEDURE',
186: 'gl_budget_entities_pkg.lock_organization');
187: RAISE;
188: END lock_organization;
189:
224: EXCEPTION
225: WHEN app_exceptions.application_exception THEN
226: RAISE;
227: WHEN OTHERS THEN
228: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
229: fnd_message.set_token('PROCEDURE',
230: 'gl_budget_entities_pkg.budget_and_acount_seg_info');
231: RAISE;
232: END budget_and_account_seg_info;
225: WHEN app_exceptions.application_exception THEN
226: RAISE;
227: WHEN OTHERS THEN
228: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
229: fnd_message.set_token('PROCEDURE',
230: 'gl_budget_entities_pkg.budget_and_acount_seg_info');
231: RAISE;
232: END budget_and_account_seg_info;
233:
302: IF (X_All_Name AND
303: gl_budget_entities_pkg.check_for_all(
304: X_Ledger_Id,
305: X_Rowid)) THEN
306: fnd_message.set_name('SQLGL', 'GL_BUDGET_ONLY_ONE_ALL');
307: app_exception.raise_exception;
308: END IF;
309:
310: -- Set budget_entity_id
462: EXCEPTION
463: WHEN app_exceptions.application_exception THEN
464: RAISE;
465: WHEN OTHERS THEN
466: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
467: fnd_message.set_token('PROCEDURE',
468: 'gl_budget_entities_pkg.insert_row');
469: RAISE;
470: END Insert_Row;
463: WHEN app_exceptions.application_exception THEN
464: RAISE;
465: WHEN OTHERS THEN
466: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
467: fnd_message.set_token('PROCEDURE',
468: 'gl_budget_entities_pkg.insert_row');
469: RAISE;
470: END Insert_Row;
471:
535: IF (X_All_Name AND
536: gl_budget_entities_pkg.check_for_all(
537: X_Ledger_Id,
538: X_Rowid)) THEN
539: fnd_message.set_name('SQLGL', 'GL_BUDGET_ONLY_ONE_ALL');
540: app_exception.raise_exception;
541: END IF;
542:
543: UPDATE gl_budget_entities
604: EXCEPTION
605: WHEN app_exceptions.application_exception THEN
606: RAISE;
607: WHEN OTHERS THEN
608: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
609: fnd_message.set_token('PROCEDURE',
610: 'gl_budget_entities_pkg.update_row');
611: RAISE;
612: END Update_Row;
605: WHEN app_exceptions.application_exception THEN
606: RAISE;
607: WHEN OTHERS THEN
608: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
609: fnd_message.set_token('PROCEDURE',
610: 'gl_budget_entities_pkg.update_row');
611: RAISE;
612: END Update_Row;
613:
726: OPEN C;
727: FETCH C INTO recinfo;
728: IF (C%NOTFOUND) THEN
729: CLOSE C;
730: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
731: app_exception.raise_exception;
732: END IF;
733: CLOSE C;
734:
921: AND (X_Attribute10 is null)))
922: ) THEN
923: return;
924: ELSE
925: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
926: app_exception.raise_exception;
927: END IF;
928:
929: END Lock_Row;
1074: EXCEPTION
1075: WHEN app_exceptions.application_exception THEN
1076: RAISE;
1077: WHEN OTHERS THEN
1078: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1079: fnd_message.set_token('PROCEDURE',
1080: 'GL_BUDGET_ENTITIES_PKG.Insert_Org');
1081: RAISE;
1082: END Insert_Org;
1075: WHEN app_exceptions.application_exception THEN
1076: RAISE;
1077: WHEN OTHERS THEN
1078: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1079: fnd_message.set_token('PROCEDURE',
1080: 'GL_BUDGET_ENTITIES_PKG.Insert_Org');
1081: RAISE;
1082: END Insert_Org;
1083:
1117: EXCEPTION
1118: WHEN request_failed THEN
1119: RAISE;
1120: WHEN OTHERS THEN
1121: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1122: fnd_message.set_token('PROCEDURE',
1123: 'GL_BUDGET_ENTITIES_PKG.Insert_Org');
1124: RAISE;
1125:
1118: WHEN request_failed THEN
1119: RAISE;
1120: WHEN OTHERS THEN
1121: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1122: fnd_message.set_token('PROCEDURE',
1123: 'GL_BUDGET_ENTITIES_PKG.Insert_Org');
1124: RAISE;
1125:
1126: END Submit_Assign_Ranges_Request;
1150: EXCEPTION
1151: WHEN app_exceptions.application_exception THEN
1152: RAISE;
1153: WHEN OTHERS THEN
1154: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1155: fnd_message.set_token('PROCEDURE',
1156: 'GL_BUDGET_ORG_PKG.Set_BC_Timestamp');
1157: RAISE;
1158: END Set_BC_Timestamp;
1151: WHEN app_exceptions.application_exception THEN
1152: RAISE;
1153: WHEN OTHERS THEN
1154: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1155: fnd_message.set_token('PROCEDURE',
1156: 'GL_BUDGET_ORG_PKG.Set_BC_Timestamp');
1157: RAISE;
1158: END Set_BC_Timestamp;
1159: