31: days_to NUMBER;
32: history_date DATE;
33: history_period VARCHAR2(30);
34: BEGIN
35: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
36: xtr_debug_pkg.debug('>>XTR_CASH_FCST.Set_History');
37:
38: xtr_debug_pkg.debug('G_roll_forward_type: '|| XTR_CASH_FCST.G_roll_forward_type);
39:
32: history_date DATE;
33: history_period VARCHAR2(30);
34: BEGIN
35: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
36: xtr_debug_pkg.debug('>>XTR_CASH_FCST.Set_History');
37:
38: xtr_debug_pkg.debug('G_roll_forward_type: '|| XTR_CASH_FCST.G_roll_forward_type);
39:
40: xtr_debug_pkg.debug('G_roll_forward_period : ' || XTR_CASH_FCST.G_roll_forward_period);
34: BEGIN
35: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
36: xtr_debug_pkg.debug('>>XTR_CASH_FCST.Set_History');
37:
38: xtr_debug_pkg.debug('G_roll_forward_type: '|| XTR_CASH_FCST.G_roll_forward_type);
39:
40: xtr_debug_pkg.debug('G_roll_forward_period : ' || XTR_CASH_FCST.G_roll_forward_period);
41:
42: xtr_debug_pkg.debug('G_start_period: ' || XTR_CASH_FCST.G_rp_forecast_start_period);
36: xtr_debug_pkg.debug('>>XTR_CASH_FCST.Set_History');
37:
38: xtr_debug_pkg.debug('G_roll_forward_type: '|| XTR_CASH_FCST.G_roll_forward_type);
39:
40: xtr_debug_pkg.debug('G_roll_forward_period : ' || XTR_CASH_FCST.G_roll_forward_period);
41:
42: xtr_debug_pkg.debug('G_start_period: ' || XTR_CASH_FCST.G_rp_forecast_start_period);
43:
44: xtr_debug_pkg.debug('period_set_name: ' || CEFC_VIEW_CONST.get_period_set_name);
38: xtr_debug_pkg.debug('G_roll_forward_type: '|| XTR_CASH_FCST.G_roll_forward_type);
39:
40: xtr_debug_pkg.debug('G_roll_forward_period : ' || XTR_CASH_FCST.G_roll_forward_period);
41:
42: xtr_debug_pkg.debug('G_start_period: ' || XTR_CASH_FCST.G_rp_forecast_start_period);
43:
44: xtr_debug_pkg.debug('period_set_name: ' || CEFC_VIEW_CONST.get_period_set_name);
45:
46: END IF;
40: xtr_debug_pkg.debug('G_roll_forward_period : ' || XTR_CASH_FCST.G_roll_forward_period);
41:
42: xtr_debug_pkg.debug('G_start_period: ' || XTR_CASH_FCST.G_rp_forecast_start_period);
43:
44: xtr_debug_pkg.debug('period_set_name: ' || CEFC_VIEW_CONST.get_period_set_name);
45:
46: END IF;
47:
48: IF (XTR_CASH_FCST.G_roll_forward_type = 'D') THEN
80: CEFC_VIEW_CONST.set_min_col(XTR_CASH_FCST.G_min_col + XTR_CASH_FCST.G_roll_forward_period);
81: CEFC_VIEW_CONST.set_max_col(XTR_CASH_FCST.G_max_col + XTR_CASH_FCST.G_roll_forward_period);
82: EXCEPTION
83: WHEN NO_DATA_FOUND THEN
84: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
85: xtr_debug_pkg.debug('NO DATA FOUND FOR HISTORY PERIOD');
86: END IF;
87: RAISE;
88: WHEN OTHERS THEN
81: CEFC_VIEW_CONST.set_max_col(XTR_CASH_FCST.G_max_col + XTR_CASH_FCST.G_roll_forward_period);
82: EXCEPTION
83: WHEN NO_DATA_FOUND THEN
84: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
85: xtr_debug_pkg.debug('NO DATA FOUND FOR HISTORY PERIOD');
86: END IF;
87: RAISE;
88: WHEN OTHERS THEN
89: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
85: xtr_debug_pkg.debug('NO DATA FOUND FOR HISTORY PERIOD');
86: END IF;
87: RAISE;
88: WHEN OTHERS THEN
89: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
90: xtr_debug_pkg.debug('EXCEPTION-OTHERS Set_History');
91: END IF;
92: raise;
93: END;
86: END IF;
87: RAISE;
88: WHEN OTHERS THEN
89: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
90: xtr_debug_pkg.debug('EXCEPTION-OTHERS Set_History');
91: END IF;
92: raise;
93: END;
94: END IF;
95:
96: min_col := CEFC_VIEW_CONST.get_min_col;
97: max_col := CEFC_VIEW_CONST.get_max_col;
98: XTR_CASH_FCST.G_invalid_overdue_row := FALSE;
99: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
100: xtr_debug_pkg.debug('<
102: EXCEPTION
103: WHEN OTHERS THEN
96: min_col := CEFC_VIEW_CONST.get_min_col;
97: max_col := CEFC_VIEW_CONST.get_max_col;
98: XTR_CASH_FCST.G_invalid_overdue_row := FALSE;
99: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
100: xtr_debug_pkg.debug('<
102: EXCEPTION
103: WHEN OTHERS THEN
104: IF(cCol%ISOPEN)THEN CLOSE cCol; END IF;
148: COMMIT;
149: END IF;
150: EXCEPTION
151: WHEN OTHERS THEN
152: XTR_DEBUG_PKG.DEBUG('EXCEPTION:populate_temp_buckets-->delete');
153: RAISE;
154: END;
155:
156: l_start_date := XTR_CASH_FCST.G_rp_forecast_start_date;
254: END LOOP;
255: EXCEPTION
256: WHEN OTHERS THEN
257: IF C_periods%ISOPEN THEN CLOSE C_periods; END IF;
258: XTR_DEBUG_PKG.DEBUG('EXCEPTION:populate_temp_buckets');
259: raise;
260: END populate_temp_buckets;
261:
262: /* ---------------------------------------------------------------------
281: new_start_date DATE;
282: new_end_date DATE;
283: fid NUMBER;
284: BEGIN
285: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
286: xtr_debug_pkg.debug('>>ce_csh_fcst_pop.populate_aging_buckets');
287: END IF;
288: populate_temp_buckets;
289:
282: new_end_date DATE;
283: fid NUMBER;
284: BEGIN
285: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
286: xtr_debug_pkg.debug('>>ce_csh_fcst_pop.populate_aging_buckets');
287: END IF;
288: populate_temp_buckets;
289:
290: IF(XTR_CASH_FCST.G_transaction_calendar_id IS NOT NULL)THEN
351: FETCH C1 INTO fid, start_date, end_date;
352: END LOOP;
353: CLOSE C1;
354: END IF;
355: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
356: xtr_debug_pkg.debug('<
358: EXCEPTION
359: WHEN OTHERS THEN
352: END LOOP;
353: CLOSE C1;
354: END IF;
355: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
356: xtr_debug_pkg.debug('<
358: EXCEPTION
359: WHEN OTHERS THEN
360: IF C1%ISOPEN THEN CLOSE C1; END IF;
357: END IF;
358: EXCEPTION
359: WHEN OTHERS THEN
360: IF C1%ISOPEN THEN CLOSE C1; END IF;
361: XTR_DEBUG_PKG.DEBUG('EXCEPTION:populate_aging_buckets');
362: raise;
363: END populate_aging_buckets;
364:
365: PROCEDURE clear_aging_buckets IS
369: COMMIT;
370: END IF;
371: EXCEPTION
372: WHEN OTHERS THEN
373: XTR_DEBUG_PKG.DEBUG('EXCEPTION:clear_aging_buckets-->delete');
374: raise;
375: END clear_aging_buckets;
376:
377: /* ----------------------------------------------------------------------
401: SELECT cab.forecast_period_temp_id,
402: src.currency_code,
403: SUM(src.amount) ';
404: end if;
405: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
406: xtr_debug_pkg.debug(select_clause);
407: END IF;
408: return select_clause;
409: END Get_Select_Clause;
402: src.currency_code,
403: SUM(src.amount) ';
404: end if;
405: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
406: xtr_debug_pkg.debug(select_clause);
407: END IF;
408: return select_clause;
409: END Get_Select_Clause;
410:
430: from_clause := '
431: FROM '||view_name ||' src,
432: xtr_forecast_period_temp cab ';
433:
434: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
435: xtr_debug_pkg.debug('Get_From_Clause: ' || from_clause);
436: END IF;
437: return from_clause;
438: END Get_From_Clause;
431: FROM '||view_name ||' src,
432: xtr_forecast_period_temp cab ';
433:
434: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
435: xtr_debug_pkg.debug('Get_From_Clause: ' || from_clause);
436: END IF;
437: return from_clause;
438: END Get_From_Clause;
439:
461: else
462: group_clause := '
463: GROUP BY cab.forecast_period_temp_id, src.currency_code ';
464: end if;
465: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
466: xtr_debug_pkg.debug(group_clause);
467: END IF;
468: return group_clause;
469: END Get_Group_Clause;
462: group_clause := '
463: GROUP BY cab.forecast_period_temp_id, src.currency_code ';
464: end if;
465: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
466: xtr_debug_pkg.debug(group_clause);
467: END IF;
468: return group_clause;
469: END Get_Group_Clause;
470:
581: AND src.status_code = '''||replace(XTR_CASH_FCST.G_sales_forecast_status,'''','''''')||''' ');
582: END IF;
583:
584: ELSE
585: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
586: xtr_debug_pkg.debug('ERROR - Add_Where got invalid criteria!');
587: END IF;
588: END IF;
589:
582: END IF;
583:
584: ELSE
585: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
586: xtr_debug_pkg.debug('ERROR - Add_Where got invalid criteria!');
587: END IF;
588: END IF;
589:
590: return (NULL);
607: FUNCTION Get_Where_Clause RETURN VARCHAR2 IS
608: where_clause VARCHAR2(1000);
609:
610: BEGIN
611: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
612: xtr_debug_pkg.debug('>>XTR_CASH_FCST.Get_Where_Clause');
613: END IF;
614:
615: where_clause := ' WHERE src.org_id IN ' ||XTR_CASH_FCST.G_rp_org_ids;
608: where_clause VARCHAR2(1000);
609:
610: BEGIN
611: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
612: xtr_debug_pkg.debug('>>XTR_CASH_FCST.Get_Where_Clause');
613: END IF;
614:
615: where_clause := ' WHERE src.org_id IN ' ||XTR_CASH_FCST.G_rp_org_ids;
616:
613: END IF;
614:
615: where_clause := ' WHERE src.org_id IN ' ||XTR_CASH_FCST.G_rp_org_ids;
616:
617: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
618: xtr_debug_pkg.debug('<
620: return where_clause;
621: END Get_Where_Clause;
614:
615: where_clause := ' WHERE src.org_id IN ' ||XTR_CASH_FCST.G_rp_org_ids;
616:
617: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
618: xtr_debug_pkg.debug('<
620: return where_clause;
621: END Get_Where_Clause;
622:
664: l_emu GL_CURRENCIES.currency_code%TYPE;
665: error_msg fnd_new_messages.message_text%TYPE;
666: BEGIN
667:
668: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
669: xtr_debug_pkg.debug('>>XTR_CSH_FCST_POP.Execute_Main_Query');
670: END IF;
671:
672: cursor_id := DBMS_SQL.open_cursor;
665: error_msg fnd_new_messages.message_text%TYPE;
666: BEGIN
667:
668: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
669: xtr_debug_pkg.debug('>>XTR_CSH_FCST_POP.Execute_Main_Query');
670: END IF;
671:
672: cursor_id := DBMS_SQL.open_cursor;
673: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
669: xtr_debug_pkg.debug('>>XTR_CSH_FCST_POP.Execute_Main_Query');
670: END IF;
671:
672: cursor_id := DBMS_SQL.open_cursor;
673: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
674: xtr_debug_pkg.debug('Execute_Main_Query: Cursor opened sucessfully with cursor_id: '||
675: to_char(cursor_id));
676: xtr_debug_pkg.debug('Execute_Main_Query: Parsing ....');
677: END IF;
670: END IF;
671:
672: cursor_id := DBMS_SQL.open_cursor;
673: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
674: xtr_debug_pkg.debug('Execute_Main_Query: Cursor opened sucessfully with cursor_id: '||
675: to_char(cursor_id));
676: xtr_debug_pkg.debug('Execute_Main_Query: Parsing ....');
677: END IF;
678:
672: cursor_id := DBMS_SQL.open_cursor;
673: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
674: xtr_debug_pkg.debug('Execute_Main_Query: Cursor opened sucessfully with cursor_id: '||
675: to_char(cursor_id));
676: xtr_debug_pkg.debug('Execute_Main_Query: Parsing ....');
677: END IF;
678:
679: DBMS_SQL.Parse(cursor_id,
680: main_query,
679: DBMS_SQL.Parse(cursor_id,
680: main_query,
681: DBMS_SQL.v7);
682:
683: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
684: xtr_debug_pkg.debug('Execute_Main_Query: Parsed sucessfully');
685: END IF;
686:
687: DBMS_SQL.Define_Column(cursor_id, 1, forecast_period_temp_id);
680: main_query,
681: DBMS_SQL.v7);
682:
683: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
684: xtr_debug_pkg.debug('Execute_Main_Query: Parsed sucessfully');
685: END IF;
686:
687: DBMS_SQL.Define_Column(cursor_id, 1, forecast_period_temp_id);
688: DBMS_SQL.Define_Column(cursor_id, 2, currency, 15);
693:
694: exec_id := DBMS_SQL.execute(cursor_id);
695: LOOP
696: IF (DBMS_SQL.FETCH_ROWS(cursor_id) >0 ) THEN
697: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
698: xtr_debug_pkg.debug('Execute_Main_Query: Getting column information');
699: END IF;
700:
701: DBMS_SQL.Column_Value(cursor_id, 1, forecast_period_temp_id);
694: exec_id := DBMS_SQL.execute(cursor_id);
695: LOOP
696: IF (DBMS_SQL.FETCH_ROWS(cursor_id) >0 ) THEN
697: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
698: xtr_debug_pkg.debug('Execute_Main_Query: Getting column information');
699: END IF;
700:
701: DBMS_SQL.Column_Value(cursor_id, 1, forecast_period_temp_id);
702: DBMS_SQL.Column_Value(cursor_id, 2, currency);
705: DBMS_SQL.Column_Value(cursor_id, 4, bank_account_id);
706: end if;
707:
708: IF(amount_date < XTR_CASH_FCST.G_rp_forecast_start_date)THEN -- Overdue Periods
709: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
710: xtr_debug_pkg.debug('Execute_Main_Query: Overdue transaction period');
711: xtr_debug_pkg.debug('Execute_Main_Query: trx_type = '
712: || XTR_CASH_FCST.G_trx_type || ', forecast_method = ' || XTR_CASH_FCST.G_forecast_method);
713: END IF;
706: end if;
707:
708: IF(amount_date < XTR_CASH_FCST.G_rp_forecast_start_date)THEN -- Overdue Periods
709: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
710: xtr_debug_pkg.debug('Execute_Main_Query: Overdue transaction period');
711: xtr_debug_pkg.debug('Execute_Main_Query: trx_type = '
712: || XTR_CASH_FCST.G_trx_type || ', forecast_method = ' || XTR_CASH_FCST.G_forecast_method);
713: END IF;
714:
707:
708: IF(amount_date < XTR_CASH_FCST.G_rp_forecast_start_date)THEN -- Overdue Periods
709: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
710: xtr_debug_pkg.debug('Execute_Main_Query: Overdue transaction period');
711: xtr_debug_pkg.debug('Execute_Main_Query: trx_type = '
712: || XTR_CASH_FCST.G_trx_type || ', forecast_method = ' || XTR_CASH_FCST.G_forecast_method);
713: END IF;
714:
715: IF(XTR_CASH_FCST.G_trx_type = 'PAY')THEN
766: XTR_CASH_FCST.G_trx_type,
767: bank_account_id,
768: level_of_summary);
769: ELSE
770: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
771: xtr_debug_pkg.debug('Execute_Main_Query: No More Rows');
772: END IF;
773: EXIT;
774: END IF;
767: bank_account_id,
768: level_of_summary);
769: ELSE
770: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
771: xtr_debug_pkg.debug('Execute_Main_Query: No More Rows');
772: END IF;
773: EXIT;
774: END IF;
775: END LOOP;
777: DBMS_SQL.CLOSE_CURSOR(CURSOR_ID);
778:
779: EXCEPTION
780: WHEN OTHERS THEN
781: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
782: xtr_debug_pkg.debug('EXCEPTION - OTHERS: Execute_Main_Query');
783: END IF;
784: IF DBMS_SQL.IS_OPEN(cursor_id) THEN
785: DBMS_SQL.CLOSE_CURSOR(cursor_id);
778:
779: EXCEPTION
780: WHEN OTHERS THEN
781: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
782: xtr_debug_pkg.debug('EXCEPTION - OTHERS: Execute_Main_Query');
783: END IF;
784: IF DBMS_SQL.IS_OPEN(cursor_id) THEN
785: DBMS_SQL.CLOSE_CURSOR(cursor_id);
786: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
782: xtr_debug_pkg.debug('EXCEPTION - OTHERS: Execute_Main_Query');
783: END IF;
784: IF DBMS_SQL.IS_OPEN(cursor_id) THEN
785: DBMS_SQL.CLOSE_CURSOR(cursor_id);
786: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
787: xtr_debug_pkg.debug('Execute_Main_Query: Cursor Closed');
788: END IF;
789: END IF;
790: RAISE;
783: END IF;
784: IF DBMS_SQL.IS_OPEN(cursor_id) THEN
785: DBMS_SQL.CLOSE_CURSOR(cursor_id);
786: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
787: xtr_debug_pkg.debug('Execute_Main_Query: Cursor Closed');
788: END IF;
789: END IF;
790: RAISE;
791: END Execute_Main_Query;
814: counter number;
815: error_msg FND_NEW_MESSAGES.message_text%TYPE;
816:
817: BEGIN
818: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
819: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_AP_Pay_Query');
820: END IF;
821:
822: select_clause := Get_Select_Clause;
815: error_msg FND_NEW_MESSAGES.message_text%TYPE;
816:
817: BEGIN
818: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
819: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_AP_Pay_Query');
820: END IF;
821:
822: select_clause := Get_Select_Clause;
823: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
819: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_AP_Pay_Query');
820: END IF;
821:
822: select_clause := Get_Select_Clause;
823: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
824: xtr_debug_pkg.debug('Built Select Clause');
825: END IF;
826:
827: from_clause := Get_From_Clause('ce_ap_fc_payments_v');
820: END IF;
821:
822: select_clause := Get_Select_Clause;
823: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
824: xtr_debug_pkg.debug('Built Select Clause');
825: END IF;
826:
827: from_clause := Get_From_Clause('ce_ap_fc_payments_v');
828: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
824: xtr_debug_pkg.debug('Built Select Clause');
825: END IF;
826:
827: from_clause := Get_From_Clause('ce_ap_fc_payments_v');
828: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
829: xtr_debug_pkg.debug('Built From Clause');
830: END IF;
831:
832: where_clause := Get_Where_Clause || Add_Where('PAYMENT_METHOD') || Add_Where('BANK_ACCOUNT_ID');
825: END IF;
826:
827: from_clause := Get_From_Clause('ce_ap_fc_payments_v');
828: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
829: xtr_debug_pkg.debug('Built From Clause');
830: END IF;
831:
832: where_clause := Get_Where_Clause || Add_Where('PAYMENT_METHOD') || Add_Where('BANK_ACCOUNT_ID');
833:
836: Set_History;
837:
838: EXCEPTION
839: When NO_DATA_FOUND Then
840: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
841: xtr_debug_pkg.debug('row_id = ' || to_char(XTR_CASH_FCST.G_forecast_row_id));
842: END IF;
843: UPDATE ce_forecasts
844: SET error_status = 'E'
837:
838: EXCEPTION
839: When NO_DATA_FOUND Then
840: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
841: xtr_debug_pkg.debug('row_id = ' || to_char(XTR_CASH_FCST.G_forecast_row_id));
842: END IF;
843: UPDATE ce_forecasts
844: SET error_status = 'E'
845: WHERE forecast_id = CE_CASH_FCST.G_forecast_id;
851: CE_CASH_FCST.G_rp_forecast_header_id,
852: CE_CASH_FCST.G_forecast_row_id,
853: 'CE_NO_HIST_START_PERIOD',
854: error_msg);
855: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
856: xtr_debug_pkg.debug('EXCEPTION: No history data found for APP');
857: END IF;
858: return;
859: When OTHERS Then
852: CE_CASH_FCST.G_forecast_row_id,
853: 'CE_NO_HIST_START_PERIOD',
854: error_msg);
855: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
856: xtr_debug_pkg.debug('EXCEPTION: No history data found for APP');
857: END IF;
858: return;
859: When OTHERS Then
860: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
856: xtr_debug_pkg.debug('EXCEPTION: No history data found for APP');
857: END IF;
858: return;
859: When OTHERS Then
860: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
861: xtr_debug_pkg.debug('EXCEPTION: Build APP query - Set History');
862: END IF;
863: raise;
864: END;
857: END IF;
858: return;
859: When OTHERS Then
860: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
861: xtr_debug_pkg.debug('EXCEPTION: Build APP query - Set History');
862: END IF;
863: raise;
864: END;
865:
873: ||to_char(XTR_CASH_FCST.G_lead_time)||
874: ' BETWEEN cab.start_date and cab.end_date
875: AND src.status = ''NEGOTIABLE'' ';
876: END IF;
877: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
878: xtr_debug_pkg.debug('Built Where Clause');
879: END IF;
880:
881: group_clause := Get_Group_Clause;
874: ' BETWEEN cab.start_date and cab.end_date
875: AND src.status = ''NEGOTIABLE'' ';
876: END IF;
877: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
878: xtr_debug_pkg.debug('Built Where Clause');
879: END IF;
880:
881: group_clause := Get_Group_Clause;
882: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
878: xtr_debug_pkg.debug('Built Where Clause');
879: END IF;
880:
881: group_clause := Get_Group_Clause;
882: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
883: xtr_debug_pkg.debug('Built Group Clause');
884: END IF;
885:
886: main_query := select_clause || from_clause || where_clause || group_clause;
879: END IF;
880:
881: group_clause := Get_Group_Clause;
882: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
883: xtr_debug_pkg.debug('Built Group Clause');
884: END IF;
885:
886: main_query := select_clause || from_clause || where_clause || group_clause;
887:
885:
886: main_query := select_clause || from_clause || where_clause || group_clause;
887:
888: Execute_Main_Query (main_query);
889: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
890: xtr_debug_pkg.debug('<
892: EXCEPTION
893: WHEN OTHERS THEN
886: main_query := select_clause || from_clause || where_clause || group_clause;
887:
888: Execute_Main_Query (main_query);
889: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
890: xtr_debug_pkg.debug('<
892: EXCEPTION
893: WHEN OTHERS THEN
894: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_AP_Pay_Query');
890: xtr_debug_pkg.debug('<
892: EXCEPTION
893: WHEN OTHERS THEN
894: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_AP_Pay_Query');
895: raise;
896: END Build_AP_Pay_Query;
897:
898:
920: main_query varchar2(2000) := null;
921: view_name VARCHAR2(50);
922:
923: BEGIN
924: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
925: xtr_debug_pkg.debug('>>Build_AP_Invoice_Query');
926: END IF;
927:
928: select_clause := Get_Select_Clause;
921: view_name VARCHAR2(50);
922:
923: BEGIN
924: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
925: xtr_debug_pkg.debug('>>Build_AP_Invoice_Query');
926: END IF;
927:
928: select_clause := Get_Select_Clause;
929: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
925: xtr_debug_pkg.debug('>>Build_AP_Invoice_Query');
926: END IF;
927:
928: select_clause := Get_Select_Clause;
929: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
930: xtr_debug_pkg.debug('Built Select Clause');
931: END IF;
932:
933: IF (NVL(XTR_CASH_FCST.G_discount_option,'N') = 'N') THEN
926: END IF;
927:
928: select_clause := Get_Select_Clause;
929: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
930: xtr_debug_pkg.debug('Built Select Clause');
931: END IF;
932:
933: IF (NVL(XTR_CASH_FCST.G_discount_option,'N') = 'N') THEN
934: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
930: xtr_debug_pkg.debug('Built Select Clause');
931: END IF;
932:
933: IF (NVL(XTR_CASH_FCST.G_discount_option,'N') = 'N') THEN
934: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
935: xtr_debug_pkg.debug('Discount NOT taken');
936: END IF;
937: from_clause := Get_From_Clause('ce_ap_fc_due_invoices_v');
938: ELSE
931: END IF;
932:
933: IF (NVL(XTR_CASH_FCST.G_discount_option,'N') = 'N') THEN
934: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
935: xtr_debug_pkg.debug('Discount NOT taken');
936: END IF;
937: from_clause := Get_From_Clause('ce_ap_fc_due_invoices_v');
938: ELSE
939: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
935: xtr_debug_pkg.debug('Discount NOT taken');
936: END IF;
937: from_clause := Get_From_Clause('ce_ap_fc_due_invoices_v');
938: ELSE
939: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
940: xtr_debug_pkg.debug('Discount taken');
941: END IF;
942: from_clause := Get_From_Clause('ce_disc_invoices_v');
943: END IF;
936: END IF;
937: from_clause := Get_From_Clause('ce_ap_fc_due_invoices_v');
938: ELSE
939: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
940: xtr_debug_pkg.debug('Discount taken');
941: END IF;
942: from_clause := Get_From_Clause('ce_disc_invoices_v');
943: END IF;
944: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
940: xtr_debug_pkg.debug('Discount taken');
941: END IF;
942: from_clause := Get_From_Clause('ce_disc_invoices_v');
943: END IF;
944: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
945: xtr_debug_pkg.debug('Built From Clause');
946: END IF;
947:
948: where_clause := Get_Where_Clause || '
941: END IF;
942: from_clause := Get_From_Clause('ce_disc_invoices_v');
943: END IF;
944: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
945: xtr_debug_pkg.debug('Built From Clause');
946: END IF;
947:
948: where_clause := Get_Where_Clause || '
949: AND src.trx_date(+) +'
950: ||to_char(XTR_CASH_FCST.G_lead_time)||
951: ' BETWEEN cab.start_date and cab.end_date ' ||
952: Add_Where('PAYMENT_PRIORITY') || Add_Where('PAY_GROUP') || Add_Where('VENDOR_TYPE');
953:
954: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
955: xtr_debug_pkg.debug('Built Where Clause');
956: END IF;
957:
958: group_clause := Get_Group_Clause;
951: ' BETWEEN cab.start_date and cab.end_date ' ||
952: Add_Where('PAYMENT_PRIORITY') || Add_Where('PAY_GROUP') || Add_Where('VENDOR_TYPE');
953:
954: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
955: xtr_debug_pkg.debug('Built Where Clause');
956: END IF;
957:
958: group_clause := Get_Group_Clause;
959: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
955: xtr_debug_pkg.debug('Built Where Clause');
956: END IF;
957:
958: group_clause := Get_Group_Clause;
959: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
960: xtr_debug_pkg.debug('Built Where Clause');
961: END IF;
962:
963: main_query := select_clause || from_clause || where_clause || group_clause;
956: END IF;
957:
958: group_clause := Get_Group_Clause;
959: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
960: xtr_debug_pkg.debug('Built Where Clause');
961: END IF;
962:
963: main_query := select_clause || from_clause || where_clause || group_clause;
964:
963: main_query := select_clause || from_clause || where_clause || group_clause;
964:
965: Execute_Main_Query (main_query);
966:
967: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
968: xtr_debug_pkg.debug('<
970: EXCEPTION
971: WHEN OTHERS THEN
964:
965: Execute_Main_Query (main_query);
966:
967: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
968: xtr_debug_pkg.debug('<
970: EXCEPTION
971: WHEN OTHERS THEN
972: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_AP_Invoice_Query');
968: xtr_debug_pkg.debug('<
970: EXCEPTION
971: WHEN OTHERS THEN
972: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_AP_Invoice_Query');
973: raise;
974: END Build_AP_Invoice_Query;
975:
976:
997: group_clause varchar2(100);
998: select_clause varchar2(500);
999: main_query varchar2(3000) := null;
1000: BEGIN
1001: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1002: xtr_debug_pkg.debug('>>Build_AR_Invoice_Query');
1003: END IF;
1004: IF (XTR_CASH_FCST.G_include_dispute_flag = 'N') THEN
1005: select_clause := ' SELECT cab.forecast_period_temp_id,
998: select_clause varchar2(500);
999: main_query varchar2(3000) := null;
1000: BEGIN
1001: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1002: xtr_debug_pkg.debug('>>Build_AR_Invoice_Query');
1003: END IF;
1004: IF (XTR_CASH_FCST.G_include_dispute_flag = 'N') THEN
1005: select_clause := ' SELECT cab.forecast_period_temp_id,
1006: src.currency_code,
1007: SUM(src.amount-src.dispute_amount) ';
1008: ELSE
1009: select_clause := Get_Select_Clause;
1010: END IF;
1011: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1012: xtr_debug_pkg.debug('Built Select Clause');
1013: xtr_debug_pkg.debug(select_clause);
1014: END IF;
1015:
1008: ELSE
1009: select_clause := Get_Select_Clause;
1010: END IF;
1011: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1012: xtr_debug_pkg.debug('Built Select Clause');
1013: xtr_debug_pkg.debug(select_clause);
1014: END IF;
1015:
1016: from_clause := Get_From_Clause ('ce_ar_fc_invoices_v');
1009: select_clause := Get_Select_Clause;
1010: END IF;
1011: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1012: xtr_debug_pkg.debug('Built Select Clause');
1013: xtr_debug_pkg.debug(select_clause);
1014: END IF;
1015:
1016: from_clause := Get_From_Clause ('ce_ar_fc_invoices_v');
1017: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1013: xtr_debug_pkg.debug(select_clause);
1014: END IF;
1015:
1016: from_clause := Get_From_Clause ('ce_ar_fc_invoices_v');
1017: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1018: xtr_debug_pkg.debug('Built From Clause');
1019: END IF;
1020:
1021: where_clause := Get_Where_Clause || '
1014: END IF;
1015:
1016: from_clause := Get_From_Clause ('ce_ar_fc_invoices_v');
1017: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1018: xtr_debug_pkg.debug('Built From Clause');
1019: END IF;
1020:
1021: where_clause := Get_Where_Clause || '
1022: AND src.trx_date +'
1022: AND src.trx_date +'
1023: ||to_char(XTR_CASH_FCST.G_lead_time)||
1024: ' BETWEEN cab.start_date and cab.end_date '||
1025: Add_Where('CUSTOMER_PROFILE_CLASS_ID');
1026: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1027: xtr_debug_pkg.debug('Built Where Clause');
1028: END IF;
1029:
1030: group_clause := Get_Group_Clause;
1023: ||to_char(XTR_CASH_FCST.G_lead_time)||
1024: ' BETWEEN cab.start_date and cab.end_date '||
1025: Add_Where('CUSTOMER_PROFILE_CLASS_ID');
1026: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1027: xtr_debug_pkg.debug('Built Where Clause');
1028: END IF;
1029:
1030: group_clause := Get_Group_Clause;
1031: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1027: xtr_debug_pkg.debug('Built Where Clause');
1028: END IF;
1029:
1030: group_clause := Get_Group_Clause;
1031: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1032: xtr_debug_pkg.debug('Built Group Clause');
1033: END IF;
1034:
1035: main_query := select_clause || from_clause || where_clause ||group_clause;
1028: END IF;
1029:
1030: group_clause := Get_Group_Clause;
1031: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1032: xtr_debug_pkg.debug('Built Group Clause');
1033: END IF;
1034:
1035: main_query := select_clause || from_clause || where_clause ||group_clause;
1036:
1034:
1035: main_query := select_clause || from_clause || where_clause ||group_clause;
1036:
1037: Execute_Main_Query (main_query);
1038: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1039: xtr_debug_pkg.debug('<
1041: EXCEPTION
1042: WHEN OTHERS THEN
1035: main_query := select_clause || from_clause || where_clause ||group_clause;
1036:
1037: Execute_Main_Query (main_query);
1038: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1039: xtr_debug_pkg.debug('<
1041: EXCEPTION
1042: WHEN OTHERS THEN
1043: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1039: xtr_debug_pkg.debug('<
1041: EXCEPTION
1042: WHEN OTHERS THEN
1043: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1044: xtr_debug_pkg.debug('EXCEPTION:OTHERS-Build_AR_Invoice_Query');
1045: END IF;
1046: RAISE;
1047: END Build_AR_Invoice_Query;
1040: END IF;
1041: EXCEPTION
1042: WHEN OTHERS THEN
1043: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1044: xtr_debug_pkg.debug('EXCEPTION:OTHERS-Build_AR_Invoice_Query');
1045: END IF;
1046: RAISE;
1047: END Build_AR_Invoice_Query;
1048:
1072: counter number;
1073: error_msg FND_NEW_MESSAGES.message_text%TYPE;
1074:
1075: BEGIN
1076: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1077: xtr_debug_pkg.debug('>>Build_AR_Receipt_Query');
1078: END IF;
1079:
1080: select_clause := Get_Select_Clause;
1073: error_msg FND_NEW_MESSAGES.message_text%TYPE;
1074:
1075: BEGIN
1076: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1077: xtr_debug_pkg.debug('>>Build_AR_Receipt_Query');
1078: END IF;
1079:
1080: select_clause := Get_Select_Clause;
1081: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1077: xtr_debug_pkg.debug('>>Build_AR_Receipt_Query');
1078: END IF;
1079:
1080: select_clause := Get_Select_Clause;
1081: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1082: xtr_debug_pkg.debug('Built Select Clause');
1083: END IF;
1084:
1085: from_clause := Get_From_Clause ('ce_ar_fc_receipts_v');
1078: END IF;
1079:
1080: select_clause := Get_Select_Clause;
1081: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1082: xtr_debug_pkg.debug('Built Select Clause');
1083: END IF;
1084:
1085: from_clause := Get_From_Clause ('ce_ar_fc_receipts_v');
1086: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1082: xtr_debug_pkg.debug('Built Select Clause');
1083: END IF;
1084:
1085: from_clause := Get_From_Clause ('ce_ar_fc_receipts_v');
1086: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1087: xtr_debug_pkg.debug('Built From Clause');
1088: END IF;
1089:
1090: where_clause := Get_Where_Clause || Add_Where('BANK_ACCOUNT_ID') || Add_Where('RECEIPT_METHOD_ID');
1083: END IF;
1084:
1085: from_clause := Get_From_Clause ('ce_ar_fc_receipts_v');
1086: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1087: xtr_debug_pkg.debug('Built From Clause');
1088: END IF;
1089:
1090: where_clause := Get_Where_Clause || Add_Where('BANK_ACCOUNT_ID') || Add_Where('RECEIPT_METHOD_ID');
1091:
1094: Set_History;
1095:
1096: EXCEPTION
1097: When NO_DATA_FOUND Then
1098: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1099: xtr_debug_pkg.debug('row_id = ' || to_char(XTR_CASH_FCST.G_forecast_row_id));
1100: END IF;
1101:
1102: UPDATE ce_forecasts
1095:
1096: EXCEPTION
1097: When NO_DATA_FOUND Then
1098: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1099: xtr_debug_pkg.debug('row_id = ' || to_char(XTR_CASH_FCST.G_forecast_row_id));
1100: END IF;
1101:
1102: UPDATE ce_forecasts
1103: SET error_status = 'E'
1110: CE_CASH_FCST.G_rp_forecast_header_id,
1111: CE_CASH_FCST.G_forecast_row_id,
1112: 'CE_NO_HIST_START_PERIOD',
1113: error_msg);
1114: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1115: xtr_debug_pkg.debug('EXCEPTION: No history data found for ARR');
1116: END IF;
1117: return;
1118: When OTHERS Then
1111: CE_CASH_FCST.G_forecast_row_id,
1112: 'CE_NO_HIST_START_PERIOD',
1113: error_msg);
1114: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1115: xtr_debug_pkg.debug('EXCEPTION: No history data found for ARR');
1116: END IF;
1117: return;
1118: When OTHERS Then
1119: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1115: xtr_debug_pkg.debug('EXCEPTION: No history data found for ARR');
1116: END IF;
1117: return;
1118: When OTHERS Then
1119: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1120: xtr_debug_pkg.debug('EXCEPTION: Build ARR query - Set History');
1121: END IF;
1122: raise;
1123: END;
1116: END IF;
1117: return;
1118: When OTHERS Then
1119: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1120: xtr_debug_pkg.debug('EXCEPTION: Build ARR query - Set History');
1121: END IF;
1122: raise;
1123: END;
1124:
1133: AND src.status <> ''CLEARED'' ';
1134:
1135:
1136: END IF;
1137: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1138: xtr_debug_pkg.debug('Built Where Clause');
1139: END IF;
1140:
1141: group_clause := Get_Group_Clause;
1134:
1135:
1136: END IF;
1137: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1138: xtr_debug_pkg.debug('Built Where Clause');
1139: END IF;
1140:
1141: group_clause := Get_Group_Clause;
1142: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1138: xtr_debug_pkg.debug('Built Where Clause');
1139: END IF;
1140:
1141: group_clause := Get_Group_Clause;
1142: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1143: xtr_debug_pkg.debug('Built Group Clause');
1144: END IF;
1145:
1146: main_query := select_clause || from_clause || where_clause ||group_clause;
1139: END IF;
1140:
1141: group_clause := Get_Group_Clause;
1142: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1143: xtr_debug_pkg.debug('Built Group Clause');
1144: END IF;
1145:
1146: main_query := select_clause || from_clause || where_clause ||group_clause;
1147:
1147:
1148: commit;
1149:
1150: Execute_Main_Query (main_query);
1151: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1152: xtr_debug_pkg.debug('<
1154: EXCEPTION
1155: WHEN OTHERS THEN
1148: commit;
1149:
1150: Execute_Main_Query (main_query);
1151: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1152: xtr_debug_pkg.debug('<
1154: EXCEPTION
1155: WHEN OTHERS THEN
1156: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1152: xtr_debug_pkg.debug('<
1154: EXCEPTION
1155: WHEN OTHERS THEN
1156: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1157: xtr_debug_pkg.debug('EXCEPTION-OTHERS:Build_AR_Receipt_Query');
1158: END IF;
1159: RAISE;
1160: END Build_AR_Receipt_Query;
1153: END IF;
1154: EXCEPTION
1155: WHEN OTHERS THEN
1156: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1157: xtr_debug_pkg.debug('EXCEPTION-OTHERS:Build_AR_Receipt_Query');
1158: END IF;
1159: RAISE;
1160: END Build_AR_Receipt_Query;
1161:
1180: main_query varchar2(2000) := null;
1181: error_msg FND_NEW_MESSAGES.message_text%TYPE;
1182:
1183: BEGIN
1184: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1185: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_PAY_Exp_Query');
1186: END IF;
1187:
1188: select_clause := Get_Select_Clause;
1181: error_msg FND_NEW_MESSAGES.message_text%TYPE;
1182:
1183: BEGIN
1184: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1185: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_PAY_Exp_Query');
1186: END IF;
1187:
1188: select_clause := Get_Select_Clause;
1189: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1185: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_PAY_Exp_Query');
1186: END IF;
1187:
1188: select_clause := Get_Select_Clause;
1189: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1190: xtr_debug_pkg.debug('Built Select Clause');
1191: END IF;
1192:
1193: from_clause := Get_From_Clause('ce_pay_fc_payroll_v');
1186: END IF;
1187:
1188: select_clause := Get_Select_Clause;
1189: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1190: xtr_debug_pkg.debug('Built Select Clause');
1191: END IF;
1192:
1193: from_clause := Get_From_Clause('ce_pay_fc_payroll_v');
1194: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1190: xtr_debug_pkg.debug('Built Select Clause');
1191: END IF;
1192:
1193: from_clause := Get_From_Clause('ce_pay_fc_payroll_v');
1194: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1195: xtr_debug_pkg.debug('Built From Clause');
1196: END IF;
1197:
1198: where_clause := Get_Where_Clause || '
1191: END IF;
1192:
1193: from_clause := Get_From_Clause('ce_pay_fc_payroll_v');
1194: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1195: xtr_debug_pkg.debug('Built From Clause');
1196: END IF;
1197:
1198: where_clause := Get_Where_Clause || '
1199: AND src.effective_date(+) BETWEEN cab.start_date and cab.end_date ' ||
1199: AND src.effective_date(+) BETWEEN cab.start_date and cab.end_date ' ||
1200: Add_Where('ORG_PAYMENT_METHOD_ID') || Add_Where('BANK_ACCOUNT_ID') || Add_Where('PAYROLL_ID');
1201:
1202: group_clause := Get_Group_Clause;
1203: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1204: xtr_debug_pkg.debug('Built Group Clause');
1205: END IF;
1206:
1207: BEGIN
1200: Add_Where('ORG_PAYMENT_METHOD_ID') || Add_Where('BANK_ACCOUNT_ID') || Add_Where('PAYROLL_ID');
1201:
1202: group_clause := Get_Group_Clause;
1203: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1204: xtr_debug_pkg.debug('Built Group Clause');
1205: END IF;
1206:
1207: BEGIN
1208: Set_History;
1207: BEGIN
1208: Set_History;
1209: EXCEPTION
1210: When NO_DATA_FOUND Then
1211: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1212: xtr_debug_pkg.debug('row_id = ' || to_char(XTR_CASH_FCST.G_forecast_row_id));
1213: END IF;
1214: UPDATE ce_forecasts
1215: SET error_status = 'E'
1208: Set_History;
1209: EXCEPTION
1210: When NO_DATA_FOUND Then
1211: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1212: xtr_debug_pkg.debug('row_id = ' || to_char(XTR_CASH_FCST.G_forecast_row_id));
1213: END IF;
1214: UPDATE ce_forecasts
1215: SET error_status = 'E'
1216: WHERE forecast_id = CE_CASH_FCST.G_forecast_id;
1222: CE_CASH_FCST.G_rp_forecast_header_id,
1223: CE_CASH_FCST.G_forecast_row_id,
1224: 'CE_NO_HIST_START_PERIOD',
1225: error_msg);
1226: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1227: xtr_debug_pkg.debug('EXCEPTION: No Payroll historical data found');
1228: END IF;
1229: return;
1230: When OTHERS Then
1223: CE_CASH_FCST.G_forecast_row_id,
1224: 'CE_NO_HIST_START_PERIOD',
1225: error_msg);
1226: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1227: xtr_debug_pkg.debug('EXCEPTION: No Payroll historical data found');
1228: END IF;
1229: return;
1230: When OTHERS Then
1231: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1227: xtr_debug_pkg.debug('EXCEPTION: No Payroll historical data found');
1228: END IF;
1229: return;
1230: When OTHERS Then
1231: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1232: xtr_debug_pkg.debug('EXCEPTION: Build Payroll query - Set History');
1233: END IF;
1234: raise;
1235: END;
1228: END IF;
1229: return;
1230: When OTHERS Then
1231: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1232: xtr_debug_pkg.debug('EXCEPTION: Build Payroll query - Set History');
1233: END IF;
1234: raise;
1235: END;
1236:
1236:
1237: main_query := select_clause || from_clause || where_clause || group_clause;
1238:
1239: Execute_Main_Query (main_query);
1240: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1241: xtr_debug_pkg.debug('<
1243:
1244: END Build_Pay_Exp_Query;
1237: main_query := select_clause || from_clause || where_clause || group_clause;
1238:
1239: Execute_Main_Query (main_query);
1240: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1241: xtr_debug_pkg.debug('<
1243:
1244: END Build_Pay_Exp_Query;
1245:
1263: group_clause varchar2(100);
1264: select_clause varchar2(300);
1265: main_query varchar2(2000) := null;
1266: BEGIN
1267: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1268: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_PO_Orders_Query');
1269: END IF;
1270:
1271: select_clause := Get_Select_Clause;
1264: select_clause varchar2(300);
1265: main_query varchar2(2000) := null;
1266: BEGIN
1267: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1268: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_PO_Orders_Query');
1269: END IF;
1270:
1271: select_clause := Get_Select_Clause;
1272: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1268: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_PO_Orders_Query');
1269: END IF;
1270:
1271: select_clause := Get_Select_Clause;
1272: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1273: xtr_debug_pkg.debug('Built Select Clause');
1274: END IF;
1275:
1276: from_clause := Get_From_Clause('ce_po_fc_orders_v');
1269: END IF;
1270:
1271: select_clause := Get_Select_Clause;
1272: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1273: xtr_debug_pkg.debug('Built Select Clause');
1274: END IF;
1275:
1276: from_clause := Get_From_Clause('ce_po_fc_orders_v');
1277: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1273: xtr_debug_pkg.debug('Built Select Clause');
1274: END IF;
1275:
1276: from_clause := Get_From_Clause('ce_po_fc_orders_v');
1277: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1278: xtr_debug_pkg.debug('Built From Clause');
1279: END IF;
1280:
1281: where_clause := Get_Where_Clause|| '
1274: END IF;
1275:
1276: from_clause := Get_From_Clause('ce_po_fc_orders_v');
1277: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1278: xtr_debug_pkg.debug('Built From Clause');
1279: END IF;
1280:
1281: where_clause := Get_Where_Clause|| '
1282: AND src.trx_date(+) +'||to_char(XTR_CASH_FCST.G_lead_time)||'
1283: BETWEEN cab.start_date and cab.end_date ' ||
1284: Add_Where('AUTHORIZATION_STATUS') || Add_Where('PAYMENT_PRIORITY') ||
1285: Add_Where('PAY_GROUP') || Add_Where('VENDOR_TYPE');
1286:
1287: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1288: xtr_debug_pkg.debug('Built Where Clause');
1289: END IF;
1290:
1291: group_clause := Get_Group_Clause;
1284: Add_Where('AUTHORIZATION_STATUS') || Add_Where('PAYMENT_PRIORITY') ||
1285: Add_Where('PAY_GROUP') || Add_Where('VENDOR_TYPE');
1286:
1287: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1288: xtr_debug_pkg.debug('Built Where Clause');
1289: END IF;
1290:
1291: group_clause := Get_Group_Clause;
1292: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1288: xtr_debug_pkg.debug('Built Where Clause');
1289: END IF;
1290:
1291: group_clause := Get_Group_Clause;
1292: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1293: xtr_debug_pkg.debug('Built Group Clause');
1294: END IF;
1295:
1296: main_query := select_clause || from_clause || where_clause || group_clause;
1289: END IF;
1290:
1291: group_clause := Get_Group_Clause;
1292: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1293: xtr_debug_pkg.debug('Built Group Clause');
1294: END IF;
1295:
1296: main_query := select_clause || from_clause || where_clause || group_clause;
1297:
1295:
1296: main_query := select_clause || from_clause || where_clause || group_clause;
1297:
1298: Execute_Main_Query (main_query);
1299: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1300: xtr_debug_pkg.debug('<
1302: EXCEPTION
1303: WHEN OTHERS THEN
1296: main_query := select_clause || from_clause || where_clause || group_clause;
1297:
1298: Execute_Main_Query (main_query);
1299: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1300: xtr_debug_pkg.debug('<
1302: EXCEPTION
1303: WHEN OTHERS THEN
1304: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_PO_Orders_Query');
1300: xtr_debug_pkg.debug('<
1302: EXCEPTION
1303: WHEN OTHERS THEN
1304: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_PO_Orders_Query');
1305: raise;
1306: END Build_PO_Orders_Query;
1307:
1308:
1325: group_clause varchar2(100);
1326: select_clause varchar2(300);
1327: main_query varchar2(2000) := null;
1328: BEGIN
1329: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1330: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_PO_Req_Query');
1331: END IF;
1332:
1333: select_clause := Get_Select_Clause;
1326: select_clause varchar2(300);
1327: main_query varchar2(2000) := null;
1328: BEGIN
1329: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1330: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_PO_Req_Query');
1331: END IF;
1332:
1333: select_clause := Get_Select_Clause;
1334: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1330: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_PO_Req_Query');
1331: END IF;
1332:
1333: select_clause := Get_Select_Clause;
1334: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1335: xtr_debug_pkg.debug('Built Select Clause');
1336: END IF;
1337:
1338: from_clause := Get_From_Clause('ce_po_fc_requisitions_v');
1331: END IF;
1332:
1333: select_clause := Get_Select_Clause;
1334: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1335: xtr_debug_pkg.debug('Built Select Clause');
1336: END IF;
1337:
1338: from_clause := Get_From_Clause('ce_po_fc_requisitions_v');
1339: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1335: xtr_debug_pkg.debug('Built Select Clause');
1336: END IF;
1337:
1338: from_clause := Get_From_Clause('ce_po_fc_requisitions_v');
1339: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1340: xtr_debug_pkg.debug('Built From Clause');
1341: END IF;
1342:
1343: where_clause := Get_Where_Clause || '
1336: END IF;
1337:
1338: from_clause := Get_From_Clause('ce_po_fc_requisitions_v');
1339: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1340: xtr_debug_pkg.debug('Built From Clause');
1341: END IF;
1342:
1343: where_clause := Get_Where_Clause || '
1344: AND src.trx_date(+) +'||to_char(XTR_CASH_FCST.G_lead_time)|| '
1344: AND src.trx_date(+) +'||to_char(XTR_CASH_FCST.G_lead_time)|| '
1345: BETWEEN cab.start_date and cab.end_date '||
1346: Add_Where('AUTHORIZATION_STATUS');
1347:
1348: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1349: xtr_debug_pkg.debug('Built Where Clause');
1350: END IF;
1351:
1352: group_clause := Get_Group_Clause;
1345: BETWEEN cab.start_date and cab.end_date '||
1346: Add_Where('AUTHORIZATION_STATUS');
1347:
1348: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1349: xtr_debug_pkg.debug('Built Where Clause');
1350: END IF;
1351:
1352: group_clause := Get_Group_Clause;
1353: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1349: xtr_debug_pkg.debug('Built Where Clause');
1350: END IF;
1351:
1352: group_clause := Get_Group_Clause;
1353: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1354: xtr_debug_pkg.debug('Built Group Clause');
1355: END IF;
1356:
1357: main_query := select_clause || from_clause || where_clause || group_clause;
1350: END IF;
1351:
1352: group_clause := Get_Group_Clause;
1353: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1354: xtr_debug_pkg.debug('Built Group Clause');
1355: END IF;
1356:
1357: main_query := select_clause || from_clause || where_clause || group_clause;
1358:
1356:
1357: main_query := select_clause || from_clause || where_clause || group_clause;
1358:
1359: Execute_Main_Query (main_query);
1360: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1361: xtr_debug_pkg.debug('<
1363: EXCEPTION
1364: WHEN OTHERS THEN
1357: main_query := select_clause || from_clause || where_clause || group_clause;
1358:
1359: Execute_Main_Query (main_query);
1360: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1361: xtr_debug_pkg.debug('<
1363: EXCEPTION
1364: WHEN OTHERS THEN
1365: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_PO_req_Query');
1361: xtr_debug_pkg.debug('<
1363: EXCEPTION
1364: WHEN OTHERS THEN
1365: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_PO_req_Query');
1366: raise;
1367: END Build_PO_Req_Query ;
1368:
1369: /* ---------------------------------------------------------------------
1385: group_clause varchar2(100);
1386: select_clause varchar2(300);
1387: main_query varchar2(2000) := null;
1388: BEGIN
1389: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1390: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_Sales_Order_Query');
1391: END IF;
1392:
1393: select_clause := Get_Select_Clause;
1386: select_clause varchar2(300);
1387: main_query varchar2(2000) := null;
1388: BEGIN
1389: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1390: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_Sales_Order_Query');
1391: END IF;
1392:
1393: select_clause := Get_Select_Clause;
1394: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1390: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_Sales_Order_Query');
1391: END IF;
1392:
1393: select_clause := Get_Select_Clause;
1394: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1395: xtr_debug_pkg.debug('Built Select Clause');
1396: END IF;
1397:
1398: from_clause := Get_From_Clause('ce_so_fc_orders_v');
1391: END IF;
1392:
1393: select_clause := Get_Select_Clause;
1394: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1395: xtr_debug_pkg.debug('Built Select Clause');
1396: END IF;
1397:
1398: from_clause := Get_From_Clause('ce_so_fc_orders_v');
1399: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1395: xtr_debug_pkg.debug('Built Select Clause');
1396: END IF;
1397:
1398: from_clause := Get_From_Clause('ce_so_fc_orders_v');
1399: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1400: xtr_debug_pkg.debug('Built From Clause');
1401: END IF;
1402:
1403: where_clause := Get_Where_Clause ||
1396: END IF;
1397:
1398: from_clause := Get_From_Clause('ce_so_fc_orders_v');
1399: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1400: xtr_debug_pkg.debug('Built From Clause');
1401: END IF;
1402:
1403: where_clause := Get_Where_Clause ||
1404: Add_Where('CUSTOMER_PROFILE_CLASS_ID');
1419: where_clause := where_clause || '
1420: AND src.date_ordered(+) +'||to_char(XTR_CASH_FCST.G_lead_time)||'
1421: BETWEEN cab.start_date and cab.end_date ';
1422: END IF;
1423: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1424: xtr_debug_pkg.debug('Built Where Clause');
1425: END IF;
1426:
1427: group_clause := Get_Group_Clause;
1420: AND src.date_ordered(+) +'||to_char(XTR_CASH_FCST.G_lead_time)||'
1421: BETWEEN cab.start_date and cab.end_date ';
1422: END IF;
1423: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1424: xtr_debug_pkg.debug('Built Where Clause');
1425: END IF;
1426:
1427: group_clause := Get_Group_Clause;
1428: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1424: xtr_debug_pkg.debug('Built Where Clause');
1425: END IF;
1426:
1427: group_clause := Get_Group_Clause;
1428: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1429: xtr_debug_pkg.debug('Built Group Clause');
1430: END IF;
1431:
1432: main_query := select_clause || from_clause || where_clause || group_clause;
1425: END IF;
1426:
1427: group_clause := Get_Group_Clause;
1428: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1429: xtr_debug_pkg.debug('Built Group Clause');
1430: END IF;
1431:
1432: main_query := select_clause || from_clause || where_clause || group_clause;
1433:
1431:
1432: main_query := select_clause || from_clause || where_clause || group_clause;
1433:
1434: Execute_Main_Query (main_query);
1435: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1436: xtr_debug_pkg.debug('<
1438: EXCEPTION
1439: WHEN OTHERS THEN
1432: main_query := select_clause || from_clause || where_clause || group_clause;
1433:
1434: Execute_Main_Query (main_query);
1435: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1436: xtr_debug_pkg.debug('<
1438: EXCEPTION
1439: WHEN OTHERS THEN
1440: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_Sales_Order_Query');
1436: xtr_debug_pkg.debug('<
1438: EXCEPTION
1439: WHEN OTHERS THEN
1440: XTR_DEBUG_PKG.DEBUG('EXCEPTION:Build_Sales_Order_Query');
1441: raise;
1442: END Build_Sales_Order_Query ;
1443:
1444:
1462: cursor_id INTEGER;
1463: exec_id INTEGER;
1464: error_msg VARCHAR2(2000);
1465: BEGIN
1466: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1467: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_Remote_Query');
1468: END IF;
1469: --
1470: -- Get view and db information from the external source type
1463: exec_id INTEGER;
1464: error_msg VARCHAR2(2000);
1465: BEGIN
1466: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1467: xtr_debug_pkg.debug('>>XTR_CSH_FCAST_POP.Build_Remote_Query');
1468: END IF;
1469: --
1470: -- Get view and db information from the external source type
1471: --
1468: END IF;
1469: --
1470: -- Get view and db information from the external source type
1471: --
1472: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1473: xtr_debug_pkg.debug('Get database information for database: '||XTR_CASH_FCST.G_external_source_type);
1474: END IF;
1475: BEGIN
1476:
1469: --
1470: -- Get view and db information from the external source type
1471: --
1472: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1473: xtr_debug_pkg.debug('Get database information for database: '||XTR_CASH_FCST.G_external_source_type);
1474: END IF;
1475: BEGIN
1476:
1477: SELECT external_source_view, db_link_name
1480: WHERE external_source_type = XTR_CASH_FCST.G_external_source_type;
1481:
1482: EXCEPTION
1483: WHEN NO_DATA_FOUND THEN
1484: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1485: xtr_debug_pkg.debug('EXCEPTION:Build_Remote_Query - View def not found');
1486: END IF;
1487: FND_MESSAGE.set_name('CE','CE_FC_EXT_SOURCE_UNDEFINED');
1488: FND_MESSAGE.set_token('EXT_TYPE', XTR_CASH_FCST.G_external_source_type);
1481:
1482: EXCEPTION
1483: WHEN NO_DATA_FOUND THEN
1484: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1485: xtr_debug_pkg.debug('EXCEPTION:Build_Remote_Query - View def not found');
1486: END IF;
1487: FND_MESSAGE.set_name('CE','CE_FC_EXT_SOURCE_UNDEFINED');
1488: FND_MESSAGE.set_token('EXT_TYPE', XTR_CASH_FCST.G_external_source_type);
1489: error_msg := FND_MESSAGE.get;
1495:
1496: IF( db_link IS NOT NULL )THEN
1497: db_link := '@'||db_link;
1498: END IF;
1499: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1500: xtr_debug_pkg.debug(' source_view = '||source_view||', db_link = '||db_link);
1501: END IF;
1502:
1503: main_query := '
1496: IF( db_link IS NOT NULL )THEN
1497: db_link := '@'||db_link;
1498: END IF;
1499: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1500: xtr_debug_pkg.debug(' source_view = '||source_view||', db_link = '||db_link);
1501: END IF;
1502:
1503: main_query := '
1504: declare
1507: error_msg VARCHAR2(2000); ';
1508:
1509: main_query := main_query ||'
1510: begin
1511: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1512: xtr_debug_pkg.enable_file_debug;
1513: END IF;
1514: ';
1515:
1508:
1509: main_query := main_query ||'
1510: begin
1511: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1512: xtr_debug_pkg.enable_file_debug;
1513: END IF;
1514: ';
1515:
1516:
1548:
1549: IF( error_code = 0 )THEN
1550: null;
1551: ELSIF( error_code = -1 )THEN
1552: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1553: xtr_debug_pkg.debug(''Remote error: missing view'');
1554: END IF;
1555: FND_MESSAGE.set_name(''CE'', ''CE_FC_RMT_MISSING_VIEW_EXPT'');
1556: error_msg := FND_MESSAGE.get;
1549: IF( error_code = 0 )THEN
1550: null;
1551: ELSIF( error_code = -1 )THEN
1552: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1553: xtr_debug_pkg.debug(''Remote error: missing view'');
1554: END IF;
1555: FND_MESSAGE.set_name(''CE'', ''CE_FC_RMT_MISSING_VIEW_EXPT'');
1556: error_msg := FND_MESSAGE.get;
1557: CE_FORECAST_ERRORS_PKG.insert_row(XTR_CASH_FCST.G_forecast_id, XTR_CASH_FCST.G_rp_forecast_header_id,
1557: CE_FORECAST_ERRORS_PKG.insert_row(XTR_CASH_FCST.G_forecast_id, XTR_CASH_FCST.G_rp_forecast_header_id,
1558: XTR_CASH_FCST.G_forecast_row_id, ''CE_FC_RMT_MISSING_VIEW_EXPT'', error_msg);
1559: return;
1560: ELSIF( error_code = -2 )THEN
1561: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1562: xtr_debug_pkg.debug(''Remote error: invalid view'');
1563: END IF;
1564: FND_MESSAGE.set_name(''CE'', ''CE_FC_RMT_INVALID_VIEW_EXPT'');
1565: error_msg := FND_MESSAGE.get;
1558: XTR_CASH_FCST.G_forecast_row_id, ''CE_FC_RMT_MISSING_VIEW_EXPT'', error_msg);
1559: return;
1560: ELSIF( error_code = -2 )THEN
1561: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1562: xtr_debug_pkg.debug(''Remote error: invalid view'');
1563: END IF;
1564: FND_MESSAGE.set_name(''CE'', ''CE_FC_RMT_INVALID_VIEW_EXPT'');
1565: error_msg := FND_MESSAGE.get;
1566: CE_FORECAST_ERRORS_PKG.insert_row(XTR_CASH_FCST.G_forecast_id, XTR_CASH_FCST.G_rp_forecast_header_id,
1566: CE_FORECAST_ERRORS_PKG.insert_row(XTR_CASH_FCST.G_forecast_id, XTR_CASH_FCST.G_rp_forecast_header_id,
1567: XTR_CASH_FCST.G_forecast_row_id, ''CE_FC_RMT_INVALID_VIEW_EXPT'', error_msg);
1568: return;
1569: ELSE
1570: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1571: xtr_debug_pkg.debug(''Remote error: others'');
1572: END IF;
1573: FND_MESSAGE.set_name(''CE'', ''CE_FC_RMT_EXCEPTION'');
1574: error_msg := FND_MESSAGE.get;
1567: XTR_CASH_FCST.G_forecast_row_id, ''CE_FC_RMT_INVALID_VIEW_EXPT'', error_msg);
1568: return;
1569: ELSE
1570: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1571: xtr_debug_pkg.debug(''Remote error: others'');
1572: END IF;
1573: FND_MESSAGE.set_name(''CE'', ''CE_FC_RMT_EXCEPTION'');
1574: error_msg := FND_MESSAGE.get;
1575: CE_FORECAST_ERRORS_PKG.insert_row(XTR_CASH_FCST.G_forecast_id, XTR_CASH_FCST.G_rp_forecast_header_id,
1592: CE_FORECAST_ERRORS_PKG.insert_row(XTR_CASH_FCST.G_forecast_id, XTR_CASH_FCST.G_rp_forecast_header_id,
1593: XTR_CASH_FCST.G_forecast_row_id, 'CE_FC_RMT_DB_EXCEPTION', error_msg);
1594: return;
1595: END;
1596: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1597: xtr_debug_pkg.debug('<
1599: EXCEPTION
1600: WHEN OTHERS THEN
1593: XTR_CASH_FCST.G_forecast_row_id, 'CE_FC_RMT_DB_EXCEPTION', error_msg);
1594: return;
1595: END;
1596: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1597: xtr_debug_pkg.debug('<
1599: EXCEPTION
1600: WHEN OTHERS THEN
1601: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1597: xtr_debug_pkg.debug('<
1599: EXCEPTION
1600: WHEN OTHERS THEN
1601: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1602: xtr_debug_pkg.debug('EXCEPTION:Build_Remote_Query');
1603: END IF;
1604: FND_MESSAGE.set_name('CE', 'CE_FC_RMT_EXCEPTION');
1605: error_msg := FND_MESSAGE.get;
1598: END IF;
1599: EXCEPTION
1600: WHEN OTHERS THEN
1601: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1602: xtr_debug_pkg.debug('EXCEPTION:Build_Remote_Query');
1603: END IF;
1604: FND_MESSAGE.set_name('CE', 'CE_FC_RMT_EXCEPTION');
1605: error_msg := FND_MESSAGE.get;
1606: CE_FORECAST_ERRORS_PKG.insert_row(XTR_CASH_FCST.G_forecast_id, XTR_CASH_FCST.G_rp_forecast_header_id,
1626: --
1627: -- Based on the source_trx_type call the different procedures
1628: -- to build the queries dynamically
1629: --
1630: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1631: xtr_debug_pkg.debug('>>XTR_CSH_FCST_POP.Populate_Cells');
1632: END IF;
1633:
1634: IF (XTR_CASH_FCST.G_trx_type = 'API') THEN
1627: -- Based on the source_trx_type call the different procedures
1628: -- to build the queries dynamically
1629: --
1630: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
1631: xtr_debug_pkg.debug('>>XTR_CSH_FCST_POP.Populate_Cells');
1632: END IF;
1633:
1634: IF (XTR_CASH_FCST.G_trx_type = 'API') THEN
1635: Build_AP_Invoice_Query;