15: and ledger_id = tset_of_books_id -- 11ix
16: and application_id = app_id ;
17: EXCEPTION
18: WHEN NO_DATA_FOUND THEN
19: fnd_message.set_name('SQLGL','GL_PLL_INVALID_PERIOD') ;
20: fnd_message.set_token('PERIOD',tperiod_name) ;
21: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
22: errbuf := fnd_message.get ;
23:
16: and application_id = app_id ;
17: EXCEPTION
18: WHEN NO_DATA_FOUND THEN
19: fnd_message.set_name('SQLGL','GL_PLL_INVALID_PERIOD') ;
20: fnd_message.set_token('PERIOD',tperiod_name) ;
21: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
22: errbuf := fnd_message.get ;
23:
24: WHEN OTHERS THEN
17: EXCEPTION
18: WHEN NO_DATA_FOUND THEN
19: fnd_message.set_name('SQLGL','GL_PLL_INVALID_PERIOD') ;
20: fnd_message.set_token('PERIOD',tperiod_name) ;
21: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
22: errbuf := fnd_message.get ;
23:
24: WHEN OTHERS THEN
25: errbuf := SQLERRM;
18: WHEN NO_DATA_FOUND THEN
19: fnd_message.set_name('SQLGL','GL_PLL_INVALID_PERIOD') ;
20: fnd_message.set_token('PERIOD',tperiod_name) ;
21: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
22: errbuf := fnd_message.get ;
23:
24: WHEN OTHERS THEN
25: errbuf := SQLERRM;
26: END;
36: from gl_sets_of_books
37: where set_of_books_id = sobid;
38: EXCEPTION
39: WHEN NO_DATA_FOUND THEN
40: fnd_message.set_name('SQLGL','GL_PLL_INVALID_SOB') ;
41: fnd_message.set_token('SOBID',to_char(sobid)) ;
42: errbuf := fnd_message.get ;
43: WHEN OTHERS THEN
44: errbuf := SQLERRM;
37: where set_of_books_id = sobid;
38: EXCEPTION
39: WHEN NO_DATA_FOUND THEN
40: fnd_message.set_name('SQLGL','GL_PLL_INVALID_SOB') ;
41: fnd_message.set_token('SOBID',to_char(sobid)) ;
42: errbuf := fnd_message.get ;
43: WHEN OTHERS THEN
44: errbuf := SQLERRM;
45: END;
38: EXCEPTION
39: WHEN NO_DATA_FOUND THEN
40: fnd_message.set_name('SQLGL','GL_PLL_INVALID_SOB') ;
41: fnd_message.set_token('SOBID',to_char(sobid)) ;
42: errbuf := fnd_message.get ;
43: WHEN OTHERS THEN
44: errbuf := SQLERRM;
45: END;
46: procedure jg_get_bud_or_enc_name ( actual_type IN VARCHAR2,
63: EXCEPTION
64: WHEN NO_DATA_FOUND THEN
65: if (actual_type = 'B') then
66: /* There does not exist a budget with budget version id BUDID */
67: fnd_message.set_name('SQLGL','GL_PLL_INVALID_BUDGET_VERSION') ;
68: fnd_message.set_token('BUDID',to_char(type_id)) ;
69: errbuf := fnd_message.get ;
70: else
71: /* There does not exist an encumbrance type with id ENCID */
64: WHEN NO_DATA_FOUND THEN
65: if (actual_type = 'B') then
66: /* There does not exist a budget with budget version id BUDID */
67: fnd_message.set_name('SQLGL','GL_PLL_INVALID_BUDGET_VERSION') ;
68: fnd_message.set_token('BUDID',to_char(type_id)) ;
69: errbuf := fnd_message.get ;
70: else
71: /* There does not exist an encumbrance type with id ENCID */
72: fnd_message.set_name('SQLGL','GL_PLL_INVALID_ENC_TYPE') ;
65: if (actual_type = 'B') then
66: /* There does not exist a budget with budget version id BUDID */
67: fnd_message.set_name('SQLGL','GL_PLL_INVALID_BUDGET_VERSION') ;
68: fnd_message.set_token('BUDID',to_char(type_id)) ;
69: errbuf := fnd_message.get ;
70: else
71: /* There does not exist an encumbrance type with id ENCID */
72: fnd_message.set_name('SQLGL','GL_PLL_INVALID_ENC_TYPE') ;
73: fnd_message.set_token('ENCID',to_char(type_id)) ;
68: fnd_message.set_token('BUDID',to_char(type_id)) ;
69: errbuf := fnd_message.get ;
70: else
71: /* There does not exist an encumbrance type with id ENCID */
72: fnd_message.set_name('SQLGL','GL_PLL_INVALID_ENC_TYPE') ;
73: fnd_message.set_token('ENCID',to_char(type_id)) ;
74: errbuf := fnd_message.get ;
75: end if;
76: WHEN OTHERS THEN
69: errbuf := fnd_message.get ;
70: else
71: /* There does not exist an encumbrance type with id ENCID */
72: fnd_message.set_name('SQLGL','GL_PLL_INVALID_ENC_TYPE') ;
73: fnd_message.set_token('ENCID',to_char(type_id)) ;
74: errbuf := fnd_message.get ;
75: end if;
76: WHEN OTHERS THEN
77: errbuf := SQLERRM;
70: else
71: /* There does not exist an encumbrance type with id ENCID */
72: fnd_message.set_name('SQLGL','GL_PLL_INVALID_ENC_TYPE') ;
73: fnd_message.set_token('ENCID',to_char(type_id)) ;
74: errbuf := fnd_message.get ;
75: end if;
76: WHEN OTHERS THEN
77: errbuf := SQLERRM;
78: END;
90: and lookup_type = type;
91: EXCEPTION
92: WHEN NO_DATA_FOUND THEN
93: /* The lookup code CODE of lookup type TYPE is missing */
94: fnd_message.set_name('SQLGL','GL_PLL_MISSING_LOOKUP') ;
95: fnd_message.set_token('CODE',code);
96: fnd_message.set_token('TYPE',type);
97: errbuf := fnd_message.get ;
98: WHEN OTHERS THEN
91: EXCEPTION
92: WHEN NO_DATA_FOUND THEN
93: /* The lookup code CODE of lookup type TYPE is missing */
94: fnd_message.set_name('SQLGL','GL_PLL_MISSING_LOOKUP') ;
95: fnd_message.set_token('CODE',code);
96: fnd_message.set_token('TYPE',type);
97: errbuf := fnd_message.get ;
98: WHEN OTHERS THEN
99: errbuf := SQLERRM;
92: WHEN NO_DATA_FOUND THEN
93: /* The lookup code CODE of lookup type TYPE is missing */
94: fnd_message.set_name('SQLGL','GL_PLL_MISSING_LOOKUP') ;
95: fnd_message.set_token('CODE',code);
96: fnd_message.set_token('TYPE',type);
97: errbuf := fnd_message.get ;
98: WHEN OTHERS THEN
99: errbuf := SQLERRM;
100: END;
93: /* The lookup code CODE of lookup type TYPE is missing */
94: fnd_message.set_name('SQLGL','GL_PLL_MISSING_LOOKUP') ;
95: fnd_message.set_token('CODE',code);
96: fnd_message.set_token('TYPE',type);
97: errbuf := fnd_message.get ;
98: WHEN OTHERS THEN
99: errbuf := SQLERRM;
100: END;
101: procedure jg_get_first_period(app_id IN NUMBER,
124: AND c.period_type = a.period_type
125: GROUP BY c.period_year);
126: EXCEPTION
127: WHEN NO_DATA_FOUND THEN
128: fnd_message.set_name('SQLGL','GL_PLL_INVALID_FIRST_PERIOD') ;
129: fnd_message.set_token('PERIOD',tperiod_name) ;
130: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
131: errbuf := fnd_message.get ;
132: WHEN OTHERS THEN
125: GROUP BY c.period_year);
126: EXCEPTION
127: WHEN NO_DATA_FOUND THEN
128: fnd_message.set_name('SQLGL','GL_PLL_INVALID_FIRST_PERIOD') ;
129: fnd_message.set_token('PERIOD',tperiod_name) ;
130: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
131: errbuf := fnd_message.get ;
132: WHEN OTHERS THEN
133: errbuf := SQLERRM;
126: EXCEPTION
127: WHEN NO_DATA_FOUND THEN
128: fnd_message.set_name('SQLGL','GL_PLL_INVALID_FIRST_PERIOD') ;
129: fnd_message.set_token('PERIOD',tperiod_name) ;
130: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
131: errbuf := fnd_message.get ;
132: WHEN OTHERS THEN
133: errbuf := SQLERRM;
134: END;
127: WHEN NO_DATA_FOUND THEN
128: fnd_message.set_name('SQLGL','GL_PLL_INVALID_FIRST_PERIOD') ;
129: fnd_message.set_token('PERIOD',tperiod_name) ;
130: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
131: errbuf := fnd_message.get ;
132: WHEN OTHERS THEN
133: errbuf := SQLERRM;
134: END;
135: procedure jg_get_first_period_of_quarter(app_id IN NUMBER,
160: AND c.period_type = a.period_type
161: GROUP BY c.period_year,c.quarter_num);
162: EXCEPTION
163: WHEN NO_DATA_FOUND THEN
164: fnd_message.set_name('SQLGL','GL_PLL_INVALID_FIRST_PERIOD') ;
165: fnd_message.set_token('PERIOD',tperiod_name) ;
166: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
167: errbuf := fnd_message.get ;
168: WHEN OTHERS THEN
161: GROUP BY c.period_year,c.quarter_num);
162: EXCEPTION
163: WHEN NO_DATA_FOUND THEN
164: fnd_message.set_name('SQLGL','GL_PLL_INVALID_FIRST_PERIOD') ;
165: fnd_message.set_token('PERIOD',tperiod_name) ;
166: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
167: errbuf := fnd_message.get ;
168: WHEN OTHERS THEN
169: errbuf := SQLERRM;
162: EXCEPTION
163: WHEN NO_DATA_FOUND THEN
164: fnd_message.set_name('SQLGL','GL_PLL_INVALID_FIRST_PERIOD') ;
165: fnd_message.set_token('PERIOD',tperiod_name) ;
166: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
167: errbuf := fnd_message.get ;
168: WHEN OTHERS THEN
169: errbuf := SQLERRM;
170: END;
163: WHEN NO_DATA_FOUND THEN
164: fnd_message.set_name('SQLGL','GL_PLL_INVALID_FIRST_PERIOD') ;
165: fnd_message.set_token('PERIOD',tperiod_name) ;
166: fnd_message.set_token('SOBID',to_char(tset_of_books_id)) ;
167: errbuf := fnd_message.get ;
168: WHEN OTHERS THEN
169: errbuf := SQLERRM;
170: END;
171: procedure jg_get_consolidation_info(
183: from gl_consolidation glc
184: where glc.consolidation_id = cons_id;
185: EXCEPTION
186: WHEN NO_DATA_FOUND THEN
187: fnd_message.set_name('SQLGL','GL_PLL_INVALID_CONSOLID_ID') ;
188: fnd_message.set_token('CID', to_char(cons_id));
189: errbuf := fnd_message.get ;
190: end;
191:
184: where glc.consolidation_id = cons_id;
185: EXCEPTION
186: WHEN NO_DATA_FOUND THEN
187: fnd_message.set_name('SQLGL','GL_PLL_INVALID_CONSOLID_ID') ;
188: fnd_message.set_token('CID', to_char(cons_id));
189: errbuf := fnd_message.get ;
190: end;
191:
192: FUNCTION jg_format_curr_amt(in_precision NUMBER,
185: EXCEPTION
186: WHEN NO_DATA_FOUND THEN
187: fnd_message.set_name('SQLGL','GL_PLL_INVALID_CONSOLID_ID') ;
188: fnd_message.set_token('CID', to_char(cons_id));
189: errbuf := fnd_message.get ;
190: end;
191:
192: FUNCTION jg_format_curr_amt(in_precision NUMBER,
193: in_amount_disp VARCHAR2) return VARCHAR2