[Home] [Help]
PACKAGE BODY: APPS.ARI_AUDIT_PKG
Source
1 PACKAGE BODY ARI_AUDIT_PKG AS
2 /* $Header: ARIADTPB.pls 120.0.12020000.4 2013/03/31 11:22:45 melapaku noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR(31) := 'ARI_AUDIT_PKG';
5
6 ------------------------------------------------------------------------------
7 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
8
9 PROCEDURE Insert_Payment_Audit(
10 p_payment_audit_id IN OUT NOCOPY NUMBER,
11 p_payment_type IN VARCHAR2,
12 p_cust_account_id IN NUMBER,
13 p_customer_site_use_id IN NUMBER DEFAULT NULL,
14 p_oir_payment_status IN VARCHAR2 DEFAULT NULL,
15 p_cash_receipt_id IN NUMBER DEFAULT NULL,
16 p_receipt_date IN DATE DEFAULT SYSDATE,
17 p_receipt_status IN VARCHAR2 DEFAULT NULL,
18 p_last_updated_by IN NUMBER DEFAULT NULL,
19 p_last_update_date IN DATE DEFAULT NULL,
20 p_last_update_login IN NUMBER DEFAULT NULL,
21 p_created_by IN NUMBER DEFAULT NULL,
22 p_creation_date IN DATE DEFAULT NULL,
23 p_currency_code IN VARCHAR2,
24 p_amount IN NUMBER,
25 p_invoices IN VARCHAR2,
26 p_responsibility_id IN NUMBER DEFAULT NULL,
27 p_operating_unit IN NUMBER DEFAULT NULL,
28 p_transaction_id IN NUMBER DEFAULT NULL)
29 ------------------------------------------------------------------------------
30 IS
31
32 l_procedure_name VARCHAR2(31) := '.Insert_Payment_Audit';
33 l_debug_info VARCHAR2(200);
34 l_payment_audit_id NUMBER(15,0);
35 CURSOR C2 IS SELECT ARI_REGISTRATIONS_S.nextval FROM sys.dual;
36 BEGIN
37
38 IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
39 fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, 'Begin+');
40 END IF;
41 ----------------------------------------------------------------------------
42 l_debug_info := 'In debug mode, log we have entered this procedure';
43 ----------------------------------------------------------------------------
44
45 IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
46 fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
47 END IF;
48
49 l_payment_audit_id := p_payment_audit_id;
50
51 IF (l_payment_audit_id is NULL) THEN
52 l_debug_info := 'Open cursor C2';
53 OPEN C2;
54 l_debug_info := 'Fetch cursor C2';
55 FETCH C2 INTO l_payment_audit_id;
56 l_debug_info := 'Close cursor C2';
57 CLOSE C2;
58 END IF;
59
60 p_payment_audit_id := l_payment_audit_id;
61
62 ----------------------------------------------------------------------------
63 l_debug_info := 'Insert into OIR_PAYMENT_AUDIT';
64 ----------------------------------------------------------------------------
65 IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
66 fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
67 END IF;
68
69 INSERT INTO OIR_PAYMENT_AUDIT(
70 PAYMENT_AUDIT_ID,
71 PAYMENT_TYPE,
72 CUST_ACCOUNT_ID,
73 CUSTOMER_SITE_USE_ID,
74 OIR_PAYMENT_STATUS,
75 CASH_RECEIPT_ID,
76 RECEIPT_DATE,
77 RECEIPT_STATUS,
78 LAST_UPDATED_BY,
79 LAST_UPDATE_DATE,
80 LAST_UPDATE_LOGIN,
81 CREATED_BY,
82 CREATION_DATE,
83 CURRENCY_CODE,
84 AMOUNT,
85 INVOICES,
86 RESPONSIBILITY_ID,
87 OPERATING_UNIT,
88 TRANSACTIONID)
89 VALUES (
90 l_payment_audit_id,
91 p_payment_type,
92 p_cust_account_id,
93 p_customer_site_use_id,
94 p_oir_payment_status,
95 p_cash_receipt_id,
96 p_receipt_date,
97 p_receipt_status,
98 fnd_global.user_id,
99 sysdate,
100 fnd_global.user_id,
101 fnd_global.user_id,
102 sysdate,
103 p_currency_code,
104 p_amount,
105 p_invoices,
106 fnd_global.resp_id,
107 fnd_global.org_id,
108 p_transaction_id);
109
110 l_debug_info := 'After insert';
111
112 IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
113 fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
114 END IF;
115
116 COMMIT;
117 ----------------------------------------------------------------------------
118 l_debug_info := 'In debug mode, log that we have exited this procedure';
119 ----------------------------------------------------------------------------
120 IF (PG_DEBUG = 'Y') THEN
121 arp_standard.debug(G_PKG_NAME || l_procedure_name ||l_debug_info||'-');
122 END IF;
123
124 EXCEPTION
125 WHEN OTHERS THEN
126 IF (SQLCODE <> -20001) THEN
127 IF (PG_DEBUG = 'Y') THEN
128 arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
129 arp_standard.debug('Debug: ' || l_debug_info);
130 arp_standard.debug(SQLERRM);
131 END IF;
132 FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
133 FND_MSG_PUB.ADD;
134 END IF;
135 APP_EXCEPTION.RAISE_EXCEPTION;
136 END Insert_Payment_Audit;
137
138
139 PROCEDURE Update_Payment_Audit(
140 p_payment_audit_id IN NUMBER,
141 p_payment_type IN VARCHAR2 DEFAULT NULL ,
142 p_cust_account_id IN NUMBER DEFAULT NULL ,
143 p_customer_site_use_id IN NUMBER DEFAULT NULL,
144 p_oir_payment_status IN VARCHAR2 DEFAULT NULL,
145 p_cash_receipt_id IN NUMBER DEFAULT NULL,
146 p_receipt_date IN DATE DEFAULT SYSDATE,
147 p_receipt_status IN VARCHAR2 DEFAULT NULL,
148 p_last_updated_by IN NUMBER DEFAULT NULL,
149 p_last_update_date IN DATE DEFAULT NULL,
150 p_last_update_login IN NUMBER DEFAULT NULL,
151 p_created_by IN NUMBER DEFAULT NULL,
152 p_creation_date IN DATE DEFAULT NULL,
153 p_currency_code IN VARCHAR2 DEFAULT NULL,
154 p_amount IN NUMBER DEFAULT NULL,
155 p_invoices IN VARCHAR2 DEFAULT NULL,
156 p_responsibility_id IN NUMBER DEFAULT NULL,
157 p_operating_unit IN NUMBER DEFAULT NULL,
158 p_transaction_id IN NUMBER DEFAULT NULL)
159 IS
160
161 l_procedure_name VARCHAR2(31) := '.Update_Payment_Audit';
162 l_debug_info VARCHAR2(200);
163 l_payment_audit_id NUMBER(15,0);
164 BEGIN
165
166 IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
167 fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, 'Begin+');
168 END IF;
169 ----------------------------------------------------------------------------
170 l_debug_info := 'In debug mode, log we have entered this procedure';
171 ----------------------------------------------------------------------------
172
173 IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
174 fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
175 END IF;
176
177 l_payment_audit_id := p_payment_audit_id;
178
179
180 ----------------------------------------------------------------------------
181 l_debug_info := 'Update into OIR_PAYMENT_AUDIT';
182 ----------------------------------------------------------------------------
183 IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
184 fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
185 END IF;
186
187 update OIR_PAYMENT_AUDIT set
188 PAYMENT_TYPE = decode(p_payment_type,NULL,PAYMENT_TYPE,p_payment_type),
189 CUST_ACCOUNT_ID = decode(p_cust_account_id,NULL,CUST_ACCOUNT_ID,p_cust_account_id),
190 CUSTOMER_SITE_USE_ID = decode(p_customer_site_use_id,NULL,CUSTOMER_SITE_USE_ID,p_customer_site_use_id),
191 OIR_PAYMENT_STATUS = decode(p_oir_payment_status,NULL,OIR_PAYMENT_STATUS,p_oir_payment_status),
192 CASH_RECEIPT_ID = decode(p_cash_receipt_id,NULL,CASH_RECEIPT_ID,p_cash_receipt_id),
193 RECEIPT_DATE = decode(p_receipt_date, NULL, RECEIPT_DATE, p_receipt_date),
194 RECEIPT_STATUS = decode(p_receipt_status,NULL,RECEIPT_STATUS,p_receipt_status),
195 LAST_UPDATED_BY = fnd_global.user_id,
196 LAST_UPDATE_DATE = sysdate,
197 LAST_UPDATE_LOGIN = fnd_global.user_id,
198 CURRENCY_CODE = decode(p_currency_code,NULL,CURRENCY_CODE,p_currency_code),
199 AMOUNT = decode(p_amount, NULL, AMOUNT,p_amount),
200 INVOICES = decode(p_invoices,NULL,INVOICES,p_invoices),
201 RESPONSIBILITY_ID = decode(p_responsibility_id,NULL,RESPONSIBILITY_ID,p_responsibility_id),
202 OPERATING_UNIT = decode(p_operating_unit,NULL,OPERATING_UNIT,p_operating_unit),
203 TRANSACTIONID = decode(p_transaction_id,NULL,TRANSACTIONID,p_transaction_id)
204 where PAYMENT_AUDIT_ID = l_payment_audit_id;
205
206 l_debug_info := 'After Update';
207
208 IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
209 fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
210 END IF;
211
212 COMMIT;
213 ----------------------------------------------------------------------------
214 l_debug_info := 'In debug mode, log that we have exited this procedure';
215 ----------------------------------------------------------------------------
216 IF (PG_DEBUG = 'Y') THEN
217 arp_standard.debug(G_PKG_NAME || l_procedure_name ||l_debug_info||'-');
218 END IF;
219
220 EXCEPTION
221 WHEN OTHERS THEN
222 IF (SQLCODE <> -20001) THEN
223 IF (PG_DEBUG = 'Y') THEN
224 arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
225 arp_standard.debug('Debug: ' || l_debug_info);
226 arp_standard.debug(SQLERRM);
227 END IF;
228 FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
229 FND_MSG_PUB.ADD;
230 END IF;
231 APP_EXCEPTION.RAISE_EXCEPTION;
232 END Update_Payment_Audit;
233
234 END ARI_AUDIT_PKG;