2: /* $Header: AHLPPNRB.pls 120.3.12020000.2 2012/12/10 15:44:43 prakkum ship $ */
3: ------------------------------------
4: -- Common constants and variables --
5: ------------------------------------
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
3: ------------------------------------
4: -- Common constants and variables --
5: ------------------------------------
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
11: G_DEBUG VARCHAR2(1) := NVL(AHL_DEBUG_PUB.is_log_enabled,'N');
4: -- Common constants and variables --
5: ------------------------------------
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
11: G_DEBUG VARCHAR2(1) := NVL(AHL_DEBUG_PUB.is_log_enabled,'N');
12:
5: ------------------------------------
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
11: G_DEBUG VARCHAR2(1) := NVL(AHL_DEBUG_PUB.is_log_enabled,'N');
12:
13:
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
11: G_DEBUG VARCHAR2(1) := NVL(AHL_DEBUG_PUB.is_log_enabled,'N');
12:
13:
14: PROCEDURE POPULATE_CREATE_SR_INPUT_REC( p_create_nr_input_rec IN NON_ROUTINE_REC_TYPE,
104:
105:
106: -- Log API entry point
107: IF (l_log_procedure >= l_log_current_level) THEN
108: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.begin','At the start of PL SQL procedure ');
109: END IF;
110:
111: -- If the originator wo id is present
112: IF( (p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID IS NOT NULL AND p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID <> FND_API.G_MISS_NUM)
118: POPULATE_CREATE_SR_INPUT_REC(p_create_nr_input_rec,x_sr_task_rec);
119: p_x_sr_task_tbl(1) := x_sr_task_rec;
120:
121: IF (l_log_statement >= l_log_current_level) THEN
122: fnd_log.string(fnd_log.level_statement,l_debug_module,'Calling AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job');
123: END IF;
124: -- Call the API to create the SR and workorder
125: AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job (
126: 1.0,
135: l_mr_asso_tbl
136: );
137:
138: IF (l_log_statement >= l_log_current_level) THEN
139: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job');
140: END IF;
141:
142: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
143: IF (l_log_statement >= l_log_current_level) THEN
140: END IF;
141:
142: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
143: IF (l_log_statement >= l_log_current_level) THEN
144: fnd_log.string(fnd_log.level_statement,l_debug_module,'Call to AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job, Not Success');
145: END IF;
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148:
160: (p_material_req_rec.ITEM_NUMBER IS NOT NULL AND p_material_req_rec.ITEM_NUMBER <> FND_API.G_MISS_CHAR )
161: )
162: THEN
163: IF (l_log_statement >= l_log_current_level) THEN
164: fnd_log.string(fnd_log.level_statement,l_debug_module,'Calling POPULATE_CREATE_MTRL_INPUT_REC');
165: END IF;
166: POPULATE_CREATE_MTRL_INPUT_REC(p_matrl_reqrs_for_nr_tbl,p_sr_task_rec.Nonroutine_wo_id,x_req_material_tbl);
167: IF (l_log_statement >= l_log_current_level) THEN
168: fnd_log.string(fnd_log.level_statement,l_debug_module,'After POPULATE_CREATE_MTRL_INPUT_REC');
164: fnd_log.string(fnd_log.level_statement,l_debug_module,'Calling POPULATE_CREATE_MTRL_INPUT_REC');
165: END IF;
166: POPULATE_CREATE_MTRL_INPUT_REC(p_matrl_reqrs_for_nr_tbl,p_sr_task_rec.Nonroutine_wo_id,x_req_material_tbl);
167: IF (l_log_statement >= l_log_current_level) THEN
168: fnd_log.string(fnd_log.level_statement,l_debug_module,'After POPULATE_CREATE_MTRL_INPUT_REC');
169: END IF;
170: IF (l_log_statement >= l_log_current_level) THEN
171: fnd_log.string(fnd_log.level_statement,l_debug_module,'Calling AHL_PP_MATERIALS_PVT.Create_Material_Reqst');
172: END IF;
167: IF (l_log_statement >= l_log_current_level) THEN
168: fnd_log.string(fnd_log.level_statement,l_debug_module,'After POPULATE_CREATE_MTRL_INPUT_REC');
169: END IF;
170: IF (l_log_statement >= l_log_current_level) THEN
171: fnd_log.string(fnd_log.level_statement,l_debug_module,'Calling AHL_PP_MATERIALS_PVT.Create_Material_Reqst');
172: END IF;
173:
174: SAVEPOINT CREATE_NON_ROUTINE_MTRLS_SP;
175:
189: );
190:
191: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
192: IF (l_log_statement >= l_log_current_level) THEN
193: fnd_log.string(fnd_log.level_statement,l_debug_module,'Error after AHL_PP_MATERIALS_PVT.Create_Material_Reqst');
194: ROLLBACK TO CREATE_NON_ROUTINE_MTRLS_SP;
195: FND_MESSAGE.SET_NAME ('AHL','AHL_NR_SUCC_MATRL_FAIL');
196: FND_MSG_PUB.ADD;
197: END IF;
200:
201:
202: ELSE
203: IF (l_log_statement >= l_log_current_level) THEN
204: fnd_log.string(fnd_log.level_statement,l_debug_module,'No Materials Requirements to be added');
205: END IF;
206: END IF;
207: END IF;
208: /* ADD MATERIAL REQUIREMENTS TO THE JOB CREATED : END */
222: x_msg_data,
223: x_nr_task_rec
224: );
225: IF (l_log_statement >= l_log_current_level) THEN
226: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_UMP_NONROUTINES_PVT.Create_SR');
227: END IF;
228:
229: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
230: IF (l_log_statement >= l_log_current_level) THEN
227: END IF;
228:
229: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
230: IF (l_log_statement >= l_log_current_level) THEN
231: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_UMP_NONROUTINES_PVT.Create_SR');
232: END IF;
233: RAISE FND_API.G_EXC_ERROR;
234: END IF;
235: POPULATE_CREATE_NR_OUTPUT_REC(x_create_nr_output_rec,x_nr_task_rec);
310:
311: BEGIN
312: -- Log API entry point
313: IF (l_log_procedure >= l_log_current_level) THEN
314: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.begin','At the start of PL SQL procedure ');
315: END IF;
316:
317: -- If Workorder ID as well Workorder number are present, honour the id
318: IF( (p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID IS NOT NULL AND p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID <> FND_API.G_MISS_NUM)
418:
419:
420: -- Log API exit point
421: IF (l_log_procedure >= l_log_current_level) THEN
422: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.end','At the start of PL SQL procedure ');
423: END IF;
424: END POPULATE_CREATE_SR_INPUT_REC;
425:
426: -----------------------------------------------------------------------------------------------------------------
442: l_debug_module CONSTANT VARCHAR2(100) := 'ahl.plsql.'||'ahl_non_routine_pub'||'.'||'populate_create_mtrl_input_rec';
443: BEGIN
444: -- Log API entry point
445: IF (l_log_procedure >= l_log_current_level) THEN
446: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.Begin','At the start of PL SQL procedure ');
447: END IF;
448: IF p_matrl_reqrs_for_nr_tbl.COUNT > 0 THEN
449: FOR i IN p_matrl_reqrs_for_nr_tbl.FIRST..p_matrl_reqrs_for_nr_tbl.LAST
450: LOOP
467: END LOOP;
468: END IF;
469: -- Log API exit point
470: IF (l_log_procedure >= l_log_current_level) THEN
471: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.End','At the end of PL SQL procedure ');
472: END IF;
473: END POPULATE_CREATE_MTRL_INPUT_REC;
474:
475: ------------------------------------------------------------------------------------------------------------------
500: AND uch.csi_item_instance_id = csi.instance_id;
501: BEGIN
502: -- Log API entry point
503: IF (l_log_procedure >= l_log_current_level) THEN
504: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.begin','At the start of PL SQL procedure ');
505: END IF;
506: -- populate the request date
507: x_nr_task_rec.INCIDENT_DATE := p_create_nr_input_rec.service_request_date;
508: -- populate the summary
548: END IF;
549:
550: -- Log API exit point
551: IF (l_log_procedure >= l_log_current_level) THEN
552: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.end','At the end of PL SQL procedure ');
553: END IF;
554: END POPULATE_CREATE_NR_INPUT_REC;
555:
556:
572: l_debug_module CONSTANT VARCHAR2(100) := 'ahl.plsql.'||'ahl_non_routine_pub'||'.'||'populate_create_nr_output_rec';
573: BEGIN
574: -- Log API entry point
575: IF (l_log_procedure >= l_log_current_level) THEN
576: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.begin','At the start of PL SQL procedure ');
577: END IF;
578:
579: -- Populate the OUT params
580: x_create_nr_output_rec.SERVICE_REQUEST_ID := p_nr_task_rec.INCIDENT_ID;
686: NULL;
687: END;
688: -- Log API exit point
689: IF (l_log_procedure >= l_log_current_level) THEN
690: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.end','At the end of PL SQL procedure ');
691: END IF;
692: END POPULATE_CREATE_NR_OUTPUT_REC;
693:
694: ------------------------------------------------------------------------------------------------------------------
709: l_debug_module CONSTANT VARCHAR2(100) := 'ahl.plsql.'||'ahl_non_routine_pub'||'.'||'populate_create_sr_output_rec';
710: BEGIN
711: -- Log API start point
712: IF (l_log_procedure >= l_log_current_level) THEN
713: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.begin','At the start of PL SQL procedure ');
714: END IF;
715:
716: x_create_nr_output_rec.SERVICE_REQUEST_ID := p_sr_task_rec.Incident_id;
717: -- Populate the OUT params
748:
749: x_create_nr_output_rec.originator_workorder_id := p_sr_task_rec.ORIGINATING_WO_ID;
750:
751: IF (l_log_statement >= l_log_current_level) THEN
752: fnd_log.string(fnd_log.level_statement,l_debug_module,'Populating workorder_number, p_sr_task_rec.Nonroutine_wo_id:' || p_sr_task_rec.Nonroutine_wo_id);
753: END IF;
754: BEGIN
755: /*SELECT workorder_name
756: INTO x_create_nr_output_rec.WORKORDER_NUMBER
773: NULL;
774: END;
775:
776: IF (l_log_statement >= l_log_current_level) THEN
777: fnd_log.string(fnd_log.level_statement,l_debug_module,'Populating Originator Details, WO id :' || p_sr_task_rec.ORIGINATING_WO_ID );
778: END IF;
779: BEGIN
780: SELECT workorder_name,vst.visit_id,visit_number,visit_task_id
781: INTO x_create_nr_output_rec.ORIGINATOR_WORKORDER_NUMBER,
791: NULL;
792: END;
793:
794: IF (l_log_statement >= l_log_current_level) THEN
795: fnd_log.string(fnd_log.level_statement,l_debug_module,'Populating Prob, Res Codes, SERVICE_REQUEST_ID:' || x_create_nr_output_rec.service_request_id );
796: END IF;
797: -- Populate the problem,resolution codes and meanings
798: BEGIN
799: SELECT CS.PROBLEM_CODE,FLVT.MEANING,CS.RESOLUTION_CODE ,FLVT1.MEANING
816: NULL;
817: END;
818:
819: IF (l_log_statement >= l_log_current_level) THEN
820: fnd_log.string(fnd_log.level_statement,l_debug_module,'Populating status_code, Status_id:' || p_sr_task_rec.Status_id);
821: END IF;
822: BEGIN
823: SELECT status_code
824: INTO x_create_nr_output_rec.SERVICE_REQUEST_STATUS_CODE
829: NULL;
830: END;
831:
832: IF (l_log_statement >= l_log_current_level) THEN
833: fnd_log.string(fnd_log.level_statement,l_debug_module,'Populating status_code, Status_id:' || p_sr_task_rec.Status_id);
834: END IF;
835: BEGIN
836: SELECT incident_subtype
837: INTO x_create_nr_output_rec.SERVICE_REQUEST_TYPE_CODE
842: NULL;
843: END;
844:
845: IF (l_log_statement >= l_log_current_level) THEN
846: fnd_log.string(fnd_log.level_statement,l_debug_module,'Populating ITEM_NUMBER,SERIAL_NUMBER instance_id:' || p_sr_task_rec.instance_id);
847: END IF;
848: BEGIN
849: SELECT mtl.concatenated_segments,csi.serial_number
850: INTO x_create_nr_output_rec.ITEM_NUMBER,x_create_nr_output_rec.SERIAL_NUMBER
857: NULL;
858: END;
859:
860: IF (l_log_statement >= l_log_current_level) THEN
861: fnd_log.string(fnd_log.level_statement,l_debug_module,'Populating unit_name, instance_id:' || p_sr_task_rec.instance_id);
862: END IF;
863: BEGIN
864: SELECT AHL_UTIL_UC_PKG.get_unit_name(p_sr_task_rec.instance_id)
865: INTO x_create_nr_output_rec.UNIT_NAME
869: NULL;
870: END;
871:
872: IF (l_log_statement >= l_log_current_level) THEN
873: fnd_log.string(fnd_log.level_statement,l_debug_module,'Populating severity_name, severity_id:' || p_sr_task_rec.severity_id);
874: END IF;
875: BEGIN
876: SELECT name
877: INTO x_create_nr_output_rec.SEVERITY_NAME
882: NULL;
883: END;
884:
885: IF (l_log_procedure >= l_log_current_level) THEN
886: fnd_log.string(fnd_log.level_procedure,l_debug_module,'After populating.......');
887: END IF;
888:
889: -- Log API exit point
890: IF (l_log_procedure >= l_log_current_level) THEN
887: END IF;
888:
889: -- Log API exit point
890: IF (l_log_procedure >= l_log_current_level) THEN
891: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.end','At the end of PL SQL procedure ');
892: END IF;
893: END POPULATE_CREATE_SR_OUTPUT_REC;
894:
895: /*PROCEDURE CREATE_NON_ROUTINE_AUTOTXNS