1412: l_income_taxes ar_cmgt_financial_data.income_taxes%type;
1413: l_net_income ar_cmgt_financial_data.net_income%type;
1414: l_earnings_per_share ar_cmgt_financial_data.earnings_per_share%type;
1415: l_financial_data_id ar_cmgt_financial_data.financial_data_id%type;
1416: l_party_id ar_cmgt_case_folders.party_id%type;
1417: l_cust_account_id ar_cmgt_case_folders.cust_account_id%type;
1418: l_site_use_id ar_cmgt_case_folders.site_use_id%type;
1419: l_limit_currency ar_cmgt_case_folders.limit_currency%type;
1420:
1413: l_net_income ar_cmgt_financial_data.net_income%type;
1414: l_earnings_per_share ar_cmgt_financial_data.earnings_per_share%type;
1415: l_financial_data_id ar_cmgt_financial_data.financial_data_id%type;
1416: l_party_id ar_cmgt_case_folders.party_id%type;
1417: l_cust_account_id ar_cmgt_case_folders.cust_account_id%type;
1418: l_site_use_id ar_cmgt_case_folders.site_use_id%type;
1419: l_limit_currency ar_cmgt_case_folders.limit_currency%type;
1420:
1421: BEGIN
1414: l_earnings_per_share ar_cmgt_financial_data.earnings_per_share%type;
1415: l_financial_data_id ar_cmgt_financial_data.financial_data_id%type;
1416: l_party_id ar_cmgt_case_folders.party_id%type;
1417: l_cust_account_id ar_cmgt_case_folders.cust_account_id%type;
1418: l_site_use_id ar_cmgt_case_folders.site_use_id%type;
1419: l_limit_currency ar_cmgt_case_folders.limit_currency%type;
1420:
1421: BEGIN
1422: IF pg_wf_debug = 'Y'
1415: l_financial_data_id ar_cmgt_financial_data.financial_data_id%type;
1416: l_party_id ar_cmgt_case_folders.party_id%type;
1417: l_cust_account_id ar_cmgt_case_folders.cust_account_id%type;
1418: l_site_use_id ar_cmgt_case_folders.site_use_id%type;
1419: l_limit_currency ar_cmgt_case_folders.limit_currency%type;
1420:
1421: BEGIN
1422: IF pg_wf_debug = 'Y'
1423: THEN
1434: cmcf.cust_account_id,
1435: nvl(hzs.cust_acct_site_id,cmcf.site_use_id),
1436: cmcf.limit_currency
1437: INTO l_party_id, l_cust_account_id, l_site_use_id, l_limit_currency
1438: FROM ar_cmgt_case_folders cmcf,
1439: hz_cust_site_uses_all hzs
1440: WHERE cmcf.case_folder_id = p_case_folder_id
1441: AND cmcf.site_use_id = hzs.site_use_id (+);
1442:
1442:
1443: EXCEPTION
1444: WHEN OTHERS THEN
1445: p_resultout := 1;
1446: p_errmsg := 'Error while getting party information from ar_cmgt_case_folders'||
1447: ' SqlError '|| sqlerrm;
1448: ar_cmgt_util.wf_debug(p_case_folder_id, p_errmsg);
1449: return;
1450: END;
1848: SELECT last_updated, -- last_credit_review_date
1849: case_folder_number,
1850: status,
1851: check_list_id
1852: FROM ar_cmgt_case_folders
1853: WHERE party_id = p_party_id
1854: AND cust_account_id = p_cust_account_id
1855: AND site_use_id = p_site_use_id
1856: AND type = 'DATA';
1856: AND type = 'DATA';
1857:
1858: CURSOR c_case_folder_score IS
1859: SELECT SUM(b.score) score
1860: FROM ar_cmgt_case_folders a, ar_cmgt_cf_dtls b
1861: WHERE a.party_id = p_party_id
1862: AND a.cust_account_id = p_cust_account_id
1863: AND a.site_use_id = p_site_use_id
1864: AND a.type = 'DATA'
2120: l_cust_account_id,
2121: l_customer_site_use_id,
2122: l_currency_code,
2123: l_credit_request_id
2124: FROM ar_cmgt_case_folders
2125: WHERE case_folder_id = p_case_folder_id;
2126: EXCEPTION
2127: WHEN others THEN
2128: l_check_flag := 'N';
2655: p_case_folder_id OUT nocopy NUMBER,
2656: p_error_msg OUT nocopy VARCHAR2,
2657: p_resultout OUT nocopy VARCHAR2) AS
2658:
2659: l_case_folder_number ar_cmgt_case_folders.case_folder_number%TYPE;
2660: l_case_folder_id ar_cmgt_case_folders.case_folder_id%TYPE;
2661: BEGIN
2662: p_resultout := 0;
2663: g_data_case_folder_exists := 'N';
2656: p_error_msg OUT nocopy VARCHAR2,
2657: p_resultout OUT nocopy VARCHAR2) AS
2658:
2659: l_case_folder_number ar_cmgt_case_folders.case_folder_number%TYPE;
2660: l_case_folder_id ar_cmgt_case_folders.case_folder_id%TYPE;
2661: BEGIN
2662: p_resultout := 0;
2663: g_data_case_folder_exists := 'N';
2664: -- Get id from sequence
2661: BEGIN
2662: p_resultout := 0;
2663: g_data_case_folder_exists := 'N';
2664: -- Get id from sequence
2665: SELECT ar_cmgt_case_folders_s.nextval
2666: INTO p_case_folder_id
2667: FROM dual;
2668:
2669: IF pg_wf_debug = 'Y'
2708:
2709: BEGIN
2710: SELECT case_folder_id
2711: INTO g_data_case_folder_id
2712: FROM ar_cmgt_case_folders
2713: WHERE party_id = p_party_id
2714: AND cust_account_id = p_cust_account_id
2715: AND site_use_id = p_cust_acct_site_id
2716: -- AND limit_currency = p_limit_currency
2718:
2719: g_data_case_folder_exists := 'Y';
2720: -- update case folder number in case data exists
2721:
2722: UPDATE ar_cmgt_case_folders
2723: set case_folder_number = l_case_folder_number,
2724: check_list_id = p_check_list_id,
2725: score_model_id = p_score_model_id,
2726: limit_currency = p_limit_currency,
2739: g_data_case_folder_exists := 'Y';
2740: EXCEPTION
2741: WHEN NO_DATA_FOUND THEN
2742: BEGIN
2743: SELECT ar_cmgt_case_folders_s.nextval
2744: INTO g_data_case_folder_id
2745: FROM dual;
2746: g_data_case_folder_exists := 'N';
2747: AR_CMGT_CONTROLS.populate_case_folder (
5850: END IF;
5851: ELSIF p_mode = 'REFRESH'
5852: THEN
5853: -- Referesh case
5854: UPDATE ar_cmgt_case_folders
5855: set last_updated = SYSDATE,
5856: last_update_date = SYSDATE,
5857: last_updated_by = fnd_global.user_id,
5858: last_update_login = fnd_global.login_id
6388: last_update_date = sysdate,
6389: last_update_login = fnd_global.login_id
6390: WHERE case_folder_id = p_case_folder_id;
6391: END IF;
6392: UPDATE ar_cmgt_case_folders
6393: SET status = 'SAVED',
6394: last_updated = SYSDATE,
6395: last_update_date = SYSDATE,
6396: last_updated_by = fnd_global.user_id,