[Home] [Help]
15: x_return_status OUT NOCOPY VARCHAR2)
16: IS
17: BEGIN
18:
19: DELETE FROM oks_headers_temp
20: WHERE chr_id = p_contract_id;
21:
22: DELETE FROM oks_lines_temp
23: WHERE dnz_chr_id = p_contract_id;
2730: x_return_status out nocopy varchar2) IS
2731: PRAGMA autonomous_transaction;
2732:
2733: CURSOR check_saved_flag_csr IS
2734: SELECT saved_flag FROM oks_headers_temp WHERE chr_id = p_contract_id;
2735:
2736: l_saved_flag VARCHAR2(1) := 'N';
2737: l_return_status VARCHAR2(1);
2738:
2750: IF l_saved_flag = 'N' THEN
2751:
2752: DELETE_CONTRACT_DATA(p_contract_id,l_return_status);
2753:
2754: INSERT INTO oks_headers_temp
2755: (chr_id,chr_id_char,
2756: contract_number,
2757: contract_number_modifier,
2758: contract_start_date,
3362: global_status,
3363: (SELECT ste_code FROM okc_statuses_v WHERE code = global_status AND ROWNUM=1) global_status_code,
3364: global_reason_code,
3365: global_comments
3366: FROM oks_headers_temp
3367: WHERE chr_id = p_contract_id;
3368:
3369: l_cascade VARCHAR2(1);
3370: l_global_start_date DATE;
3669: WHERE dnz_chr_id = p_contract_id
3670: AND price_change_flag = 'Y'
3671: AND top_lvl_parent <> -99;
3672:
3673: UPDATE oks_headers_temp
3674: SET global_start_date = NULL,
3675: global_end_date = NULL,
3676: global_price_negotiated = NULL,
3677: global_status = NULL,
3716: sub_request => FALSE,
3717: argument1 => p_contract_id
3718: );
3719:
3720: UPDATE oks_headers_temp
3721: SET saved_flag = 'N', request_id = l_request_id
3722: WHERE chr_id = p_contract_id;
3723:
3724: COMMIT;
3731: BEGIN
3732:
3733: DELETE FROM oks_lines_temp WHERE dnz_chr_id = p_contract_id;
3734: DELETE FROM oks_sublines_temp WHERE dnz_chr_id = p_contract_id;
3735: DELETE FROM oks_headers_temp WHERE Chr_id = p_contract_id;
3736: COMMIT;
3737:
3738: END delete_changes;
3739: