[Home] [Help]
3189: l_return_status VARCHAR2(1);
3190: l_msg_count NUMBER;
3191: l_msg_data VARCHAR2(200);
3192: l_estimate_line_id NUMBER;
3193: l_ro_sc_rec_type Csd_Ro_Service_Codes_Pvt.RO_SERVICE_CODE_REC_TYPE;
3194: l_obj_ver_number NUMBER;
3195: l_prev_ro_sc_id NUMBER;
3196: l_item_name VARCHAR2(40);
3197: l_warning_flag VARCHAR2(1) := Fnd_Api.G_FALSE;
3203:
3204: -- CURSORS --
3205: CURSOR c_ro_sc_obj_version(p_ro_service_code_id NUMBER) IS
3206: SELECT object_version_number
3207: FROM CSD_RO_SERVICE_CODES
3208: WHERE ro_service_code_id = p_ro_service_code_id;
3209:
3210: BEGIN
3211: -- Standard Start of API savepoint
3341: END IF;
3342: BEGIN
3343: SELECT COUNT(*)
3344: INTO l_num_service_codes
3345: FROM CSD_RO_SERVICE_CODES
3346: WHERE repair_line_id = p_repair_line_id
3347: AND NVL(applicable_flag, 'N') = 'Y'
3348: AND NVL(applied_to_est_flag, 'N') = 'N';
3349: -- Commented for bugfix 3473869.vkjain.
3621: -- 'x_return_status = '||l_return_status);
3622: END IF;
3623:
3624: -- If SC have been applied to create estimate lines successfully,
3625: -- make sure to update CSD_RO_SERVICE_CODES table with the value `Y' for the
3626: -- column that indicates `applied to estimates'.
3627: IF (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3628: THEN
3629: -- if previous ro_sc_id is same as current, no need to update
3660: Fnd_Log.G_Current_Runtime_Level)
3661: THEN
3662: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3663: lc_mod_name,
3664: 'Calling CSD_RO_SERVICE_CODES_PVT.Update_RO_Service_Code');
3665: END IF;
3666: Csd_Ro_Service_Codes_Pvt.Update_RO_Service_Code(p_api_version => 1.0,
3667: p_commit => Fnd_Api.G_FALSE,
3668: p_init_msg_list => Fnd_Api.G_FALSE,
3662: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3663: lc_mod_name,
3664: 'Calling CSD_RO_SERVICE_CODES_PVT.Update_RO_Service_Code');
3665: END IF;
3666: Csd_Ro_Service_Codes_Pvt.Update_RO_Service_Code(p_api_version => 1.0,
3667: p_commit => Fnd_Api.G_FALSE,
3668: p_init_msg_list => Fnd_Api.G_FALSE,
3669: p_validation_level => 0,
3670: p_ro_service_code_rec => l_ro_sc_rec_type,
3677: THEN
3678: l_prev_ro_sc_id := l_est_lines_tbl(i)
3679: .RO_SERVICE_CODE_ID;
3680: ELSE
3681: -- not able to update csd_ro_service_codes table to set as applied to est
3682: x_warning_flag := Fnd_Api.G_TRUE;
3683: IF (Fnd_Log.Level_Statement >=
3684: Fnd_Log.G_Current_Runtime_Level)
3685: THEN
4109: 'SERVICE_CODE' est_line_source_type_code,
4110: ROSC.Service_code_id est_line_source_id1,
4111: null est_line_source_id2,
4112: ROSC.RO_Service_code_id
4113: FROM CSD_RO_SERVICE_CODES ROSC,
4114: CSD_SERVICE_CODES_VL SC,
4115: CSD_SC_WORK_ENTITIES WRK,
4116: CSP_PRODUCT_TASKS a,
4117: CSP_TASK_PARTS b,
4164: 'SERVICE_CODE' est_line_source_type_code,
4165: ROSC.Service_code_id est_line_source_id1,
4166: null est_line_source_id2,
4167: ROSC.RO_Service_code_id
4168: FROM CSD_RO_SERVICE_CODES ROSC,
4169: CSD_SERVICE_CODES_VL SC,
4170: CSD_SC_WORK_ENTITIES WRK,
4171: JTF_TASK_TEMPLATES_B b,
4172: QP_PRICE_LIST_LINES_V c,
4348: 'SERVICE_CODE' est_line_source_type_code,
4349: ROSC.Service_code_id est_line_source_id1,
4350: NULL est_line_source_id2,
4351: ROSC.RO_Service_code_id
4352: FROM CSD_RO_SERVICE_CODES ROSC,
4353: CSD_SERVICE_CODES_VL SC,
4354: CSD_SC_WORK_ENTITIES WRK,
4355: CSP_PRODUCT_TASKS a,
4356: CSP_TASK_PARTS b,
4404: 'SERVICE_CODE' est_line_source_type_code,
4405: ROSC.Service_code_id est_line_source_id1,
4406: NULL est_line_source_id2,
4407: ROSC.RO_Service_code_id
4408: FROM CSD_RO_SERVICE_CODES ROSC,
4409: CSD_SERVICE_CODES_VL SC,
4410: CSD_SC_WORK_ENTITIES WRK,
4411: JTF_TASK_TEMPLATES_B b,
4412: -- QP_PRICE_LIST_LINES_V c,
5358: 'SERVICE_CODE' EST_LINE_SOURCE_TYPE_CODE,
5359: ROSC.Service_Code_id EST_LINE_SOURCE_ID1,
5360: null EST_LINE_SOURCE_ID2,
5361: ROSC.RO_Service_Code_id RO_SERVICE_CODE_ID
5362: FROM CSD_RO_SERVICE_CODES ROSC,
5363: CSD_SERVICE_CODES_VL SC,
5364: CSD_SC_WORK_ENTITIES WRK,
5365: BOM_INVENTORY_COMPONENTS_V BOM,
5366: QP_PRICE_LIST_LINES_V PRICE,
5409: ROSC.Service_Code_id EST_LINE_SOURCE_ID1,
5410: null EST_LINE_SOURCE_ID2,
5411: ROSC.RO_Service_Code_id RO_SERVICE_CODE_ID,
5412: RES.resource_id RESOURCE_ID -- vkjain. 3449978
5413: FROM CSD_RO_SERVICE_CODES ROSC,
5414: CSD_SC_WORK_ENTITIES WRK,
5415: CSD_SERVICE_CODES_VL SC,
5416: BOM_OPERATION_SEQUENCES OPSEQ,
5417: BOM_OPERATION_RESOURCES OPRES,
5461: 'SERVICE_CODE' EST_LINE_SOURCE_TYPE_CODE,
5462: ROSC.Service_Code_id EST_LINE_SOURCE_ID1,
5463: NULL EST_LINE_SOURCE_ID2,
5464: ROSC.RO_Service_Code_id RO_SERVICE_CODE_ID
5465: FROM CSD_RO_SERVICE_CODES ROSC,
5466: CSD_SERVICE_CODES_VL SC,
5467: CSD_SC_WORK_ENTITIES WRK,
5468: BOM_INVENTORY_COMPONENTS_V BOM,
5469: -- QP_PRICE_LIST_LINES_V PRICE,
5511: ROSC.Service_Code_id EST_LINE_SOURCE_ID1,
5512: NULL EST_LINE_SOURCE_ID2,
5513: ROSC.RO_Service_Code_id RO_SERVICE_CODE_ID,
5514: RES.resource_id RESOURCE_ID -- vkjain. 3449978
5515: FROM CSD_RO_SERVICE_CODES ROSC,
5516: CSD_SC_WORK_ENTITIES WRK,
5517: CSD_SERVICE_CODES_VL SC,
5518: BOM_OPERATION_SEQUENCES OPSEQ,
5519: BOM_OPERATION_RESOURCES OPRES,