[Home] [Help]
PACKAGE BODY: APPS.OKL_INT_EXT_CSH_APP_PUB
Source
1 PACKAGE BODY okl_int_ext_csh_app_pub AS
2 /* $Header: OKLPIECB.pls 115.6 2002/12/18 12:20:41 kjinger noship $ */
3
4 --Object type procedure for insert
5 PROCEDURE int_ext_csh_app_pub ( p_api_version IN NUMBER
6 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
7 ,x_return_status OUT NOCOPY VARCHAR2
8 ,x_msg_count OUT NOCOPY NUMBER
9 ,x_msg_data OUT NOCOPY VARCHAR2
10 ) IS
11
12 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
13 l_api_version NUMBER := 1;
14 l_init_msg_list VARCHAR2(1);
15 l_msg_count NUMBER;
16 l_msg_data VARCHAR(2000);
17
18 BEGIN
19
20 SAVEPOINT save_Insert_row;
21
22 l_api_version := p_api_version;
23 l_init_msg_list := p_init_msg_list;
24
25 -- customer pre-processing
26
27
28
29 OKL_INT_EXT_CSH_APP_PVT.int_ext_csh_app ( p_api_version
30 ,p_init_msg_list
31 ,x_return_status
32 ,x_msg_count
33 ,x_msg_data
34 );
35
36
37 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
38 RAISE G_EXCEPTION_HALT_VALIDATION;
39 ELSE
40 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
41 l_return_status := x_return_status;
42 END IF;
43 END IF;
44
45
46
47 --Assign value to OUT variables
48
49 x_return_status := l_return_status ;
50 x_msg_count := l_msg_count ;
51 x_msg_data := l_msg_data ;
52
53 EXCEPTION
54
55 WHEN Fnd_Api.G_EXC_ERROR THEN
56 ROLLBACK TO save_Insert_row;
57 x_return_status := Fnd_Api.G_RET_STS_ERROR;
58 x_msg_count := l_msg_count ;
59 x_msg_data := l_msg_data ;
60 Fnd_Msg_Pub.count_and_get(
61 p_count => x_msg_count
62 ,p_data => x_msg_data);
63 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
64 ROLLBACK TO save_Insert_row;
65 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
66 x_msg_count := l_msg_count ;
67 x_msg_data := l_msg_data ;
68 Fnd_Msg_Pub.count_and_get(
69 p_count => x_msg_count
70 ,p_data => x_msg_data);
71 WHEN OTHERS THEN
72 ROLLBACK TO save_Insert_row;
73 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
74 x_msg_count := l_msg_count ;
75 x_msg_data := l_msg_data ;
76 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_INT_EXT_CSH_APP_PUB','insert_row');
77 Fnd_Msg_Pub.count_and_get(
78 p_count => x_msg_count
79 ,p_data => x_msg_data);
80
81 END int_ext_csh_app_pub;
82
83
84 PROCEDURE int_ext_csh_app_conc ( errbuf OUT NOCOPY VARCHAR2
85 ,retcode OUT NOCOPY NUMBER )
86 IS
87
88 l_api_version NUMBER := 1;
89 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
90 lx_msg_count NUMBER;
91 lx_msg_data VARCHAR2(450);
92 l_init_msg_list VARCHAR2(1);
93
94 l_msg_index_out NUMBER :=0;
95 l_error_msg_rec Okl_Accounting_Util.Error_message_Type;
96
97 BEGIN
98
99
100 OKL_INT_EXT_CSH_APP_PUB.int_ext_csh_app_pub ( p_api_version => l_api_version
101 ,p_init_msg_list => l_init_msg_list
102 ,x_return_status => l_return_status
103 ,x_msg_count => lx_msg_count
104 ,x_msg_data => lx_msg_data
105 );
106
107 FND_FILE.PUT_LINE (FND_FILE.LOG, '***************************************');
108 FND_FILE.PUT_LINE (FND_FILE.LOG, 'OKL Concurrent Payment Process Program');
109 FND_FILE.PUT_LINE (FND_FILE.LOG, '***************************************');
110 FND_FILE.PUT_LINE (FND_FILE.LOG, 'Program Run Date:'||sysdate);
111 FND_FILE.PUT_LINE (FND_FILE.LOG, '***********************************************');
112 FND_FILE.PUT_LINE (FND_FILE.LOG, '***********************************************');
113 FND_FILE.PUT_LINE (FND_FILE.LOG, 'Detailed Error Messages For Each Consolidated invoice/Contract processed ...');
114 FND_FILE.PUT_LINE (FND_FILE.LOG, '----------------------------------------------------------------------------');
115
116 BEGIN
117
118 Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
119 IF (l_error_msg_rec.COUNT > 0) THEN
120 FOR i IN l_error_msg_rec.FIRST..l_error_msg_rec.LAST
121 LOOP
122 FND_FILE.PUT_LINE(FND_FILE.LOG, l_error_msg_rec(i));
123 FND_FILE.PUT_LINE (FND_FILE.LOG, '----------------------------------------------------------------------------');
124 END LOOP;
125 END IF;
126 /*
127 FOR i in 1..lx_msg_count LOOP
128 fnd_msg_pub.get (p_msg_index => i,
129 p_encoded => 'F',
130 p_data => lx_msg_data,
131 p_msg_index_out => l_msg_index_out);
132
133 FND_FILE.PUT_LINE (FND_FILE.OUTPUT,to_char(i) || ': ' || lx_msg_data);
134 END LOOP;
135 */
136 EXCEPTION
137 WHEN OTHERS THEN
138 FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
139 END;
140
141 EXCEPTION
142 WHEN OTHERS THEN
143 NULL ;
144 END int_ext_csh_app_conc;
145
146 END OKL_INT_EXT_CSH_APP_PUB;