[Home] [Help]
PACKAGE BODY: APPS.PA_TEAM_TEMPLATES_UTILS
Source
1 PACKAGE BODY pa_team_templates_utils AS
2 /*$Header: PARTUTLB.pls 120.1 2005/08/19 17:02:16 mwasowic noship $*/
3 --
4
5
6
7 FUNCTION Is_Team_Template_Name_Unique(p_team_template_name IN pa_team_templates.team_template_name%TYPE)
8 RETURN VARCHAR2
9 IS
10
11 l_validate_team_template_name VARCHAR2(1);
12 l_return_value VARCHAR2(1);
13
14 CURSOR validate_team_template_name IS
15 SELECT 'X'
16 FROM pa_team_templates
17 WHERE team_template_name = p_team_template_name;
18
19 BEGIN
20 /*
21 -- Initialize the Error Stack
22 PA_DEBUG.set_err_stack('PA_TEAM_TEMPLATE_UTILS.Is_Team_Template_Name_Unique');
23
24 --Log Message
25 PA_DEBUG.write_log (x_module => 'pa.plsql.PA_TEAM_TEMPLATES_UTILS.Is_Team_Template_Name_Unique.begin'
26 ,x_msg => 'Beginning of Is_Team_Template_Name_Unique'
27 ,x_log_level => 5);
28 */
29 l_return_value := 'Y';
30 OPEN validate_team_template_name;
31
32 FETCH validate_team_template_name into l_validate_team_template_name;
33
34 IF validate_team_template_name%FOUND THEN
35 l_return_value := 'N';
36 END IF;
37
38 CLOSE validate_team_template_name;
39 RETURN l_return_value;
40
41 EXCEPTION
42 WHEN OTHERS THEN
43 /* --
44 -- Set the excetption Message and the stack
45 FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_TEAM_TEMPLATES_UTILS.Is_Team_Template_Name_Unique'
46 ,p_procedure_name => PA_DEBUG.G_Err_Stack );
47 --
48 */ RAISE;
49
50 END Is_Team_Template_Name_Unique;
51
52 PROCEDURE Check_Team_Template_Name_Or_Id(
53 p_team_template_id IN NUMBER,
54 p_team_template_name IN VARCHAR2,
55 p_check_id_flag IN VARCHAR2,
56 x_team_template_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
57 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
58 x_error_message_code OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
59 IS
60 P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
61 BEGIN
62
63 -- Initialize the Error Stack
64 PA_DEBUG.set_err_stack('PA_TEAM_TEMPLATE_UTILS.Check_Team_Template_Name_Or_Id');
65
66 --Log Message
67 IF (P_DEBUG_MODE ='Y') THEN
68 PA_DEBUG.write_log (x_module => 'pa.plsql.PA_TEAM_TEMPLATES_UTILS.Check_Team_Template_Name_Or_Id.begin'
69 ,x_msg => 'Beginning of Is_Team_Template_Name_Unique'
70 ,x_log_level => 5);
71 END IF;
72
73 IF p_team_template_id IS NOT NULL AND p_team_template_id<>FND_API.G_MISS_NUM THEN
74 IF p_check_id_flag = 'Y' THEN
75 SELECT team_template_id
76 INTO x_team_template_id
77 FROM pa_team_templates tt
78 WHERE tt.team_template_id = p_team_template_id;
79 ELSE
80 x_team_template_id := p_team_template_id;
81 END IF;
82 ELSE
83 SELECT team_template_id
84 INTO x_team_template_id
85 FROM pa_team_templates tt
86 WHERE tt.team_template_name = p_team_template_name;
87 END IF;
88
89 x_return_status := FND_API.G_RET_STS_SUCCESS;
90
91 EXCEPTION
92 WHEN NO_DATA_FOUND THEN
93 x_return_status := FND_API.G_RET_STS_ERROR;
94 x_error_message_code := 'PA_TEAM_TEMPLATE_INV_AMG';
95 WHEN TOO_MANY_ROWS THEN
96 x_return_status := FND_API.G_RET_STS_ERROR;
97 x_error_message_code := 'PA_TEAM_TEMPLATE_INV_AMG';
98 WHEN OTHERS THEN
99 -- Set the excetption Message and the stack
100 FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_TEAM_TEMPLATES_UTILS.Check_Team_Template_Name_Or_Id'
101 ,p_procedure_name => PA_DEBUG.G_Err_Stack );
102
103 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
104 RAISE; -- This is optional depending on the needs
105
106 END Check_Team_Template_Name_Or_Id;
107
108 ---Procedure Added for 3919767
109
110 PROCEDURE CallbackFunction( p_s_item_type IN VARCHAR2,
111 p_s_item_key IN VARCHAR2,
112 p_n_actid IN NUMBER,
113 p_s_command IN VARCHAR2,
114 p_s_result OUT NOCOPY VARCHAR2) IS
115 ----------------------------------------------------------------------
116 l_n_user_id Number;
117 l_n_resp_id Number;
118 l_n_resp_appl_id Number;
119
120 BEGIN
121 IF (p_s_command = 'TEST_CTX') THEN
122 p_s_result := 'FALSE';
123 ELSIF (p_s_command = 'SET_CTX') THEN
124 begin
125
126 l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
127 p_s_item_key,
128 'USER_ID');
129 l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
130 p_s_item_key,
131 'RESPONSIBILITY_ID');
132 l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
133 p_s_item_key,
134 'APPLICATION_ID');
135 -- Set the context
136 FND_GLOBAL.APPS_INITIALIZE( USER_ID => l_n_user_id,
137 RESP_ID => l_n_resp_id,
138 RESP_APPL_ID => l_n_resp_appl_id
139 );
140 exception
141 when others then
142 if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
143 null;
144 else
145 raise;
146 end if;
147 end;
148 END IF;
149
150 END CallbackFunction;
151
152 END pa_team_templates_utils;
153