29: IF get_user_id_csr%NOTFOUND THEN
30: FND_MESSAGE.set_name('AHL','AHL_PRD_INV_BPEL_USR');
31: FND_MESSAGE.SET_TOKEN('USER_NAME',p_user_id);
32: FND_MSG_PUB.ADD;
33: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
34: END IF;
35: CLOSE get_user_id_csr;
36:
37: OPEN get_resp_id_csr;
39: CLOSE get_resp_id_csr;
40:
41: FND_GLOBAL.apps_initialize(l_user_id,l_resp_id,867);
42: mo_global.init('AHL');
43: return Fnd_Api.G_RET_STS_SUCCESS;
44:
45: END init_user_and_role;
46:
47: PROCEDURE POPULATE_CREATE_SR_INPUT_REC( p_create_nr_input_rec IN NON_ROUTINE_REC_TYPE,
75: ------------------------------------------------------------------------------------------------------------------
76: PROCEDURE CREATE_NON_ROUTINE
77: (
78: p_api_version IN NUMBER := 1.0,
79: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
80: p_commit IN VARCHAR2 := FND_API.G_FALSE,
81: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
82: p_module_type IN VARCHAR2,
83: p_user_id IN VARCHAR2:=NULL,
76: PROCEDURE CREATE_NON_ROUTINE
77: (
78: p_api_version IN NUMBER := 1.0,
79: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
80: p_commit IN VARCHAR2 := FND_API.G_FALSE,
81: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
82: p_module_type IN VARCHAR2,
83: p_user_id IN VARCHAR2:=NULL,
84: p_create_nr_input_rec IN NON_ROUTINE_REC_TYPE,
77: (
78: p_api_version IN NUMBER := 1.0,
79: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
80: p_commit IN VARCHAR2 := FND_API.G_FALSE,
81: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
82: p_module_type IN VARCHAR2,
83: p_user_id IN VARCHAR2:=NULL,
84: p_create_nr_input_rec IN NON_ROUTINE_REC_TYPE,
85: p_matrl_reqrs_for_nr_tbl IN MATERIAL_REQUIREMENTS_TBL,
109: -- Standard start of API savepoint
110: SAVEPOINT CREATE_NON_ROUTINE_SP;
111:
112: -- Initialize return status to success before any code logic/validation
113: x_return_status:= FND_API.G_RET_STS_SUCCESS;
114:
115: -- Standard call to check for call compatibility
116: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
117: THEN
112: -- Initialize return status to success before any code logic/validation
113: x_return_status:= FND_API.G_RET_STS_SUCCESS;
114:
115: -- Standard call to check for call compatibility
116: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
117: THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
114:
115: -- Standard call to check for call compatibility
116: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
117: THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
121: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
122: IF FND_API.TO_BOOLEAN(p_init_msg_list)
117: THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
121: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
122: IF FND_API.TO_BOOLEAN(p_init_msg_list)
123: THEN
124: FND_MSG_PUB.INITIALIZE;
125: END IF;
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
121: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
122: IF FND_API.TO_BOOLEAN(p_init_msg_list)
123: THEN
124: FND_MSG_PUB.INITIALIZE;
125: END IF;
126:
133: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.begin','At the start of PL SQL procedure ');
134: END IF;
135:
136: -- If the originator wo id is present
137: 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)
138: OR
139: (p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER IS NOT NULL AND p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER <> FND_API.G_MISS_CHAR)
140: )
141: THEN
135:
136: -- If the originator wo id is present
137: 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)
138: OR
139: (p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER IS NOT NULL AND p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER <> FND_API.G_MISS_CHAR)
140: )
141: THEN
142: -- populate the record to be passed to AHL_PRD_NONROUTINE_PVT
143: POPULATE_CREATE_SR_INPUT_REC(p_create_nr_input_rec,x_sr_task_rec);
148: END IF;
149: -- Call the API to create the SR and workorder
150: AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job (
151: 1.0,
152: FND_API.G_TRUE,
153: FND_API.G_FALSE,
154: FND_API.G_VALID_LEVEL_FULL,
155: 'JSP',
156: x_return_status,
149: -- Call the API to create the SR and workorder
150: AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job (
151: 1.0,
152: FND_API.G_TRUE,
153: FND_API.G_FALSE,
154: FND_API.G_VALID_LEVEL_FULL,
155: 'JSP',
156: x_return_status,
157: x_msg_count,
150: AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job (
151: 1.0,
152: FND_API.G_TRUE,
153: FND_API.G_FALSE,
154: FND_API.G_VALID_LEVEL_FULL,
155: 'JSP',
156: x_return_status,
157: x_msg_count,
158: x_msg_data,
163: IF (l_log_statement >= l_log_current_level) THEN
164: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job');
165: END IF;
166:
167: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
168: IF (l_log_statement >= l_log_current_level) THEN
169: fnd_log.string(fnd_log.level_statement,l_debug_module,'Call to AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job, Not Success');
170: END IF;
171: RAISE FND_API.G_EXC_ERROR;
167: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
168: IF (l_log_statement >= l_log_current_level) THEN
169: fnd_log.string(fnd_log.level_statement,l_debug_module,'Call to AHL_PRD_NONROUTINE_PVT.Process_nonroutine_job, Not Success');
170: END IF;
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173:
174: -- Get the params for output
175: p_sr_task_rec := p_x_sr_task_tbl(1);
179:
180: IF (p_matrl_reqrs_for_nr_tbl.count > 0) THEN
181: p_material_req_rec := p_matrl_reqrs_for_nr_tbl(p_matrl_reqrs_for_nr_tbl.FIRST);
182: -- Material Requirements are considered only atleast one of id or name is present
183: IF ( (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL AND p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM )
184: OR
185: (p_material_req_rec.ITEM_NUMBER IS NOT NULL AND p_material_req_rec.ITEM_NUMBER <> FND_API.G_MISS_CHAR )
186: )
187: THEN
181: p_material_req_rec := p_matrl_reqrs_for_nr_tbl(p_matrl_reqrs_for_nr_tbl.FIRST);
182: -- Material Requirements are considered only atleast one of id or name is present
183: IF ( (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL AND p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM )
184: OR
185: (p_material_req_rec.ITEM_NUMBER IS NOT NULL AND p_material_req_rec.ITEM_NUMBER <> FND_API.G_MISS_CHAR )
186: )
187: THEN
188: IF (l_log_statement >= l_log_current_level) THEN
189: fnd_log.string(fnd_log.level_statement,l_debug_module,'Calling POPULATE_CREATE_MTRL_INPUT_REC');
199: SAVEPOINT CREATE_NON_ROUTINE_MTRLS_SP;
200:
201: AHL_PP_MATERIALS_PVT.Create_Material_Reqst (
202: 1.0,
203: FND_API.G_TRUE,
204: Fnd_Api.G_FALSE,
205: FND_API.G_VALID_LEVEL_FULL,
206: 'Y',
207: x_req_material_tbl,
200:
201: AHL_PP_MATERIALS_PVT.Create_Material_Reqst (
202: 1.0,
203: FND_API.G_TRUE,
204: Fnd_Api.G_FALSE,
205: FND_API.G_VALID_LEVEL_FULL,
206: 'Y',
207: x_req_material_tbl,
208: x_job_return_status,
201: AHL_PP_MATERIALS_PVT.Create_Material_Reqst (
202: 1.0,
203: FND_API.G_TRUE,
204: Fnd_Api.G_FALSE,
205: FND_API.G_VALID_LEVEL_FULL,
206: 'Y',
207: x_req_material_tbl,
208: x_job_return_status,
209: x_return_status,
210: x_msg_count,
211: x_msg_data
212: );
213:
214: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
215: IF (l_log_statement >= l_log_current_level) THEN
216: fnd_log.string(fnd_log.level_statement,l_debug_module,'Error after AHL_PP_MATERIALS_PVT.Create_Material_Reqst');
217: ROLLBACK TO CREATE_NON_ROUTINE_MTRLS_SP;
218: FND_MESSAGE.SET_NAME ('AHL','AHL_NR_SUCC_MATRL_FAIL');
217: ROLLBACK TO CREATE_NON_ROUTINE_MTRLS_SP;
218: FND_MESSAGE.SET_NAME ('AHL','AHL_NR_SUCC_MATRL_FAIL');
219: FND_MSG_PUB.ADD;
220: END IF;
221: -- RAISE FND_API.G_EXC_ERROR;
222: END IF;
223:
224:
225: ELSE
234: POPULATE_CREATE_NR_INPUT_REC(p_create_nr_input_rec,x_nr_task_rec);
235: AHL_UMP_NONROUTINES_PVT.Create_SR
236: (
237: 1.0,
238: FND_API.G_TRUE,
239: FND_API.G_FALSE,
240: FND_API.G_VALID_LEVEL_FULL,
241: FND_API.G_FALSE,
242: 'JSP',
235: AHL_UMP_NONROUTINES_PVT.Create_SR
236: (
237: 1.0,
238: FND_API.G_TRUE,
239: FND_API.G_FALSE,
240: FND_API.G_VALID_LEVEL_FULL,
241: FND_API.G_FALSE,
242: 'JSP',
243: x_return_status,
236: (
237: 1.0,
238: FND_API.G_TRUE,
239: FND_API.G_FALSE,
240: FND_API.G_VALID_LEVEL_FULL,
241: FND_API.G_FALSE,
242: 'JSP',
243: x_return_status,
244: x_msg_count,
237: 1.0,
238: FND_API.G_TRUE,
239: FND_API.G_FALSE,
240: FND_API.G_VALID_LEVEL_FULL,
241: FND_API.G_FALSE,
242: 'JSP',
243: x_return_status,
244: x_msg_count,
245: x_msg_data,
248: IF (l_log_statement >= l_log_current_level) THEN
249: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_UMP_NONROUTINES_PVT.Create_SR');
250: END IF;
251:
252: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
253: IF (l_log_statement >= l_log_current_level) THEN
254: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_UMP_NONROUTINES_PVT.Create_SR');
255: END IF;
256: RAISE FND_API.G_EXC_ERROR;
252: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
253: IF (l_log_statement >= l_log_current_level) THEN
254: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_UMP_NONROUTINES_PVT.Create_SR');
255: END IF;
256: RAISE FND_API.G_EXC_ERROR;
257: END IF;
258: POPULATE_CREATE_NR_OUTPUT_REC(x_create_nr_output_rec,x_nr_task_rec);
259:
260: -- Added
257: END IF;
258: POPULATE_CREATE_NR_OUTPUT_REC(x_create_nr_output_rec,x_nr_task_rec);
259:
260: -- Added
261: IF FND_API.TO_BOOLEAN(p_commit) THEN
262: COMMIT WORK;
263: END IF;
264: END IF;
265:
263: END IF;
264: END IF;
265:
266: -- Standard check of p_commit
267: IF FND_API.TO_BOOLEAN(p_commit) THEN
268: COMMIT WORK;
269: END IF;
270:
271: IF (G_DEBUG = 'Y') THEN
273: END IF;
274:
275: -- Count and Get messages
276: FND_MSG_PUB.count_and_get
277: ( p_encoded => fnd_api.g_false,
278: p_count => x_msg_count,
279: p_data => x_msg_data
280: );
281:
284: AHL_DEBUG_PUB.disable_debug;
285: END IF;
286:
287: EXCEPTION
288: WHEN FND_API.G_EXC_ERROR THEN
289: x_return_status := FND_API.G_RET_STS_ERROR;
290: ROLLBACK TO CREATE_NON_ROUTINE_SP;
291: x_msg_count := FND_MSG_PUB.Count_Msg;
292: x_msg_data := AHL_PRD_WO_PUB.GET_MSG_DATA(x_msg_count);
285: END IF;
286:
287: EXCEPTION
288: WHEN FND_API.G_EXC_ERROR THEN
289: x_return_status := FND_API.G_RET_STS_ERROR;
290: ROLLBACK TO CREATE_NON_ROUTINE_SP;
291: x_msg_count := FND_MSG_PUB.Count_Msg;
292: x_msg_data := AHL_PRD_WO_PUB.GET_MSG_DATA(x_msg_count);
293: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
289: x_return_status := FND_API.G_RET_STS_ERROR;
290: ROLLBACK TO CREATE_NON_ROUTINE_SP;
291: x_msg_count := FND_MSG_PUB.Count_Msg;
292: x_msg_data := AHL_PRD_WO_PUB.GET_MSG_DATA(x_msg_count);
293: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
294:
295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296: ROLLBACK TO CREATE_NON_ROUTINE_SP;
297: x_msg_count := FND_MSG_PUB.Count_Msg;
291: x_msg_count := FND_MSG_PUB.Count_Msg;
292: x_msg_data := AHL_PRD_WO_PUB.GET_MSG_DATA(x_msg_count);
293: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
294:
295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296: ROLLBACK TO CREATE_NON_ROUTINE_SP;
297: x_msg_count := FND_MSG_PUB.Count_Msg;
298: x_msg_data := AHL_PRD_WO_PUB.GET_MSG_DATA(x_msg_count);
299:
297: x_msg_count := FND_MSG_PUB.Count_Msg;
298: x_msg_data := AHL_PRD_WO_PUB.GET_MSG_DATA(x_msg_count);
299:
300: WHEN OTHERS THEN
301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
302: ROLLBACK TO CREATE_NON_ROUTINE_SP;
303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
304: THEN
305: FND_MSG_PUB.add_exc_msg
337: fnd_log.string(fnd_log.level_procedure,l_debug_module||'.begin','At the start of PL SQL procedure ');
338: END IF;
339:
340: -- If Workorder ID as well Workorder number are present, honour the id
341: 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)
342: and
343: (p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER IS NOT NULL AND p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER <> FND_API.G_MISS_CHAR)
344: )
345: THEN
339:
340: -- If Workorder ID as well Workorder number are present, honour the id
341: 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)
342: and
343: (p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER IS NOT NULL AND p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER <> FND_API.G_MISS_CHAR)
344: )
345: THEN
346: x_sr_task_rec.Originating_wo_id := p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID;
347: BEGIN
358: EXCEPTION
359: WHEN NO_DATA_FOUND THEN
360: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_INVLD_WO');
361: FND_MSG_PUB.ADD;
362: RAISE FND_API.G_EXC_ERROR;
363: WHEN TOO_MANY_ROWS THEN
364: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_INVLD_WO');
365: FND_MSG_PUB.ADD;
366: RAISE FND_API.G_EXC_ERROR;
362: RAISE FND_API.G_EXC_ERROR;
363: WHEN TOO_MANY_ROWS THEN
364: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_INVLD_WO');
365: FND_MSG_PUB.ADD;
366: RAISE FND_API.G_EXC_ERROR;
367: END;
368: ELSIF
369: ( (p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID IS NULL OR p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID = FND_API.G_MISS_NUM )
370: and
365: FND_MSG_PUB.ADD;
366: RAISE FND_API.G_EXC_ERROR;
367: END;
368: ELSIF
369: ( (p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID IS NULL OR p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID = FND_API.G_MISS_NUM )
370: and
371: (p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER IS NOT NULL AND p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER <> FND_API.G_MISS_CHAR)
372: )
373: THEN
367: END;
368: ELSIF
369: ( (p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID IS NULL OR p_create_nr_input_rec.ORIGINATOR_WORKORDER_ID = FND_API.G_MISS_NUM )
370: and
371: (p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER IS NOT NULL AND p_create_nr_input_rec.ORIGINATOR_WORKORDER_NUMBER <> FND_API.G_MISS_CHAR)
372: )
373: THEN
374: BEGIN
375: SELECT CSI.INSTANCE_NUMBER,VST.visit_number,WO.workorder_id
385: EXCEPTION
386: WHEN NO_DATA_FOUND THEN
387: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_INVLD_WO');
388: FND_MSG_PUB.ADD;
389: RAISE FND_API.G_EXC_ERROR;
390: WHEN TOO_MANY_ROWS THEN
391: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_INVLD_WO');
392: FND_MSG_PUB.ADD;
393: RAISE FND_API.G_EXC_ERROR;
389: RAISE FND_API.G_EXC_ERROR;
390: WHEN TOO_MANY_ROWS THEN
391: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_INVLD_WO');
392: FND_MSG_PUB.ADD;
393: RAISE FND_API.G_EXC_ERROR;
394: END;
395: ELSE
396: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_INVLD_WO');
397: FND_MSG_PUB.ADD;
394: END;
395: ELSE
396: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_INVLD_WO');
397: FND_MSG_PUB.ADD;
398: RAISE FND_API.G_EXC_ERROR;
399: END IF;
400:
401: -- populate the request date
402: x_sr_task_rec.request_date := p_create_nr_input_rec.service_request_date;
406:
407: -- populate the operation type
408: x_sr_task_rec.operation_type := 'CREATE';
409:
410: IF p_create_nr_input_rec.service_request_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
411: x_sr_task_rec.Type_name := p_create_nr_input_rec.service_request_type;
412: END IF;
413:
414: IF p_create_nr_input_rec.service_request_status <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
410: IF p_create_nr_input_rec.service_request_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
411: x_sr_task_rec.Type_name := p_create_nr_input_rec.service_request_type;
412: END IF;
413:
414: IF p_create_nr_input_rec.service_request_status <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
415: x_sr_task_rec.Status_name := p_create_nr_input_rec.service_request_status;
416: END IF;
417:
418: IF p_create_nr_input_rec.problem_code <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.problem_code <> NULL THEN
414: IF p_create_nr_input_rec.service_request_status <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
415: x_sr_task_rec.Status_name := p_create_nr_input_rec.service_request_status;
416: END IF;
417:
418: IF p_create_nr_input_rec.problem_code <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.problem_code <> NULL THEN
419: x_sr_task_rec.Problem_code := p_create_nr_input_rec.problem_code;
420: END IF;
421:
422: IF p_create_nr_input_rec.severity_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.severity_name <> NULL THEN
418: IF p_create_nr_input_rec.problem_code <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.problem_code <> NULL THEN
419: x_sr_task_rec.Problem_code := p_create_nr_input_rec.problem_code;
420: END IF;
421:
422: IF p_create_nr_input_rec.severity_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.severity_name <> NULL THEN
423: x_sr_task_rec.Severity_name := p_create_nr_input_rec.severity_name;
424: END IF;
425:
426: IF p_create_nr_input_rec.contact_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_type <> NULL THEN
422: IF p_create_nr_input_rec.severity_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.severity_name <> NULL THEN
423: x_sr_task_rec.Severity_name := p_create_nr_input_rec.severity_name;
424: END IF;
425:
426: IF p_create_nr_input_rec.contact_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_type <> NULL THEN
427: x_sr_task_rec.Contact_type := p_create_nr_input_rec.contact_type;
428: END IF;
429:
430: IF p_create_nr_input_rec.contact_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_name <> NULL THEN
426: IF p_create_nr_input_rec.contact_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_type <> NULL THEN
427: x_sr_task_rec.Contact_type := p_create_nr_input_rec.contact_type;
428: END IF;
429:
430: IF p_create_nr_input_rec.contact_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_name <> NULL THEN
431: x_sr_task_rec.contact_name := p_create_nr_input_rec.contact_name;
432: END IF;
433:
434: IF p_create_nr_input_rec.resolution_code_meaning <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.resolution_code_meaning <> NULL THEN
430: IF p_create_nr_input_rec.contact_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_name <> NULL THEN
431: x_sr_task_rec.contact_name := p_create_nr_input_rec.contact_name;
432: END IF;
433:
434: IF p_create_nr_input_rec.resolution_code_meaning <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.resolution_code_meaning <> NULL THEN
435: x_sr_task_rec.resolution_meaning := p_create_nr_input_rec.resolution_code_meaning;
436: END IF;
437:
438: IF p_create_nr_input_rec.estimated_duration <> fnd_api.g_miss_num AND p_create_nr_input_rec.estimated_duration <> NULL THEN
434: IF p_create_nr_input_rec.resolution_code_meaning <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.resolution_code_meaning <> NULL THEN
435: x_sr_task_rec.resolution_meaning := p_create_nr_input_rec.resolution_code_meaning;
436: END IF;
437:
438: IF p_create_nr_input_rec.estimated_duration <> fnd_api.g_miss_num AND p_create_nr_input_rec.estimated_duration <> NULL THEN
439: x_sr_task_rec.duration := p_create_nr_input_rec.estimated_duration;
440: END IF;
441:
442:
529: CLOSE get_instance_details;
530: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UNIT_INVALID');
531: FND_MESSAGE.Set_Token('NAME',p_create_nr_input_rec.unit_name);
532: FND_MSG_PUB.ADD;
533: RAISE FND_API.G_EXC_ERROR;
534: END IF;
535: CLOSE get_instance_details;
536:
537: IF p_create_nr_input_rec.service_request_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
533: RAISE FND_API.G_EXC_ERROR;
534: END IF;
535: CLOSE get_instance_details;
536:
537: IF p_create_nr_input_rec.service_request_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
538: x_nr_task_rec.TYPE_NAME := p_create_nr_input_rec.service_request_type;
539: END IF;
540:
541: IF p_create_nr_input_rec.service_request_status <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
537: IF p_create_nr_input_rec.service_request_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
538: x_nr_task_rec.TYPE_NAME := p_create_nr_input_rec.service_request_type;
539: END IF;
540:
541: IF p_create_nr_input_rec.service_request_status <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
542: x_nr_task_rec.status_name := p_create_nr_input_rec.service_request_status;
543: END IF;
544:
545: IF p_create_nr_input_rec.problem_code <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.problem_code <> NULL THEN
541: IF p_create_nr_input_rec.service_request_status <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.service_request_type <> NULL THEN
542: x_nr_task_rec.status_name := p_create_nr_input_rec.service_request_status;
543: END IF;
544:
545: IF p_create_nr_input_rec.problem_code <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.problem_code <> NULL THEN
546: x_nr_task_rec.problem_code := p_create_nr_input_rec.problem_code;
547: END IF;
548:
549: IF p_create_nr_input_rec.severity_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.severity_name <> NULL THEN
545: IF p_create_nr_input_rec.problem_code <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.problem_code <> NULL THEN
546: x_nr_task_rec.problem_code := p_create_nr_input_rec.problem_code;
547: END IF;
548:
549: IF p_create_nr_input_rec.severity_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.severity_name <> NULL THEN
550: x_nr_task_rec.severity_name := p_create_nr_input_rec.severity_name;
551: END IF;
552:
553: IF p_create_nr_input_rec.contact_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_type <> NULL THEN
549: IF p_create_nr_input_rec.severity_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.severity_name <> NULL THEN
550: x_nr_task_rec.severity_name := p_create_nr_input_rec.severity_name;
551: END IF;
552:
553: IF p_create_nr_input_rec.contact_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_type <> NULL THEN
554: x_nr_task_rec.contact_type := p_create_nr_input_rec.contact_type;
555: END IF;
556:
557: IF p_create_nr_input_rec.contact_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_name <> NULL THEN
553: IF p_create_nr_input_rec.contact_type <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_type <> NULL THEN
554: x_nr_task_rec.contact_type := p_create_nr_input_rec.contact_type;
555: END IF;
556:
557: IF p_create_nr_input_rec.contact_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_name <> NULL THEN
558: x_nr_task_rec.contact_name := p_create_nr_input_rec.contact_name;
559: END IF;
560:
561: IF p_create_nr_input_rec.resolution_code_meaning <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.resolution_code_meaning <> NULL THEN
557: IF p_create_nr_input_rec.contact_name <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.contact_name <> NULL THEN
558: x_nr_task_rec.contact_name := p_create_nr_input_rec.contact_name;
559: END IF;
560:
561: IF p_create_nr_input_rec.resolution_code_meaning <> FND_API.G_MISS_CHAR AND p_create_nr_input_rec.resolution_code_meaning <> NULL THEN
562: x_nr_task_rec.resolution_meaning := p_create_nr_input_rec.resolution_code_meaning;
563: END IF;
564:
565: -- Log API exit point