[Home] [Help]
PACKAGE BODY: APPS.IBY_EXT_WRAP_PUB
Source
1 PACKAGE BODY IBY_EXT_WRAP_PUB AS
2 /* $Header: ibyextwb.pls 120.2.12020000.2 2012/07/12 15:11:02 sgogula noship $ */
3
4 G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11
12
13 --Procedure to log messages to the concurrent log
14
15 PROCEDURE print_debuginfo(p_debug_text IN VARCHAR2,
16 p_debug_level IN VARCHAR2 DEFAULT FND_LOG.LEVEL_STATEMENT,
17 p_module IN VARCHAR2
18 )
19 IS
20 PRAGMA AUTONOMOUS_TRANSACTION;
21
22 BEGIN
23 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
24 IF (FND_GLOBAL.conc_request_id = -1) THEN
25 FND_LOG.STRING(G_LEVEL_STATEMENT,p_module, p_debug_text);
26 ELSE
27 FND_FILE.PUT_LINE(FND_FILE.LOG, p_module || ': ' || p_debug_text);
28 END IF;
29 END IF;
30 END;
31
32 FUNCTION Get_Ins_Ext_Agg(p_payment_instruction_id IN NUMBER)
33 RETURN XMLTYPE
34 IS
35 l_ins_ext_agg XMLTYPE;
36 l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Ins_Ext_Agg';
37
38 BEGIN
39 l_ins_ext_agg:= IBY_FD_EXTRACT_EXT_PUB.Get_Ins_Ext_Agg(p_payment_instruction_id);
40
41 IF(l_ins_ext_agg IS NULL) THEN
42 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
43 print_debuginfo('Custom Code IBY_FD_EXTRACT_EXT_PUB.Get_Ins_Ext_Agg() returned a NULL value',
44 G_LEVEL_STATEMENT,l_dbg_mod);
45 END IF;
46 END IF;
47
48 RETURN l_ins_ext_agg;
49
50 EXCEPTION
51 WHEN OTHERS THEN
52 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
53 print_debuginfo('Exception Occurred while invoking the CUSTOM Code - IBY_FD_EXTRACT_EXT_PUB.Get_Ins_Ext_Agg():',
54 G_LEVEL_UNEXPECTED,l_dbg_mod);
55 print_debuginfo('Error Message:'||SQLERRM,G_LEVEL_UNEXPECTED,l_dbg_mod);
56 print_debuginfo('Error Code: '||sqlcode,G_LEVEL_UNEXPECTED,l_dbg_mod);
57 END IF;
58 l_ins_ext_agg := null;
59 RETURN l_ins_ext_agg;
60
61 END Get_Ins_Ext_Agg;
62
63
64
65 FUNCTION Get_Pmt_Ext_Agg(p_payment_id IN NUMBER)
66 RETURN XMLTYPE
67 IS
68 l_pmt_ext_agg XMLTYPE;
69 l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Pmt_Ext_Agg';
70
71 BEGIN
72 l_pmt_ext_agg:= IBY_FD_EXTRACT_EXT_PUB.Get_Pmt_Ext_Agg(p_payment_id);
73
74 IF(l_pmt_ext_agg IS NULL) THEN
75 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
76 print_debuginfo('Custom Code IBY_FD_EXTRACT_EXT_PUB.Get_Pmt_Ext_Agg() returned a NULL value'
77 ,G_LEVEL_PROCEDURE,l_dbg_mod);
78 END IF;
79 END IF;
80 RETURN l_pmt_ext_agg;
81
82 EXCEPTION
83 WHEN OTHERS THEN
84 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
85 print_debuginfo('Exception Occurred in the CUSTOM Code - IBY_FD_EXTRACT_EXT_PUB.Get_Pmt_Ext_Agg()',
86 G_LEVEL_UNEXPECTED,l_dbg_mod);
87 print_debuginfo('Error Message:'||SQLERRM,G_LEVEL_UNEXPECTED,l_dbg_mod);
88 print_debuginfo('Error Code: '||sqlcode,G_LEVEL_UNEXPECTED,l_dbg_mod);
89 END IF;
90 l_pmt_ext_agg := null;
91 RETURN l_pmt_ext_agg;
92
93 END Get_Pmt_Ext_Agg;
94
95
96
97 FUNCTION Get_Doc_Ext_Agg(p_document_payable_id IN NUMBER)
98 RETURN XMLTYPE
99 IS
100 l_doc_ext_agg XMLTYPE:=NULL;
101 l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Doc_Ext_Agg';
102
103 BEGIN
104 l_doc_ext_agg:= IBY_FD_EXTRACT_EXT_PUB.Get_Doc_Ext_Agg(p_document_payable_id);
105
106 IF(l_doc_ext_agg IS NULL) THEN
107 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
108 print_debuginfo('Custom Code IBY_FD_EXTRACT_EXT_PUB.Get_Doc_Ext_Agg() returned a NULL value'
109 ,G_LEVEL_PROCEDURE,l_dbg_mod);
110 END IF;
111 END IF;
112
113 RETURN l_doc_ext_agg;
114 EXCEPTION
115 WHEN OTHERS THEN
116 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
117 print_debuginfo('Exception Occurred in the CUSTOM Code - IBY_FD_EXTRACT_EXT_PUB.Get_Doc_Ext_Agg()',
118 G_LEVEL_UNEXPECTED,l_dbg_mod);
119 print_debuginfo('Error Message:'||SQLERRM,G_LEVEL_UNEXPECTED,l_dbg_mod);
120 print_debuginfo('Error Code: '||sqlcode,G_LEVEL_UNEXPECTED,l_dbg_mod);
121 END IF;
122 l_doc_ext_agg:= null;
123 RETURN l_doc_ext_agg;
124
125 END Get_Doc_Ext_Agg;
126
127
128
129 FUNCTION Get_Docline_Ext_Agg(p_document_payable_id IN NUMBER, p_line_number IN NUMBER)
130 RETURN XMLTYPE
131 IS
132 l_docline_ext_agg XMLTYPE;
133 l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Docline_Ext_Agg';
134
135 BEGIN
136 l_docline_ext_agg:= IBY_FD_EXTRACT_EXT_PUB.Get_Docline_Ext_Agg(p_document_payable_id,p_line_number);
137
138 IF(l_docline_ext_agg IS NULL) THEN
139 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
140 print_debuginfo('Custom Code IBY_FD_EXTRACT_EXT_PUB.Get_Docline_Ext_Agg() returned a NULL value'
141 ,G_LEVEL_PROCEDURE,l_dbg_mod);
142 END IF;
143 END IF;
144
145 RETURN l_docline_ext_agg;
146
147 EXCEPTION
148 WHEN OTHERS THEN
149 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
150 print_debuginfo('Exception Occurred in the CUSTOM Code - IBY_FD_EXTRACT_EXT_PUB.Get_Docline_Ext_Agg()',
151 G_LEVEL_UNEXPECTED,l_dbg_mod);
152 print_debuginfo('Error Message:'||SQLERRM,G_LEVEL_UNEXPECTED,l_dbg_mod);
153 print_debuginfo('Error Code: '||sqlcode,G_LEVEL_UNEXPECTED,l_dbg_mod);
154 END IF;
155 l_docline_ext_agg := null;
156 RETURN l_docline_ext_agg;
157
158 END Get_Docline_Ext_Agg;
159
160
161 FUNCTION Get_Ppr_Ext_Agg(p_payment_service_request_id IN NUMBER)
162 RETURN XMLTYPE
163 IS
164 l_ppr_ext_agg XMLTYPE;
165 l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Ppr_Ext_Agg';
166
167 BEGIN
168 l_ppr_ext_agg:= IBY_FD_EXTRACT_EXT_PUB.Get_Ppr_Ext_Agg(p_payment_service_request_id);
169
170 IF(l_ppr_ext_agg IS NULL) THEN
171 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
172 print_debuginfo(l_dbg_mod,
173 'Custom Code IBY_FD_EXTRACT_EXT_PUB.Get_Ppr_Ext_Agg() returned a NULL value',
174 G_LEVEL_STATEMENT);
175 END IF;
176 END IF;
177
178 RETURN l_ppr_ext_agg;
179 EXCEPTION
180 WHEN OTHERS THEN
181 IF (G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
182 print_debuginfo('Exception Occurred in the CUSTOM Code - IBY_FD_EXTRACT_EXT_PUB.Get_Ppr_Ext_Agg()',
183 G_LEVEL_UNEXPECTED,l_dbg_mod);
184 print_debuginfo('Error Code:' || sqlcode, G_LEVEL_UNEXPECTED, l_dbg_mod);
185 print_debuginfo('Error Message:' || SQLERRM, G_LEVEL_UNEXPECTED, l_dbg_mod);
186 END IF;
187 l_ppr_ext_agg := null;
188 RETURN l_ppr_ext_agg;
189
190 END Get_Ppr_Ext_Agg;
191
192
193 END IBY_EXT_WRAP_PUB;
194
195