APPS.GL_FORMSINFO dependencies on GL_FORMSINFO

Line 1: PACKAGE BODY GL_FORMSINFO AS

1: PACKAGE BODY GL_FORMSINFO AS
2: /* $Header: gligcfib.pls 120.19 2005/07/29 16:58:51 djogg ship $ */
3:
4: PROCEDURE get_coa_info (x_chart_of_accounts_id IN NUMBER,
5: x_segment_delimiter IN OUT NOCOPY VARCHAR2,

Line 190: X_access_privilege_code := gl_formsinfo.NO_ACCESS;

186: ELSE
187: OPEN check_access_segment;
188: FETCH check_access_segment INTO X_access_privilege_code;
189: IF NOT check_access_segment%FOUND THEN
190: X_access_privilege_code := gl_formsinfo.NO_ACCESS;
191: END IF;
192: CLOSE check_access_segment;
193: END IF;
194: ELSIF (X_segment_value IS NULL) THEN

Line 198: X_access_privilege_code := gl_formsinfo.NO_ACCESS;

194: ELSIF (X_segment_value IS NULL) THEN
195: OPEN check_access_ledger;
196: FETCH check_access_ledger INTO X_access_privilege_code;
197: IF NOT check_access_ledger%FOUND THEN
198: X_access_privilege_code := gl_formsinfo.NO_ACCESS;
199: END IF;
200: CLOSE check_access_ledger;
201: ELSE
202: OPEN check_access_ls;

Line 205: X_access_privilege_code := gl_formsinfo.NO_ACCESS;

201: ELSE
202: OPEN check_access_ls;
203: FETCH check_access_ls INTO X_access_privilege_code;
204: IF NOT check_access_ls%FOUND THEN
205: X_access_privilege_code := gl_formsinfo.NO_ACCESS;
206: END IF;
207: CLOSE check_access_ls;
208: END IF;
209:

Line 284: (gl_formsinfo.FULL_ACCESS,

280: X_ledger_id2 NUMBER;
281:
282: BEGIN
283: IF (X_access_privilege_code NOT IN
284: (gl_formsinfo.FULL_ACCESS,
285: gl_formsinfo.WRITE_ACCESS,
286: gl_formsinfo.READ_ACCESS)) THEN
287: RETURN(-1);
288: END IF;

Line 285: gl_formsinfo.WRITE_ACCESS,

281:
282: BEGIN
283: IF (X_access_privilege_code NOT IN
284: (gl_formsinfo.FULL_ACCESS,
285: gl_formsinfo.WRITE_ACCESS,
286: gl_formsinfo.READ_ACCESS)) THEN
287: RETURN(-1);
288: END IF;
289:

Line 286: gl_formsinfo.READ_ACCESS)) THEN

282: BEGIN
283: IF (X_access_privilege_code NOT IN
284: (gl_formsinfo.FULL_ACCESS,
285: gl_formsinfo.WRITE_ACCESS,
286: gl_formsinfo.READ_ACCESS)) THEN
287: RETURN(-1);
288: END IF;
289:
290: -- First check if there is a default ledger assigned to the access set

Line 723: 'GL_FORMSINFO.iea_disabled_subsidiary');

719: return(TRUE);
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,

Line 759: END GL_FORMSINFO;

755:
756: RETURN sid;
757: END serial_id;
758:
759: END GL_FORMSINFO;