3:
4: -- Global CONSTANTS
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_VWP_PROJ_PROD_PVT';
6: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
7: --G_DEBUG VARCHAR2(1):= FND_PROFILE.VALUE('AHL_API_FILE_DEBUG_ON');
8: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
9:
10: G_PM_PRODUCT_CODE CONSTANT VARCHAR2(30) := 'AHL';
11: G_TRANS_TSK_TRAIL_NAME CONSTANT VARCHAR2(1) := 'X'; --PRAKKUM :: 11/06/2012 :: Bug 14068468
1847: END IF;
1848:
1849: --Bug#5587893
1850: /*sowsubra - starts */
1851: l_project_status_code := nvl(FND_PROFILE.VALUE('AHL_INITIAL_PROJECT_STATUS'),'SUBMITTED');
1852:
1853: /*
1854: IF (l_project_status_code IS NULL) THEN
1855: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1905: -- RROY
1906: IF c_visit_rec.project_template_id IS NOT NULL THEN
1907: CREATED_FROM_PROJECT_ID := c_visit_rec.project_template_id;
1908: ELSE
1909: CREATED_FROM_PROJECT_ID := nvl(FND_PROFILE.VALUE('AHL_DEFAULT_PA_TEMPLATE_ID'),0);
1910: END IF;
1911:
1912: IF (l_log_statement >= l_log_current_level) THEN
1913: fnd_log.string(l_log_statement,L_DEBUG_KEY,'CREATED_FROM_PROJECT_ID = '||CREATED_FROM_PROJECT_ID);
1915:
1916: -- yazhou 26Sept2005 starts
1917: -- ER#4618348
1918:
1919: --l_project_name_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_PREFIX'),1,10);
1920: l_project_num_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_NUM_PREFIX'),1,10);
1921:
1922: IF (l_log_statement >= l_log_current_level) THEN
1923: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_project_num_prefix = '||l_project_num_prefix);
1916: -- yazhou 26Sept2005 starts
1917: -- ER#4618348
1918:
1919: --l_project_name_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_PREFIX'),1,10);
1920: l_project_num_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_NUM_PREFIX'),1,10);
1921:
1922: IF (l_log_statement >= l_log_current_level) THEN
1923: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_project_num_prefix = '||l_project_num_prefix);
1924: END IF;
2241: -- Changes made by jaramana on May 5, 2006 to accommodate PJM Bug 5197977/5194650
2242: IF (l_log_statement >= l_log_current_level) THEN
2243: FND_LOG.STRING(l_log_statement, L_DEBUG_KEY, 'About to set MFG_ORGANIZATION_ID Profile with ' || c_visit_rec.organization_id);
2244: END IF;
2245: FND_PROFILE.PUT('MFG_ORGANIZATION_ID', TO_CHAR(c_visit_rec.organization_id));
2246:
2247: PJM_PROJECT_PARAM_PUB.Create_Project_Parameter(
2248: p_api_version => 1.0,
2249: p_init_msg_list => l_init_msg_list,
2766: /*
2767: IF c_visit_rec.project_template_id IS NOT NULL THEN
2768: CREATED_FROM_PROJECT_ID := c_visit_rec.project_template_id;
2769: ELSE
2770: CREATED_FROM_PROJECT_ID := nvl(FND_PROFILE.VALUE('AHL_DEFAULT_PA_TEMPLATE_ID'),0);
2771: END IF;
2772: */
2773:
2774: -- yazhou 26Sept2005 starts
2773:
2774: -- yazhou 26Sept2005 starts
2775: -- ER#4618348
2776:
2777: --l_project_name_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_PREFIX'),1,10);
2778: --l_project_num_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_NUM_PREFIX'),1,10);
2779: -- SKPATHAK :: Bug 14016007 :: 29-APR-2012
2780: -- Since in this API only a project is updated and not created, instead of getting project number prefix from the profile, derive it from already created project
2781: OPEN get_project_number (c_visit_rec.PROJECT_ID);
2774: -- yazhou 26Sept2005 starts
2775: -- ER#4618348
2776:
2777: --l_project_name_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_PREFIX'),1,10);
2778: --l_project_num_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_NUM_PREFIX'),1,10);
2779: -- SKPATHAK :: Bug 14016007 :: 29-APR-2012
2780: -- Since in this API only a project is updated and not created, instead of getting project number prefix from the profile, derive it from already created project
2781: OPEN get_project_number (c_visit_rec.PROJECT_ID);
2782: FETCH get_project_number INTO l_project_number;
6081: L_DEBUG_KEY CONSTANT VARCHAR2(100):= 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
6082: l_prd_workorder_tbl AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_TBL;
6083: /* Begin Changes by Shkalyan */
6084: l_prd_workorder_rel_tbl AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_REL_TBL;
6085: l_firm_planned_flag VARCHAR2(1) := FND_PROFILE.value('AHL_PRD_FIRM_PLANNED_FLAG');
6086: l_visit_wo_id NUMBER;
6087: l_visit_wo_ovn NUMBER;
6088: l_visit_wo_status VARCHAR2(30);
6089: l_visit_wo_start_time DATE;
9451: idx NUMBER := 0;
9452: l_prd_workorder_rel_tbl AHL_PRD_WORKORDER_PVT.prd_workorder_rel_tbl;
9453: l_manual_summ_task_flag VARCHAR2(1) ;
9454: l_task_cnt NUMBER := 0;
9455: l_firm_planned_flag VARCHAR2(1) := FND_PROFILE.value('AHL_PRD_FIRM_PLANNED_FLAG');
9456: l_planned_order_flag VARCHAR2(1); --added by skpathak for VWPE
9457:
9458: l_max_schedule_start_date DATE; --BUG 13373947 :: PRAKKUM :: 10/02/2012
9459: l_repair_batch_name VARCHAR2(240);
11462: END IF; */
11463: --TCHIMIRA::ER 9368251 ::15-JUN-2010 :: Added to include firm-planned flag(1 is Firm and 2 is Planned)as entered by user
11464: -- If the passed firm flag is null get the value from profile.
11465: IF( l_firm_planned_flag IS NULL ) THEN
11466: l_prd_workorder_tbl(idx).FIRM_PLANNED_FLAG := NVL(FND_PROFILE.value( 'AHL_PRD_FIRM_PLANNED_FLAG'), 1);
11467: ELSE
11468: l_prd_workorder_tbl(idx).FIRM_PLANNED_FLAG := l_firm_planned_flag;
11469: END IF;
11470:
13023: l_msg_data VARCHAR2(2000);
13024: l_prd_workorder_tbl AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_TBL;
13025: /* Begin Changes by Shkalyan */
13026: l_prd_workorder_rel_tbl AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_REL_TBL;
13027: l_firm_planned_flag VARCHAR2(1) := FND_PROFILE.value('AHL_PRD_FIRM_PLANNED_FLAG');
13028: l_visit_wo_id NUMBER;
13029: l_visit_wo_ovn NUMBER;
13030: /* End Changes by Shkalyan */
13031: l_visit_end_time DATE;
14665: l_prd_workorder_tbl AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_TBL;
14666: idx NUMBER := 0;
14667: l_prd_workorder_rel_tbl AHL_PRD_WORKORDER_PVT.prd_workorder_rel_tbl;
14668: l_manual_summ_task_flag VARCHAR2(1) ;
14669: l_firm_planned_flag VARCHAR2(1) := FND_PROFILE.value('AHL_PRD_FIRM_PLANNED_FLAG');
14670: l_workorder_id NUMBER;
14671: --SKPATHAK :: VWPE: ER:12424063 :: 26-MAY-2011
14672: l_count_val NUMBER := 0;
14673: l_task_tbl_in Task_Tbl_Type;