[Home] [Help]
2144:
2145: -- Variables to be passed to the Update SR API
2146: l_note_status VARCHAR2(240);
2147: l_note_type VARCHAR2(240);
2148: l_notes_table CS_ServiceRequest_PVT.Notes_Table;
2149: l_notes_table_dummy CS_ServiceRequest_PVT.Notes_Table;
2150: l_ServiceRequest_Rec CS_ServiceRequest_PVT.Service_Request_Rec_Type;
2151: l_sr_version NUMBER;
2152: l_note_text VARCHAR2(4000);
2145: -- Variables to be passed to the Update SR API
2146: l_note_status VARCHAR2(240);
2147: l_note_type VARCHAR2(240);
2148: l_notes_table CS_ServiceRequest_PVT.Notes_Table;
2149: l_notes_table_dummy CS_ServiceRequest_PVT.Notes_Table;
2150: l_ServiceRequest_Rec CS_ServiceRequest_PVT.Service_Request_Rec_Type;
2151: l_sr_version NUMBER;
2152: l_note_text VARCHAR2(4000);
2153: l_contacts_table CS_ServiceRequest_PVT.Contacts_Table;
2146: l_note_status VARCHAR2(240);
2147: l_note_type VARCHAR2(240);
2148: l_notes_table CS_ServiceRequest_PVT.Notes_Table;
2149: l_notes_table_dummy CS_ServiceRequest_PVT.Notes_Table;
2150: l_ServiceRequest_Rec CS_ServiceRequest_PVT.Service_Request_Rec_Type;
2151: l_sr_version NUMBER;
2152: l_note_text VARCHAR2(4000);
2153: l_contacts_table CS_ServiceRequest_PVT.Contacts_Table;
2154: l_sr_update_out_rec CS_ServiceRequest_PVT.sr_update_out_rec_type;
2149: l_notes_table_dummy CS_ServiceRequest_PVT.Notes_Table;
2150: l_ServiceRequest_Rec CS_ServiceRequest_PVT.Service_Request_Rec_Type;
2151: l_sr_version NUMBER;
2152: l_note_text VARCHAR2(4000);
2153: l_contacts_table CS_ServiceRequest_PVT.Contacts_Table;
2154: l_sr_update_out_rec CS_ServiceRequest_PVT.sr_update_out_rec_type;
2155:
2156: -- Local Variables
2157: l_sig_status VARCHAR2(40);
2150: l_ServiceRequest_Rec CS_ServiceRequest_PVT.Service_Request_Rec_Type;
2151: l_sr_version NUMBER;
2152: l_note_text VARCHAR2(4000);
2153: l_contacts_table CS_ServiceRequest_PVT.Contacts_Table;
2154: l_sr_update_out_rec CS_ServiceRequest_PVT.sr_update_out_rec_type;
2155:
2156: -- Local Variables
2157: l_sig_status VARCHAR2(40);
2158: l_target_status_id NUMBER;
2501:
2502: -- Call Update Service Request API to update the SR Status and Create Notes
2503:
2504: -- Initialize the service request record.
2505: CS_ServiceRequest_PVT.Initialize_Rec(l_servicerequest_Rec);
2506:
2507: IF l_sr_status_id = p_intermediate_status_id THEN
2508: l_servicerequest_Rec.status_id := l_target_status_id;
2509: END IF ;
2514: -- If UpdateService Request API call fails then add additional note and
2515: -- update the service request status to the initial status
2516:
2517:
2518: -- Log CS_ServiceRequest_PVT.Update_ServiceRequest is being called
2519:
2520: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2521: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process')) THEN
2522: dbg_msg := ('Calling CS_ServiceRequest_PVT.Update_ServiceRequest (1)');
2518: -- Log CS_ServiceRequest_PVT.Update_ServiceRequest is being called
2519:
2520: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2521: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process')) THEN
2522: dbg_msg := ('Calling CS_ServiceRequest_PVT.Update_ServiceRequest (1)');
2523: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2524: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process', dbg_msg);
2525: END IF;
2526: END IF;
2527: END IF;
2528:
2529: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2530:
2531: CS_ServiceRequest_PVT.Update_ServiceRequest
2532: ( p_api_version => 4.0,
2533: x_return_status => l_return_status,
2534: x_msg_count => l_msg_count,
2535: x_msg_data => l_msg_data,
2546: x_sr_update_out_rec => l_sr_update_out_rec );
2547:
2548:
2549:
2550: -- Log CS_ServiceRequest_PVT.Update_ServiceRequest return status
2551:
2552: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2553: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process')) THEN
2554: dbg_msg := ('After Calling CS_ServiceRequest_PVT.Update_ServiceRequest');
2550: -- Log CS_ServiceRequest_PVT.Update_ServiceRequest return status
2551:
2552: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2553: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process')) THEN
2554: dbg_msg := ('After Calling CS_ServiceRequest_PVT.Update_ServiceRequest');
2555: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2556: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process', dbg_msg);
2557: END IF;
2558: dbg_msg := ('CS_ServiceRequest_PVT.Update_ServiceRequest Return Status : '||l_return_status);
2554: dbg_msg := ('After Calling CS_ServiceRequest_PVT.Update_ServiceRequest');
2555: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2556: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process', dbg_msg);
2557: END IF;
2558: dbg_msg := ('CS_ServiceRequest_PVT.Update_ServiceRequest Return Status : '||l_return_status);
2559: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2560: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process', dbg_msg);
2561: END IF;
2562: END IF;
2853: END IF;
2854: END IF;
2855: END IF;
2856:
2857: -- Log CS_ServiceRequest_PVT.Update_ServiceRequest is being called
2858:
2859: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2860: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process')) THEN
2861: dbg_msg := ('Calling CS_ServiceRequest_PVT.Update_ServiceRequest (2)');
2857: -- Log CS_ServiceRequest_PVT.Update_ServiceRequest is being called
2858:
2859: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2860: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process')) THEN
2861: dbg_msg := ('Calling CS_ServiceRequest_PVT.Update_ServiceRequest (2)');
2862: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2863: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process', dbg_msg);
2864: END IF;
2865: END IF;
2870: l_servicerequest_Rec.status_id := l_target_status_id;
2871: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2872:
2873:
2874: CS_ServiceRequest_PVT.Update_ServiceRequest
2875: ( p_api_version => 4.0,
2876: x_return_status => l_return_status,
2877: x_msg_count => l_msg_count,
2878: x_msg_data => l_msg_data,
2887: p_validate_sr_closure => NVL(l_validate_sr_close,'N'),
2888: p_auto_close_child_entities => NVL(l_validate_sr_close,'N'),
2889: x_sr_update_out_rec => l_sr_update_out_rec );
2890:
2891: -- Log CS_ServiceRequest_PVT.Update_ServiceRequest return status
2892:
2893: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2894: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process')) THEN
2895: dbg_msg := ('After Calling CS_ServiceRequest_PVT.Update_ServiceRequest (2)');
2891: -- Log CS_ServiceRequest_PVT.Update_ServiceRequest return status
2892:
2893: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2894: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process')) THEN
2895: dbg_msg := ('After Calling CS_ServiceRequest_PVT.Update_ServiceRequest (2)');
2896: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process', dbg_msg);
2898: END IF;
2899: dbg_msg := ('CS_ServiceRequest_PVT.Update_ServiceRequest Return Status : '||l_return_status);
2895: dbg_msg := ('After Calling CS_ServiceRequest_PVT.Update_ServiceRequest (2)');
2896: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process', dbg_msg);
2898: END IF;
2899: dbg_msg := ('CS_ServiceRequest_PVT.Update_ServiceRequest Return Status : '||l_return_status);
2900: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2901: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.Post_Approval_Process', dbg_msg);
2902: END IF;
2903: END IF;