PACKAGE BODY: APPS.JE_ES_MOD_LE_UPDATE

Source

1 PACKAGE BODY je_es_mod_le_update AS
2 /* $Header: jeesmodb.pls 120.2 2006/11/03 08:23:34 anvijaya noship $ */
3 
4 PROCEDURE update_main IS
5 l_org_id  NUMBER(15);
6 l_return_status  VARCHAR2(50);
7 l_msg_count  NUMBER(15);
8 l_msg_data  VARCHAR2(50);
9 l_le_info  NUMBER(15);
10 
11 CURSOR upgrade_cur IS
12    SELECT DISTINCT org_id
13    FROM je_es_modelo_190_all
14    WHERE legal_entity_id IS NULL
15    AND org_id IS NOT NULL;
16 
17 BEGIN
18 
19   OPEN upgrade_cur;
20 
21   LOOP
22           FETCH upgrade_cur INTO l_org_id;
23           EXIT WHEN upgrade_cur%NOTFOUND;
24 
25 l_le_info :=XLE_UTILITIES_GRP.Get_DefaultLegalContext_OU(l_org_id);
26 
27 /*XLE_UPGRADE_UTILS.Get_default_legal_context ( l_return_status,
28                                                         l_msg_count,
29                                         l_msg_data,
30                                                 l_org_id,
31                                                 l_le_info );
32 */
33          IF NVL(l_return_status, 'ZZZZ') <> 'E' THEN
34            IF l_le_info IS NOT NULL THEN
35                 UPDATE je_es_modelo_190_all
36                 SET legal_entity_id = l_le_info
37                 WHERE org_id = l_org_id
38                 AND legal_entity_id IS NULL;
39 
40            END IF;
41 
42          END IF;
43 
44   END LOOP;
45 
46   CLOSE upgrade_cur;
47 
48   EXCEPTION
49            WHEN OTHERS THEN null;
50 
51 
52 END;
53 END je_es_mod_le_update;