1 PACKAGE OKL_AM_TERMINATE_INV_AGMT_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRTIAS.pls 115.3 2004/01/26 20:53:57 sechawla noship $ */
3
4 ---------------------------------------------------------------------------
5 -- GLOBAL MESSAGE CONSTANTS
6 ---------------------------------------------------------------------------
7 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
8 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
9 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
10 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
11 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
12
13 ---------------------------------------------------------------------------
14 -- GLOBAL VARIABLES
15 ---------------------------------------------------------------------------
16 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_TERMINATE_INV_AGMT_PVT';
17 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
18 G_APP_NAME_1 CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
19 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_UNEXP_ERROR;
20 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
21 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
22 G_API_VERSION CONSTANT NUMBER := 1;
23 G_MISS_CHAR CONSTANT VARCHAR2(1) := OKL_API.G_MISS_CHAR;
24 G_MISS_NUM CONSTANT NUMBER := OKL_API.G_MISS_NUM;
25 G_MISS_DATE CONSTANT DATE := OKL_API.G_MISS_DATE;
26 G_TRUE CONSTANT VARCHAR2(1) := OKL_API.G_TRUE;
27 G_FALSE CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
28 G_YES CONSTANT VARCHAR2(1) := 'Y';
29 G_NO CONSTANT VARCHAR2(1) := 'N';
30 G_FIRST CONSTANT NUMBER := FND_MSG_PUB.G_FIRST;
31 G_NEXT CONSTANT NUMBER := FND_MSG_PUB.G_NEXT;
32
33 ---------------------------------------------------------------------------
34 -- GLOBAL EXCEPTIONS
35 ---------------------------------------------------------------------------
36 G_EXCEPTION_UNEXPECTED_ERROR EXCEPTION;
37 G_EXCEPTION_ERROR EXCEPTION;
38 G_EXCEPTION_HALT EXCEPTION;
39
40 ---------------------------------------------------------------------------
41 -- GLOBAL DATASTRUCTURES
42 ---------------------------------------------------------------------------
43
44 -- Rec Type to Store IA Line Details
45 TYPE ialn_rec_type IS RECORD (
46 id NUMBER,
47 name VARCHAR2(2000));
48
49 -- Table Type for Recs of IA Lines
50 TYPE ialn_tbl_type IS TABLE OF ialn_rec_type INDEX BY BINARY_INTEGER;
51
52 -- Rec Type to Store Messages
53
54 -- SECHAWLA 26-JAN-04 3377730: Added id field to msg_rec_type
55 TYPE msg_rec_type IS RECORD (
56 id NUMBER, -- Added
57 msg VARCHAR2(2000));
58
59 -- Table Type to Messages Rec
60 TYPE msg_tbl_type IS TABLE OF msg_rec_type INDEX BY BINARY_INTEGER;
61
62 -- Rec Type to Store Message details with IA details
63 TYPE message_rec_type IS RECORD (
64 id NUMBER,
65 contract_number VARCHAR2(300),
66 start_date DATE,
67 end_date DATE,
68 status VARCHAR2(300) );
69
70 -- SECHAWLA 26-JAN-04 3377730: A table can not have a table or record with composite fields on lower versions of
71 -- db/Pl Sql Removed msg_tbl from message_rec_type.
72 -- msg_tbl msg_tbl_type);
73
74 -- Table Type to Store Recs of Message details with IA details
75 TYPE message_tbl_type IS TABLE OF message_rec_type INDEX BY BINARY_INTEGER;
76
77
78 -- Rec Type to Store Lease K Details
79 TYPE ia_k_rec_type IS RECORD (
80 id NUMBER,
81 contract_number OKC_K_HEADERS_B.contract_number%TYPE,
82 start_date DATE,
83 end_date DATE,
84 sts_code OKC_K_HEADERS_B.sts_code%TYPE,
85 date_terminated DATE);
86
87 -- Table Type to store Recs of IA Details
88 TYPE ia_k_tbl_type IS TABLE OF ia_k_rec_type INDEX BY BINARY_INTEGER;
89
90 -- Rec Type to store IA Details
91 TYPE ia_rec_type IS RECORD (
92 id NUMBER,
93 contract_number OKC_K_HEADERS_B.contract_number%TYPE,
94 start_date DATE,
95 end_date DATE,
96 sts_code OKC_K_HEADERS_B.sts_code%TYPE,
97 date_terminated DATE,
98 scs_code OKC_K_HEADERS_B.scs_code%TYPE,
99 pdt_id NUMBER,
100 pool_id NUMBER,
101 pool_number OKL_POOLS.pool_number%TYPE);
102
103 -- SUBTYPE the transaction Rec Type
104 SUBTYPE tcnv_rec_type IS OKL_TRX_CONTRACTS_PUB.tcnv_rec_type;
105
106 ---------------------------------------------------------------------------
107 -- PROCEDURES
108 ---------------------------------------------------------------------------
109
110 -- This Procedure is used to terminate investor agreement
111 PROCEDURE terminate_investor_agreement(
112 p_api_version IN NUMBER,
113 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
114 x_return_status OUT NOCOPY VARCHAR2,
115 x_msg_count OUT NOCOPY NUMBER,
116 x_msg_data OUT NOCOPY VARCHAR2,
117 p_ia_rec IN ia_rec_type,
118 p_control_flag IN VARCHAR2 DEFAULT NULL);
119
120 -- This procedure is called by concurrent manager to terminate ended investor agreements.
121 PROCEDURE concurrent_expire_inv_agrmt(
122 errbuf OUT NOCOPY VARCHAR2,
123 retcode OUT NOCOPY VARCHAR2,
124 p_api_version IN VARCHAR2,
125 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
126 p_ia_id IN VARCHAR2 DEFAULT NULL,
127 p_date IN VARCHAR2 DEFAULT NULL);
128
129 END OKL_AM_TERMINATE_INV_AGMT_PVT;