1 PACKAGE BODY JTF_RS_RESOURCE_TEAM_VUHK AS
2 -- $Header: cnrstmb.pls 120.1 2005/08/04 15:14:52 mblum noship $
3
4 -- helper procedure for the MOAC session context
5 PROCEDURE restore_context(p_acc_mode VARCHAR2,
6 p_org_id NUMBER) IS
7 BEGIN
8 IF p_acc_mode IS NOT NULL then
9 mo_global.set_policy_context(p_acc_mode, p_org_id);
10 END IF;
11 END restore_context;
12
13
14 /* Vertical Industry Procedure for pre processing in case of
15 create resource team */
16
17 PROCEDURE create_resource_team_pre
18 (P_TEAM_NAME IN JTF_RS_TEAMS_VL.TEAM_NAME%TYPE,
19 P_TEAM_DESC IN JTF_RS_TEAMS_VL.TEAM_DESC%TYPE,
20 P_EXCLUSIVE_FLAG IN JTF_RS_TEAMS_VL.EXCLUSIVE_FLAG%TYPE,
21 P_EMAIL_ADDRESS IN JTF_RS_TEAMS_VL.EMAIL_ADDRESS%TYPE,
22 P_START_DATE_ACTIVE IN JTF_RS_TEAMS_VL.START_DATE_ACTIVE%TYPE,
23 P_END_DATE_ACTIVE IN JTF_RS_TEAMS_VL.END_DATE_ACTIVE%TYPE,
24 X_RETURN_STATUS OUT NOCOPY VARCHAR2
25 )IS
26 BEGIN
27 x_return_status := fnd_api.g_ret_sts_success;
28 END create_resource_team_pre;
29
30 /* Vertical Industry Procedure for post processing in case of
31 create resource team */
32
33 PROCEDURE create_resource_team_post
34 (P_TEAM_ID IN JTF_RS_TEAMS_VL.TEAM_ID%TYPE,
35 P_TEAM_NAME IN JTF_RS_TEAMS_VL.TEAM_NAME%TYPE,
36 P_TEAM_DESC IN JTF_RS_TEAMS_VL.TEAM_DESC%TYPE,
37 P_EXCLUSIVE_FLAG IN JTF_RS_TEAMS_VL.EXCLUSIVE_FLAG%TYPE,
38 P_EMAIL_ADDRESS IN JTF_RS_TEAMS_VL.EMAIL_ADDRESS%TYPE,
39 P_START_DATE_ACTIVE IN JTF_RS_TEAMS_VL.START_DATE_ACTIVE%TYPE,
40 P_END_DATE_ACTIVE IN JTF_RS_TEAMS_VL.END_DATE_ACTIVE%TYPE,
41 X_RETURN_STATUS OUT NOCOPY VARCHAR2
42 )IS
43 BEGIN
44 x_return_status := fnd_api.g_ret_sts_success;
45 END create_resource_team_post;
46
47
48 /* Vertical Industry Procedure for pre processing in case of
49 update resource team */
50
51 PROCEDURE update_resource_team_pre
52 (P_TEAM_ID IN JTF_RS_TEAMS_VL.TEAM_ID%TYPE,
53 P_TEAM_NAME IN JTF_RS_TEAMS_VL.TEAM_NAME%TYPE,
54 P_TEAM_DESC IN JTF_RS_TEAMS_VL.TEAM_DESC%TYPE,
55 P_EXCLUSIVE_FLAG IN JTF_RS_TEAMS_VL.EXCLUSIVE_FLAG%TYPE,
56 P_EMAIL_ADDRESS IN JTF_RS_TEAMS_VL.EMAIL_ADDRESS%TYPE,
57 P_START_DATE_ACTIVE IN JTF_RS_TEAMS_VL.START_DATE_ACTIVE%TYPE,
58 P_END_DATE_ACTIVE IN JTF_RS_TEAMS_VL.END_DATE_ACTIVE%TYPE,
59 X_RETURN_STATUS OUT NOCOPY VARCHAR2
60 )IS
61 l_old_start_date_active DATE ;
62 l_old_end_date_active DATE;
63
64 l_team_event_name VARCHAR(60);
65
66 l_date_range_action_tbl cn_api.date_range_action_tbl_type;
67
68 l_orig_org_id NUMBER;
69 l_orig_acc_mode VARCHAR2(1);
70
71 CURSOR get_orgs IS
72 SELECT org_id FROM cn_repositories_all WHERE status = 'A';
73
74 BEGIN
75 X_RETURN_STATUS := fnd_api.g_ret_sts_success;
76
77 IF fnd_profile.value('CN_MARK_EVENTS') <> 'Y' THEN
78 RETURN;
79 END IF;
80
81 -- store MOAC session info in local variables
82 l_orig_org_id := mo_global.get_current_org_id;
83 l_orig_acc_mode := mo_global.get_access_mode;
84
85 -- loop through orgs
86 FOR o IN get_orgs LOOP
87 mo_global.set_policy_context('S', o.org_id);
88
89 select start_date_active, end_date_active
90 into l_old_start_date_active, l_old_end_date_active
91 from jtf_rs_teams_vl
92 where team_id = P_TEAM_ID;
93
94 cn_api.get_date_range_diff_action
95 ( start_date_new => P_START_DATE_ACTIVE
96 ,end_date_new => P_END_DATE_ACTIVE
97 ,start_date_old => l_old_start_date_active
98 ,end_date_old => l_old_end_date_active
99 ,x_date_range_action_tbl => l_date_range_action_tbl );
100
101 FOR i IN 1..l_date_range_action_tbl.COUNT LOOP
102
103 if l_date_range_action_tbl(i).action_flag = 'I' THEN
104 l_team_event_name := 'CHANGE_TEAM_ADD_REP';
105 else
106 l_team_event_name := 'CHANGE_TEAM_DEL_REP';
107 end if;
108
109 cn_mark_events_pkg.mark_notify_team
110 (P_TEAM_ID => P_TEAM_ID,
111 P_TEAM_EVENT_NAME => l_team_event_name,
112 P_TEAM_NAME => P_TEAM_NAME,
113 P_START_DATE_ACTIVE => l_date_range_action_tbl(i).start_date,
114 P_END_DATE_ACTIVE => l_date_range_action_tbl(i).end_date,
115 P_EVENT_LOG_ID => NULL,
116 p_org_id => o.org_id);
117 END LOOP;
118 END LOOP; -- orgs
119
120 -- restore context
121 restore_context(l_orig_acc_mode, l_orig_org_id);
122
123 END update_resource_team_pre;
124
125
126 /* Vertical Industry Procedure for post processing in case of
127 update resource team */
128
129 PROCEDURE update_resource_team_post
130 (P_TEAM_ID IN JTF_RS_TEAMS_VL.TEAM_ID%TYPE,
131 P_TEAM_NAME IN JTF_RS_TEAMS_VL.TEAM_NAME%TYPE,
132 P_TEAM_DESC IN JTF_RS_TEAMS_VL.TEAM_DESC%TYPE,
133 P_EXCLUSIVE_FLAG IN JTF_RS_TEAMS_VL.EXCLUSIVE_FLAG%TYPE,
134 P_EMAIL_ADDRESS IN JTF_RS_TEAMS_VL.EMAIL_ADDRESS%TYPE,
135 P_START_DATE_ACTIVE IN JTF_RS_TEAMS_VL.START_DATE_ACTIVE%TYPE,
136 P_END_DATE_ACTIVE IN JTF_RS_TEAMS_VL.END_DATE_ACTIVE%TYPE,
137 X_RETURN_STATUS OUT NOCOPY VARCHAR2
138 )IS
139 BEGIN
140 x_return_status := fnd_api.g_ret_sts_success;
141 END update_resource_team_post;
142
143
144 END jtf_rs_resource_team_vuhk;
145
146
147
148