[Home] [Help]
PACKAGE BODY: APPS.OZF_LE_UPGRADE_PVT
Source
1 PACKAGE BODY OZF_LE_UPGRADE_PVT AS
2 /* $Header: ozfvcleb.pls 120.1 2005/10/14 02:24:40 kdhulipa noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_LE_UPGRADE_PVT
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE : This package is created for Legal Entity Stamping.
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_LE_UPGRADE_PVT';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvcleb.pls';
19
20 ---------------------------------------------------------------------
21 -- PROCEDURE
22 -- Start_Process
23 --
24 -- HISTORY
25 -- 30-Sep-2005 kdhulipa Created.
26 --
27 ---------------------------------------------------------------------
28 PROCEDURE Start_Process(
29 ERRBUF OUT NOCOPY VARCHAR2,
30 RETCODE OUT NOCOPY NUMBER,
31 p_org_id IN NUMBER DEFAULT NULL
32 )
33 IS
34
35 l_retcode NUMBER := 0;
36 l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS ;
37 l_msg_count NUMBER;
38 l_msg_Data VARCHAR2(2000);
39 l_object_version NUMBER(9);
40
41 l_org_id NUMBER :=0;
42 l_claim_id NUMBER := 0;
43 l_legal_entity_id XLE_ENTITY_PROFILES.LEGAL_ENTITY_ID%TYPE;
44 l_ou_le_info xle_businessinfo_grp.OU_LE_Tbl_Type;
45
46 CURSOR claim_org_id_csr IS
47 SELECT claim_id, org_id
48 FROM ozf_claims_all
49 WHERE legal_entity_id is null;
50
51 BEGIN
52 SAVEPOINT Start_Process;
53 FND_FILE.PUT_LINE(FND_FILE.LOG, '+------------------- LEGAL ENTITY PROCESS START SUMMARY -------------------+');
54 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Job Starts on: '||to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
55 FND_FILE.PUT_LINE(FND_FILE.LOG, '+---------------------------------------------------------------------------+');
56
57 -- Main Cursor
58 OPEN claim_org_id_csr;
59 LOOP
60 FETCH claim_org_id_csr INTO l_claim_id, l_org_id;
61 EXIT when claim_org_id_csr%NOTFOUND;
62
63 -- Fetch the legal entity id into l_legal_entity_id from API
64
65 xle_businessinfo_grp.get_operatingunit_info (
66 x_return_status => l_return_status
67 ,x_msg_data => l_msg_data
68 ,p_operating_unit => l_org_id
69 ,p_legal_entity_id => NULL
70 ,p_party_id => NULL
71 ,x_ou_le_info => l_ou_le_info
72 );
73
74 IF ( l_return_status = FND_API.g_ret_sts_error
75 OR l_return_status = FND_API.g_ret_sts_unexp_error ) THEN
76 ROLLBACK TO Start_Process;
77 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Legal Entity ID is FAILED for the ORG_ID : '||l_org_id);
78 FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Legal Entity ID is FAILED for the ORG_ID : '||l_org_id);
79 OZF_UTILITY_PVT.write_conc_log;
80 END IF;
81
82 l_legal_entity_id := l_ou_le_info(1).legal_entity_id;
83
84
85 IF l_legal_entity_id IS NULL THEN
86 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Legal Entity ID is NULL for the ORG_ID : '||l_org_id);
87 ELSE
88
89 UPDATE OZF_CLAIMS_ALL
90 SET legal_entity_id = l_legal_entity_id
91 WHERE claim_id = l_claim_id;
92
93 FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------BEGIN------------ ');
94 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Legal Entity ID is SET for the Claim_id : '||l_claim_id);
95 FND_FILE.PUT_LINE(FND_FILE.LOG, 'ORG ID : '||l_org_id);
96 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Legal Entity ID : '||l_legal_entity_id);
97 FND_FILE.PUT_LINE(FND_FILE.LOG, '--------------END------------ ');
98 OZF_UTILITY_PVT.write_conc_log;
99 END IF;
100
101 END LOOP;
102 CLOSE claim_org_id_csr;
103
104 FND_FILE.PUT_LINE(FND_FILE.LOG, '+-------------------- LEGAL ENTITY PROCESS END SUMMARY --------------------+');
105 FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Job Ended on: '||to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
106
107 EXCEPTION
108 WHEN FND_API.g_exc_error THEN
109 ROLLBACK TO Start_Process;
110 FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Error happened during LE ---*/');
111 OZF_UTILITY_PVT.Write_Conc_Log;
112 ERRBUF := l_msg_data;
113 RETCODE := 1;
114
115 WHEN FND_API.g_exc_unexpected_error THEN
116 ROLLBACK TO Start_Process;
117 FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Error happened during LE ---*/');
118 OZF_UTILITY_PVT.Write_Conc_Log;
119 ERRBUF := l_msg_data;
120 RETCODE := 2;
121
122 WHEN OTHERS THEN
123 ROLLBACK TO Start_Process;
124 FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Inside Others, Error happened during LE ---*/');
125 OZF_UTILITY_PVT.Write_Conc_Log;
126 ERRBUF := l_msg_data;
127 RETCODE := 2;
128
129 END Start_Process;
130
131 END OZF_LE_UPGRADE_PVT;