[Home] [Help]
PACKAGE BODY: APPS.OKL_VR_DATA_HANDLER_PVT
Source
1 PACKAGE BODY OKL_VR_DATA_HANDLER_PVT AS
2 /* $Header: OKLMVARB.pls 120.0.12020000.2 2012/11/23 06:36:25 bkatraga noship $ */
3
4
5 PROCEDURE UPDATE_LAST_INT_CAL_DATE(
6 p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 p_contract_id IN NUMBER,
12 p_last_interest_cal_date IN DATE
13 )
14 IS
15
16 BEGIN
17 OKL_VARIABLE_INTEREST_PVT.print_debug('Before updating Last Interest Calculation Date:' || p_last_interest_cal_date);
18 x_return_status := OKL_API.G_RET_STS_SUCCESS;
19
20 UPDATE okl_k_headers khr
21 SET khr.date_last_interim_interest_cal = p_last_interest_cal_date
22 WHERE khr.id = p_contract_id;
23
24 EXCEPTION
25 WHEN OTHERS THEN
26 OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure UPDATE_LAST_INT_CAL_DATE');
27 Okl_Api.SET_MESSAGE(
28 p_app_name => G_APP_NAME,
29 p_msg_name => G_UNEXPECTED_ERROR,
30 p_token1 => G_SQLCODE_TOKEN,
31 p_token1_value => SQLCODE,
32 p_token2 => G_SQLERRM_TOKEN,
33 p_token2_value => SQLERRM);
34 x_return_status := OKL_API.G_RET_STS_ERROR;
35 END UPDATE_LAST_INT_CAL_DATE;
36
37
38
39 PROCEDURE INSERT_PRINCIPAL_BAL_TXN(
40 p_api_version IN NUMBER,
41 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
42 x_return_status OUT NOCOPY VARCHAR2,
43 x_msg_count OUT NOCOPY NUMBER,
44 x_msg_data OUT NOCOPY VARCHAR2,
45 p_vpb_tbl IN OKL_VARIABLE_INTEREST_PVT.vpb_tbl_type) IS
46
47 l_index NUMBER := 0;
48
49 BEGIN
50 x_return_status := OKL_API.G_RET_STS_SUCCESS;
51
52 OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure INSERT_PRINCIPAL_BAL_TXN using following parameters : ');
53 OKL_VARIABLE_INTEREST_PVT.print_debug(' p_vpb_tbl.count : '|| p_vpb_tbl.COUNT );
54 OKL_VARIABLE_INTEREST_PVT.print_vpb_tbl (p_vpb_tbl);
55
56 IF (p_vpb_tbl.COUNT > 0) THEN
57 FORALL l_index in p_vpb_tbl.FIRST .. p_vpb_tbl.LAST
58 save exceptions
59 INSERT INTO OKL_VAR_PRINCIPAL_BAL_TXN VALUES p_vpb_tbl(l_index);
60
61 OKL_VARIABLE_INTEREST_PVT.print_debug ('Exception count : '|| sql%bulk_exceptions.count);
62 IF sql%bulk_exceptions.count > 0 then
63 for i in 1..sql%bulk_exceptions.count loop
64 OKL_VARIABLE_INTEREST_PVT.print_debug('while fetching, error ' || i || ' occurred during '||
65 'iteration ' || sql%bulk_exceptions(i).error_index);
66 OKL_VARIABLE_INTEREST_PVT.print_debug('oracle error is ' ||
67 sqlerrm(sql%bulk_exceptions(i).error_code));
68
69 end loop;
70 end if;
71 OKL_VARIABLE_INTEREST_PVT.print_debug ('No. of records inserted : '|| SQL%rowcount);
72 END IF;
73
74 EXCEPTION
75 WHEN OTHERS THEN
76 OKL_VARIABLE_INTEREST_PVT.print_error_message('Exception raised in procedure INSERT_PRINCIPAL_BAL_TXN');
77 OKL_VARIABLE_INTEREST_PVT.print_debug ('Exception during bulk insert');
78 OKL_VARIABLE_INTEREST_PVT.print_debug ('Exception count : '|| sql%bulk_exceptions.count);
79 IF sql%bulk_exceptions.count > 0 then
80 for i in 1..sql%bulk_exceptions.count loop
81 OKL_VARIABLE_INTEREST_PVT.print_debug('while fetching, error ' || i || ' occurred during '||
82 'iteration ' || sql%bulk_exceptions(i).error_index);
83 OKL_VARIABLE_INTEREST_PVT.print_debug('oracle error is ' ||
84 sqlerrm(sql%bulk_exceptions(i).error_code));
85 end loop;
86 END IF;
87
88 x_return_status := OKL_API.G_RET_STS_ERROR;
89 Okl_Api.SET_MESSAGE(
90 p_app_name => G_APP_NAME,
91 p_msg_name => G_UNEXPECTED_ERROR,
92 p_token1 => G_SQLCODE_TOKEN,
93 p_token1_value => SQLCODE,
94 p_token2 => G_SQLERRM_TOKEN,
95 p_token2_value => SQLERRM);
96 END INSERT_PRINCIPAL_BAL_TXN;
97
98
99
100 PROCEDURE INSERT_VIR_PARAMS(
101 p_api_version IN NUMBER,
102 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
103 x_return_status OUT NOCOPY VARCHAR2,
104 x_msg_count OUT NOCOPY NUMBER,
105 x_msg_data OUT NOCOPY VARCHAR2,
106 p_vir_tbl IN OKL_VARIABLE_INTEREST_PVT.vir_tbl_type) IS
107
108 l_index NUMBER := 0;
109
110 BEGIN
111 x_return_status := OKL_API.G_RET_STS_SUCCESS;
112
113 OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure INSERT_VIR_PARAMS using following parameters : ');
114 OKL_VARIABLE_INTEREST_PVT.print_debug(' p_vir_tbl.count : '|| p_vir_tbl.COUNT );
115 OKL_VARIABLE_INTEREST_PVT.print_vir_tbl (p_vir_tbl);
116
117 IF (p_vir_tbl.COUNT > 0) THEN
118 FORALL l_index in p_vir_tbl.FIRST .. p_vir_tbl.LAST
119 save exceptions
120 INSERT INTO okl_var_int_params VALUES p_vir_tbl(l_index);
121
122 OKL_VARIABLE_INTEREST_PVT.print_debug ('Exception count : '|| sql%bulk_exceptions.count);
123 IF sql%bulk_exceptions.count > 0 then
124 for i in 1..sql%bulk_exceptions.count loop
125 OKL_VARIABLE_INTEREST_PVT.print_debug('while fetching, error ' || i || ' occurred during '||
126 'iteration ' || sql%bulk_exceptions(i).error_index);
127 OKL_VARIABLE_INTEREST_PVT.print_debug('oracle error is ' ||
128 sqlerrm(sql%bulk_exceptions(i).error_code));
129 end loop;
130 end if;
131 OKL_VARIABLE_INTEREST_PVT.print_debug ('No. of records inserted : '|| SQL%rowcount);
132 END IF;
133
134 EXCEPTION
135 WHEN OTHERS THEN
136 OKL_VARIABLE_INTEREST_PVT.print_error_message('Exception raised in procedure POPULATE_VIR_PARAMS');
137 OKL_VARIABLE_INTEREST_PVT.print_debug ('Exception during bulk insert');
138 OKL_VARIABLE_INTEREST_PVT.print_debug ('Exception count : '|| sql%bulk_exceptions.count);
139 IF sql%bulk_exceptions.count > 0 then
140 for i in 1..sql%bulk_exceptions.count loop
141 OKL_VARIABLE_INTEREST_PVT.print_debug('while fetching, error ' || i || ' occurred during '||
142 'iteration ' || sql%bulk_exceptions(i).error_index);
143 OKL_VARIABLE_INTEREST_PVT.print_debug('oracle error is ' ||
144 sqlerrm(sql%bulk_exceptions(i).error_code));
145 end loop;
146 END IF;
147
148 x_return_status := OKL_API.G_RET_STS_ERROR;
149 Okl_Api.SET_MESSAGE(
150 p_app_name => G_APP_NAME,
151 p_msg_name => G_UNEXPECTED_ERROR,
152 p_token1 => G_SQLCODE_TOKEN,
153 p_token1_value => SQLCODE,
154 p_token2 => G_SQLERRM_TOKEN,
155 p_token2_value => SQLERRM);
156 END INSERT_VIR_PARAMS;
157
158 END;