PACKAGE BODY: APPS.OZF_DEBUG_PVT

Source

1 PACKAGE BODY OZF_DEBUG_PVT AS
2 /*$Header: ozfvdbgb.pls 120.0.12020000.2 2013/02/25 08:26:49 nirprasa noship $*/
3 
4 /*****************************************************************************************/
5    -- NAME --    DEBUG_MO
6    -- PURPOSE
7    --    Retrieves the MOAC context form MO_GLOBAL and DB session
8    --    and pass it to the calling API.
9 /*****************************************************************************************/
10 
11 PROCEDURE DEBUG_MO(P_APP_SHORT_NAME OUT NOCOPY VARCHAR2,
12             P_RESP_ID OUT NOCOPY NUMBER,
13             P_USER_ID OUT NOCOPY NUMBER,
14             P_MO_CURRENT_ORG_ID OUT NOCOPY NUMBER,
15             P_MO_ACCESS_MODE OUT NOCOPY VARCHAR2,
16             P_DB_CURRENT_ORG_ID OUT NOCOPY NUMBER,
17             P_DB_ACCESS_MODE OUT NOCOPY VARCHAR2,
18             P_MO_SECURITY_ORGS OUT NOCOPY VARCHAR2)
19 IS
20 l_org_id NUMBER;
21 l_org_name VARCHAR2(1000);
22 l_tmp_str VARCHAR2(4000);
23 CURSOR c_populate_orgs IS SELECT ORGANIZATION_ID,ORGANIZATION_NAME from MO_GLOB_ORG_ACCESS_TMP;
24 BEGIN
25 		P_APP_SHORT_NAME :=FND_GLOBAL.APPLICATION_SHORT_NAME;
26 		P_RESP_ID := FND_GLOBAL.RESP_ID;
27 		P_USER_ID := FND_GLOBAL.USER_ID;
28 		P_MO_CURRENT_ORG_ID := mo_global.get_current_org_id;
29 		P_MO_ACCESS_MODE :=  mo_global.get_access_mode;
30 		P_DB_CURRENT_ORG_ID :=sys_context('multi_org2','current_org_id');
31 		P_DB_ACCESS_MODE := sys_context('multi_org','access_mode');
32 		OPEN c_populate_orgs;
33 			LOOP
34 				FETCH c_populate_orgs INTO l_org_id,l_org_name;
35 					l_tmp_str :=l_tmp_str||l_org_id ||',';
36 				EXIT WHEN c_populate_orgs%NOTFOUND;
37 			END LOOP;
38 		CLOSE c_populate_orgs;
39 		P_MO_SECURITY_ORGS := RTRIM(l_tmp_str,',');
40 EXCEPTION
41 	WHEN OTHERS THEN
42 		RAISE Fnd_Api.g_exc_error;
43 		ozf_utility_pvt.debug_message('Exception in Getting MOAC Context');
44 END;
45 
46 /*****************************************************************************************/
47    -- NAME --    DEBUG_MO
48    -- PURPOSE
49    --    Retrieves the MOAC context form MO_GLOBAL and DB session
50    --    and log  into the  FND_LOG_MESSAGES.
51 /*****************************************************************************************/
52 
53 PROCEDURE DEBUG_MO(P_TEXT IN VARCHAR2)
54 IS
55 l_org_id NUMBER;
56 l_org_name VARCHAR2(1000);
57 l_tmp_str VARCHAR2(4000);
58 CURSOR c_populate_orgs IS SELECT ORGANIZATION_ID,ORGANIZATION_NAME from MO_GLOB_ORG_ACCESS_TMP;
59 BEGIN
60 
61 OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF',P_TEXT||' APP_SHORT_NAME : '||FND_GLOBAL.APPLICATION_SHORT_NAME);
62 OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF',P_TEXT||' USER_ID : '||FND_GLOBAL.USER_ID);
63 OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF',P_TEXT||' RESP_ID : '||FND_GLOBAL.RESP_ID);
64 OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF',P_TEXT||' MO_ACCESS_MODE : '||mo_global.get_access_mode);
65 OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF',P_TEXT||' MO_CURRENT_ORG_ID : '||mo_global.get_current_org_id);
66 OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF',P_TEXT||' DB_ACCESS_MODE : '||sys_context('multi_org','access_mode'));
67 OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF',P_TEXT||' DB_CURRENT_ORG_ID : '||sys_context('multi_org2','current_org_id'));
68 OPEN c_populate_orgs;
69     LOOP
70 		FETCH c_populate_orgs INTO l_org_id,l_org_name;
71 			l_tmp_str :=l_tmp_str||l_org_id ||',';
72 		EXIT WHEN c_populate_orgs%NOTFOUND;
73     END LOOP;
74 CLOSE c_populate_orgs;
75 OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF',P_TEXT||' MO:Security profile :org_ids -- ' || RTRIM(l_tmp_str,','));
76 EXCEPTION
77 	WHEN OTHERS THEN
78 		RAISE Fnd_Api.g_exc_error;
79 		ozf_utility_pvt.debug_message('Exception in Getting MOAC Context');
80 END ;
81 
82 END OZF_DEBUG_PVT;