[Home] [Help]
1978: l_scs_code VARCHAR2(30);
1979: l_sysdate DATE;
1980:
1981: cursor c1 is
1982: select code from okc_statuses_b
1983: where ste_code='SIGNED'
1984: and default_yn='Y';
1985: cursor c2 is
1986: select code from okc_statuses_b
1982: select code from okc_statuses_b
1983: where ste_code='SIGNED'
1984: and default_yn='Y';
1985: cursor c2 is
1986: select code from okc_statuses_b
1987: where ste_code='ACTIVE'
1988: and default_yn='Y';
1989: cursor c3 is
1990: select code from okc_statuses_b
1986: select code from okc_statuses_b
1987: where ste_code='ACTIVE'
1988: and default_yn='Y';
1989: cursor c3 is
1990: select code from okc_statuses_b
1991: where ste_code='EXPIRED'
1992: and default_yn='Y';
1993: --
1994: cursor lock1_csr is
1997: decode(sign(months_between(p_date_signed-1,sysdate)),-1,
1998: decode(sign(months_between(L.start_date-1,sysdate)),-1,
1999: l_active_status,l_signed_status),l_signed_status),l_expired_status) STS_CODE
2000: from okc_k_lines_b L
2001: , okc_statuses_b S
2002: where L.dnz_chr_id = p_contract_id
2003: and S.code = L.sts_code
2004: and S.ste_code='ENTERED'
2005: ;
2094:
2095: --Bug:3675868 set L1_header_rec.old_ste_code
2096: select ste_code
2097: into L1_header_rec.old_ste_code
2098: from okc_statuses_b
2099: where code = L1_header_rec.old_sts_code;
2100:
2101: --Bug:3675868 set L1_header_rec.new_ste_code
2102: select ste_code
2100:
2101: --Bug:3675868 set L1_header_rec.new_ste_code
2102: select ste_code
2103: into L1_header_rec.new_ste_code
2104: from okc_statuses_b
2105: where code = l_new_status;
2106:
2107: --Bug:3675868 set L1_header_rec.new_sts_code
2108: L1_header_rec.new_sts_code := l_new_status;
2158: 'updating line status');
2159: END IF;
2160:
2161: UPDATE (SELECT l.sts_code, l.start_date, l.end_date
2162: FROM okc_k_lines_b l, okc_statuses_b s
2163: WHERE l.dnz_chr_id = p_contract_id
2164: AND s.code = l.sts_code
2165: AND s.ste_code = 'ENTERED') oks
2166: SET