[Home] [Help]
84: , trunc(sysdate) , trunc(sysdate)
85: , sysdate , -1 , sysdate , -1 , -1
86: , DECODE (bv.version_type, 'COST' ,'C' , 'REVENUE', 'R', 'A') plan_type_code /* 4471527 */
87: FROM
88: ( select p_project_id project_id from dual ) map,
89: -- pji_pjp_rbs_header rhd,
90: pa_budget_versions bv,
91: pa_proj_fp_options fpo,
92: -- pji_pa_proj_events_log pel,
221: (event_type,event_id, event_object, operation_type, status, last_update_date
222: , last_updated_by, creation_date, created_by, last_update_login, attribute1, attribute2)
223: SELECT 'STRUCT_CHANGE',pa_pji_proj_events_log_s.NEXTVAL,'-99','X','X',SYSDATE,
224: Fnd_Global.USER_ID,SYSDATE,Fnd_Global.USER_ID,Fnd_Global.LOGIN_ID,p_wbs_version_id_tbl(l_i),'N'
225: FROM dual WHERE exists (
226: SELECT ppa.project_id from PA_PROJECTS_ALL ppa, PA_PROJ_ELEM_VER_STRUCTURE ppevs WHERE
227: ppa.project_id = ppevs.project_id AND
228: ppevs.ELEMENT_VERSION_ID = p_wbs_version_id_tbl(l_i) AND
229: ppa.template_flag <> 'Y'
3870:
3871: SELECT
3872: NVL(TO_NUMBER(DECODE(SUBSTR(USERENV('CLIENT_INFO'),1,1),' ',NULL,SUBSTR(USERENV('CLIENT_INFO'),1,10))),-99)
3873: INTO l_env_org
3874: FROM dual;
3875:
3876: SELECT org_id
3877: INTO l_project_org
3878: FROM pa_projects_all
5636: -- Reset flag values.
5637: l_exists := 'N';
5638: BEGIN
5639: SELECT 'Y'
5640: INTO l_exists FROM dual
5641: WHERE EXISTS ( SELECT 1
5642: FROM pji_rollup_level_status rst
5643: WHERE rst.rbs_version_id = p_rbs_version_id
5644: AND rst.plan_version_id = l_plan_version_id_tbl(i)
6252:
6253: l_calendar_type VARCHAR2(10);
6254:
6255: cursor c1 is
6256: SELECT NVL(Fnd_Profile.value('PJI_DEF_RPT_CAL_TYPE'), 'E') FROM dual; -- Based on profile "PJI: Default Reporting Calendar Type"
6257:
6258: begin
6259:
6260: open c1;
6282: l_msg_data VARCHAR2(50);
6283:
6284:
6285: cursor c1 is
6286: SELECT NVL(Fnd_Profile.value('PJI_DEF_RPT_CAL_TYPE'), 'E') FROM dual; -- Based on Profile : PJI: Default Reporting Calendar Type
6287:
6288: begin
6289:
6290: open c1;