1 PACKAGE OKL_AM_TERMNT_VENDOR_PRG_PVT AS
2 /* $Header: OKLRTVPS.pls 120.1 2005/10/30 04:58:01 appldev noship $ */
3
4 ---------------------------------------------------------------------------
5 -- GLOBAL DATASTRUCTURES
6 ---------------------------------------------------------------------------
7 -- Rec Type to store IA Details
8 TYPE va_rec_type IS RECORD (
9 id NUMBER,
10 va_number OKC_K_HEADERS_B.contract_number%TYPE,
11 start_date DATE,
12 end_date DATE,
13 sts_code OKC_K_HEADERS_B.sts_code%TYPE,
14 date_terminated DATE,
15 scs_code OKC_K_HEADERS_B.scs_code%TYPE);
16
17 ---------------------------------------------------------------------------
18 -- PROCEDURES
19 ---------------------------------------------------------------------------
20
21 -- This Procedure is used to terminate investor agreement
22 PROCEDURE terminate_vendor_prog(
23 p_api_version IN NUMBER,
24 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
25 x_return_status OUT NOCOPY VARCHAR2,
26 x_msg_count OUT NOCOPY NUMBER,
27 x_msg_data OUT NOCOPY VARCHAR2,
28 p_va_rec IN va_rec_type,
29 p_control_flag IN VARCHAR2 DEFAULT NULL);
30
31 -- This procedure is called by concurrent manager to terminate end dated Vendor Program agreements.
32 PROCEDURE concurrent_expire_vend_prg(
33 errbuf OUT NOCOPY VARCHAR2,
34 retcode OUT NOCOPY VARCHAR2,
35 p_api_version IN VARCHAR2,
36 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
37 p_va_id IN VARCHAR2 DEFAULT NULL,
38 p_date IN VARCHAR2 DEFAULT NULL);
39
40 END OKL_AM_TERMNT_VENDOR_PRG_PVT;