1: PACKAGE BODY GMF_SUBLEDGER_REPORT AS
2: /* $Header: gmfsubrb.pls 115.45 2004/07/23 17:09:50 dvadivel ship $ */
3:
4: /* variables for break processing in the report. */
5: last_voucher_id gl_subr_led_vw.voucher_id%TYPE;
6: last_sevt_code gl_subr_led_vw.sub_event_code%TYPE;
7: last_doc_no gl_subr_led_vw.doc_no%TYPE;
8: /* BUG 2302794 */
9: doc_no_sav gl_subr_led_vw.doc_no%TYPE;
2: /* $Header: gmfsubrb.pls 115.45 2004/07/23 17:09:50 dvadivel ship $ */
3:
4: /* variables for break processing in the report. */
5: last_voucher_id gl_subr_led_vw.voucher_id%TYPE;
6: last_sevt_code gl_subr_led_vw.sub_event_code%TYPE;
7: last_doc_no gl_subr_led_vw.doc_no%TYPE;
8: /* BUG 2302794 */
9: doc_no_sav gl_subr_led_vw.doc_no%TYPE;
10: last_orgn_code gl_subr_led_vw.orgn_code%TYPE;
3:
4: /* variables for break processing in the report. */
5: last_voucher_id gl_subr_led_vw.voucher_id%TYPE;
6: last_sevt_code gl_subr_led_vw.sub_event_code%TYPE;
7: last_doc_no gl_subr_led_vw.doc_no%TYPE;
8: /* BUG 2302794 */
9: doc_no_sav gl_subr_led_vw.doc_no%TYPE;
10: last_orgn_code gl_subr_led_vw.orgn_code%TYPE;
11: last_line_id gl_subr_led_vw.line_id%TYPE; /* B2262087 changed type from line_no to line_id */
5: last_voucher_id gl_subr_led_vw.voucher_id%TYPE;
6: last_sevt_code gl_subr_led_vw.sub_event_code%TYPE;
7: last_doc_no gl_subr_led_vw.doc_no%TYPE;
8: /* BUG 2302794 */
9: doc_no_sav gl_subr_led_vw.doc_no%TYPE;
10: last_orgn_code gl_subr_led_vw.orgn_code%TYPE;
11: last_line_id gl_subr_led_vw.line_id%TYPE; /* B2262087 changed type from line_no to line_id */
12: line_no number;
13: page_no number;
6: last_sevt_code gl_subr_led_vw.sub_event_code%TYPE;
7: last_doc_no gl_subr_led_vw.doc_no%TYPE;
8: /* BUG 2302794 */
9: doc_no_sav gl_subr_led_vw.doc_no%TYPE;
10: last_orgn_code gl_subr_led_vw.orgn_code%TYPE;
11: last_line_id gl_subr_led_vw.line_id%TYPE; /* B2262087 changed type from line_no to line_id */
12: line_no number;
13: page_no number;
14: lines_per_page NUMBER := 60; /* Bug 2048108 */
7: last_doc_no gl_subr_led_vw.doc_no%TYPE;
8: /* BUG 2302794 */
9: doc_no_sav gl_subr_led_vw.doc_no%TYPE;
10: last_orgn_code gl_subr_led_vw.orgn_code%TYPE;
11: last_line_id gl_subr_led_vw.line_id%TYPE; /* B2262087 changed type from line_no to line_id */
12: line_no number;
13: page_no number;
14: lines_per_page NUMBER := 60; /* Bug 2048108 */
15:
13: page_no number;
14: lines_per_page NUMBER := 60; /* Bug 2048108 */
15:
16: /* variables for storing amounts and totals. */
17: dr_base gl_subr_led_vw.amount_base%TYPE;
18: cr_base gl_subr_led_vw.amount_base%TYPE;
19: dr_trans gl_subr_led_vw.amount_trans%TYPE;
20: cr_trans gl_subr_led_vw.amount_trans%TYPE;
21: format_base varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
14: lines_per_page NUMBER := 60; /* Bug 2048108 */
15:
16: /* variables for storing amounts and totals. */
17: dr_base gl_subr_led_vw.amount_base%TYPE;
18: cr_base gl_subr_led_vw.amount_base%TYPE;
19: dr_trans gl_subr_led_vw.amount_trans%TYPE;
20: cr_trans gl_subr_led_vw.amount_trans%TYPE;
21: format_base varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
22: format_trans varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
15:
16: /* variables for storing amounts and totals. */
17: dr_base gl_subr_led_vw.amount_base%TYPE;
18: cr_base gl_subr_led_vw.amount_base%TYPE;
19: dr_trans gl_subr_led_vw.amount_trans%TYPE;
20: cr_trans gl_subr_led_vw.amount_trans%TYPE;
21: format_base varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
22: format_trans varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
23: local_format_base varchar2(24); -- B1316233
16: /* variables for storing amounts and totals. */
17: dr_base gl_subr_led_vw.amount_base%TYPE;
18: cr_base gl_subr_led_vw.amount_base%TYPE;
19: dr_trans gl_subr_led_vw.amount_trans%TYPE;
20: cr_trans gl_subr_led_vw.amount_trans%TYPE;
21: format_base varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
22: format_trans varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
23: local_format_base varchar2(24); -- B1316233
24: local_format_trans varchar2(24); -- B1316233
21: format_base varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
22: format_trans varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
23: local_format_base varchar2(24); -- B1316233
24: local_format_trans varchar2(24); -- B1316233
25: line_total_dr gl_subr_led_vw.amount_base%TYPE;
26: line_total_cr gl_subr_led_vw.amount_base%TYPE;
27: voucher_total_dr gl_subr_led_vw.amount_base%TYPE;
28: voucher_total_cr gl_subr_led_vw.amount_base%TYPE;
29: sevt_total_dr gl_subr_led_vw.amount_base%TYPE;
22: format_trans varchar2(34); --B1316233 umoogala 08/17/01: Increased from 24 to 34
23: local_format_base varchar2(24); -- B1316233
24: local_format_trans varchar2(24); -- B1316233
25: line_total_dr gl_subr_led_vw.amount_base%TYPE;
26: line_total_cr gl_subr_led_vw.amount_base%TYPE;
27: voucher_total_dr gl_subr_led_vw.amount_base%TYPE;
28: voucher_total_cr gl_subr_led_vw.amount_base%TYPE;
29: sevt_total_dr gl_subr_led_vw.amount_base%TYPE;
30: sevt_total_cr gl_subr_led_vw.amount_base%TYPE;
23: local_format_base varchar2(24); -- B1316233
24: local_format_trans varchar2(24); -- B1316233
25: line_total_dr gl_subr_led_vw.amount_base%TYPE;
26: line_total_cr gl_subr_led_vw.amount_base%TYPE;
27: voucher_total_dr gl_subr_led_vw.amount_base%TYPE;
28: voucher_total_cr gl_subr_led_vw.amount_base%TYPE;
29: sevt_total_dr gl_subr_led_vw.amount_base%TYPE;
30: sevt_total_cr gl_subr_led_vw.amount_base%TYPE;
31: doc_total_dr gl_subr_led_vw.amount_base%TYPE;
24: local_format_trans varchar2(24); -- B1316233
25: line_total_dr gl_subr_led_vw.amount_base%TYPE;
26: line_total_cr gl_subr_led_vw.amount_base%TYPE;
27: voucher_total_dr gl_subr_led_vw.amount_base%TYPE;
28: voucher_total_cr gl_subr_led_vw.amount_base%TYPE;
29: sevt_total_dr gl_subr_led_vw.amount_base%TYPE;
30: sevt_total_cr gl_subr_led_vw.amount_base%TYPE;
31: doc_total_dr gl_subr_led_vw.amount_base%TYPE;
32: doc_total_cr gl_subr_led_vw.amount_base%TYPE;
25: line_total_dr gl_subr_led_vw.amount_base%TYPE;
26: line_total_cr gl_subr_led_vw.amount_base%TYPE;
27: voucher_total_dr gl_subr_led_vw.amount_base%TYPE;
28: voucher_total_cr gl_subr_led_vw.amount_base%TYPE;
29: sevt_total_dr gl_subr_led_vw.amount_base%TYPE;
30: sevt_total_cr gl_subr_led_vw.amount_base%TYPE;
31: doc_total_dr gl_subr_led_vw.amount_base%TYPE;
32: doc_total_cr gl_subr_led_vw.amount_base%TYPE;
33: rep_total_dr gl_subr_led_vw.amount_base%TYPE;
26: line_total_cr gl_subr_led_vw.amount_base%TYPE;
27: voucher_total_dr gl_subr_led_vw.amount_base%TYPE;
28: voucher_total_cr gl_subr_led_vw.amount_base%TYPE;
29: sevt_total_dr gl_subr_led_vw.amount_base%TYPE;
30: sevt_total_cr gl_subr_led_vw.amount_base%TYPE;
31: doc_total_dr gl_subr_led_vw.amount_base%TYPE;
32: doc_total_cr gl_subr_led_vw.amount_base%TYPE;
33: rep_total_dr gl_subr_led_vw.amount_base%TYPE;
34: rep_total_cr gl_subr_led_vw.amount_base%TYPE;
27: voucher_total_dr gl_subr_led_vw.amount_base%TYPE;
28: voucher_total_cr gl_subr_led_vw.amount_base%TYPE;
29: sevt_total_dr gl_subr_led_vw.amount_base%TYPE;
30: sevt_total_cr gl_subr_led_vw.amount_base%TYPE;
31: doc_total_dr gl_subr_led_vw.amount_base%TYPE;
32: doc_total_cr gl_subr_led_vw.amount_base%TYPE;
33: rep_total_dr gl_subr_led_vw.amount_base%TYPE;
34: rep_total_cr gl_subr_led_vw.amount_base%TYPE;
35: amount_constant constant number := 1000000000;
28: voucher_total_cr gl_subr_led_vw.amount_base%TYPE;
29: sevt_total_dr gl_subr_led_vw.amount_base%TYPE;
30: sevt_total_cr gl_subr_led_vw.amount_base%TYPE;
31: doc_total_dr gl_subr_led_vw.amount_base%TYPE;
32: doc_total_cr gl_subr_led_vw.amount_base%TYPE;
33: rep_total_dr gl_subr_led_vw.amount_base%TYPE;
34: rep_total_cr gl_subr_led_vw.amount_base%TYPE;
35: amount_constant constant number := 1000000000;
36:
29: sevt_total_dr gl_subr_led_vw.amount_base%TYPE;
30: sevt_total_cr gl_subr_led_vw.amount_base%TYPE;
31: doc_total_dr gl_subr_led_vw.amount_base%TYPE;
32: doc_total_cr gl_subr_led_vw.amount_base%TYPE;
33: rep_total_dr gl_subr_led_vw.amount_base%TYPE;
34: rep_total_cr gl_subr_led_vw.amount_base%TYPE;
35: amount_constant constant number := 1000000000;
36:
37: /* Report Title */
30: sevt_total_cr gl_subr_led_vw.amount_base%TYPE;
31: doc_total_dr gl_subr_led_vw.amount_base%TYPE;
32: doc_total_cr gl_subr_led_vw.amount_base%TYPE;
33: rep_total_dr gl_subr_led_vw.amount_base%TYPE;
34: rep_total_cr gl_subr_led_vw.amount_base%TYPE;
35: amount_constant constant number := 1000000000;
36:
37: /* Report Title */
38: rep_title VARCHAR2(180);
69: ppage_size IN NUMBER DEFAULT 132) -- Bug 2804810
70: IS
71: /* Dynamically order the report based upon the parameter selected.
72: Cursor for running report on actual subledger table */
73: CURSOR c_gl_subr_led_vw IS
74: SELECT
75: co_code,
76: fiscal_year,
77: period,
107: whse_code,
108: trans_qty_usage,
109: trans_qty_usage_um,
110: reference_no
111: FROM gl_subr_led_vw
112: WHERE
113: reference_no = nvl(preference_no,reference_no) and --bug# 1801491
114: co_code = pco_code and
115: fiscal_year = to_number(pfiscal_year) and
509:
510:
511: i NUMBER;
512: j NUMBER;
513: r c_gl_subr_led_vw%ROWTYPE;
514: l_fiscal_year VARCHAR2(4);
515: l_quantity NUMBER;
516: l_period NUMBER;
517: BEGIN
575: ' '||LPAD(pto_sub_event_code,16,' '));
576:
577: /* Open the right cursor based upon the user specified parameter */
578: IF report_on = 1 THEN
579: OPEN c_gl_subr_led_vw;
580: ELSE
581: OPEN c_gl_subr_tst_vw;
582: END IF;
583:
588: /* BUG 2302794 */
589: doc_no_sav := last_doc_no ;
590:
591: IF report_on = 1 THEN
592: FETCH c_gl_subr_led_vw INTO r;
593: EXIT WHEN c_gl_subr_led_vw%NOTFOUND;
594: ELSE
595: FETCH c_gl_subr_tst_vw INTO r;
596: EXIT WHEN c_gl_subr_tst_vw%NOTFOUND;
589: doc_no_sav := last_doc_no ;
590:
591: IF report_on = 1 THEN
592: FETCH c_gl_subr_led_vw INTO r;
593: EXIT WHEN c_gl_subr_led_vw%NOTFOUND;
594: ELSE
595: FETCH c_gl_subr_tst_vw INTO r;
596: EXIT WHEN c_gl_subr_tst_vw%NOTFOUND;
597: END IF;
1133: END LOOP;
1134:
1135: /* Close the te right cursor base upon user specified parameter */
1136: IF report_on = 1 THEN
1137: CLOSE c_gl_subr_led_vw;
1138: ELSE
1139: CLOSE c_gl_subr_tst_vw;
1140: END IF;
1141: