[Home] [Help]
1: Package BODY Csd_Repairs_Pvt AS
2: /* $Header: csdvdrab.pls 120.25.12010000.5 2008/12/19 02:01:43 swai ship $ */
3: --
4: -- Package name : CSD_REPAIRS_PVT
5: -- Purpose : This package contains the private APIs for creating,
1: Package BODY Csd_Repairs_Pvt AS
2: /* $Header: csdvdrab.pls 120.25.12010000.5 2008/12/19 02:01:43 swai ship $ */
3: --
4: -- Package name : CSD_REPAIRS_PVT
5: -- Purpose : This package contains the private APIs for creating,
6: -- updating, deleting repair orders. Access is
7: -- restricted to Oracle Depot Rapair Internal Development.
8: -- History :
39: -- validate ib_ref_number when repair type is refurbished.
40: -- 115.45 05/19/05 vparvath Adding update_ro_Status API for R12 development.
41: -- 08/15/06 rfieldma Adding new error messages for update repair type and update repair status.
42: -- procedures update_repair_type, update_flow_status
43: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIRS_PVT';
44: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvdrab.pls';
45: g_debug NUMBER := Csd_Gen_Utility_Pvt.g_debug_level;
46: --
47:
65: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
66: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
67: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
68: p_REPAIR_LINE_ID IN NUMBER := Fnd_Api.G_MISS_NUM,
69: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
70: X_REPAIR_LINE_ID OUT NOCOPY NUMBER,
71: X_REPAIR_NUMBER OUT NOCOPY VARCHAR2,
72: X_Return_Status OUT NOCOPY VARCHAR2,
73: X_Msg_Count OUT NOCOPY NUMBER,
92: l_date_closed DATE;
93: l_resolve_by_date DATE; --rfieldma: 5355051
94: l_business_process_id NUMBER; -- rfieldma: 5355051
95: l_severity_id NUMBER; -- rfieldma: 5355051
96: l_REPLN_Rec Csd_Repairs_Pub.REPLN_Rec_Type; -- swai bug 7657379
97:
98: -- bug#7043215, subhat
99: -- new DFF value rec.
100: x_dff_value_rec CSD_REPAIRS_UTIL.DEF_Rec_Type;
96: l_REPLN_Rec Csd_Repairs_Pub.REPLN_Rec_Type; -- swai bug 7657379
97:
98: -- bug#7043215, subhat
99: -- new DFF value rec.
100: x_dff_value_rec CSD_REPAIRS_UTIL.DEF_Rec_Type;
101: --
102: --
103: CURSOR C1 IS
104: SELECT CSD_REPAIRS_S1.NEXTVAL
100: x_dff_value_rec CSD_REPAIRS_UTIL.DEF_Rec_Type;
101: --
102: --
103: CURSOR C1 IS
104: SELECT CSD_REPAIRS_S1.NEXTVAL
105: FROM sys.dual;
106: --
107: CURSOR C2 IS
108: SELECT CSD_REPAIRS_S2.NEXTVAL
104: SELECT CSD_REPAIRS_S1.NEXTVAL
105: FROM sys.dual;
106: --
107: CURSOR C2 IS
108: SELECT CSD_REPAIRS_S2.NEXTVAL
109: FROM sys.dual;
110: --
111: CURSOR get_draft_status_details IS
112: SELECT FS_B.flow_status_id,
163: -- swai: bug 7657379
164: -- Default fields in repln_rec from defauling rules before
165: -- checking required params.
166: l_REPLN_Rec := p_REPLN_Rec;
167: Csd_Repairs_Util.DEFAULT_RO_ATTRS_FROM_RULE
168: ( p_api_version => 1.0,
169: p_commit => fnd_api.g_false,
170: p_init_msg_list => fnd_api.g_false,
171: px_repln_rec => l_REPLN_Rec,
176: -- Note: From this point on, P_REPLN_REC has been replaced with l_REPLN_Rec
177:
178: --
179: -- Check for required parameters
180: Csd_Repairs_Util.check_reqd_param
181: (p_param_value => l_REPLN_Rec.incident_id,
182: p_param_name => 'P_REPLN_REC.INCIDENT_ID',
183: p_api_name => l_api_name
184: );
181: (p_param_value => l_REPLN_Rec.incident_id,
182: p_param_name => 'P_REPLN_REC.INCIDENT_ID',
183: p_api_name => l_api_name
184: );
185: Csd_Repairs_Util.check_reqd_param
186: (p_param_value => l_REPLN_Rec.inventory_item_id,
187: p_param_name => 'P_REPLN_REC.INVENTORY_ITEM_ID',
188: p_api_name => l_api_name
189: );
187: p_param_name => 'P_REPLN_REC.INVENTORY_ITEM_ID',
188: p_api_name => l_api_name
189: );
190:
191: Csd_Repairs_Util.check_reqd_param
192: (p_param_value => l_REPLN_Rec.unit_of_measure,
193: p_param_name => 'P_REPLN_REC.UNIT_OF_MEASURE',
194: p_api_name => l_api_name
195: );
192: (p_param_value => l_REPLN_Rec.unit_of_measure,
193: p_param_name => 'P_REPLN_REC.UNIT_OF_MEASURE',
194: p_api_name => l_api_name
195: );
196: Csd_Repairs_Util.check_reqd_param
197: (p_param_value => l_REPLN_Rec.quantity,
198: p_param_name => 'P_REPLN_REC.QUANTITY',
199: p_api_name => l_api_name
200: );
202: /* R12 Flex Flow change, vkjain.
203: -- Status is no longer mandatory.
204: -- One can either pass flow_status_id
205: -- or just status.
206: CSD_REPAIRS_UTIL.check_reqd_param
207: (p_param_value => l_REPLN_Rec.status,
208: p_param_name => 'P_REPLN_REC.STATUS',
209: p_api_name => l_api_name
210: );
209: p_api_name => l_api_name
210: );
211: */
212:
213: Csd_Repairs_Util.check_reqd_param
214: (p_param_value => l_REPLN_Rec.currency_code,
215: p_param_name => 'P_REPLN_REC.CURRENCY_CODE',
216: p_api_name => l_api_name
217: );
217: );
218:
219: -- Need to check if the status_reason_code is to be validated.
220:
221: Csd_Repairs_Util.check_reqd_param
222: (p_param_value => l_REPLN_Rec.approval_required_flag,
223: p_param_name => 'P_REPLN_REC.APPROVAL_REQUIRED_FLAG',
224: p_api_name => l_api_name
225: );
222: (p_param_value => l_REPLN_Rec.approval_required_flag,
223: p_param_name => 'P_REPLN_REC.APPROVAL_REQUIRED_FLAG',
224: p_api_name => l_api_name
225: );
226: Csd_Repairs_Util.check_reqd_param
227: (p_param_value => l_REPLN_Rec.repair_type_id,
228: p_param_name => 'P_REPLN_REC.REPAIR_TYPE_ID',
229: p_api_name => l_api_name
230: );
262:
263:
264: --
265: -- Invoke validation procedures
266: -- added a new out parameter which is of type CSD_REPAIRS_UTIL.DEF_Rec_Type
267: -- this collection holds the validated/derived DFF values (only in create mode)
268: -- subhat, FP bug#7242791
269: --
270: Validate_Repairs
392: INTO l_severity_id;
393: CLOSE c_get_severity_id;
394:
395: -- get resolve by date
396: csd_repairs_util.get_contract_resolve_by_date(
397: p_contract_line_id => l_REPLN_Rec.contract_line_id,
398: p_bus_proc_id => l_business_process_id,
399: p_severity_id => l_severity_id,
400: p_request_date => sysdate,
412: END IF; -- end contract line id is not null and not g_miss_num
413: END IF; -- end resolve by date = g_miss_date
414:
415: --
416: -- Invoke table handler(CSD_REPAIRS_PKG.Insert_Row)
417: --
418: Csd_Repairs_Pkg.Insert_Row(
419: px_REPAIR_LINE_ID => l_REPAIR_LINE_ID,
420: p_REQUEST_ID => G_REQUEST_ID,
414:
415: --
416: -- Invoke table handler(CSD_REPAIRS_PKG.Insert_Row)
417: --
418: Csd_Repairs_Pkg.Insert_Row(
419: px_REPAIR_LINE_ID => l_REPAIR_LINE_ID,
420: p_REQUEST_ID => G_REQUEST_ID,
421: p_PROGRAM_ID => G_PROGRAM_ID,
422: p_PROGRAM_APPLICATION_ID => G_PROG_APPL_ID,
564: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
565: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
566: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
567: p_REPAIR_LINE_ID IN NUMBER,
568: P_REPLN_Rec IN OUT NOCOPY Csd_Repairs_Pub.REPLN_Rec_Type,
569: X_Return_Status OUT NOCOPY VARCHAR2,
570: X_Msg_Count OUT NOCOPY NUMBER,
571: X_Msg_Data OUT NOCOPY VARCHAR2
572: )
634: ,ATTRIBUTE27
635: ,ATTRIBUTE28
636: ,ATTRIBUTE29
637: ,ATTRIBUTE30
638: FROM CSD_REPAIRS
639: WHERE REPAIR_LINE_ID = p_REPAIR_LINE_ID
640: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
641:
642: l_api_name CONSTANT VARCHAR2(30) := 'Update_Repair_Order';
640: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
641:
642: l_api_name CONSTANT VARCHAR2(30) := 'Update_Repair_Order';
643: l_api_version_number CONSTANT NUMBER := 1.0;
644: l_OLD_REPLN_rec Csd_Repairs_Pub.REPLN_Rec_Type;
645: l_NEW_REPLN_rec Csd_Repairs_Pub.REPLN_Rec_Type := P_REPLN_Rec;
646: l_rowid ROWID;
647: l_repair_line_id NUMBER;
648: l_OBJECT_VERSION_NUMBER NUMBER;
641:
642: l_api_name CONSTANT VARCHAR2(30) := 'Update_Repair_Order';
643: l_api_version_number CONSTANT NUMBER := 1.0;
644: l_OLD_REPLN_rec Csd_Repairs_Pub.REPLN_Rec_Type;
645: l_NEW_REPLN_rec Csd_Repairs_Pub.REPLN_Rec_Type := P_REPLN_Rec;
646: l_rowid ROWID;
647: l_repair_line_id NUMBER;
648: l_OBJECT_VERSION_NUMBER NUMBER;
649:
648: l_OBJECT_VERSION_NUMBER NUMBER;
649:
650: -- bug#7242791, 12.1 FP, subhat
651: -- new out parameter for validate_repairs API.
652: x_dff_value_rec csd_repairs_util.def_rec_type;
653:
654: BEGIN
655:
656: -- Standard Start of API savepoint
664: THEN
665: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
666: END IF;
667: -- Check for required parameters
668: Csd_Repairs_Util.check_reqd_param
669: (p_param_value => p_repair_line_id,
670: p_param_name => 'P_REPAIR_LINE_ID',
671: p_api_name => l_api_name
672: );
808:
809: l_OBJECT_VERSION_NUMBER := p_REPLN_rec.OBJECT_VERSION_NUMBER + 1;
810:
811: --
812: -- Invoke table handler(CSD_REPAIRS_PKG.Update_Row)
813: --
814: --
815: Csd_Repairs_Pkg.Update_Row(
816: p_REPAIR_LINE_ID => p_REPAIR_LINE_ID,
811: --
812: -- Invoke table handler(CSD_REPAIRS_PKG.Update_Row)
813: --
814: --
815: Csd_Repairs_Pkg.Update_Row(
816: p_REPAIR_LINE_ID => p_REPAIR_LINE_ID,
817: p_REQUEST_ID => G_REQUEST_ID,
818: p_PROGRAM_ID => G_PROGRAM_ID,
819: p_PROGRAM_APPLICATION_ID => G_PROG_APPL_ID,
984: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
985: --
986: -- Api body
987: --
988: -- Invoke table handler(CSD_REPAIRS_PKG.Delete_Row)
989: Csd_Repairs_Pkg.Delete_Row(
990: p_REPAIR_LINE_ID => p_REPAIR_LINE_ID);
991:
992: -- End of API body
985: --
986: -- Api body
987: --
988: -- Invoke table handler(CSD_REPAIRS_PKG.Delete_Row)
989: Csd_Repairs_Pkg.Delete_Row(
990: p_REPAIR_LINE_ID => p_REPAIR_LINE_ID);
991:
992: -- End of API body
993:
1046: IS
1047:
1048: CURSOR c1 IS
1049: SELECT 'X'
1050: FROM CSD_REPAIRS dra
1051: WHERE dra.repair_line_id = p_repair_line_id;
1052:
1053: l_dummy VARCHAR2(1);
1054: l_valid VARCHAR2(1) := 'Y';
1094: IS
1095:
1096: CURSOR c1 IS
1097: SELECT 'X'
1098: FROM CSD_REPAIRS dra
1099: WHERE dra.repair_number = p_repair_number;
1100:
1101: l_dummy VARCHAR2(1);
1102: l_valid VARCHAR2(1) := 'Y';
2241:
2242: --
2243: -- bug#7242791,12. FP, subhat
2244: -- added a new out parameter.ds
2245: -- @param: x_dff_rec OUT NOCOPY CSD_REPAIRS_UTIL.DEF_Rec_Type
2246: --
2247: PROCEDURE Validate_Repairs
2248: (
2249: P_Api_Version_Number IN NUMBER,
2250: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2251: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2252: P_Validation_mode IN VARCHAR2,
2253: p_repair_line_id IN NUMBER := Fnd_Api.G_MISS_NUM,
2254: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
2255: P_OLD_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type := Csd_Repairs_Pub.G_MISS_REPLN_Rec,
2256: x_return_status OUT NOCOPY VARCHAR2,
2257: x_msg_count OUT NOCOPY NUMBER,
2258: x_msg_data OUT NOCOPY VARCHAR2,
2251: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2252: P_Validation_mode IN VARCHAR2,
2253: p_repair_line_id IN NUMBER := Fnd_Api.G_MISS_NUM,
2254: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
2255: P_OLD_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type := Csd_Repairs_Pub.G_MISS_REPLN_Rec,
2256: x_return_status OUT NOCOPY VARCHAR2,
2257: x_msg_count OUT NOCOPY NUMBER,
2258: x_msg_data OUT NOCOPY VARCHAR2,
2259: -- bug#7242791, subhat
2256: x_return_status OUT NOCOPY VARCHAR2,
2257: x_msg_count OUT NOCOPY NUMBER,
2258: x_msg_data OUT NOCOPY VARCHAR2,
2259: -- bug#7242791, subhat
2260: x_dff_rec OUT NOCOPY CSD_REPAIRS_UTIL.DEF_Rec_Type
2261:
2262: )
2263: IS
2264:
2263: IS
2264:
2265: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Repairs';
2266: l_api_version_number CONSTANT NUMBER := 1.0;
2267: --l_DEF_Rec Csd_Repairs_Util.DEF_Rec_Type;
2268: l_valid_def_rec BOOLEAN;
2269: l_attribute_category VARCHAR2(30);
2270: l_attribute1 VARCHAR2(150);
2271: l_attribute2 VARCHAR2(150);
2841: END IF;
2842: ELSE
2843: l_attribute30 := p_REPLN_Rec.attribute30;
2844: END IF;
2845: Csd_Repairs_Util.Convert_to_DEF_Rec_Type
2846: (p_attribute_category => l_attribute_category,
2847: p_attribute1 => l_attribute1,
2848: p_attribute2 => l_attribute2,
2849: p_attribute3 => l_attribute3,
2882: -- create and profile CSD: Enable Flexfield Defaulting for Repair Orders Flexfield
2883: -- is set to Yes.
2884: IF p_validation_mode = Jtf_Plsql_Api.G_CREATE THEN
2885: if nvl(fnd_profile.value('CSD_RO_DFF_DEF'),'N') = 'Y' then
2886: l_valid_def_rec := Csd_Repairs_Util.Is_DescFlex_Valid
2887: (p_api_name => 'Create_Repair_Order',
2888: p_desc_flex_name => 'CSD_REPAIRS',
2889: p_attr_values => x_dff_rec,
2890: p_validate_only => FND_API.G_FALSE);
2884: IF p_validation_mode = Jtf_Plsql_Api.G_CREATE THEN
2885: if nvl(fnd_profile.value('CSD_RO_DFF_DEF'),'N') = 'Y' then
2886: l_valid_def_rec := Csd_Repairs_Util.Is_DescFlex_Valid
2887: (p_api_name => 'Create_Repair_Order',
2888: p_desc_flex_name => 'CSD_REPAIRS',
2889: p_attr_values => x_dff_rec,
2890: p_validate_only => FND_API.G_FALSE);
2891: else
2892: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
2888: p_desc_flex_name => 'CSD_REPAIRS',
2889: p_attr_values => x_dff_rec,
2890: p_validate_only => FND_API.G_FALSE);
2891: else
2892: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
2893: (p_api_name => 'Create_Repair_Order',
2894: p_desc_flex_name => 'CSD_REPAIRS',
2895: p_attr_values => x_dff_rec,
2896: p_validate_only => FND_API.G_TRUE
2890: p_validate_only => FND_API.G_FALSE);
2891: else
2892: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
2893: (p_api_name => 'Create_Repair_Order',
2894: p_desc_flex_name => 'CSD_REPAIRS',
2895: p_attr_values => x_dff_rec,
2896: p_validate_only => FND_API.G_TRUE
2897: );
2898: end if;
2896: p_validate_only => FND_API.G_TRUE
2897: );
2898: end if;
2899: ELSE
2900: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
2901: (p_api_name => 'Update_Repair_Order',
2902: p_desc_flex_name => 'CSD_REPAIRS',
2903: p_attr_values => x_dff_rec,
2904: p_validate_only => FND_API.G_TRUE
2898: end if;
2899: ELSE
2900: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
2901: (p_api_name => 'Update_Repair_Order',
2902: p_desc_flex_name => 'CSD_REPAIRS',
2903: p_attr_values => x_dff_rec,
2904: p_validate_only => FND_API.G_TRUE
2905: );
2906: END IF;
3080: SAVEPOINT copy_Attachments;
3081:
3082: IF(Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level) THEN
3083: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3084: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3085: 'Entered Copy_Attachments API');
3086: END IF;
3087:
3088: -- Standard call to check for call compatibility.
3103: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3104:
3105: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3106: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3107: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3108: 'Validate Original Repair line id = '||p_original_ro_id);
3109: END IF;
3110:
3111: IF NOT (Csd_Process_Util.Validate_rep_line_id
3114: END IF;
3115:
3116: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3117: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3118: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3119: 'Validation of Original Repair line id completed successfully');
3120: END IF;
3121:
3122: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3120: END IF;
3121:
3122: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3123: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3124: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3125: 'Validate New Repair line id = '||p_new_ro_id);
3126: END IF;
3127:
3128: IF NOT (Csd_Process_Util.Validate_rep_line_id
3131: END IF;
3132:
3133: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3134: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3135: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3136: 'Validation of New Repair line id completed successfully');
3137: END IF;
3138:
3139: -- Begin API Body
3141: -- the from_entity (Original Repair Order)
3142:
3143: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3144: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3145: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3146: 'Open main cursor');
3147: END IF;
3148:
3149: IF(Fnd_Log.Level_Event >= Fnd_Log.G_Current_Runtime_Level) THEN
3147: END IF;
3148:
3149: IF(Fnd_Log.Level_Event >= Fnd_Log.G_Current_Runtime_Level) THEN
3150: Fnd_Log.STRING(Fnd_Log.Level_Event,
3151: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3152: 'Started Copying of Attachments ');
3153: END IF;
3154:
3155:
3156: FOR docrec IN doclist LOOP
3157:
3158: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3159: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3160: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3161: 'Main cursor - Datatype id = '||docrec.datatype_id);
3162:
3163: END IF;
3164:
3172: -- Create Documents records
3173:
3174: IF ( Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level ) THEN
3175: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3176: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3177: 'Calling the FND_DOCUMENTS_PKG.Insert_Row');
3178: END IF;
3179:
3180: Fnd_Documents_Pkg.Insert_Row(l_row_id_tmp,
3232: CLOSE shorttext;
3233:
3234: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3235: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3236: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3237: 'Inserting into fnd_documents_short_text for
3238: document id = '||docrec.document_id);
3239: END IF;
3240:
3255: CLOSE longtext;
3256:
3257: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3258: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3259: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3260: 'Inserting into fnd_documents_long_text for
3261: document id = '||docrec.document_id);
3262: END IF;
3263:
3288: CLOSE fnd_lobs_cur;
3289:
3290: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3291: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3292: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3293: 'Inserting into fnd_lobs for
3294: document id = '||docrec.document_id);
3295: END IF;
3296:
3327:
3328:
3329: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3330: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3331: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3332: 'Inserting into fnd_attached_documents for
3333: document id = '||docrec.document_id);
3334: END IF;
3335:
3424: p_data => x_msg_data);
3425:
3426: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3427: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3428: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3429: 'Copy Attachments completed successfully ');
3430: END IF;
3431:
3432: EXCEPTION
3438: p_data => x_msg_data
3439: );
3440: IF ( Fnd_Log.LEVEL_ERROR >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3441: Fnd_Log.STRING(Fnd_Log.LEVEL_ERROR,
3442: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3443: 'EXC_ERROR ['||x_msg_data||']');
3444: END IF;
3445:
3446: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3450: p_data => x_msg_data );
3451:
3452: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3453: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3454: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3455: 'EXC_UNEXPECTED_ERROR ['||x_msg_data||']');
3456: END IF;
3457:
3458: WHEN OTHERS THEN
3467: p_data => x_msg_data );
3468:
3469: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3470: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3471: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3472: 'SQL Message ['||SQLERRM||']');
3473: END IF;
3474:
3475: END Copy_Attachments;
3514: SAVEPOINT Delete_Attachments;
3515:
3516: IF(Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level) THEN
3517: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3518: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3519: 'Entered Delete_Attachments API');
3520: END IF;
3521:
3522: -- Standard call to check for call compatibility.
3537: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3538:
3539: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3540: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3541: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3542: 'Validate Repair line id = '||p_repair_line_id);
3543: END IF;
3544:
3545: IF NOT (Csd_Process_Util.Validate_rep_line_id
3548: END IF;
3549:
3550: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3551: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3552: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3553: 'Validation of Repair line id completed successfully');
3554: END IF;
3555:
3556: --
3559:
3560: -- Delete from FND_DOCUMENTS_SHORT_TEXT table
3561: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3562: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3563: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3564: 'Deleting from fnd_documents_short_text');
3565: END IF;
3566:
3567: IF(Fnd_Log.Level_Event >= Fnd_Log.G_Current_Runtime_Level) THEN
3565: END IF;
3566:
3567: IF(Fnd_Log.Level_Event >= Fnd_Log.G_Current_Runtime_Level) THEN
3568: Fnd_Log.STRING(Fnd_Log.Level_Event,
3569: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3570: 'Started Deleting of Attachments');
3571: END IF;
3572:
3573:
3585:
3586: -- Delete from FND_DOCUMENTS_LONG_TEXT table
3587: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3588: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3589: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3590: 'Deleting from fnd_documents_long_text');
3591: END IF;
3592:
3593: DELETE FROM fnd_documents_long_text
3604:
3605: -- Delete from FND_DOCUMENTS_LONG_RAW table
3606: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3607: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3608: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3609: 'Deleting from fnd_documents_long_raw');
3610: END IF;
3611:
3612: DELETE FROM fnd_documents_long_raw
3624:
3625: -- Delete from FND_LOBS table
3626: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3627: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3628: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3629: 'Deleting from fnd_lobs');
3630: END IF;
3631:
3632: DELETE FROM fnd_lobs
3643:
3644: -- Delete from FND_DOCUMENTS_TL table
3645: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3646: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3647: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3648: 'Deleting from fnd_documents_tl');
3649: END IF;
3650:
3651: DELETE FROM fnd_documents_tl
3658:
3659: -- Delete from FND_DOCUMENTS table
3660: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3661: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3662: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3663: 'Deleting from fnd_documents');
3664: END IF;
3665:
3666: DELETE FROM fnd_documents
3672:
3673: -- delete from FND_ATTACHED_DOCUMENTS table
3674: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3675: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3676: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3677: 'Deleting from fnd_attached_documents');
3678: END IF;
3679:
3680: DELETE FROM fnd_attached_documents fad
3693: p_data => x_msg_data);
3694:
3695: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3696: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3697: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3698: 'Delete_Attachments completed successfully');
3699: END IF;
3700:
3701: EXCEPTION
3707: p_data => x_msg_data
3708: );
3709: IF ( Fnd_Log.LEVEL_ERROR >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3710: Fnd_Log.STRING(Fnd_Log.LEVEL_ERROR,
3711: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3712: 'EXC_ERROR ['||x_msg_data||']');
3713: END IF;
3714:
3715: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3719: p_data => x_msg_data );
3720:
3721: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3722: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3723: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3724: 'EXC_UNEXPECTED_ERROR ['||x_msg_data||']');
3725: END IF;
3726:
3727: WHEN OTHERS THEN
3736: p_data => x_msg_data );
3737:
3738: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3739: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3740: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3741: 'SQL Message ['||SQLERRM||']');
3742: END IF;
3743:
3744:
3755: -- p_api_version IN NUMBER,
3756: -- p_commit IN VARCHAR2,
3757: -- p_init_msg_list IN VARCHAR2,
3758: -- p_validation_level IN NUMBER,
3759: -- p_repair_status_rec IN CSD_REPAIRS_PUB.REPAIR_STATUS_REC,
3760: -- p_status_control_rec IN CSD_REPAIRS_PUB.STATUS_UPD_CONTROL_REC,
3761: -- OUT
3762: -- x_return_status
3763: -- x_msg_count
3756: -- p_commit IN VARCHAR2,
3757: -- p_init_msg_list IN VARCHAR2,
3758: -- p_validation_level IN NUMBER,
3759: -- p_repair_status_rec IN CSD_REPAIRS_PUB.REPAIR_STATUS_REC,
3760: -- p_status_control_rec IN CSD_REPAIRS_PUB.STATUS_UPD_CONTROL_REC,
3761: -- OUT
3762: -- x_return_status
3763: -- x_msg_count
3764: -- x_msg_data
3781: p_validation_level IN NUMBER,
3782: x_return_status OUT NOCOPY VARCHAR2,
3783: x_msg_count OUT NOCOPY NUMBER,
3784: x_msg_data OUT NOCOPY VARCHAR2,
3785: p_repair_status_Rec IN Csd_Repairs_Pub.REPAIR_STATUS_REC_TYPE,
3786: p_status_control_rec IN Csd_Repairs_Pub.STATUS_UPD_CONTROL_REC_TYPE,
3787: x_object_version_number OUT NOCOPY NUMBER
3788: ) IS
3789: l_api_version_number CONSTANT NUMBER := 1.0;
3782: x_return_status OUT NOCOPY VARCHAR2,
3783: x_msg_count OUT NOCOPY NUMBER,
3784: x_msg_data OUT NOCOPY VARCHAR2,
3785: p_repair_status_Rec IN Csd_Repairs_Pub.REPAIR_STATUS_REC_TYPE,
3786: p_status_control_rec IN Csd_Repairs_Pub.STATUS_UPD_CONTROL_REC_TYPE,
3787: x_object_version_number OUT NOCOPY NUMBER
3788: ) IS
3789: l_api_version_number CONSTANT NUMBER := 1.0;
3790: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_RO_STATUS';
3794: l_msg_data VARCHAR2 (2000);
3795: l_incident_id NUMBER;
3796: l_repair_type_id NUMBER;
3797: l_object_version_number NUMBER;
3798: l_repair_status_Rec Csd_Repairs_Pub.REPAIR_STATUS_REC_TYPE;
3799:
3800: --Define cursors
3801:
3802: --Get the flow status id from csd_repairs
3798: l_repair_status_Rec Csd_Repairs_Pub.REPAIR_STATUS_REC_TYPE;
3799:
3800: --Define cursors
3801:
3802: --Get the flow status id from csd_repairs
3803: CURSOR ro_details_cur(p_repair_line_id NUMBER) IS
3804: SELECT FLOW_STATUS_ID, REPAIR_TYPE_ID
3805: FROM CSD_REPAIRS
3806: WHERE REPAIR_LINE_ID = p_repair_line_id;
3801:
3802: --Get the flow status id from csd_repairs
3803: CURSOR ro_details_cur(p_repair_line_id NUMBER) IS
3804: SELECT FLOW_STATUS_ID, REPAIR_TYPE_ID
3805: FROM CSD_REPAIRS
3806: WHERE REPAIR_LINE_ID = p_repair_line_id;
3807:
3808: -- Get state, state is the status_code in the scehma. status is flow_status
3809: CURSOR flow_stat_cur(p_repair_status_id VARCHAR2) IS
3815: BEGIN
3816: --------------------Standard stuff -------------------------
3817: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level) THEN
3818: Fnd_Log.STRING (Fnd_Log.level_procedure,
3819: 'csd.plsql.csd_repairs_pvt.update_ro_status.begin',
3820: 'Entering update_ro_status private api');
3821: END IF;
3822: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3823: Fnd_Msg_Pub.initialize;
3833:
3834: ------------Convert Values to Id----------------------------------------------
3835: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
3836: Fnd_Log.STRING (Fnd_Log.level_event,
3837: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3838: '-----step 1: Value to Id conversion');
3839: END IF;
3840: Csd_Repairs_Util.Convert_Status_Val_To_Id(p_repair_status_rec,
3841: l_repair_status_rec,
3836: Fnd_Log.STRING (Fnd_Log.level_event,
3837: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3838: '-----step 1: Value to Id conversion');
3839: END IF;
3840: Csd_Repairs_Util.Convert_Status_Val_To_Id(p_repair_status_rec,
3841: l_repair_status_rec,
3842: l_return_status);
3843:
3844: ------------Default/Validate Input parameters----------------------------------------------
3843:
3844: ------------Default/Validate Input parameters----------------------------------------------
3845: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
3846: Fnd_Log.STRING (Fnd_Log.level_event,
3847: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3848: '-----step 2: Validate input ');
3849: END IF;
3850:
3851: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
3849: END IF;
3850:
3851: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
3852: Fnd_Log.STRING (Fnd_Log.level_event,
3853: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3854: '-----step 3: get required repair order values for update private api,ro['
3855: ||l_repair_status_rec.repair_line_id||'],status['
3856: ||l_repair_status_rec.repair_status||']');
3857:
3878: CLOSE flow_stat_cur;
3879:
3880: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
3881: Fnd_Log.STRING (Fnd_Log.level_event,
3882: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3883: '-----step 4: Checking for open jobs/tasks,ro['
3884: ||l_repair_status_rec.repair_line_id||'],state['
3885: ||l_repair_status_rec.repair_state||']');
3886: END IF;
3886: END IF;
3887: ------------Validate Input parameters: record level validation------------------------------
3888: IF(p_status_control_Rec.check_task_wip = 'Y') THEN
3889:
3890: Csd_Repairs_Util.CHECK_TASK_N_WIPJOB (
3891: p_repair_line_id => l_repair_status_rec.repair_line_id,
3892: p_repair_status => l_repair_status_rec.repair_state,
3893: x_return_status => l_return_status,
3894: x_msg_count => l_msg_count,
3907: ------------Call other private api to perform the status update------------------------------
3908: /*----------------------Vinay says the api update_flow_Status has logic to close ro status.*/
3909: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
3910: Fnd_Log.STRING (Fnd_Log.level_event,
3911: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3912: '-----step 5a: Calling another private api to validate and update status');
3913: END IF;
3914: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
3915: p_api_version => 1.0,
3910: Fnd_Log.STRING (Fnd_Log.level_event,
3911: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3912: '-----step 5a: Calling another private api to validate and update status');
3913: END IF;
3914: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
3915: p_api_version => 1.0,
3916: p_commit => Fnd_api.g_false,
3917: p_init_msg_list => Fnd_Api.g_false,
3918: p_validation_level => Fnd_Api.g_valid_level_full,
3947: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3948:
3949: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level) THEN
3950: Fnd_Log.STRING (Fnd_Log.level_procedure,
3951: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3952: 'Leaving update_ro_Status private api');
3953: END IF;
3954:
3955: EXCEPTION
3959: ROLLBACK TO update_ro_status_pvt;
3960: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3961: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level) THEN
3962: Fnd_Log.STRING (Fnd_Log.level_error,
3963: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3964: 'EXC_ERROR[' || x_msg_data || ']');
3965: END IF;
3966: WHEN Fnd_Api.g_exc_unexpected_error
3967: THEN
3970: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3971:
3972: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level) THEN
3973: Fnd_Log.STRING (Fnd_Log.level_exception,
3974: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3975: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
3976: END IF;
3977: WHEN OTHERS
3978: THEN
3986: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3987:
3988: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level) THEN
3989: Fnd_Log.STRING (Fnd_Log.level_exception,
3990: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3991: 'SQL MEssage[' || SQLERRM || ']');
3992: END IF;
3993: END UPDATE_RO_STATUS;
3994:
4011: x_object_version_number OUT NOCOPY NUMBER
4012: ) IS
4013:
4014: -- CONSTANTS --
4015: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.update_flow_status';
4016: lc_api_name CONSTANT VARCHAR2(30) := 'Update_Flow_Status';
4017: lc_api_version CONSTANT NUMBER := 1.0;
4018: lc_update_fs_event_code CONSTANT VARCHAR2(5) := 'SC';
4019: lc_status_code_closed CONSTANT VARCHAR2(1) := 'C';
4080: -- swai: bug 6937272( FP of 6882484)
4081: -- Query to get current object version number of repair order
4082: CURSOR c_get_object_version_number (p_repair_line_id NUMBER) IS
4083: SELECT object_version_number
4084: FROM CSD_REPAIRS
4085: WHERE repair_line_id = p_repair_line_id;
4086:
4087: BEGIN
4088:
4298: END IF;
4299:
4300: END IF;
4301:
4302: -- STEP 6: Update CSD_REPAIRS with status details.
4303:
4304: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4305: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
4306: 'Calling update Repairs');
4307: END IF;
4308:
4309: --BEGIN
4310:
4311: UPDATE CSD_REPAIRS
4312: SET flow_status_id = p_to_flow_status_id,
4313: status = l_to_status_code,
4314: status_reason_code = p_reason_code,
4315: date_closed = DECODE(l_to_status_code, 'C', SYSDATE, NULL),
4598: p_responsibility_id IN NUMBER
4599: ) RETURN BOOLEAN IS
4600:
4601: -- CONSTANTS --
4602: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.Is_Rt_Update_Allowed';
4603: lc_api_name CONSTANT VARCHAR2(30) := 'Is_Rt_Update_Allowed';
4604:
4605: -- VARIABLES --
4606: l_dummy VARCHAR2(1) := NULL;
4685: x_object_version_number OUT NOCOPY NUMBER
4686: ) IS
4687:
4688: -- CONSTANTS --
4689: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.update_repair_type';
4690: lc_api_name CONSTANT VARCHAR2(30) := 'Update_Repair_Type';
4691: lc_api_version CONSTANT NUMBER := 1.0;
4692: lc_update_rt_event_code CONSTANT VARCHAR2(5) := 'RTU';
4693:
4816:
4817:
4818: -- Validate whether the set up exists for transition of
4819: -- FROM repair type to TO repair type for the current flow_status_id
4820: -- in CSD_REPAIRS. In the process, also check if the return
4821: -- reason is required.
4822: IF l_reason_required_flag IS NULL THEN
4823: -- "Unable to update repair type. The repair type transition
4824: -- is not valid for the current status."
4882: END IF;
4883:
4884: BEGIN
4885:
4886: UPDATE CSD_REPAIRS
4887: SET repair_type_id = p_to_repair_type_id,
4888: last_updated_by = Fnd_Global.USER_ID,
4889: last_update_date = SYSDATE,
4890: last_update_login = Fnd_Global.LOGIN_ID,
5121: p_responsibility_id IN NUMBER
5122: ) RETURN BOOLEAN IS
5123:
5124: -- CONSTANTS --
5125: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.Is_Flwsts_Update_Allowed';
5126: lc_api_name CONSTANT VARCHAR2(30) := 'Is_Flwsts_Update_Allowed';
5127:
5128: -- VARIABLES --
5129: l_dummy VARCHAR2(1) := NULL;
5203: p_flwsts_wf_rec IN Flwsts_Wf_Rec_Type
5204: ) IS
5205:
5206: -- CONSTANTS --
5207: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.launch_flwsts_wf';
5208: lc_api_name CONSTANT VARCHAR2(30) := 'Launch_Flwsts_Wf';
5209: lc_api_version CONSTANT NUMBER := 1.0;
5210:
5211: -- For setting WF engine threshold
5523: p_check_task_wip IN VARCHAR2,
5524: p_object_version_number IN NUMBER
5525:
5526: ) IS
5527: l_repair_status_rec Csd_Repairs_Pub.REPAIR_STATUS_REC_TYPE;
5528: l_status_upd_control_rec Csd_Repairs_Pub.STATUS_UPD_CONTROL_REC_TYPE;
5529: l_object_Version_number NUMBER;
5530: l_return_status VARCHAR2(1);
5531:
5524: p_object_version_number IN NUMBER
5525:
5526: ) IS
5527: l_repair_status_rec Csd_Repairs_Pub.REPAIR_STATUS_REC_TYPE;
5528: l_status_upd_control_rec Csd_Repairs_Pub.STATUS_UPD_CONTROL_REC_TYPE;
5529: l_object_Version_number NUMBER;
5530: l_return_status VARCHAR2(1);
5531:
5532: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repairs_pvt.update_ro_status_websrvc';
5528: l_status_upd_control_rec Csd_Repairs_Pub.STATUS_UPD_CONTROL_REC_TYPE;
5529: l_object_Version_number NUMBER;
5530: l_return_status VARCHAR2(1);
5531:
5532: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repairs_pvt.update_ro_status_websrvc';
5533: lc_api_name CONSTANT VARCHAR2(30) := 'update_ro_status_websrvc';
5534: lc_api_version CONSTANT NUMBER := 1.0;
5535:
5536: BEGIN
5562:
5563: l_return_Status := Fnd_Api.G_RET_STS_SUCCESS;
5564:
5565: --debug('In plsql api to update ro status for web service['||to_char(p_repair_line_id)||']');
5566: csd_repairs_util.Check_WebSrvc_Security(
5567: p_repair_line_id => p_repair_line_id,
5568: x_return_status => l_return_status);
5569:
5570: IF(l_return_Status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
5581:
5582: l_status_upd_control_rec.check_task_wip := p_check_task_wip;
5583:
5584: --debug('calling update_ro_status private api');
5585: Csd_Repairs_Pvt.UPDATE_RO_STATUS(P_Api_Version => p_api_version,
5586: P_Commit => p_commit,
5587: P_Init_Msg_List => p_init_msg_list,
5588: P_Validation_Level => Fnd_Api.G_VALID_LEVEL_FULL,
5589: X_Return_Status => x_return_status,
5803: select
5804: csd.repair_line_id
5805: from
5806: cs_estimate_details est,
5807: csd_repairs csd
5808: where
5809: est.order_line_id = p_line_id
5810: and est.original_source_id = csd.repair_line_id;
5811:
5839: resultout := 'COMPLETE:ERROR';
5840:
5841: l_module_name := 'UPDATE_RO_STATUS';
5842:
5843: CSD_REPAIRS_PVT.LAUNCH_WFEXCEPTION_BEVENT(
5844: p_return_status => l_return_status,
5845: p_msg_count => l_msg_count,
5846: p_msg_data => l_msg_data,
5847: p_repair_line_id => l_repair_line_id,
5856: END IF;
5857:
5858: EXCEPTION
5859: WHEN OTHERS THEN
5860: WF_CORE.CONTEXT('CSD_REPAIRS_PVT','UPDATE_RO_STATUS_WF',itemtype,
5861: itemkey,to_char(actid),funcmode);
5862: raise;
5863: END;
5864:
5965: commit;
5966:
5967: END;
5968:
5969: END Csd_Repairs_Pvt;