[Home] [Help]
PACKAGE BODY: APPS.AR_CMGT_CREDIT_CLASS_CONC
Source
1 PACKAGE BODY AR_CMGT_CREDIT_CLASS_CONC AS
2 /* $Header: ARCMCLSB.pls 115.3 2002/11/22 19:59:21 bsarkar noship $ */
3
4 PROCEDURE update_credit_classification(
5 errbuf IN OUT NOCOPY VARCHAR2,
6 retcode IN OUT NOCOPY VARCHAR2,
7 p_profile_class_id IN VARCHAR2,
8 p_credit_classification IN VARCHAR2,
9 p_update_flag IN VARCHAR2
10 )IS
11
12 l_conc_request_id NUMBER;
13 l_conc_program_id NUMBER;
14 l_conc_login_id NUMBER;
15 l_sql_statement VARCHAR2(4000);
16
17 BEGIN
18 arp_util.debug('AR_CMGT_CREDIT_CLASS_CONC.update_credit_classification (+)');
19
20 l_conc_request_id := fnd_global.conc_request_id;
21 l_conc_program_id := fnd_global.conc_program_id;
22 l_conc_login_id := fnd_global.user_id;
23
24 IF NVL(p_update_flag,'N')= 'Y' THEN
25 l_sql_statement := 'UPDATE hz_customer_profiles '||
26 'SET last_updated_by = :1, '||
27 'last_update_date = :2, '||
28 'program_id = :3, '||
29 'program_update_date = :4, '||
30 'request_id = :5, '||
31 'credit_classification = :6 '||
32 'WHERE profile_class_id = :7 ';
33 EXECUTE IMMEDIATE l_sql_statement using
34 l_conc_login_id, SYSDATE,l_conc_program_id,
35 TRUNC( SYSDATE ),l_conc_request_id,
36 p_credit_classification, p_profile_class_id;
37 ELSIF NVL(p_update_flag,'N')= 'N' THEN
38 l_sql_statement := 'UPDATE hz_customer_profiles '||
39 'SET last_updated_by = :1, '||
40 'last_update_date = :2, '||
41 'program_id = :3, '||
42 'program_update_date = :4, '||
43 'request_id = :5, '||
44 'credit_classification = :6 '||
45 'WHERE profile_class_id = :7 ' ||
46 'AND credit_classification IS NULL ';
47 EXECUTE IMMEDIATE l_sql_statement using
48 l_conc_login_id, SYSDATE,l_conc_program_id,
49 TRUNC( SYSDATE ),l_conc_request_id,
50 p_credit_classification, p_profile_class_id;
51 END IF;
52
53 arp_util.debug('AR_CMGT_CREDIT_CLASS_CONC.update_credit_classification (-)');
54
55 EXCEPTION
56 WHEN others THEN
57 arp_util.debug('EXCEPTION : AR_CMGT_CREDIT_CLASS_CONC.update_credit_classification '||SQLERRM);
58 app_exception.raise_exception;
59 END;
60
61 END AR_CMGT_CREDIT_CLASS_CONC;