[Home] [Help]
PACKAGE: APPS.OKL_AM_TERMINATE_INV_AGMT_PUB
Source
1 PACKAGE OKL_AM_TERMINATE_INV_AGMT_PUB AUTHID CURRENT_USER AS
2 /* $Header: OKLPTIAS.pls 115.2 2003/10/20 22:14:40 rmunjulu noship $ */
3
4 ---------------------------------------------------------------------------
5 -- GLOBAL MESSAGE CONSTANTS
6 ---------------------------------------------------------------------------
7 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
8 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
9 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
10
11 ---------------------------------------------------------------------------
12 -- GLOBAL VARIABLES
13 ---------------------------------------------------------------------------
14 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_TERMINATE_INV_AGMT_PUB';
15 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
16 G_APP_NAME_1 CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
17 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_UNEXP_ERROR;
18 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
19 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
20 G_TRUE CONSTANT VARCHAR2(1) := OKL_API.G_TRUE;
21 G_FALSE CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
22
23 ---------------------------------------------------------------------------
24 -- GLOBAL EXCEPTIONS
25 ---------------------------------------------------------------------------
26 G_EXCEPTION_UNEXPECTED_ERROR EXCEPTION;
27 G_EXCEPTION_ERROR EXCEPTION;
28
29 SUBTYPE ia_rec_type IS OKL_AM_TERMINATE_INV_AGMT_PVT.ia_rec_type;
30 ---------------------------------------------------------------------------
31 -- PROCEDURES
32 ---------------------------------------------------------------------------
33
34 -- This Procedure is used to terminate investor agreement
35 PROCEDURE terminate_investor_agreement(
36 p_api_version IN NUMBER,
37 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
38 x_return_status OUT NOCOPY VARCHAR2,
39 x_msg_count OUT NOCOPY NUMBER,
40 x_msg_data OUT NOCOPY VARCHAR2,
41 p_ia_rec IN ia_rec_type,
42 p_control_flag IN VARCHAR2 DEFAULT NULL);
43
44 -- This procedure is called by concurrent manager to terminate ended investor agreements.
45 PROCEDURE concurrent_expire_inv_agrmt(
46 errbuf OUT NOCOPY VARCHAR2,
47 retcode OUT NOCOPY VARCHAR2,
48 p_api_version IN VARCHAR2,
49 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
50 p_ia_id IN VARCHAR2 DEFAULT NULL,
51 p_date IN VARCHAR2 DEFAULT NULL);
52
53 END OKL_AM_TERMINATE_INV_AGMT_PUB;