174: --(1) Submit Balance Sheet Report and get this program request ID.
175: --ROW_SET_ID
176: SELECT rs.axis_set_id
177: INTO ln_row_set_id
178: FROM rg_report_axis_sets rs, rg_reports rp
179: WHERE rp.report_id = pn_balance_sheet_id
180: AND rp.row_set_id = rs.axis_set_id;
181: --COLUMN_SET_ID
182: SELECT cs.axis_set_id
180: AND rp.row_set_id = rs.axis_set_id;
181: --COLUMN_SET_ID
182: SELECT cs.axis_set_id
183: INTO ln_clolumn_set_id
184: FROM rg_report_axis_sets cs, rg_reports rp
185: WHERE rp.report_id = pn_balance_sheet_id
186: AND rp.column_set_id = cs.axis_set_id;
187: --Unit of Measure ID/currency
188: BEGIN
187: --Unit of Measure ID/currency
188: BEGIN
189: SELECT nvl(rp.unit_of_measure_id, ldg.currency_code)
190: INTO lv_unit_of_measure_id
191: FROM rg_reports rp, gl_ledgers ldg, gl_access_sets acc
192: WHERE ldg.ledger_id = acc.default_ledger_id
193: AND acc.access_set_id = pn_data_access_set_id
194: AND rp.report_id = pn_balance_sheet_id;
195: EXCEPTION
199: -- Rounding Option
200: BEGIN
201: SELECT l.meaning
202: INTO lv_rounding_option
203: FROM rg_lookups l, rg_reports r
204: WHERE r.report_id = pn_balance_sheet_id
205: AND l.lookup_type = 'ROUNDING_OPTION'
206: AND l.lookup_code = r.rounding_option;
207: EXCEPTION
211: -- Segment Override
212: BEGIN
213: SELECT segment_override
214: INTO lv_segment_override
215: FROM rg_reports
216: WHERE report_id = pn_balance_sheet_id;
217: EXCEPTION
218: WHEN NO_DATA_FOUND THEN
219: NULL;
221: --CONTENT_SET_ID
222: BEGIN
223: SELECT cs.content_set_id
224: INTO ln_content_set_id
225: FROM rg_report_content_sets cs, rg_reports rp
226: WHERE rp.report_id = pn_balance_sheet_id
227: AND rp.content_set_id = cs.content_set_id(+);
228: EXCEPTION
229: WHEN NO_DATA_FOUND THEN
232: --ROW_ORDER_ID
233: BEGIN
234: SELECT ro.row_order_id
235: INTO ln_row_order_id
236: FROM rg_row_orders ro, rg_reports rp
237: WHERE rp.report_id = pn_balance_sheet_id
238: AND rp.row_order_id = ro.row_order_id(+);
239: EXCEPTION
240: WHEN NO_DATA_FOUND THEN
243: --REPORT_DISPLAY_SET_ID
244: BEGIN
245: SELECT ds.report_display_set_id
246: INTO ln_report_display_set_id
247: FROM rg_report_display_sets ds, rg_reports rp
248: WHERE rp.report_id = pn_balance_sheet_id
249: AND rp.report_display_set_id = ds.report_display_set_id(+);
250: EXCEPTION
251: WHEN NO_DATA_FOUND THEN
254: --MINIMUM_DISPLAY_LEVEL
255: BEGIN
256: SELECT lk.lookup_code
257: INTO ln_minimum_display_level
258: FROM rg_reports rp, rg_lookups lk
259: WHERE rp.report_id = pn_balance_sheet_id
260: AND TO_CHAR(rp.minimum_display_level) = lk.lookup_code(+)
261: AND lk.lookup_type = 'GL_DISPLAY_LEVEL';
262: EXCEPTION
266: --PARAMETER_SET_ID
267: BEGIN
268: SELECT rp.parameter_set_id
269: INTO ln_parameter_set_id
270: FROM rg_reports rp
271: WHERE rp.report_id = pn_balance_sheet_id;
272: EXCEPTION
273: WHEN NO_DATA_FOUND THEN
274: NULL;
307: --(2) Submit Revenue and Expenditure Report and get this program request ID.
308: --ROW_SET_ID
309: SELECT rs.axis_set_id
310: INTO ln_row_set_id
311: FROM rg_report_axis_sets rs, rg_reports rp
312: WHERE rp.report_id = pn_revenue_expenditure_id --parameter: pn_revenue_expenditure_id
313: AND rp.row_set_id = rs.axis_set_id;
314: --COLUMN_SET_ID
315: SELECT cs.axis_set_id
313: AND rp.row_set_id = rs.axis_set_id;
314: --COLUMN_SET_ID
315: SELECT cs.axis_set_id
316: INTO ln_clolumn_set_id
317: FROM rg_report_axis_sets cs, rg_reports rp
318: WHERE rp.report_id = pn_revenue_expenditure_id --parameter: pn_revenue_expenditure_id
319: AND rp.column_set_id = cs.axis_set_id;
320: --Unit of Measure ID/currency
321: BEGIN
320: --Unit of Measure ID/currency
321: BEGIN
322: SELECT nvl(rp.unit_of_measure_id, ldg.currency_code)
323: INTO lv_unit_of_measure_id
324: FROM rg_reports rp, gl_ledgers ldg, gl_access_sets acc
325: WHERE ldg.ledger_id = acc.default_ledger_id
326: AND acc.access_set_id = pn_data_access_set_id
327: AND rp.report_id = pn_revenue_expenditure_id; --parameter: pn_revenue_expenditure_id
328: EXCEPTION
332: -- Rounding Option
333: BEGIN
334: SELECT l.meaning
335: INTO lv_rounding_option
336: FROM rg_lookups l, rg_reports r
337: WHERE r.report_id = pn_revenue_expenditure_id --parameter: pn_revenue_expenditure_id
338: AND l.lookup_type = 'ROUNDING_OPTION'
339: AND l.lookup_code = r.rounding_option;
340: EXCEPTION
344: -- Segment Override
345: BEGIN
346: SELECT segment_override
347: INTO lv_segment_override
348: FROM rg_reports
349: WHERE report_id = pn_revenue_expenditure_id; --parameter: pn_revenue_expenditure_id
350: EXCEPTION
351: WHEN NO_DATA_FOUND THEN
352: NULL;
354: --CONTENT_SET_ID
355: BEGIN
356: SELECT cs.content_set_id
357: INTO ln_content_set_id
358: FROM rg_report_content_sets cs, rg_reports rp
359: WHERE rp.report_id = pn_revenue_expenditure_id --parameter: pn_revenue_expenditure_id
360: AND rp.content_set_id = cs.content_set_id(+);
361: EXCEPTION
362: WHEN NO_DATA_FOUND THEN
365: --ROW_ORDER_ID
366: BEGIN
367: SELECT ro.row_order_id
368: INTO ln_row_order_id
369: FROM rg_row_orders ro, rg_reports rp
370: WHERE rp.report_id = pn_revenue_expenditure_id --parameter: pn_revenue_expenditure_id
371: AND rp.row_order_id = ro.row_order_id(+);
372: EXCEPTION
373: WHEN NO_DATA_FOUND THEN
376: --REPORT_DISPLAY_SET_ID
377: BEGIN
378: SELECT ds.report_display_set_id
379: INTO ln_report_display_set_id
380: FROM rg_report_display_sets ds, rg_reports rp
381: WHERE rp.report_id = pn_revenue_expenditure_id --parameter: pn_revenue_expenditure_id
382: AND rp.report_display_set_id = ds.report_display_set_id(+);
383: EXCEPTION
384: WHEN NO_DATA_FOUND THEN
387: --MINIMUM_DISPLAY_LEVEL
388: BEGIN
389: SELECT lk.lookup_code
390: INTO ln_minimum_display_level
391: FROM rg_reports rp, rg_lookups lk
392: WHERE rp.report_id = pn_revenue_expenditure_id --parameter: pn_revenue_expenditure_id
393: AND TO_CHAR(rp.minimum_display_level) = lk.lookup_code(+)
394: AND lk.lookup_type = 'GL_DISPLAY_LEVEL';
395: EXCEPTION
399: --PARAMETER_SET_ID
400: BEGIN
401: SELECT rp.parameter_set_id
402: INTO ln_parameter_set_id
403: FROM rg_reports rp
404: WHERE rp.report_id = pn_revenue_expenditure_id; --parameter: pn_revenue_expenditure_id
405: EXCEPTION
406: WHEN NO_DATA_FOUND THEN
407: NULL;
439: --(3) Submit Expenditure Detail Report and get this program request ID.
440: --ROW_SET_ID
441: SELECT rs.axis_set_id
442: INTO ln_row_set_id
443: FROM rg_report_axis_sets rs, rg_reports rp
444: WHERE rp.report_id = pn_expenditure_detail_id --parameter: pn_expenditure_detail_id
445: AND rp.row_set_id = rs.axis_set_id;
446: --COLUMN_SET_ID
447: SELECT cs.axis_set_id
445: AND rp.row_set_id = rs.axis_set_id;
446: --COLUMN_SET_ID
447: SELECT cs.axis_set_id
448: INTO ln_clolumn_set_id
449: FROM rg_report_axis_sets cs, rg_reports rp
450: WHERE rp.report_id = pn_expenditure_detail_id --parameter: pn_expenditure_detail_id
451: AND rp.column_set_id = cs.axis_set_id;
452: --Unit of Measure ID/currency
453: BEGIN
452: --Unit of Measure ID/currency
453: BEGIN
454: SELECT nvl(rp.unit_of_measure_id, ldg.currency_code)
455: INTO lv_unit_of_measure_id
456: FROM rg_reports rp, gl_ledgers ldg, gl_access_sets acc
457: WHERE ldg.ledger_id = acc.default_ledger_id
458: AND acc.access_set_id = pn_data_access_set_id
459: AND rp.report_id = pn_expenditure_detail_id; --parameter: pn_expenditure_detail_id
460: EXCEPTION
464: -- Rounding Option
465: BEGIN
466: SELECT l.meaning
467: INTO lv_rounding_option
468: FROM rg_lookups l, rg_reports r
469: WHERE r.report_id = pn_expenditure_detail_id --parameter: pn_expenditure_detail_id
470: AND l.lookup_type = 'ROUNDING_OPTION'
471: AND l.lookup_code = r.rounding_option;
472: EXCEPTION
476: -- Segment Override
477: BEGIN
478: SELECT segment_override
479: INTO lv_segment_override
480: FROM rg_reports
481: WHERE report_id = pn_expenditure_detail_id; --parameter: pn_expenditure_detail_id
482: EXCEPTION
483: WHEN NO_DATA_FOUND THEN
484: NULL;
486: --CONTENT_SET_ID
487: BEGIN
488: SELECT cs.content_set_id
489: INTO ln_content_set_id
490: FROM rg_report_content_sets cs, rg_reports rp
491: WHERE rp.report_id = pn_expenditure_detail_id --parameter: pn_expenditure_detail_id
492: AND rp.content_set_id = cs.content_set_id(+);
493: EXCEPTION
494: WHEN NO_DATA_FOUND THEN
497: --ROW_ORDER_ID
498: BEGIN
499: SELECT ro.row_order_id
500: INTO ln_row_order_id
501: FROM rg_row_orders ro, rg_reports rp
502: WHERE rp.report_id = pn_expenditure_detail_id --parameter: pn_expenditure_detail_id
503: AND rp.row_order_id = ro.row_order_id(+);
504: EXCEPTION
505: WHEN NO_DATA_FOUND THEN
508: --REPORT_DISPLAY_SET_ID
509: BEGIN
510: SELECT ds.report_display_set_id
511: INTO ln_report_display_set_id
512: FROM rg_report_display_sets ds, rg_reports rp
513: WHERE rp.report_id = pn_expenditure_detail_id --parameter: pn_expenditure_detail_id
514: AND rp.report_display_set_id = ds.report_display_set_id(+);
515: EXCEPTION
516: WHEN NO_DATA_FOUND THEN
519: --MINIMUM_DISPLAY_LEVEL
520: BEGIN
521: SELECT lk.lookup_code
522: INTO ln_minimum_display_level
523: FROM rg_reports rp, rg_lookups lk
524: WHERE rp.report_id = pn_expenditure_detail_id --parameter: pn_expenditure_detail_id
525: AND TO_CHAR(rp.minimum_display_level) = lk.lookup_code(+)
526: AND lk.lookup_type = 'GL_DISPLAY_LEVEL';
527: EXCEPTION
531: --PARAMETER_SET_ID
532: BEGIN
533: SELECT rp.parameter_set_id
534: INTO ln_parameter_set_id
535: FROM rg_reports rp
536: WHERE rp.report_id = pn_expenditure_detail_id; --parameter: pn_expenditure_detail_id
537: EXCEPTION
538: WHEN NO_DATA_FOUND THEN
539: NULL;