[Home] [Help]
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;