[Home] [Help]
PACKAGE: APPS.OKL_AM_BTCH_EXP_LEASE_LOAN_PVT
Source
1 PACKAGE OKL_AM_BTCH_EXP_LEASE_LOAN_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRLLBS.pls 120.2 2005/09/20 22:42:39 rmunjulu noship $ */
3
4
5 ---------------------------------------------------------------------------
6 -- GLOBAL CONSTANTS
7 ---------------------------------------------------------------------------
8 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_BTCH_EXP_LEASE_LOAN_PVT';
9 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
10 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
11
12
13 -- RMUNJULU 05-MAR-03 Fixed msg constant
14 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
15 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
16 G_APP_NAME_1 CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
17
18 G_EXCEPTION_HALT EXCEPTION;
19
20 ---------------------------------------------------------------------------
21 -- GLOBAL DATASTRUCTURES
22 ---------------------------------------------------------------------------
23 SUBTYPE term_rec_type IS OKL_AM_LEASE_LOAN_TRMNT_PUB.term_rec_type;
24 SUBTYPE term_tbl_type IS OKL_AM_LEASE_LOAN_TRMNT_PUB.term_tbl_type;
25 SUBTYPE tcnv_rec_type IS OKL_AM_LEASE_LOAN_TRMNT_PUB.tcnv_rec_type;
26
27 ---------------------------------------------------------------------------
28 -- PROCEDURES
29 ---------------------------------------------------------------------------
30 PROCEDURE check_if_quotes_existing(
31 p_term_rec IN term_rec_type,
32 x_return_status OUT NOCOPY VARCHAR2,
33 x_quotes_found OUT NOCOPY VARCHAR2);
34
35 PROCEDURE get_trn_rec(
36 p_contract_id IN NUMBER,
37 x_return_status OUT NOCOPY VARCHAR2,
38 x_trn_exists OUT NOCOPY VARCHAR2,
39 x_tcnv_rec OUT NOCOPY tcnv_rec_type);
40
41 PROCEDURE batch_expire_lease_loan(
42 p_api_version IN NUMBER,
43 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
44 x_return_status OUT NOCOPY VARCHAR2,
45 x_msg_count OUT NOCOPY NUMBER,
46 x_msg_data OUT NOCOPY VARCHAR2,
47 p_contract_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
48 x_term_tbl OUT NOCOPY term_tbl_type);
49
50 PROCEDURE concurrent_expire_lease_loan(
51 ERRBUF OUT NOCOPY VARCHAR2,
52 RETCODE OUT NOCOPY VARCHAR2,
53 p_api_version IN NUMBER,
54 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
55 p_contract_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM);
56
57
58 -- RMUNJULU 2730738 Added Rec Types and Tbl Types for proper output file
59
60
61 TYPE msg_rec_type IS RECORD (
62 msg VARCHAR2(2000));
63
64 TYPE msg_tbl_type IS TABLE OF msg_rec_type INDEX BY BINARY_INTEGER;
65
66 TYPE message_rec_type IS RECORD (
67 id NUMBER,
68 contract_number VARCHAR2(300),
69 start_date DATE,
70 end_date DATE,
71 status VARCHAR2(300));
72 -- SECHAWLA 26-JAN-04 3377730: A table can not have a table or record with composite fields on lower versions of db/Pl Sql
73 -- Commented out the pl/sql field as it was not being used to display messages.
74 -- ,msg_tbl msg_tbl_type);
75
76 TYPE message_tbl_type IS TABLE OF message_rec_type INDEX BY BINARY_INTEGER;
77
78 G_MSG_TBL_COUNTER NUMBER := 1;
79
80 ASSET_MSG_TBL msg_tbl_type;
81
82 PROCEDURE POP_ASSET_MSG_TBL;
83
84 -- RMUNJULU PERF
85 PROCEDURE child_process(
86 errbuf OUT NOCOPY VARCHAR2,
87 retcode OUT NOCOPY NUMBER,
88 p_assigned_processes IN VARCHAR2--,
89 --p_api_version IN NUMBER,
90 --p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
91 );
92
93 -- RMUNJULU PERF
94 PROCEDURE Process_Spawner (
95 errbuf OUT NOCOPY VARCHAR2,
96 retcode OUT NOCOPY NUMBER,
97 p_num_processes IN NUMBER,
98 p_term_date IN VARCHAR2
99 );
100
101 END OKL_AM_BTCH_EXP_LEASE_LOAN_PVT;