2: /* $Header: OKLRRTXS.pls 115.1 2002/02/06 20:32:49 pkm ship $ */
3: ---------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: ---------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
3: ---------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: ---------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
11: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
4: -- GLOBAL MESSAGE CONSTANTS
5: ---------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
11: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
5: ---------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
11: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
11: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
14: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
7: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
11: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
14: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
17: ---------------------------------------------------------------------------
18: -- GLOBAL VARIABLES
19: ---------------------------------------------------------------------------
20: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_RECYCLE_TRMNT_PVT';
21: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
22:
23: ---------------------------------------------------------------------------
24: -- GLOBAL DATASTRUCTURES
25: ---------------------------------------------------------------------------
23: ---------------------------------------------------------------------------
24: -- GLOBAL DATASTRUCTURES
25: ---------------------------------------------------------------------------
26: TYPE recy_rec_type IS RECORD (
27: p_contract_id NUMBER := OKL_API.G_MISS_NUM,
28: p_contract_number VARCHAR2(200) := OKL_API.G_MISS_CHAR,
29: p_contract_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
30: p_transaction_id NUMBER := OKL_API.G_MISS_NUM,
31: p_transaction_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
24: -- GLOBAL DATASTRUCTURES
25: ---------------------------------------------------------------------------
26: TYPE recy_rec_type IS RECORD (
27: p_contract_id NUMBER := OKL_API.G_MISS_NUM,
28: p_contract_number VARCHAR2(200) := OKL_API.G_MISS_CHAR,
29: p_contract_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
30: p_transaction_id NUMBER := OKL_API.G_MISS_NUM,
31: p_transaction_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
32: p_tmt_recycle_yn VARCHAR2(200) := OKL_API.G_MISS_CHAR,
25: ---------------------------------------------------------------------------
26: TYPE recy_rec_type IS RECORD (
27: p_contract_id NUMBER := OKL_API.G_MISS_NUM,
28: p_contract_number VARCHAR2(200) := OKL_API.G_MISS_CHAR,
29: p_contract_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
30: p_transaction_id NUMBER := OKL_API.G_MISS_NUM,
31: p_transaction_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
32: p_tmt_recycle_yn VARCHAR2(200) := OKL_API.G_MISS_CHAR,
33: p_transaction_date DATE := OKL_API.G_MISS_DATE);
26: TYPE recy_rec_type IS RECORD (
27: p_contract_id NUMBER := OKL_API.G_MISS_NUM,
28: p_contract_number VARCHAR2(200) := OKL_API.G_MISS_CHAR,
29: p_contract_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
30: p_transaction_id NUMBER := OKL_API.G_MISS_NUM,
31: p_transaction_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
32: p_tmt_recycle_yn VARCHAR2(200) := OKL_API.G_MISS_CHAR,
33: p_transaction_date DATE := OKL_API.G_MISS_DATE);
34:
27: p_contract_id NUMBER := OKL_API.G_MISS_NUM,
28: p_contract_number VARCHAR2(200) := OKL_API.G_MISS_CHAR,
29: p_contract_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
30: p_transaction_id NUMBER := OKL_API.G_MISS_NUM,
31: p_transaction_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
32: p_tmt_recycle_yn VARCHAR2(200) := OKL_API.G_MISS_CHAR,
33: p_transaction_date DATE := OKL_API.G_MISS_DATE);
34:
35: TYPE recy_tbl_type IS TABLE OF recy_rec_type INDEX BY BINARY_INTEGER;
28: p_contract_number VARCHAR2(200) := OKL_API.G_MISS_CHAR,
29: p_contract_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
30: p_transaction_id NUMBER := OKL_API.G_MISS_NUM,
31: p_transaction_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
32: p_tmt_recycle_yn VARCHAR2(200) := OKL_API.G_MISS_CHAR,
33: p_transaction_date DATE := OKL_API.G_MISS_DATE);
34:
35: TYPE recy_tbl_type IS TABLE OF recy_rec_type INDEX BY BINARY_INTEGER;
36:
29: p_contract_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
30: p_transaction_id NUMBER := OKL_API.G_MISS_NUM,
31: p_transaction_status VARCHAR2(200) := OKL_API.G_MISS_CHAR,
32: p_tmt_recycle_yn VARCHAR2(200) := OKL_API.G_MISS_CHAR,
33: p_transaction_date DATE := OKL_API.G_MISS_DATE);
34:
35: TYPE recy_tbl_type IS TABLE OF recy_rec_type INDEX BY BINARY_INTEGER;
36:
37: ---------------------------------------------------------------------------
38: -- PROCEDURES
39: ---------------------------------------------------------------------------
40: PROCEDURE recycle_termination(
41: p_api_version IN NUMBER,
42: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
43: x_return_status OUT NOCOPY VARCHAR2,
44: x_msg_count OUT NOCOPY NUMBER,
45: x_msg_data OUT NOCOPY VARCHAR2,
46: p_recy_rec IN recy_rec_type,
47: x_recy_rec OUT NOCOPY recy_rec_type);
48:
49: PROCEDURE recycle_termination(
50: p_api_version IN NUMBER,
51: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
52: x_return_status OUT NOCOPY VARCHAR2,
53: x_msg_count OUT NOCOPY NUMBER,
54: x_msg_data OUT NOCOPY VARCHAR2,
55: p_recy_tbl IN recy_tbl_type,