[Home] [Help]
PACKAGE BODY: APPS.OE_SECURITY_PVT
Source
1 PACKAGE BODY OE_SECURITY_PVT AS
2 /* $Header: OEXVSECB.pls 120.0 2005/06/01 01:24:45 appldev noship $ */
3
4 -- Start of Comments
5 -- API name OE_SECURITY_PVT
6 -- Type PRIVATE
7 -- Function
8 --
9 -- Pre-reqs
10 --
11 -- Parameters
12 --
13 -- Version Current version = 1.0
14 -- Initial version = 1.0
15 --
16 -- Notes
17 --
18 -- End of Comments
19 Procedure ChkProcConstraints(
20 x_sec_req IN OUT NOCOPY /* file.sql.39 change */ OE_SECURITY_PVT.G_SECURITY_REC_TYPE
21 ,x_return_status OUT NOCOPY Varchar2
22
23 ,x_result OUT NOCOPY Varchar2
24
25 ,x_msg_data OUT NOCOPY Varchar2
26
27 ,x_msg_count OUT NOCOPY Number) IS
28
29 l_rslt number := 1;
30 --
31 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
32 --
33 BEGIN
34 IF l_debug_level > 0 THEN
35 oe_debug_pub.add( 'CHKPROCCONSTRAINTS: CALLING SECURITY FOR KEY ' || X_SEC_REQ.WF_ITEM_KEY || ' WITH RESP ID ' || TO_CHAR ( X_SEC_REQ.RESPONSIBILITY_ID ) ) ;
36 END IF;
37 x_return_status := FND_API.G_RET_STS_ERROR;
38 x_result := FND_API.G_FALSE;
39 -- call processing constraints api
40 /* l_rslt := OE_PC_CONSTRAINTS_MANAGER_PUB.Is_Entity_Op_Constrained(
41 p_api_version => '1.0'
42 ,p_application_id => x_sec_req.application_id
43 ,p_responsibility_id => x_sec_req.responsibility_id
44 ,p_work_item_type => x_sec_req.wf_item_type
45 ,p_work_item_key => x_sec_req.wf_item_key
46 ,p_attribute_group => x_sec_req.attribute_group
47 ,p_attribute_code => x_sec_req.attribute_code
48 ,p_operation_code => x_sec_req.operation_code
49 ,p_constraint_id => x_sec_req.constraint_id
50 ,p_constraint_type => x_sec_req.constraint_type
51 ,p_resolving_activity_name =>
52 x_sec_req.resolving_activity_name
53 ,p_resolving_activity_item_type =>
54 x_sec_req.resolving_activity_item_type
55 ,p_resolving_responsibility_id =>
56 x_sec_req.resolving_responsibility_id
57 ,p_error_code => x_sec_req.err_code
58 ,p_msg_count => x_msg_count
59 ,p_msg_data => x_msg_data
60 ); */
61 IF l_debug_level > 0 THEN
62 oe_debug_pub.add( 'THE THE SECURITY TYPE ' || X_SEC_REQ.CONSTRAINT_TYPE || 'WITH RESULT :' || TO_CHAR ( L_RSLT ) || ' FOR CONSTRINTID ' || TO_CHAR ( X_SEC_REQ.CONSTRAINT_ID ) ) ;
63 END IF;
64 IF l_debug_level > 0 THEN
65 oe_debug_pub.add( 'THE RESOLVING ITEM : ' || X_SEC_REQ.RESOLVING_ACTIVITY_ITEM_TYPE || ' ACTIVITY : ' || X_SEC_REQ.RESOLVING_ACTIVITY_NAME);
66 oe_debug_pub.add( ' RESPONSIBILITY ID : ' || TO_CHAR ( X_SEC_REQ.RESOLVING_RESPONSIBILITY_ID ) ) ;
67 END IF;
68 /* if (l_rslt = wfx_constraintsmanager_pub.G_error) then
69 -- unexpected error occured in processing constraints API
70 IF FND_MSG_PUB.Check_MSg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
71 FND_MSG_PUB.Add_Exc_Msg
72 (G_PKG_NAME
73 ,'ChkProcConstraints'
74 ,'wfx_constraintsManager_pub.isOperationConstrained Returned unexpected error');
75 END IF;
76 raise FND_API.G_EXC_UNEXPECTED_ERROR;
77 elsif (l_rslt =wfx_constraintsManager_pub.G_yes) --Security constraint exists,
78 -- Cancellation not permitted.
79 then
80 x_return_status := FND_API.G_RET_STS_SUCCESS;
81 x_result := FND_API.G_FALSE;
82 else
83 x_return_status := FND_API.G_RET_STS_SUCCESS;
84 x_result := FND_API.G_TRUE;
85 end if; */
86 EXCEPTION
87 WHEN FND_API.G_EXC_ERROR THEN
88 x_return_status := FND_API.G_RET_STS_ERROR;
89 x_result := FND_API.G_FALSE;
90 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92 x_result := FND_API.G_FALSE;
93 WHEN OTHERS THEN
94 IF FND_MSG_PUB.Check_MSg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
95 FND_MSG_PUB.Add_Exc_Msg
96 (G_PKG_NAME
97 ,'ChkProcConstraints');
98 END IF;
99 x_return_status := FND_API.G_RET_STS_ERROR;
100 x_result := FND_API.G_FALSE;
101 END ChkProcConstraints;
102
103 END;