[Home] [Help]
23: BEGIN
24: IF G_user_id <> p_user_id THEN
25: G_user_id := p_user_id;
26: G_resp_id := p_resp_id;
27: G_party_id := pa_control_items_utils.getPartyId(p_user_id);
28: G_proj_auth_tab.DELETE;
29: G_view_proj_i_tab.DELETE;
30: G_view_proj_cr_tab.DELETE;
31: G_view_proj_co_tab.DELETE;
41:
42: SELECT ci_type_class_code
43: INTO l_class_code
44: FROM pa_ci_types_b cit,
45: pa_control_items ci
46: WHERE ci.ci_id = p_ci_id
47: AND cit.ci_type_id = ci.ci_type_id;
48:
49: IF l_class_code = 'ISSUE' THEN
90: BEGIN
91: IF G_user_id <> p_user_id THEN
92: G_user_id := p_user_id;
93: G_resp_id := p_resp_id;
94: G_party_id := pa_control_items_utils.getPartyId(p_user_id);
95: G_proj_auth_tab.DELETE;
96: G_view_proj_i_tab.DELETE;
97: G_view_proj_cr_tab.DELETE;
98: G_view_proj_co_tab.DELETE;
151: --mthai_debug_msg('a('||p_project_id||', '||p_user_id||', '||p_resp_id||')');
152: IF G_user_id <> p_user_id THEN
153: G_user_id := p_user_id;
154: G_resp_id := p_resp_id;
155: G_party_id := pa_control_items_utils.getPartyId(p_user_id);
156: G_proj_auth_tab.DELETE;
157: G_view_proj_i_tab.DELETE;
158: G_view_proj_cr_tab.DELETE;
159: G_view_proj_co_tab.DELETE;
193: --Clearing cache if user_id is changed
194: IF G_user_id <> p_user_id THEN
195: G_user_id := p_user_id;
196: G_resp_id := -999;
197: G_party_id := pa_control_items_utils.getPartyId(p_user_id);
198: G_proj_auth_tab.DELETE;
199: G_view_proj_i_tab.DELETE;
200: G_view_proj_cr_tab.DELETE;
201: G_view_proj_co_tab.DELETE;
204: END IF;
205:
206: SELECT s.project_system_status_code, ci.owner_id, ci.created_by
207: INTO l_status_code, l_owner_party_id, l_creator_user_id
208: FROM pa_control_items ci,
209: pa_project_statuses s
210: WHERE ci.ci_id = p_ci_id
211: AND s.status_type = 'CONTROL_ITEM'
212: AND s.project_status_code = ci.status_code;
230: l_tmp NUMBER;
231: BEGIN
232: SELECT ci.project_id, s.project_system_status_code
233: INTO l_project_id, l_status_code
234: FROM pa_control_items ci,
235: pa_project_statuses s
236: WHERE ci.ci_id = p_ci_id
237: AND s.status_type = 'CONTROL_ITEM'
238: AND s.project_status_code = ci.status_code;
316: l_project_org_id NUMBER;
317: BEGIN
318: SELECT ci.project_id, ppa.org_id
319: INTO l_project_id, l_project_org_id
320: FROM pa_control_items ci,
321: pa_projects_all ppa
322: WHERE ppa.project_id=ci.project_id
323: AND ci.ci_id=p_ci_id;
324:
345: AND s.project_status_code = a.status_code
346: AND s.status_type = 'CI_ACTION'
347: AND s.project_system_status_code = 'CI_ACTION_OPEN'
348: AND a.type_code = 'UPDATE'
349: -- AND a.assigned_to = pa_control_items_utils.getPartyId(p_user_id)
350: AND a.assigned_to = G_party_id
351: AND ROWNUM = 1;
352:
353: RETURN 'T';
373: BEGIN
374: /*
375: SELECT ci.project_id, ppa.org_id
376: INTO l_project_id, l_project_org_id
377: FROM pa_control_items ci,
378: pa_projects_all ppa
379: WHERE ppa.project_id=ci.project_id
380: AND ci.ci_id=p_ci_id;
381: */
406: AND s.project_status_code = a.status_code
407: AND s.status_type = 'CI_ACTION'
408: AND s.project_system_status_code = 'CI_ACTION_OPEN'
409: AND a.type_code = 'UPDATE'
410: -- AND a.assigned_to = pa_control_items_utils.getPartyId(p_user_id)
411: AND a.assigned_to = G_party_id
412: AND ROWNUM = 1;
413:
414: RETURN 'T';
431: l_project_org_id NUMBER;
432: BEGIN
433: SELECT ci.project_id, ppa.org_id
434: INTO l_project_id, l_project_org_id
435: FROM pa_control_items ci, pa_projects_all ppa
436: WHERE ci.project_id=ppa.project_id
437: AND ci.ci_id = p_ci_id;
438:
439: --Control item cannot be updated across OU
474: BEGIN
475: IF p_ci_id > 0 THEN
476: SELECT project_id
477: INTO l_project_id
478: FROM pa_control_items
479: WHERE ci_id = p_ci_id;
480: END IF;
481:
482: --Only Project Authorities can highlight the item
523: and s.project_system_status_code = 'CI_ACTION_OPEN';
524:
525: BEGIN
526:
527: l_party_id := PA_CONTROL_ITEMS_UTILS.GetPartyId(p_user_id);
528:
529: if(l_party_id IS NULL) then
530: return 'F';
531: end if;
532:
533: --Bug 5676037. Added the if condition to identify the AMG context. From AMG context
534: -- CheckCIActionAllowed should not be called.
535: if(p_calling_context <> 'AMG') then
536: l_status_result := PA_CONTROL_ITEMS_UTILS.CheckCIActionAllowed(null,null,'CONTROL_ITEM_ALLOW_ACTION', p_ci_id);
537: if (l_status_result = 'N') then
538: return 'F';
539: end if;
540: end if;-- if(p_calling_context <> 'AMG') then
540: end if;-- if(p_calling_context <> 'AMG') then
541:
542: SELECT ci.project_id, ppa.org_id
543: INTO l_project_id, l_project_org_id
544: FROM pa_control_items ci, pa_projects_all ppa
545: WHERE ci.project_id=ppa.project_id
546: AND ci.ci_id = p_ci_id;
547:
548: --Control item cannot be updated across OU
579:
580: BEGIN
581: SELECT ci.project_id, ppa.org_id
582: INTO l_project_id, l_project_org_id
583: FROM pa_control_items ci, pa_projects_all ppa
584: WHERE ci.project_id=ppa.project_id
585: AND ci.ci_id = p_ci_id;
586:
587: --Control item cannot be updated across OU
618: AND s.status_type = 'CI_ACTION'
619: and s.project_system_status_code = 'CI_ACTION_OPEN';
620:
621: BEGIN
622: l_party_id := PA_CONTROL_ITEMS_UTILS.GetPartyId(p_user_id);
623:
624: if(l_party_id IS NULL) then
625: return 'F';
626: end if;
691: BEGIN
692: IF G_user_id<>p_user_id OR G_resp_id<>p_resp_id THEN
693: G_user_id := p_user_id;
694: G_resp_id := p_resp_id;
695: G_party_id := pa_control_items_utils.getPartyId(p_user_id);
696: G_project_id := p_project_id;
697: G_proj_auth_tab.DELETE;
698: G_view_proj_i_tab.DELETE;
699: G_view_proj_cr_tab.DELETE;
788: BEGIN
789:
790: SELECT project_id
791: INTO l_project_id
792: FROM pa_control_items
793: WHERE ci_id = p_ci_id;
794:
795: open c_owner(l_project_id);
796: fetch c_owner into l_owner_id;