[Home] [Help]
1: Package BODY Csd_Repairs_Pvt AS
2: /* $Header: csdvdrab.pls 120.38.12020000.4 2013/03/30 00:14:11 yvchen 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.38.12020000.4 2013/03/30 00:14:11 yvchen 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:
582: x_REPAIR_NUMBER := l_REPAIR_NUMBER;
583:
584: -- START bug#13698799 auto create ro, parent ro
585: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
586: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, 'CSD.PLSQL.csd_repairs_pvt.create_repair_order',
587: 'Calling Repair History to log activity');
588: END IF;
589:
590: IF l_REPLN_Rec.parent_repair_line_id is not null and l_REPLN_Rec.parent_repair_line_id <> FND_API.G_MISS_NUM THEN
644: END IF;
645:
646: IF l_REPLN_Rec.parent_repair_line_id is not NULL and l_REPLN_Rec.parent_repair_line_id <> FND_API.G_MISS_NUM THEN
647: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
648: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, 'CSD.PLSQL.csd_repairs_pvt.create_repair_order',
649: 'Calling Repair History to log activity for parent RO');
650: END IF;
651:
652: -- log an activity on the newly created repair order
3388: SAVEPOINT copy_Attachments;
3389:
3390: IF(Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level) THEN
3391: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3392: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3393: 'Entered Copy_Attachments API');
3394: END IF;
3395:
3396: -- Standard call to check for call compatibility.
3411: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3412:
3413: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3414: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3415: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3416: 'Validate Original Repair line id = '||p_original_ro_id);
3417: END IF;
3418:
3419: IF NOT (Csd_Process_Util.Validate_rep_line_id
3422: END IF;
3423:
3424: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3425: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3426: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3427: 'Validation of Original Repair line id completed successfully');
3428: END IF;
3429:
3430: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3428: END IF;
3429:
3430: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3431: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3432: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3433: 'Validate New Repair line id = '||p_new_ro_id);
3434: END IF;
3435:
3436: IF NOT (Csd_Process_Util.Validate_rep_line_id
3439: END IF;
3440:
3441: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3442: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3443: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3444: 'Validation of New Repair line id completed successfully');
3445: END IF;
3446:
3447: -- Begin API Body
3449: -- the from_entity (Original Repair Order)
3450:
3451: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3452: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3453: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3454: 'Open main cursor');
3455: END IF;
3456:
3457: IF(Fnd_Log.Level_Event >= Fnd_Log.G_Current_Runtime_Level) THEN
3455: END IF;
3456:
3457: IF(Fnd_Log.Level_Event >= Fnd_Log.G_Current_Runtime_Level) THEN
3458: Fnd_Log.STRING(Fnd_Log.Level_Event,
3459: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3460: 'Started Copying of Attachments ');
3461: END IF;
3462:
3463:
3464: FOR docrec IN doclist LOOP
3465:
3466: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3467: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3468: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3469: 'Main cursor - Datatype id = '||docrec.datatype_id);
3470:
3471: END IF;
3472:
3480: -- Create Documents records
3481:
3482: IF ( Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level ) THEN
3483: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3484: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3485: 'Calling the FND_DOCUMENTS_PKG.Insert_Row');
3486: END IF;
3487:
3488: Fnd_Documents_Pkg.Insert_Row(l_row_id_tmp,
3540: CLOSE shorttext;
3541:
3542: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3543: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3544: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3545: 'Inserting into fnd_documents_short_text for
3546: document id = '||docrec.document_id);
3547: END IF;
3548:
3563: CLOSE longtext;
3564:
3565: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3566: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3567: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3568: 'Inserting into fnd_documents_long_text for
3569: document id = '||docrec.document_id);
3570: END IF;
3571:
3596: CLOSE fnd_lobs_cur;
3597:
3598: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3599: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3600: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3601: 'Inserting into fnd_lobs for
3602: document id = '||docrec.document_id);
3603: END IF;
3604:
3635:
3636:
3637: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3638: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3639: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3640: 'Inserting into fnd_attached_documents for
3641: document id = '||docrec.document_id);
3642: END IF;
3643:
3732: p_data => x_msg_data);
3733:
3734: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3735: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3736: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3737: 'Copy Attachments completed successfully ');
3738: END IF;
3739:
3740: EXCEPTION
3746: p_data => x_msg_data
3747: );
3748: IF ( Fnd_Log.LEVEL_ERROR >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3749: Fnd_Log.STRING(Fnd_Log.LEVEL_ERROR,
3750: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3751: 'EXC_ERROR ['||x_msg_data||']');
3752: END IF;
3753:
3754: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3758: p_data => x_msg_data );
3759:
3760: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3761: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3762: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3763: 'EXC_UNEXPECTED_ERROR ['||x_msg_data||']');
3764: END IF;
3765:
3766: WHEN OTHERS THEN
3775: p_data => x_msg_data );
3776:
3777: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3778: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3779: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3780: 'SQL Message ['||SQLERRM||']');
3781: END IF;
3782:
3783: END Copy_Attachments;
3822: SAVEPOINT Delete_Attachments;
3823:
3824: IF(Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level) THEN
3825: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3826: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3827: 'Entered Delete_Attachments API');
3828: END IF;
3829:
3830: -- Standard call to check for call compatibility.
3845: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3846:
3847: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3848: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3849: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3850: 'Validate Repair line id = '||p_repair_line_id);
3851: END IF;
3852:
3853: IF NOT (Csd_Process_Util.Validate_rep_line_id
3856: END IF;
3857:
3858: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3859: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3860: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3861: 'Validation of Repair line id completed successfully');
3862: END IF;
3863:
3864: --
3867:
3868: -- Delete from FND_DOCUMENTS_SHORT_TEXT table
3869: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3870: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3871: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3872: 'Deleting from fnd_documents_short_text');
3873: END IF;
3874:
3875: IF(Fnd_Log.Level_Event >= Fnd_Log.G_Current_Runtime_Level) THEN
3873: END IF;
3874:
3875: IF(Fnd_Log.Level_Event >= Fnd_Log.G_Current_Runtime_Level) THEN
3876: Fnd_Log.STRING(Fnd_Log.Level_Event,
3877: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3878: 'Started Deleting of Attachments');
3879: END IF;
3880:
3881:
3893:
3894: -- Delete from FND_DOCUMENTS_LONG_TEXT table
3895: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3896: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3897: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3898: 'Deleting from fnd_documents_long_text');
3899: END IF;
3900:
3901: DELETE FROM fnd_documents_long_text
3912:
3913: -- Delete from FND_DOCUMENTS_LONG_RAW table
3914: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3915: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3916: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3917: 'Deleting from fnd_documents_long_raw');
3918: END IF;
3919:
3920: DELETE FROM fnd_documents_long_raw
3932:
3933: -- Delete from FND_LOBS table
3934: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3935: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3936: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3937: 'Deleting from fnd_lobs');
3938: END IF;
3939:
3940: DELETE FROM fnd_lobs
3951:
3952: -- Delete from FND_DOCUMENTS_TL table
3953: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3954: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3955: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3956: 'Deleting from fnd_documents_tl');
3957: END IF;
3958:
3959: DELETE FROM fnd_documents_tl
3966:
3967: -- Delete from FND_DOCUMENTS table
3968: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3969: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3970: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3971: 'Deleting from fnd_documents');
3972: END IF;
3973:
3974: DELETE FROM fnd_documents
3980:
3981: -- delete from FND_ATTACHED_DOCUMENTS table
3982: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3983: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3984: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3985: 'Deleting from fnd_attached_documents');
3986: END IF;
3987:
3988: DELETE FROM fnd_attached_documents fad
4001: p_data => x_msg_data);
4002:
4003: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
4004: Fnd_Log.STRING(Fnd_Log.Level_Statement,
4005: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
4006: 'Delete_Attachments completed successfully');
4007: END IF;
4008:
4009: EXCEPTION
4015: p_data => x_msg_data
4016: );
4017: IF ( Fnd_Log.LEVEL_ERROR >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
4018: Fnd_Log.STRING(Fnd_Log.LEVEL_ERROR,
4019: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
4020: 'EXC_ERROR ['||x_msg_data||']');
4021: END IF;
4022:
4023: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4027: p_data => x_msg_data );
4028:
4029: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
4030: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
4031: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
4032: 'EXC_UNEXPECTED_ERROR ['||x_msg_data||']');
4033: END IF;
4034:
4035: WHEN OTHERS THEN
4044: p_data => x_msg_data );
4045:
4046: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
4047: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
4048: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
4049: 'SQL Message ['||SQLERRM||']');
4050: END IF;
4051:
4052:
4123: BEGIN
4124: --------------------Standard stuff -------------------------
4125: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level) THEN
4126: Fnd_Log.STRING (Fnd_Log.level_procedure,
4127: 'csd.plsql.csd_repairs_pvt.update_ro_status.begin',
4128: 'Entering update_ro_status private api');
4129: END IF;
4130: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4131: Fnd_Msg_Pub.initialize;
4141:
4142: ------------Convert Values to Id----------------------------------------------
4143: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
4144: Fnd_Log.STRING (Fnd_Log.level_event,
4145: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4146: '-----step 1: Value to Id conversion');
4147: END IF;
4148: Csd_Repairs_Util.Convert_Status_Val_To_Id(p_repair_status_rec,
4149: l_repair_status_rec,
4151:
4152: ------------Default/Validate Input parameters----------------------------------------------
4153: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
4154: Fnd_Log.STRING (Fnd_Log.level_event,
4155: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4156: '-----step 2: Validate input ');
4157: END IF;
4158:
4159: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
4157: END IF;
4158:
4159: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
4160: Fnd_Log.STRING (Fnd_Log.level_event,
4161: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4162: '-----step 3: get required repair order values for update private api,ro['
4163: ||l_repair_status_rec.repair_line_id||'],status['
4164: ||l_repair_status_rec.repair_status||']');
4165:
4186: CLOSE flow_stat_cur;
4187:
4188: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
4189: Fnd_Log.STRING (Fnd_Log.level_event,
4190: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4191: '-----step 4: Checking for open jobs/tasks,ro['
4192: ||l_repair_status_rec.repair_line_id||'],state['
4193: ||l_repair_status_rec.repair_state||']');
4194: END IF;
4215: ------------Call other private api to perform the status update------------------------------
4216: /*----------------------Vinay says the api update_flow_Status has logic to close ro status.*/
4217: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
4218: Fnd_Log.STRING (Fnd_Log.level_event,
4219: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4220: '-----step 5a: Calling another private api to validate and update status');
4221: END IF;
4222: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
4223: p_api_version => 1.0,
4218: Fnd_Log.STRING (Fnd_Log.level_event,
4219: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4220: '-----step 5a: Calling another private api to validate and update status');
4221: END IF;
4222: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
4223: p_api_version => 1.0,
4224: p_commit => Fnd_api.g_false,
4225: p_init_msg_list => Fnd_Api.g_false,
4226: p_validation_level => Fnd_Api.g_valid_level_full,
4255: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4256:
4257: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level) THEN
4258: Fnd_Log.STRING (Fnd_Log.level_procedure,
4259: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4260: 'Leaving update_ro_Status private api');
4261: END IF;
4262:
4263: EXCEPTION
4267: ROLLBACK TO update_ro_status_pvt;
4268: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4269: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level) THEN
4270: Fnd_Log.STRING (Fnd_Log.level_error,
4271: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4272: 'EXC_ERROR[' || x_msg_data || ']');
4273: END IF;
4274: WHEN Fnd_Api.g_exc_unexpected_error
4275: THEN
4278: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4279:
4280: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level) THEN
4281: Fnd_Log.STRING (Fnd_Log.level_exception,
4282: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4283: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
4284: END IF;
4285: WHEN OTHERS
4286: THEN
4294: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4295:
4296: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level) THEN
4297: Fnd_Log.STRING (Fnd_Log.level_exception,
4298: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4299: 'SQL MEssage[' || SQLERRM || ']');
4300: END IF;
4301: END UPDATE_RO_STATUS;
4302:
4319: x_object_version_number OUT NOCOPY NUMBER
4320: ) IS
4321:
4322: -- CONSTANTS --
4323: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.update_flow_status';
4324: lc_api_name CONSTANT VARCHAR2(30) := 'Update_Flow_Status';
4325: lc_api_version CONSTANT NUMBER := 1.0;
4326: lc_update_fs_event_code CONSTANT VARCHAR2(5) := 'SC';
4327: lc_status_code_closed CONSTANT VARCHAR2(1) := 'C';
4906: p_responsibility_id IN NUMBER
4907: ) RETURN BOOLEAN IS
4908:
4909: -- CONSTANTS --
4910: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.Is_Rt_Update_Allowed';
4911: lc_api_name CONSTANT VARCHAR2(30) := 'Is_Rt_Update_Allowed';
4912:
4913: -- VARIABLES --
4914: l_dummy VARCHAR2(1) := NULL;
4993: x_object_version_number OUT NOCOPY NUMBER
4994: ) IS
4995:
4996: -- CONSTANTS --
4997: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.update_repair_type';
4998: lc_api_name CONSTANT VARCHAR2(30) := 'Update_Repair_Type';
4999: lc_api_version CONSTANT NUMBER := 1.0;
5000: lc_update_rt_event_code CONSTANT VARCHAR2(5) := 'RTU';
5001:
5429: p_responsibility_id IN NUMBER
5430: ) RETURN BOOLEAN IS
5431:
5432: -- CONSTANTS --
5433: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.Is_Flwsts_Update_Allowed';
5434: lc_api_name CONSTANT VARCHAR2(30) := 'Is_Flwsts_Update_Allowed';
5435:
5436: -- VARIABLES --
5437: l_dummy VARCHAR2(1) := NULL;
5511: p_flwsts_wf_rec IN Flwsts_Wf_Rec_Type
5512: ) IS
5513:
5514: -- CONSTANTS --
5515: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_REPAIRS_PVT.launch_flwsts_wf';
5516: lc_api_name CONSTANT VARCHAR2(30) := 'Launch_Flwsts_Wf';
5517: lc_api_version CONSTANT NUMBER := 1.0;
5518:
5519: -- For setting WF engine threshold
5839: l_status_upd_control_rec Csd_Repairs_Pub.STATUS_UPD_CONTROL_REC_TYPE;
5840: l_object_Version_number NUMBER;
5841: l_return_status VARCHAR2(1);
5842:
5843: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repairs_pvt.update_ro_status_websrvc';
5844: lc_api_name CONSTANT VARCHAR2(30) := 'update_ro_status_websrvc';
5845: lc_api_version CONSTANT NUMBER := 1.0;
5846:
5847: BEGIN
5892:
5893: l_status_upd_control_rec.check_task_wip := p_check_task_wip;
5894:
5895: --debug('calling update_ro_status private api');
5896: Csd_Repairs_Pvt.UPDATE_RO_STATUS(P_Api_Version => p_api_version,
5897: P_Commit => p_commit,
5898: P_Init_Msg_List => p_init_msg_list,
5899: P_Validation_Level => Fnd_Api.G_VALID_LEVEL_FULL,
5900: X_Return_Status => x_return_status,
6167: null;
6168: end;
6169:
6170: if l_to_flow_status_id <> l_from_flow_status_id then
6171: csd_repairs_pvt.update_flow_status(p_api_version => 1.0,
6172: p_commit => fnd_api.g_false,
6173: p_init_msg_list => fnd_api.g_false,
6174: p_validation_level => fnd_api.g_valid_level_full,
6175: x_return_status => l_return_status,
6205: resultout := 'COMPLETE:ERROR';
6206:
6207: l_module_name := 'UPDATE_RO_STATUS';
6208:
6209: CSD_REPAIRS_PVT.LAUNCH_WFEXCEPTION_BEVENT(
6210: p_return_status => l_return_status,
6211: p_msg_count => l_msg_count,
6212: p_msg_data => l_msg_data,
6213: p_repair_line_id => l_repair_line_id,
6222: END IF;
6223:
6224: EXCEPTION
6225: WHEN OTHERS THEN
6226: WF_CORE.CONTEXT('CSD_REPAIRS_PVT','UPDATE_RO_STATUS_WF',itemtype,
6227: itemkey,to_char(actid),funcmode);
6228: raise;
6229: END;
6230:
6331: commit;
6332:
6333: END;
6334:
6335: END Csd_Repairs_Pvt;