[Home] [Help]
38: FUNCTION Is_Project_Status_Closed
39: (x_project_status_code IN VARCHAR2 ) return VARCHAR2 IS
40: CURSOR l_stus_csr IS
41: SELECT project_system_status_code
42: FROM pa_project_statuses
43: WHERE project_status_code = x_project_status_code
44: and status_type = 'PROJECT';
45:
46: l_system_stus_code VARCHAR2(30) := 'N';
71: FUNCTION Is_ARPR_Project_Status_Closed
72: (x_project_status_code IN VARCHAR2 ) return VARCHAR2 IS
73: CURSOR l_arpr_stus_csr IS
74: SELECT project_system_status_code
75: FROM pa_project_statuses
76: WHERE project_status_code = x_project_status_code
77: and status_type = 'PROJECT';
78:
79: l_system_status_code VARCHAR2(30) := 'N';
110: FUNCTION Is_Project_In_Purge_Status
111: (x_project_status_code IN VARCHAR2 ) return VARCHAR2 IS
112: CURSOR l_stus_csr IS
113: SELECT project_system_status_code
114: FROM pa_project_statuses
115: WHERE project_status_code = x_project_status_code
116: and status_type = 'PROJECT';
117:
118: l_system_stus_code VARCHAR2(30) := 'N';
317: x_status_type VARCHAR2(30);
318:
319: CURSOR l_get_wf_details_csr (l_project_status_code IN VARCHAR2) IS
320: SELECT workflow_item_type,workflow_process
321: FROM pa_project_statuses
322: WHERE project_status_code = l_project_status_code;
323: BEGIN
324: x_wf_enabled_flag := 'N';
325: x_wf_item_type := NULL;
327:
328: -- Get the status_type for the given status_code
329: SELECT status_type
330: INTO x_status_type
331: FROM pa_project_statuses
332: WHERE project_status_code=x_project_status_code;
333:
334: -- Call the client extn that determines whether workflow is enabled or not
335:
407: -- status for any project type
408: IS
409: CURSOR l_chk_starting_stus_csr IS
410: SELECT 'Y'
411: FROM pa_project_statuses
412: WHERE project_status_code = x_project_status_code
413: AND trunc(sysdate) BETWEEN start_date_active and
414: nvl(end_date_active,trunc(sysdate))
415: AND starting_status_flag='Y';
455: -- so as to make the form code generic for all the different status types
456: -- and let a server side procedure handles the specifics
457: -- The parameters are:
458: -- p_project_status_code : the status code as in
459: -- PA_PROJECT_STATUSES.project_status_code
460: -- p_status_type : the status type of the entiry as in
461: -- PA_PROJECT_STATUSES.status_type
462: -- x_err_code : an error code which indicates the results of the check
463: -- x_err_stage :
457: -- The parameters are:
458: -- p_project_status_code : the status code as in
459: -- PA_PROJECT_STATUSES.project_status_code
460: -- p_status_type : the status type of the entiry as in
461: -- PA_PROJECT_STATUSES.status_type
462: -- x_err_code : an error code which indicates the results of the check
463: -- x_err_stage :
464: -- x_err_stack :
465: -- x_allow_deletion_flag : 'Y' for deletable and 'N' for non-deletable
595: Into x_err_stage,x_allow_deletion_flag
596: From dual
597: Where exists
598: (select '1'
599: from PA_PROJECT_STATUSES S
600: where S.project_status_code=p_project_status_code
601: and S.predefined_flag='Y');
602: if (x_allow_deletion_flag='N') then
603: return;
628: Into x_err_stage,x_allow_deletion_flag
629: From dual
630: Where exists
631: (select '1'
632: from PA_PROJECT_STATUSES S
633: where S.wf_success_status_code=p_project_status_code
634: OR S.wf_failure_status_code=p_project_status_code);
635: if (x_allow_deletion_flag='N') then
636: return;
681:
682: BEGIN
683: Select next_allowable_status_flag
684: into v_next_allowable_status_flag
685: from pa_project_statuses
686: where project_status_code = o_status_code;
687:
688: IF (v_next_allowable_status_flag='A') THEN
689: v_change_allowed:='Y';
706: begin
707: Select 'Y'
708: Into v_change_allowed
709: /*
710: From PA_PROJECT_STATUSES
711: Where PROJECT_SYSTEM_STATUS_CODE=c_rec.NEXT_ALLOWABLE_STATUS_CODE
712: and PROJECT_STATUS_CODE=n_status_code;
713: */
714: From dual
713: */
714: From dual
715: Where exists(
716: select 'x'
717: from PA_PROJECT_STATUSES
718: where PROJECT_SYSTEM_STATUS_CODE=c_rec.NEXT_ALLOWABLE_STATUS_CODE
719: and PROJECT_STATUS_CODE=n_status_code);
720: IF (v_change_allowed = 'Y') THEN
721: RETURN v_change_allowed;
810: IF p_status_code IS NOT NULL THEN
811: if p_check_id_flag = 'Y' then
812: SELECT project_status_code
813: INTO x_status_code
814: FROM pa_project_statuses
815: WHERE project_status_code = p_status_code
816: AND status_type = p_status_type
817: AND trunc(sysdate) between trunc(start_date_active) and trunc(nvl(end_date_active,sysdate));
818: else x_status_code := p_status_code;
819: end if;
820: ELSE
821: SELECT project_status_code
822: INTO x_status_code
823: FROM pa_project_statuses
824: WHERE project_status_name = p_status_name
825: AND status_type = p_status_type
826: AND trunc(sysdate) between trunc(start_date_active) and trunc(nvl(end_date_active,sysdate));
827: END IF;
856: BEGIN
857: SELECT NVL(wf_success_status_code,project_status_code),
858: NVL(wf_failure_status_code,project_status_code)
859: INTO x_wf_success_status_code,x_wf_failure_status_code
860: FROM pa_project_statuses
861: WHERE project_status_code = p_status_code
862: AND status_type = p_status_type;
863:
864: x_return_status := FND_API.G_RET_STS_SUCCESS;
991: Begin
992: --Dbms_Output.Put_Line('select');
993: SELECT project_system_status_code
994: INTO l_system_status_code
995: FROM pa_project_statuses
996: WHERE project_status_code = x_project_status_code
997: and status_type = 'PROJECT';
998:
999: g_project_status_code := x_project_status_code;