APPS.AHL_VWP_PROJ_PROD_PVT dependencies on AHL_WARRANTY_ENTL_PVT

Line 354: x_warranty_entl_tbl OUT NOCOPY AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type

350:
351: -- salogan added for supplier warranty starts
352: PROCEDURE Get_Entl_rec_for_delete(
353: p_visit_id IN NUMBER,
354: x_warranty_entl_tbl OUT NOCOPY AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type
355: );
356: -- salogan added for supplier warranty ends
357:
358: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011

Line 7753: l_entl_rec_tbl AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type; --salogan added for supplier warranty

7749: l_msg_index_out NUMBER;
7750: l_phase_code VARCHAR2(1);
7751:
7752: --TCHIMIRA::P2P CP ER 9151144::09-DEC-2009
7753: l_entl_rec_tbl AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type; --salogan added for supplier warranty
7754:
7755: --salogan::Modified the cursor to handle both request id from P2P and Cost Estimation CP ER 9299910::01-JUN-2009::BEGIN
7756: --Cursor to fetch phase
7757: CURSOR c_conc_req_phase(c_id IN NUMBER) IS

Line 8005: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');

8001:
8002: IF (l_log_statement >= l_log_current_level) THEN
8003: fnd_log.string(l_log_statement,
8004: L_DEBUG_KEY,
8005: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
8006: END IF;
8007:
8008: --Not passing p_commit the main API commits the data at the end
8009: AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements(

Line 8009: AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements(

8005: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
8006: END IF;
8007:
8008: --Not passing p_commit the main API commits the data at the end
8009: AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements(
8010: p_api_version => l_api_version,
8011: p_validation_level => p_validation_level,
8012: p_module_type => p_module_type,
8013: p_user_role => AHL_WARRANTY_ENTL_PVT.G_USER_PLANNER,

Line 8013: p_user_role => AHL_WARRANTY_ENTL_PVT.G_USER_PLANNER,

8009: AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements(
8010: p_api_version => l_api_version,
8011: p_validation_level => p_validation_level,
8012: p_module_type => p_module_type,
8013: p_user_role => AHL_WARRANTY_ENTL_PVT.G_USER_PLANNER,
8014: p_x_warranty_entl_tbl => l_entl_rec_tbl,
8015: x_return_status => l_return_status,
8016: x_msg_count => l_msg_count,
8017: x_msg_data => l_msg_data);

Line 8022: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||

8018:
8019: IF (l_log_statement >= l_log_current_level) THEN
8020: fnd_log.string(l_log_statement,
8021: L_DEBUG_KEY,
8022: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
8023: l_return_status);
8024: END IF;
8025:
8026: l_msg_count := Fnd_Msg_Pub.count_msg;

Line 14116: -- : x_warranty_entl_tbl OUT AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type

14112: -- that means there was an MR attached to the NR.
14113: -- So we need to delete only such entitlement records
14114: -- Pre-reqs :
14115: -- Parameters : p_visit_id IN NUMBER
14116: -- : x_warranty_entl_tbl OUT AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type
14117: --
14118: -- End of Comments
14119:
14120: PROCEDURE Get_Entl_rec_for_delete(

Line 14122: x_warranty_entl_tbl OUT NOCOPY AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type

14118: -- End of Comments
14119:
14120: PROCEDURE Get_Entl_rec_for_delete(
14121: p_visit_id IN NUMBER,
14122: x_warranty_entl_tbl OUT NOCOPY AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type
14123: ) IS
14124:
14125: -- Standard variables
14126: L_API_NAME CONSTANT VARCHAR2(30) := 'Get_Entl_rec_for_Delete';

Line 14133: l_entitlement_rec AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Rec_Type;

14129: l_warranty_entl_id NUMBER := null;
14130: l_task_id NUMBER := null;
14131: l_sr_incident_id NUMBER := null;
14132: i NUMBER :=0;
14133: l_entitlement_rec AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Rec_Type;
14134:
14135: --Cursors defined for the procedure
14136: --Cursor to fetch entitlement details based on Sr Incident Id
14137: CURSOR c_get_entl_details (c_sr_incident_id IN NUMBER) IS

Line 14175: l_entitlement_rec.operation_flag := AHL_WARRANTY_ENTL_PVT.G_OP_DELETE;

14171: OPEN c_get_entl_details(l_sr_incident_id);
14172: FETCH c_get_entl_details into l_warranty_entl_id, l_task_id;
14173: IF(c_get_entl_details%FOUND AND l_task_id IS NULL) THEN --warranty entitlement exists
14174: l_entitlement_rec.warranty_entitlement_id := l_warranty_entl_id;
14175: l_entitlement_rec.operation_flag := AHL_WARRANTY_ENTL_PVT.G_OP_DELETE;
14176: x_warranty_entl_tbl(i) := l_entitlement_rec;
14177: END IF;
14178: CLOSE c_get_entl_details;
14179: i := i+1;