96: END LOOP;
97:
98: EXCEPTION
99: WHEN OTHERS THEN
100: app_exception.raise_exception;
101: END get_coa_info;
102:
103:
104: PROCEDURE get_access_info (x_access_set_id IN NUMBER,
137: EXCEPTION
138: WHEN NO_DATA_FOUND THEN
139: fnd_message.set_name('SQLGL', 'GL_SHRD_INVALID_ACCESSID');
140: fnd_message.set_token('ACCESSID', to_char(X_access_set_id), FALSE);
141: app_exception.raise_exception;
142: WHEN OTHERS THEN
143: app_exception.raise_exception;
144:
145: END;
139: fnd_message.set_name('SQLGL', 'GL_SHRD_INVALID_ACCESSID');
140: fnd_message.set_token('ACCESSID', to_char(X_access_set_id), FALSE);
141: app_exception.raise_exception;
142: WHEN OTHERS THEN
143: app_exception.raise_exception;
144:
145: END;
146:
147: FUNCTION check_access ( X_access_set_id IN NUMBER,
210: return( X_access_privilege_code);
211:
212: EXCEPTION
213: WHEN OTHERS THEN
214: app_exception.raise_exception;
215: END check_access;
216:
217:
218: FUNCTION get_ledger_type ( X_ledger_id IN NUMBER ) RETURN VARCHAR2 IS
234: EXCEPTION
235: WHEN NO_DATA_FOUND THEN
236: fnd_message.set_name('SQLGL', 'GL_SHRD_INVALID_LEDGERID');
237: fnd_message.set_token('LEDGERID', to_char(X_ledger_id), FALSE);
238: app_exception.raise_exception;
239: WHEN OTHERS THEN
240: app_exception.raise_exception;
241: END;
242:
236: fnd_message.set_name('SQLGL', 'GL_SHRD_INVALID_LEDGERID');
237: fnd_message.set_token('LEDGERID', to_char(X_ledger_id), FALSE);
238: app_exception.raise_exception;
239: WHEN OTHERS THEN
240: app_exception.raise_exception;
241: END;
242:
243:
244: FUNCTION get_default_ledger ( X_access_set_id IN NUMBER,
320: return( X_ledger_id );
321:
322: EXCEPTION
323: WHEN OTHERS THEN
324: app_exception.raise_exception;
325: END get_default_ledger;
326:
327: FUNCTION has_single_ledger ( X_access_set_id IN NUMBER ) RETURN BOOLEAN IS
328: CURSOR ledger_curr IS
503: EXCEPTION
504: WHEN NO_DATA_FOUND THEN
505: fnd_message.set_name('SQLGL', 'GL_SHRD_INVALID_LEDGERID');
506: fnd_message.set_token('LEDGERID', to_char(X_ledger_id), FALSE);
507: app_exception.raise_exception;
508: WHEN OTHERS THEN
509: app_exception.raise_exception;
510:
511: END get_ledger_info;
505: fnd_message.set_name('SQLGL', 'GL_SHRD_INVALID_LEDGERID');
506: fnd_message.set_token('LEDGERID', to_char(X_ledger_id), FALSE);
507: app_exception.raise_exception;
508: WHEN OTHERS THEN
509: app_exception.raise_exception;
510:
511: END get_ledger_info;
512:
513:
553: END IF;
554: END IF;
555: EXCEPTION
556: WHEN OTHERS THEN
557: app_exception.raise_exception;
558: END valid_bsv;
559:
560:
561: FUNCTION valid_msv ( X_ledger_id IN NUMBER,
599: END IF;
600: END IF;
601: EXCEPTION
602: WHEN OTHERS THEN
603: app_exception.raise_exception;
604: END valid_msv;
605:
606: FUNCTION multi_org RETURN BOOLEAN IS
607: CURSOR is_multi IS
720: WHEN OTHERS THEN
721: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
722: fnd_message.set_token('PROCEDURE',
723: 'GL_FORMSINFO.iea_disabled_subsidiary');
724: APP_EXCEPTION.Raise_Exception;
725: END iea_disabled_subsidiary;
726:
727: FUNCTION get_industry_message(Message_Name IN VARCHAR2,
728: Application_Shortname IN VARCHAR2)