61: IF ( context_type = 'OU') THEN
62: FND_MESSAGE.Set_Name('SQLGL', 'GL_GLOBAL_INVALID_OU');
63: -- Operating unit _OP_UNIT does not exist in the target database.
64: FND_MESSAGE.Set_Token('OP_UNIT',TO_CHAR(Context_Id));
65: APP_EXCEPTION.Raise_Exception;
66: ELSIF ( context_type = 'LE') THEN
67: FND_MESSAGE.Set_Name('SQLGL', 'GL_GLOBAL_INVALID_LE');
68: -- Legal entity _LE does not exist in the target database.
69: FND_MESSAGE.Set_Token('LE',TO_CHAR(Context_Id));
66: ELSIF ( context_type = 'LE') THEN
67: FND_MESSAGE.Set_Name('SQLGL', 'GL_GLOBAL_INVALID_LE');
68: -- Legal entity _LE does not exist in the target database.
69: FND_MESSAGE.Set_Token('LE',TO_CHAR(Context_Id));
70: APP_EXCEPTION.Raise_Exception;
71: ELSIF ((context_type <> 'LG') OR (context_type <> 'XX')) THEN
72: APP_EXCEPTION.Raise_Exception;
73: END IF;
74:
68: -- Legal entity _LE does not exist in the target database.
69: FND_MESSAGE.Set_Token('LE',TO_CHAR(Context_Id));
70: APP_EXCEPTION.Raise_Exception;
71: ELSIF ((context_type <> 'LG') OR (context_type <> 'XX')) THEN
72: APP_EXCEPTION.Raise_Exception;
73: END IF;
74:
75: WHEN OTHERS THEN
76: APP_EXCEPTION.Raise_Exception;
72: APP_EXCEPTION.Raise_Exception;
73: END IF;
74:
75: WHEN OTHERS THEN
76: APP_EXCEPTION.Raise_Exception;
77:
78: END set_aff_validation;
79:
80: --
100: BEGIN
101: Return current_ledger_id;
102: EXCEPTION
103: WHEN OTHERS THEN
104: APP_EXCEPTION.raise_exception;
105: END Context_Ledger_Id;
106:
107: END GL_GLOBAL;