[Home] [Help]
98: OPEN CurHeaderDet(p_x_mr_header_rec.mr_header_id);
99: FETCH CurHeaderDet INTO l_mr_header_rec;
100: CLOSE CurHeaderDet;
101:
102: IF p_x_mr_header_rec.OBJECT_VERSION_NUMBER= FND_API.G_MISS_NUM
103: THEN
104: p_x_mr_header_rec.OBJECT_VERSION_NUMBER:=NULL;
105: ELSE
106: p_x_mr_header_rec.OBJECT_VERSION_NUMBER:=l_mr_header_rec.OBJECT_VERSION_NUMBER;
105: ELSE
106: p_x_mr_header_rec.OBJECT_VERSION_NUMBER:=l_mr_header_rec.OBJECT_VERSION_NUMBER;
107: END IF;
108:
109: IF p_x_mr_header_rec.TITLE= FND_API.G_MISS_CHAR
110: THEN
111: p_x_mr_header_rec.TITLE:=NULL;
112: ELSIF p_x_mr_header_rec.TITLE IS NULL
113: THEN
113: THEN
114: p_x_mr_header_rec.TITLE:=l_mr_header_rec.TITLE;
115: END IF;
116:
117: IF p_x_mr_header_rec.REVISION= FND_API.G_MISS_CHAR
118: THEN
119: p_x_mr_header_rec.REVISION:=NULL;
120: ELSIF p_x_mr_header_rec.REVISION IS NULL
121: THEN
120: ELSIF p_x_mr_header_rec.REVISION IS NULL
121: THEN
122: p_x_mr_header_rec.REVISION:=l_mr_header_Rec.REVISION;
123: END IF;
124: IF p_x_mr_header_rec.VERSION_NUMBER= FND_API.G_MISS_NUM
125: THEN
126: p_x_mr_header_rec.VERSION_NUMBER:=NULL;
127: ELSIF p_x_mr_header_rec.VERSION_NUMBER IS NULL
128: THEN
128: THEN
129: p_x_mr_header_rec.VERSION_NUMBER:=l_mr_header_Rec.VERSION_NUMBER;
130: END IF;
131:
132: IF p_x_mr_header_rec.CATEGORY_CODE= FND_API.G_MISS_CHAR
133: THEN
134: p_x_mr_header_rec.CATEGORY_CODE:=NULL;
135: ELSIF p_x_mr_header_rec.CATEGORY_CODE IS NULL
136: THEN
136: THEN
137: p_x_mr_header_rec.CATEGORY_CODE
138: :=l_mr_header_Rec.CATEGORY_CODE;
139: END IF;
140: IF p_x_mr_header_rec.CATEGORY= FND_API.G_MISS_CHAR
141: THEN
142: p_x_mr_header_rec.CATEGORY:=NULL;
143: ELSIF p_x_mr_header_rec.CATEGORY IS NULL
144: THEN
145: p_x_mr_header_rec.CATEGORY
146: :=l_mr_header_Rec.CATEGORY;
147: END IF;
148:
149: IF p_x_mr_header_rec.PROGRAM_TYPE_CODE= FND_API.G_MISS_CHAR
150: THEN
151: p_x_mr_header_rec.PROGRAM_TYPE_CODE:=NULL;
152: ELSIF p_x_mr_header_rec.PROGRAM_TYPE_CODE IS NULL
153: THEN
153: THEN
154: p_x_mr_header_rec.PROGRAM_TYPE_CODE
155: :=l_mr_header_Rec.PROGRAM_TYPE_CODE;
156: END IF;
157: IF p_x_mr_header_rec.PROGRAM_TYPE= FND_API.G_MISS_CHAR
158: THEN
159: p_x_mr_header_rec.PROGRAM_TYPE:=NULL;
160: ELSIF p_x_mr_header_rec.PROGRAM_TYPE IS NULL
161: THEN
162: p_x_mr_header_rec.PROGRAM_TYPE
163: :=l_mr_header_Rec.PROGRAM_TYPE;
164: END IF;
165:
166: IF p_x_mr_header_rec.PROGRAM_SUBTYPE= FND_API.G_MISS_CHAR
167: THEN
168: p_x_mr_header_rec.PROGRAM_SUBTYPE:=NULL;
169: ELSIF p_x_mr_header_rec.PROGRAM_SUBTYPE IS NULL
170: THEN
171: p_x_mr_header_rec.PROGRAM_SUBTYPE:=
172: l_mr_header_Rec.PROGRAM_SUBTYPE;
173: END IF;
174:
175: IF p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE= FND_API.G_MISS_CHAR
176: THEN
177: p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE:=NULL;
178: ELSIF p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE IS NULL
179: THEN
180: p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE:=l_mr_header_Rec.PROGRAM_SUBTYPE_CODE;
181: END IF;
182:
183:
184: IF p_x_mr_header_rec.SERVICE_TYPE_CODE= FND_API.G_MISS_CHAR
185: THEN
186: p_x_mr_header_rec.SERVICE_TYPE_CODE:=NULL;
187: ELSIF p_x_mr_header_rec.SERVICE_TYPE_CODE IS NULL
188: THEN
187: ELSIF p_x_mr_header_rec.SERVICE_TYPE_CODE IS NULL
188: THEN
189: p_x_mr_header_rec.SERVICE_TYPE_CODE:=l_mr_header_Rec.SERVICE_TYPE_CODE;
190: END IF;
191: IF p_x_mr_header_rec.SERVICE_TYPE= FND_API.G_MISS_CHAR
192: THEN
193: p_x_mr_header_rec.SERVICE_TYPE:=NULL;
194: ELSIF p_x_mr_header_rec.SERVICE_TYPE IS NULL
195: THEN
195: THEN
196: p_x_mr_header_rec.SERVICE_TYPE:=l_mr_header_Rec.SERVICE_TYPE;
197: END IF;
198:
199: IF p_x_mr_header_rec.MR_STATUS_CODE= FND_API.G_MISS_CHAR
200: THEN
201: p_x_mr_header_rec.MR_STATUS_CODE:=NULL;
202: ELSIF p_x_mr_header_rec.MR_STATUS_CODE IS NULL
203: THEN
202: ELSIF p_x_mr_header_rec.MR_STATUS_CODE IS NULL
203: THEN
204: p_x_mr_header_rec.MR_STATUS_CODE:=l_mr_header_Rec.MR_STATUS_CODE;
205: END IF;
206: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE= FND_API.G_MISS_CHAR
207: THEN
208: p_x_mr_header_rec.IMPLEMENT_STATUS_CODE:=NULL;
209: ELSIF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE IS NULL
210: THEN
209: ELSIF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE IS NULL
210: THEN
211: p_x_mr_header_rec.IMPLEMENT_STATUS_CODE:=l_mr_header_Rec.IMPLEMENT_STATUS_CODE;
212: END IF;
213: IF p_x_mr_header_rec.IMPLEMENT_STATUS= FND_API.G_MISS_CHAR
214: THEN
215: p_x_mr_header_rec.IMPLEMENT_STATUS:=NULL;
216: ELSIF p_x_mr_header_rec.IMPLEMENT_STATUS IS NULL
217: THEN
217: THEN
218: p_x_mr_header_rec.IMPLEMENT_STATUS
219: :=l_mr_header_Rec.IMPLEMENT_STATUS;
220: END IF;
221: IF p_x_mr_header_rec.EFFECTIVE_FROM=FND_API.G_MISS_DATE
222: THEN
223: p_x_mr_header_rec.EFFECTIVE_FROM:=NULL;
224: ELSIF p_x_mr_header_rec.EFFECTIVE_FROM IS NULL
225: THEN
224: ELSIF p_x_mr_header_rec.EFFECTIVE_FROM IS NULL
225: THEN
226: p_x_mr_header_rec.EFFECTIVE_FROM:=l_mr_header_Rec.EFFECTIVE_FROM;
227: END IF;
228: IF p_x_mr_header_rec.EFFECTIVE_TO=FND_API.G_MISS_DATE
229: THEN
230: p_x_mr_header_rec.EFFECTIVE_TO:=NULL;
231: ELSIF p_x_mr_header_rec.EFFECTIVE_TO IS NULL
232: THEN
231: ELSIF p_x_mr_header_rec.EFFECTIVE_TO IS NULL
232: THEN
233: p_x_mr_header_rec.EFFECTIVE_TO:=l_mr_header_Rec.EFFECTIVE_TO;
234: END IF;
235: IF p_x_mr_header_rec.REPETITIVE_FLAG= FND_API.G_MISS_CHAR
236: THEN
237: p_x_mr_header_rec.REPETITIVE_FLAG:=NULL;
238: ELSIF p_x_mr_header_rec.REPETITIVE_FLAG IS NULL
239: THEN
238: ELSIF p_x_mr_header_rec.REPETITIVE_FLAG IS NULL
239: THEN
240: p_x_mr_header_rec.REPETITIVE_FLAG:=l_mr_header_Rec.REPETITIVE_FLAG;
241: END IF;
242: IF p_x_mr_header_rec.REPETITIVE= FND_API.G_MISS_CHAR
243: THEN
244: p_x_mr_header_rec.REPETITIVE:=NULL;
245: ELSIF p_x_mr_header_rec.REPETITIVE IS NULL
246: THEN
246: THEN
247: p_x_mr_header_rec.REPETITIVE:=l_mr_header_Rec.REPETITIVE;
248: END IF;
249:
250: IF p_x_mr_header_rec.SHOW_REPETITIVE_CODE= FND_API.G_MISS_CHAR
251: THEN
252: p_x_mr_header_rec.SHOW_REPETITIVE_CODE:=NULL;
253: ELSIF p_x_mr_header_rec.SHOW_REPETITIVE_CODE IS NULL
254: THEN
254: THEN
255: p_x_mr_header_rec.SHOW_REPETITIVE_CODE:=l_mr_header_Rec.SHOW_REPETITIVE_CODE;
256: END IF;
257:
258: IF p_x_mr_header_rec.SHOW_REPETITIVE= FND_API.G_MISS_CHAR
259: THEN
260: p_x_mr_header_rec.SHOW_REPETITIVE:=NULL;
261: ELSIF p_x_mr_header_rec.SHOW_REPETITIVE IS NULL
262: THEN
261: ELSIF p_x_mr_header_rec.SHOW_REPETITIVE IS NULL
262: THEN
263: p_x_mr_header_rec.SHOW_REPETITIVE:=l_mr_header_Rec.SHOW_REPETITIVE;
264: END IF;
265: IF p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG= FND_API.G_MISS_CHAR
266: THEN
267: p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG:=NULL;
268: ELSIF p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL
269: THEN
269: THEN
270: p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG:=l_mr_header_Rec.COPY_ACCOMPLISHMENT_FLAG;
271: END IF;
272:
273: IF p_x_mr_header_rec.COPY_ACCOMPLISHMENT= FND_API.G_MISS_CHAR
274: THEN
275: p_x_mr_header_rec.COPY_ACCOMPLISHMENT:=NULL;
276: ELSIF p_x_mr_header_rec.COPY_ACCOMPLISHMENT IS NULL
277: THEN
277: THEN
278: p_x_mr_header_rec.COPY_ACCOMPLISHMENT:=l_mr_header_Rec.COPY_ACCOMPLISHMENT;
279: END IF;
280:
281: IF p_x_mr_header_rec.WHICHEVER_FIRST_CODE= FND_API.G_MISS_CHAR
282: THEN
283: p_x_mr_header_rec.WHICHEVER_FIRST_CODE:=NULL;
284: ELSIF p_x_mr_header_rec.WHICHEVER_FIRST_CODE IS NULL
285: THEN
285: THEN
286: p_x_mr_header_rec.WHICHEVER_FIRST_CODE:=l_mr_header_Rec.WHICHEVER_FIRST_CODE;
287: END IF;
288:
289: IF p_x_mr_header_rec.WHICHEVER_FIRST= FND_API.G_MISS_CHAR
290: THEN
291: p_x_mr_header_rec.WHICHEVER_FIRST:=NULL;
292: ELSIF p_x_mr_header_rec.WHICHEVER_FIRST IS NULL
293: THEN
294: p_x_mr_header_rec.WHICHEVER_FIRST:=l_mr_header_Rec.WHICHEVER_FIRST;
295: END IF;
296:
297: -- pdoki, Following attrs are obsoleted after SBE Project, Start.
298: IF p_x_mr_header_rec.PRECEDING_MR_HEADER_ID= FND_API.G_MISS_NUM
299: THEN
300: p_x_mr_header_rec.PRECEDING_MR_HEADER_ID:=NULL;
301: ELSIF p_x_mr_header_rec.PRECEDING_MR_HEADER_ID IS NULL
302: THEN
302: THEN
303: p_x_mr_header_rec.PRECEDING_MR_HEADER_ID:=l_mr_header_Rec.PRECEDING_MR_HEADER_ID;
304: END IF;
305:
306: IF p_x_mr_header_rec.PRECEDING_MR_TITLE= FND_API.G_MISS_CHAR
307: THEN
308: p_x_mr_header_rec.PRECEDING_MR_TITLE:=NULL;
309: ELSIF p_x_mr_header_rec.PRECEDING_MR_TITLE IS NULL
310: THEN
310: THEN
311: p_x_mr_header_rec.PRECEDING_MR_TITLE:=l_mr_header_Rec.PRECEDING_MR_TITLE;
312: END IF;
313:
314: IF p_x_mr_header_rec.PRECEDING_MR_REVISION= FND_API.G_MISS_CHAR
315: THEN
316: p_x_mr_header_rec.PRECEDING_MR_REVISION:=NULL;
317: ELSIF p_x_mr_header_rec.PRECEDING_MR_REVISION IS NULL
318: THEN
319: p_x_mr_header_rec.PRECEDING_MR_REVISION:=l_mr_header_Rec.PRECEDING_MR_REVISION;
320: END IF;
321: -- pdoki, SBE Project, End.
322:
323: IF p_x_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID= FND_API.G_MISS_NUM
324: THEN
325: p_x_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID:=NULL;
326: ELSIF p_x_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID IS NULL
327: THEN
327: THEN
328: p_x_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID:=l_mr_header_Rec.SERVICE_REQUEST_TEMPLATE_ID;
329: END IF;
330:
331: IF p_x_mr_header_rec.DOWN_TIME= FND_API.G_MISS_NUM
332: THEN
333: p_x_mr_header_rec.DOWN_TIME:=NULL;
334: ELSIF p_x_mr_header_rec.DOWN_TIME IS NULL
335: THEN
336: p_x_mr_header_rec.DOWN_TIME:=l_mr_header_Rec.DOWN_TIME;
337: END IF;
338:
339: --CHANDANK, 29-Sep-2010, added supplier warranty name and ID for supplier warranty project
340: IF p_x_mr_header_rec.WARRANTY_TEMPLATE_ID= FND_API.G_MISS_NUM
341: THEN
342: p_x_mr_header_rec.WARRANTY_TEMPLATE_ID:=NULL;
343: ELSIF p_x_mr_header_rec.WARRANTY_TEMPLATE_ID IS NULL
344: THEN
344: THEN
345: p_x_mr_header_rec.WARRANTY_TEMPLATE_ID:=l_mr_header_Rec.WARRANTY_TEMPLATE_ID;
346: END IF;
347:
348: IF p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME= FND_API.G_MISS_CHAR
349: THEN
350: p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME:=NULL;
351: ELSIF p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME IS NULL
352: THEN
353: p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME:=l_mr_header_Rec.WARRANTY_TEMPLATE_NAME;
354: END IF;
355: --CHANDANK changes ends for supplier warranty project
356:
357: IF p_x_mr_header_rec.TYPE_CODE= FND_API.G_MISS_CHAR
358: THEN
359: p_x_mr_header_rec.TYPE_CODE:=NULL;
360: ELSIF p_x_mr_header_rec.TYPE_CODE IS NULL
361: THEN
361: THEN
362: p_x_mr_header_rec.TYPE_CODE:=l_mr_header_Rec.TYPE_CODE;
363: END IF;
364:
365: IF p_x_mr_header_rec.AUTO_SIGNOFF_FLAG= FND_API.G_MISS_CHAR
366: THEN
367: p_x_mr_header_rec.AUTO_SIGNOFF_FLAG:=NULL;
368: ELSIF p_x_mr_header_rec.AUTO_SIGNOFF_FLAG IS NULL
369: THEN
369: THEN
370: p_x_mr_header_rec.AUTO_SIGNOFF_FLAG:=l_mr_header_Rec.AUTO_SIGNOFF_FLAG;
371: END IF;
372:
373: IF p_x_mr_header_rec.COPY_INIT_ACCOMPL_FLAG= FND_API.G_MISS_CHAR
374: THEN
375: p_x_mr_header_rec.COPY_INIT_ACCOMPL_FLAG:=NULL;
376: ELSIF p_x_mr_header_rec.COPY_INIT_ACCOMPL_FLAG IS NULL
377: THEN
377: THEN
378: p_x_mr_header_rec.COPY_INIT_ACCOMPL_FLAG:=l_mr_header_Rec.COPY_INIT_ACCOMPL_FLAG;
379: END IF;
380:
381: IF p_x_mr_header_rec.COPY_DEFERRALS_FLAG= FND_API.G_MISS_CHAR
382: THEN
383: p_x_mr_header_rec.COPY_DEFERRALS_FLAG:=NULL;
384: ELSIF p_x_mr_header_rec.COPY_DEFERRALS_FLAG IS NULL
385: THEN
385: THEN
386: p_x_mr_header_rec.COPY_DEFERRALS_FLAG:=l_mr_header_Rec.COPY_DEFERRALS_FLAG;
387: END IF;
388:
389: IF p_x_mr_header_rec.UOM_CODE= FND_API.G_MISS_CHAR
390: THEN
391: p_x_mr_header_rec.UOM_CODE:=NULL;
392: ELSIF p_x_mr_header_rec.UOM_CODE IS NULL
393: THEN
393: THEN
394: p_x_mr_header_rec.UOM_CODE:=l_mr_header_Rec.UOM_CODE;
395: END IF;
396:
397: IF p_x_mr_header_rec.DESCRIPTION= FND_API.G_MISS_CHAR
398: THEN
399: p_x_mr_header_rec.DESCRIPTION:=NULL;
400: ELSIF p_x_mr_header_rec.DESCRIPTION IS NULL
401: THEN
400: ELSIF p_x_mr_header_rec.DESCRIPTION IS NULL
401: THEN
402: p_x_mr_header_rec.DESCRIPTION:=l_mr_header_Rec.DESCRIPTION;
403: END IF;
404: IF p_x_mr_header_rec.COMMENTS= FND_API.G_MISS_CHAR
405: THEN
406: p_x_mr_header_rec.COMMENTS:=NULL;
407: ELSIF p_x_mr_header_rec.COMMENTS IS NULL
408: THEN
407: ELSIF p_x_mr_header_rec.COMMENTS IS NULL
408: THEN
409: p_x_mr_header_rec.COMMENTS:=l_mr_header_Rec.COMMENTS;
410: END IF;
411: IF p_x_mr_header_rec.ATTRIBUTE_CATEGORY= FND_API.G_MISS_CHAR
412: THEN
413: p_x_mr_header_rec.ATTRIBUTE_CATEGORY:=NULL;
414: ELSIF p_x_mr_header_rec.ATTRIBUTE_CATEGORY IS NULL
415: THEN
415: THEN
416: p_x_mr_header_rec.ATTRIBUTE_CATEGORY:=l_mr_header_Rec.ATTRIBUTE_CATEGORY;
417: END IF;
418:
419: IF p_x_mr_header_rec.ATTRIBUTE1= FND_API.G_MISS_CHAR
420: THEN
421: p_x_mr_header_rec.ATTRIBUTE1:=NULL;
422: ELSIF p_x_mr_header_rec.ATTRIBUTE1 IS NULL
423: THEN
423: THEN
424: p_x_mr_header_rec.ATTRIBUTE1:=l_mr_header_Rec.ATTRIBUTE1;
425: END IF;
426:
427: IF p_x_mr_header_rec.ATTRIBUTE2= FND_API.G_MISS_CHAR
428: THEN
429: p_x_mr_header_rec.ATTRIBUTE2:=NULL;
430: ELSIF p_x_mr_header_rec.ATTRIBUTE2 IS NULL
431: THEN
431: THEN
432: p_x_mr_header_rec.ATTRIBUTE2:=l_mr_header_Rec.ATTRIBUTE2;
433: END IF;
434:
435: IF p_x_mr_header_rec.ATTRIBUTE3= FND_API.G_MISS_CHAR
436: THEN
437: p_x_mr_header_rec.ATTRIBUTE3:=NULL;
438: ELSIF p_x_mr_header_rec.ATTRIBUTE3 IS NULL
439: THEN
439: THEN
440: p_x_mr_header_rec.ATTRIBUTE3:=l_mr_header_Rec.ATTRIBUTE3;
441: END IF;
442:
443: IF p_x_mr_header_rec.ATTRIBUTE4= FND_API.G_MISS_CHAR
444: THEN
445: p_x_mr_header_rec.ATTRIBUTE4:=NULL;
446: ELSIF p_x_mr_header_rec.ATTRIBUTE4 IS NULL
447: THEN
447: THEN
448: p_x_mr_header_rec.ATTRIBUTE4:=l_mr_header_Rec.ATTRIBUTE4;
449: END IF;
450:
451: IF p_x_mr_header_rec.ATTRIBUTE5= FND_API.G_MISS_CHAR
452: THEN
453: p_x_mr_header_rec.ATTRIBUTE5:=NULL;
454: ELSIF p_x_mr_header_rec.ATTRIBUTE5 IS NULL
455: THEN
455: THEN
456: p_x_mr_header_rec.ATTRIBUTE5:=l_mr_header_Rec.ATTRIBUTE5;
457: END IF;
458:
459: IF p_x_mr_header_rec.ATTRIBUTE6= FND_API.G_MISS_CHAR
460: THEN
461: p_x_mr_header_rec.ATTRIBUTE6:=NULL;
462: ELSIF p_x_mr_header_rec.ATTRIBUTE6 IS NULL
463: THEN
463: THEN
464: p_x_mr_header_rec.ATTRIBUTE6:=l_mr_header_Rec.ATTRIBUTE6;
465: END IF;
466:
467: IF p_x_mr_header_rec.ATTRIBUTE7= FND_API.G_MISS_CHAR
468: THEN
469: p_x_mr_header_rec.ATTRIBUTE7:=NULL;
470: ELSIF p_x_mr_header_rec.ATTRIBUTE7 IS NULL
471: THEN
471: THEN
472: p_x_mr_header_rec.ATTRIBUTE7 :=l_mr_header_Rec.ATTRIBUTE7;
473: END IF;
474:
475: IF p_x_mr_header_rec.ATTRIBUTE8= FND_API.G_MISS_CHAR
476: THEN
477: p_x_mr_header_rec.ATTRIBUTE8:=NULL;
478: ELSIF p_x_mr_header_rec.ATTRIBUTE8 IS NULL
479: THEN
479: THEN
480: p_x_mr_header_rec.ATTRIBUTE8:=l_mr_header_Rec.ATTRIBUTE8;
481: END IF;
482:
483: IF p_x_mr_header_rec.ATTRIBUTE9= FND_API.G_MISS_CHAR
484: THEN
485: p_x_mr_header_rec.ATTRIBUTE9:=NULL;
486: ELSIF p_x_mr_header_rec.ATTRIBUTE9 IS NULL
487: THEN
487: THEN
488: p_x_mr_header_rec.ATTRIBUTE9:=l_mr_header_Rec.ATTRIBUTE9;
489: END IF;
490:
491: IF p_x_mr_header_rec.ATTRIBUTE10= FND_API.G_MISS_CHAR
492: THEN
493: p_x_mr_header_rec.ATTRIBUTE10:=NULL;
494: ELSIF p_x_mr_header_rec.ATTRIBUTE10 IS NULL
495: THEN
494: ELSIF p_x_mr_header_rec.ATTRIBUTE10 IS NULL
495: THEN
496: p_x_mr_header_rec.ATTRIBUTE10:=l_mr_header_Rec.ATTRIBUTE10;
497: END IF;
498: IF p_x_mr_header_rec.ATTRIBUTE11= FND_API.G_MISS_CHAR
499: THEN
500: p_x_mr_header_rec.ATTRIBUTE11:=NULL;
501: ELSIF p_x_mr_header_rec.ATTRIBUTE11 IS NULL
502: THEN
502: THEN
503: p_x_mr_header_rec.ATTRIBUTE11:=l_mr_header_Rec.ATTRIBUTE11;
504: END IF;
505:
506: IF p_x_mr_header_rec.ATTRIBUTE12= FND_API.G_MISS_CHAR
507: THEN
508: p_x_mr_header_rec.ATTRIBUTE12:=NULL;
509: ELSIF p_x_mr_header_rec.ATTRIBUTE12 IS NULL
510: THEN
510: THEN
511: p_x_mr_header_rec.ATTRIBUTE12:=l_mr_header_Rec.ATTRIBUTE12;
512: END IF;
513:
514: IF p_x_mr_header_rec.ATTRIBUTE13= FND_API.G_MISS_CHAR
515: THEN
516: p_x_mr_header_rec.ATTRIBUTE13:=NULL;
517: ELSIF p_x_mr_header_rec.ATTRIBUTE13 IS NULL
518: THEN
518: THEN
519: p_x_mr_header_rec.ATTRIBUTE13:=l_mr_header_Rec.ATTRIBUTE13;
520: END IF;
521:
522: IF p_x_mr_header_rec.ATTRIBUTE14= FND_API.G_MISS_CHAR
523: THEN
524: p_x_mr_header_rec.ATTRIBUTE14:=NULL;
525: ELSIF p_x_mr_header_rec.ATTRIBUTE14 IS NULL
526: THEN
527: p_x_mr_header_rec.ATTRIBUTE14
528: :=l_mr_header_Rec.ATTRIBUTE14;
529: END IF;
530:
531: IF p_x_mr_header_rec.ATTRIBUTE15= FND_API.G_MISS_CHAR
532: THEN
533: p_x_mr_header_rec.ATTRIBUTE15:=NULL;
534: ELSIF p_x_mr_header_rec.ATTRIBUTE15 IS NULL
535: THEN
537: END IF;
538:
539:
540: --Billing Item
541: IF p_x_mr_header_rec.billing_item= FND_API.G_MISS_CHAR
542: THEN
543: p_x_mr_header_rec.billing_item:=NULL;
544: ELSIF p_x_mr_header_rec.billing_item IS NULL
545: THEN
545: THEN
546: p_x_mr_header_rec.billing_item:=l_mr_header_Rec.billing_item;
547: END IF;
548: --Billing Item Id
549: IF p_x_mr_header_rec.billing_item_id= FND_API.G_MISS_NUM
550: THEN
551: p_x_mr_header_rec.billing_item_id:=NULL;
552: ELSIF p_x_mr_header_rec.billing_item_id IS NULL
553: THEN
554: p_x_mr_header_rec.billing_item_id:=l_mr_header_Rec.billing_item_id;
555: END IF;
556:
557: --qa_inspection_type
558: IF p_x_mr_header_rec.qa_inspection_type= FND_API.G_MISS_CHAR
559: THEN
560: p_x_mr_header_rec.qa_inspection_type:=NULL;
561: ELSIF p_x_mr_header_rec.qa_inspection_type IS NULL
562: THEN
562: THEN
563: p_x_mr_header_rec.qa_inspection_type:=l_mr_header_Rec.qa_inspection_type;
564: END IF;
565:
566: IF p_x_mr_header_rec.qa_inspection_type_code= FND_API.G_MISS_CHAR
567: THEN
568: p_x_mr_header_rec.qa_inspection_type_code:=NULL;
569: ELSIF p_x_mr_header_rec.qa_inspection_type_code IS NULL
570: THEN
571: p_x_mr_header_rec.qa_inspection_type_code:=l_mr_header_Rec.qa_inspection_type_code;
572: END IF;
573:
574: --space_category_code
575: IF p_x_mr_header_rec.space_category_code= FND_API.G_MISS_CHAR
576: THEN
577: p_x_mr_header_rec.space_category_code:=NULL;
578: ELSIF p_x_mr_header_rec.space_category_code IS NULL
579: THEN
579: THEN
580: p_x_mr_header_rec.space_category_code:=l_mr_header_Rec.space_category_code;
581: END IF;
582:
583: IF p_x_mr_header_rec.space_category= FND_API.G_MISS_CHAR
584: THEN
585: p_x_mr_header_rec.space_category:=NULL;
586: ELSIF p_x_mr_header_rec.space_category IS NULL
587: THEN
588: p_x_mr_header_rec.space_category:=l_mr_header_Rec.space_category;
589: END IF;
590:
591: --sareepar service category rank
592: IF p_x_mr_header_rec.service_category_rank= FND_API.G_MISS_NUM
593: THEN
594: p_x_mr_header_rec.service_category_rank:=NULL;
595: ELSIF p_x_mr_header_rec.service_category_rank IS NULL
596: THEN
621: OPEN get_lookup_type_code(p_lookup_code,p_lookup_type);
622: FETCH get_lookup_type_code INTO l_lookup_code;
623: IF get_lookup_type_code%NOTFOUND
624: THEN
625: x_return_Status:= FND_API.G_RET_STS_UNEXP_ERROR;
626: END IF;
627: CLOSE get_lookup_type_code;
628: end;
629:
639: begin
640: p_service_category_rank := to_number(p_space_category_code);
641: EXCEPTION
642: WHEN VALUE_ERROR THEN
643: x_return_Status:= FND_API.G_RET_STS_UNEXP_ERROR;
644: end;
645:
646: PROCEDURE TRANSLATE_VALUE_ID
647: (
730: l_num_rec NUMBER;
731: l_msg_count NUMBER;
732: l_msg_data VARCHAR2(2000);
733: l_return_status VARCHAR2(1);
734: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
735: l_mrItemId NUMBER:=0;
736: l_lookup_var varchar2(1);
737: l_object_version_number NUMBER;
738: l_check_flag VARCHAR2(1):='Y';
747: AHL_DEBUG_PUB.enable_debug;
748: AHL_DEBUG_PUB.debug('Trans TYPE CODE '||p_x_mr_header_rec.TYPE_CODE,'+HEADERS+');
749: END IF;
750:
751: x_return_status:=FND_API.G_RET_STS_SUCCESS;
752:
753: IF p_x_mr_header_rec.PROGRAM_TYPE IS NULL OR p_x_mr_header_rec.PROGRAM_TYPE=FND_API.G_MISS_CHAR
754: THEN
755: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
749: END IF;
750:
751: x_return_status:=FND_API.G_RET_STS_SUCCESS;
752:
753: IF p_x_mr_header_rec.PROGRAM_TYPE IS NULL OR p_x_mr_header_rec.PROGRAM_TYPE=FND_API.G_MISS_CHAR
754: THEN
755: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
756: FND_MSG_PUB.ADD;
757: l_check_flag:='N';
780:
781: -- Program Sub type
782:
783: IF (p_x_mr_header_rec.PROGRAM_SUBTYPE IS NULL OR
784: p_x_mr_header_rec.PROGRAM_SUBTYPE=FND_API.G_MISS_CHAR)
785: THEN
786: p_x_mr_header_rec.PROGRAM_SUBTYPE := FND_API.G_MISS_CHAR; --pdoki modified for Bug 9679216
787: ELSE
788: IF l_check_flag='Y'
782:
783: IF (p_x_mr_header_rec.PROGRAM_SUBTYPE IS NULL OR
784: p_x_mr_header_rec.PROGRAM_SUBTYPE=FND_API.G_MISS_CHAR)
785: THEN
786: p_x_mr_header_rec.PROGRAM_SUBTYPE := FND_API.G_MISS_CHAR; --pdoki modified for Bug 9679216
787: ELSE
788: IF l_check_flag='Y'
789: THEN
790:
808:
809: --Billing Item Id
810:
811:
812: IF (p_x_mr_header_rec.BILLING_ITEM IS NULL OR p_x_mr_header_rec.BILLING_ITEM=FND_API.G_MISS_CHAR)
813: THEN
814: p_x_mr_header_rec.BILLING_ITEM:=FND_API.G_MISS_CHAR;
815: ELSE
816: IF l_check_flag='Y'
810:
811:
812: IF (p_x_mr_header_rec.BILLING_ITEM IS NULL OR p_x_mr_header_rec.BILLING_ITEM=FND_API.G_MISS_CHAR)
813: THEN
814: p_x_mr_header_rec.BILLING_ITEM:=FND_API.G_MISS_CHAR;
815: ELSE
816: IF l_check_flag='Y'
817: THEN
818:
832: --Implent Status and QA INSPECTION TYPE
833: --Chack for the Valid QAInspection Type
834:
835: IF (p_x_mr_header_rec.QA_INSPECTION_TYPE IS NULL
836: OR p_x_mr_header_rec.QA_INSPECTION_TYPE=FND_API.G_MISS_CHAR)
837: THEN
838: p_x_mr_header_rec.QA_INSPECTION_TYPE:=FND_API.G_MISS_CHAR;
839: ELSE
840: IF l_check_flag='Y'
834:
835: IF (p_x_mr_header_rec.QA_INSPECTION_TYPE IS NULL
836: OR p_x_mr_header_rec.QA_INSPECTION_TYPE=FND_API.G_MISS_CHAR)
837: THEN
838: p_x_mr_header_rec.QA_INSPECTION_TYPE:=FND_API.G_MISS_CHAR;
839: ELSE
840: IF l_check_flag='Y'
841: THEN
842:
850: FND_MSG_PUB.ADD;
851: /* Commented the Qa inspection type depedency on IMPLEMENTAT_STATUS_CODE as per ER#3822674
852: ELSE
853: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE IS NOT NULL
854: OR p_x_mr_header_rec.IMPLEMENT_STATUS_CODE <>FND_API.G_MISS_CHAR
855: THEN
856: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE = 'OPTIONAL_DO_NOT_IMPLEMENT'
857: AND (p_x_mr_header_rec.qa_inspection_type IS NOT NULL
858: OR p_x_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
854: OR p_x_mr_header_rec.IMPLEMENT_STATUS_CODE <>FND_API.G_MISS_CHAR
855: THEN
856: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE = 'OPTIONAL_DO_NOT_IMPLEMENT'
857: AND (p_x_mr_header_rec.qa_inspection_type IS NOT NULL
858: OR p_x_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
859: THEN
860: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_QA');
861: FND_MSG_PUB.ADD;
862: END IF;
906:
907: -- Preceding MR_header_id
908:
909: -- pdoki, Following attrs are obsoleted after SBE Project, Start.
910: IF p_x_mr_header_rec.PRECEDING_MR_TITLE IS NOT NULL AND p_x_mr_header_rec.PRECEDING_MR_TITLE<>FND_API.G_MISS_CHAR
911: THEN
912: OPEN get_titlecount(p_x_mr_header_rec.PRECEDING_MR_TITLE);
913: FETCH get_titlecount INTO l_title_counter;
914: Close get_titlecount;
974:
975: IF p_x_mr_header_rec.DML_OPERATION='U'
976: THEN
977:
978: IF p_x_mr_header_rec.version_number=FND_API.G_MISS_NUM OR
979: p_x_mr_header_rec.version_number IS NULL
980: THEN
981: select version_number into p_x_mr_header_rec.version_number
982: from AHL_MR_HEADERS_APP_V
985:
986: END IF;
987:
988: --CHANDANK, 29-Sep-2010, added supplier warranty ID for supplier warranty project
989: IF (p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME IS NULL OR p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME=FND_API.G_MISS_CHAR)
990: THEN
991: p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME:=FND_API.G_MISS_CHAR;
992: ELSE
993: IF l_check_flag='Y'
987:
988: --CHANDANK, 29-Sep-2010, added supplier warranty ID for supplier warranty project
989: IF (p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME IS NULL OR p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME=FND_API.G_MISS_CHAR)
990: THEN
991: p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME:=FND_API.G_MISS_CHAR;
992: ELSE
993: IF l_check_flag='Y'
994: THEN
995:
1057: WHERE MR_HEADER_ID=C_MR_HEADER_ID;
1058: l_mr_rec GetMrdet%rowtype;
1059: l_counter NUMBER:=0;
1060: BEGIN
1061: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1062:
1063: IF p_mr_header_rec.MR_HEADER_ID IS NOT NULL OR p_mr_header_rec.MR_HEADER_ID<>FND_API.G_MISS_NUM
1064: THEN
1065:
1059: l_counter NUMBER:=0;
1060: BEGIN
1061: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1062:
1063: IF p_mr_header_rec.MR_HEADER_ID IS NOT NULL OR p_mr_header_rec.MR_HEADER_ID<>FND_API.G_MISS_NUM
1064: THEN
1065:
1066:
1067: OPEN GetMrDet(p_mr_header_rec.MR_HEADER_ID);
1341: l_old_impl_status AHL_MR_HEADERS_B.implement_status_code%TYPE;
1342: -- pdoki added for Auto Visit Forecasting Project, End.
1343:
1344: BEGIN
1345: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1346:
1347: IF G_DEBUG='Y' THEN
1348: AHL_DEBUG_PUB.enable_debug;
1349: AHL_DEBUG_PUB.debug('Application Usage code:'||G_APPLN_USAGE);
1357: RETURN;
1358: END IF;
1359:
1360: IF p_mr_header_rec.PROGRAM_TYPE_CODE IS NULL OR
1361: p_mr_header_rec.PROGRAM_TYPE_CODE=FND_API.G_MISS_CHAR
1362: THEN
1363: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
1364: FND_MSG_PUB.ADD;
1365: l_check_flag:='N';
1375:
1376:
1377: IF G_APPLN_USAGE='PM'
1378: THEN
1379: IF p_mr_header_rec.TYPE_CODE IS NULL OR p_mr_header_rec.TYPE_CODE=FND_API.G_MISS_CHAR
1380: THEN
1381: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TYPE_CODE_NULL');
1382: FND_MSG_PUB.ADD;
1383: l_check_flag:='N';
1384: END IF;
1385: END IF;
1386:
1387:
1388: IF p_mr_header_Rec.PROGRAM_SUBTYPE_CODE IS NULL OR p_mr_header_Rec.PROGRAM_SUBTYPE_CODE=FND_API.G_MISS_char
1389: THEN
1390: l_check_flag:='N';
1391: END IF;
1392:
1407: -- Service Type
1408: IF G_APPLN_USAGE<>'PM'
1409: THEN
1410:
1411: IF p_mr_header_rec.service_type_code IS NOT NULL OR p_mr_header_rec.service_type_code<>FND_API.G_MISS_CHAR
1412: THEN
1413:
1414: CHECK_LOOKUP_CODE
1415: (
1461: IF p_mr_header_rec.AUTO_SIGNOFF_FLAG='Y'
1462: THEN
1463:
1464: IF p_mr_header_rec.QA_INSPECTION_TYPE IS NOT NULL
1465: and p_mr_header_rec.QA_INSPECTION_TYPE <>FND_API.G_MISS_CHAR
1466: THEN
1467: IF G_DEBUG='Y' THEN
1468: AHL_DEBUG_PUB.debug('Error at AHL_FMP_AUTSIGNOFF_QA_INV');
1469: END IF;
1475:
1476: /*
1477: -- This validation removed based on er 2972124/3822674
1478: IF p_mr_header_rec.implement_status_code IS NOT NULL
1479: and p_mr_header_rec.implement_status_code <>FND_API.G_MISS_CHAR
1480: THEN
1481: IF p_mr_header_rec.implement_status_code = 'OPTIONAL_DO_NOT_IMPLEMENT'
1482: AND (p_mr_header_rec.qa_inspection_type IS NOT NULL
1483: AND p_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
1479: and p_mr_header_rec.implement_status_code <>FND_API.G_MISS_CHAR
1480: THEN
1481: IF p_mr_header_rec.implement_status_code = 'OPTIONAL_DO_NOT_IMPLEMENT'
1482: AND (p_mr_header_rec.qa_inspection_type IS NOT NULL
1483: AND p_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
1484: THEN
1485: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_QA');
1486: FND_MSG_PUB.ADD;
1487: END IF;
1501: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.repetitive_flag,false);
1502: FND_MSG_PUB.ADD;
1503: ELSE
1504: IF p_mr_header_rec.repetitive_flag ='N'
1505: and (p_mr_header_rec.SHOW_REPETITIVE_CODE IS NOT NULL OR p_mr_header_rec.SHOW_REPETITIVE_CODE<>FND_API.G_MISS_CHAR)
1506: THEN
1507: IF p_mr_header_rec.SHOW_REPETITIVE_CODE<>'NEXT'
1508: THEN
1509: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPITITVE_NO');
1524: p_mr_header_id=>p_mr_header_rec.mr_header_id,
1525: p_repetitive_flag=>p_mr_header_rec.repetitive_flag
1526: );
1527:
1528: IF l_return_Status<>FND_API.G_RET_STS_SUCCESS
1529: THEN
1530: FND_MESSAGE.SET_NAME('AHL',l_msg_data1);
1531: FND_MSG_PUB.ADD;
1532: END IF;
1550: END IF;
1551:
1552: --Space Category
1553:
1554: IF p_mr_header_rec.space_category_code is not null or p_mr_header_rec.space_category_code<>fnd_api.g_miss_char
1555: THEN
1556: CHECK_LOOKUP_CODE
1557: (
1558: x_return_status =>l_return_status,
1591:
1592: -- Effective From Validate Of Date
1593: IF l_mr_header_rec.MR_STATUS_CODE='DRAFT' -- AND nvl(l_mr_header_rec.SUPERUSER_ROLE,'N')='N'
1594: THEN
1595: IF p_mr_header_rec.effective_from is null or p_mr_header_rec.effective_from=fnd_api.g_miss_date
1596: THEN
1597: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_EFFECTIVE_FROM_NULL');
1598: FND_MSG_PUB.ADD;
1599: ELSIF TRUNC(p_mr_header_rec.effective_from)
1679: END IF;
1680:
1681: -- Validating null items
1682:
1683: IF p_mr_header_rec.SHOW_REPETITIVE_CODE IS NULL OR p_mr_header_rec.SHOW_REPETITIVE_CODE=FND_API.G_MISS_char
1684: THEN
1685: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPETITIVE_INVALID');
1686: FND_MSG_PUB.ADD;
1687: END IF;
1686: FND_MSG_PUB.ADD;
1687: END IF;
1688:
1689: IF p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL
1690: OR p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG=FND_API.G_MISS_CHAR
1691: THEN
1692: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ACCMPLSHMNT_NULL');
1693: FND_MSG_PUB.ADD;
1694: END IF;
1693: FND_MSG_PUB.ADD;
1694: END IF;
1695: -- Validating category. Kasridha - Bug#10245217
1696: IF p_mr_header_rec.CATEGORY_CODE IS NULL
1697: OR p_mr_header_rec.CATEGORY_CODE=FND_API.G_MISS_CHAR
1698: THEN
1699: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_CATEGORY_NULL');
1700: FND_MSG_PUB.ADD;
1701: ELSE
1715:
1716: IF G_APPLN_USAGE='PM'
1717: THEN
1718: IF p_mr_header_rec.TYPE_CODE IS NULL
1719: OR p_mr_header_rec.TYPE_CODE=FND_API.G_MISS_CHAR
1720: THEN
1721: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_TYPECODE_NULL');
1722: FND_MSG_PUB.ADD;
1723: ELSE
1765:
1766: END IF;
1767: else
1768: IF (p_mr_header_rec.DOWN_TIME IS NOT NULL AND
1769: p_mr_header_rec.DOWN_TIME<>FND_API.G_MISS_NUM)
1770: AND p_mr_header_rec.DOWN_TIME <=0
1771: THEN
1772: -- FOR CMRO MODE
1773: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_NO_Z');
1790:
1791: -- DML Operation Create
1792:
1793: IF p_mr_header_rec.dml_operation='C' THEN
1794: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1795: THEN
1796: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1797: FND_MSG_PUB.ADD;
1798: ELSIF p_mr_header_rec.title is not null or p_mr_header_rec.title<>fnd_api.g_miss_char
1794: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1795: THEN
1796: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1797: FND_MSG_PUB.ADD;
1798: ELSIF p_mr_header_rec.title is not null or p_mr_header_rec.title<>fnd_api.g_miss_char
1799: THEN
1800:
1801: -- Title Should not Repeat in Create mode
1802:
1809: END IF;
1810: END IF;
1811:
1812: ELSIF p_mr_header_rec.dml_operation<>'U' THEN
1813: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1814: THEN
1815: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1816: FND_MSG_PUB.ADD;
1817: END IF;
1822: FND_MSG_PUB.ADD;
1823: END IF;
1824: -- pdoki, SBE Project, End.
1825:
1826: IF p_mr_header_rec.mr_header_id is null or p_mr_header_rec.mr_header_id=fnd_api.g_miss_num
1827: THEN
1828: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
1829: FND_MSG_PUB.ADD;
1830: END IF;
1828: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
1829: FND_MSG_PUB.ADD;
1830: END IF;
1831:
1832: IF p_mr_header_rec.SERVICE_TYPE_CODE IS NULL OR p_mr_header_rec.SERVICE_TYPE_CODE=FND_API.G_MISS_char
1833: THEN
1834: IF G_APPLN_USAGE<>'PM'
1835: THEN
1836: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SERVICE_NULL');
1845: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_INVALID');
1846: FND_MSG_PUB.ADD;
1847: END IF;
1848:
1849: IF p_mr_header_rec.object_version_number <> l_object_version_number or l_object_version_number is null or l_object_version_number=fnd_api.g_miss_num
1850: THEN
1851: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1852: FND_MSG_PUB.ADD;
1853: END IF;
2005: l_msg_count := FND_MSG_PUB.count_msg;
2006:
2007: IF l_msg_count > 0
2008: THEN
2009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2010: END IF;
2011:
2012: END;
2013:
2014: -- pdoki, Following Proc is obsoleted after SBE Project, Start.
2015: PROCEDURE CHECK_CYCLIC_ASSOCIATION
2016: (
2017: p_api_version IN NUMBER:=1.0,
2018: p_init_msg_list IN VARCHAR2:= FND_API.G_TRUE ,
2019: p_validation_level IN NUMBER:= FND_API.G_VALID_LEVEL_FULL,
2020: x_return_status OUT NOCOPY VARCHAR2,
2021: x_msg_count OUT NOCOPY NUMBER,
2022: x_msg_data OUT NOCOPY VARCHAR2,
2015: PROCEDURE CHECK_CYCLIC_ASSOCIATION
2016: (
2017: p_api_version IN NUMBER:=1.0,
2018: p_init_msg_list IN VARCHAR2:= FND_API.G_TRUE ,
2019: p_validation_level IN NUMBER:= FND_API.G_VALID_LEVEL_FULL,
2020: x_return_status OUT NOCOPY VARCHAR2,
2021: x_msg_count OUT NOCOPY NUMBER,
2022: x_msg_data OUT NOCOPY VARCHAR2,
2023: P_MR_HEADER_ID IN NUMBER,
2028: l_cyclic_loop EXCEPTION;
2029: pragma EXCEPTION_INIT(l_cyclic_loop,-1436);
2030: l_counter NUMBER;
2031: BEGIN
2032: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2033:
2034: SELECT COUNT(*) INTO l_counter
2035: FROM AHL_MR_HEADERS_B
2036: WHERE APPLICATION_USG_CODE=G_APPLN_USAGE
2041: WHEN l_cyclic_loop THEN
2042: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_H_ID_CYCLIC');
2043: FND_MESSAGE.SET_TOKEN('FIELD',P_RELATED_MR_TITLE,false);
2044: FND_MSG_PUB.ADD;
2045: x_return_status := FND_API.G_RET_STS_ERROR;
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2047: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2049: p_count => x_msg_count,
2042: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_H_ID_CYCLIC');
2043: FND_MESSAGE.SET_TOKEN('FIELD',P_RELATED_MR_TITLE,false);
2044: FND_MSG_PUB.ADD;
2045: x_return_status := FND_API.G_RET_STS_ERROR;
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2047: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2049: p_count => x_msg_count,
2050: p_data => x_msg_data);
2043: FND_MESSAGE.SET_TOKEN('FIELD',P_RELATED_MR_TITLE,false);
2044: FND_MSG_PUB.ADD;
2045: x_return_status := FND_API.G_RET_STS_ERROR;
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2047: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2049: p_count => x_msg_count,
2050: p_data => x_msg_data);
2051:
2044: FND_MSG_PUB.ADD;
2045: x_return_status := FND_API.G_RET_STS_ERROR;
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2047: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2049: p_count => x_msg_count,
2050: p_data => x_msg_data);
2051:
2052: WHEN FND_API.G_EXC_ERROR THEN
2048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2049: p_count => x_msg_count,
2050: p_data => x_msg_data);
2051:
2052: WHEN FND_API.G_EXC_ERROR THEN
2053: x_return_status := FND_API.G_RET_STS_ERROR;
2054: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2055: p_count => x_msg_count,
2056: p_data => X_msg_data);
2049: p_count => x_msg_count,
2050: p_data => x_msg_data);
2051:
2052: WHEN FND_API.G_EXC_ERROR THEN
2053: x_return_status := FND_API.G_RET_STS_ERROR;
2054: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2055: p_count => x_msg_count,
2056: p_data => X_msg_data);
2057: WHEN OTHERS THEN
2050: p_data => x_msg_data);
2051:
2052: WHEN FND_API.G_EXC_ERROR THEN
2053: x_return_status := FND_API.G_RET_STS_ERROR;
2054: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2055: p_count => x_msg_count,
2056: p_data => X_msg_data);
2057: WHEN OTHERS THEN
2058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2054: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2055: p_count => x_msg_count,
2056: p_data => X_msg_data);
2057: WHEN OTHERS THEN
2058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2059: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2060: THEN
2061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
2062: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
2061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
2062: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
2063: p_error_text => SUBSTR(SQLERRM,1,240));
2064: END IF;
2065: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2066: p_count => x_msg_count,
2067: p_data => X_msg_data);
2068: END;
2069: -- pdoki, SBE Project, End.
2071:
2072: PROCEDURE CREATE_MR_HEADER
2073: (
2074: p_api_version IN NUMBER:=1.0,
2075: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2076: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2077: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2078: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2079: p_module_type IN VARCHAR2:=NULL,
2072: PROCEDURE CREATE_MR_HEADER
2073: (
2074: p_api_version IN NUMBER:=1.0,
2075: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2076: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2077: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2078: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2079: p_module_type IN VARCHAR2:=NULL,
2080: x_return_status OUT NOCOPY VARCHAR2,
2073: (
2074: p_api_version IN NUMBER:=1.0,
2075: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2076: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2077: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2078: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2079: p_module_type IN VARCHAR2:=NULL,
2080: x_return_status OUT NOCOPY VARCHAR2,
2081: x_msg_count OUT NOCOPY NUMBER,
2074: p_api_version IN NUMBER:=1.0,
2075: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2076: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2077: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2078: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2079: p_module_type IN VARCHAR2:=NULL,
2080: x_return_status OUT NOCOPY VARCHAR2,
2081: x_msg_count OUT NOCOPY NUMBER,
2082: x_msg_data OUT NOCOPY VARCHAR2,
2088: l_num_rec NUMBER;
2089: l_msg_count NUMBER;
2090: l_msg_data VARCHAR2(2000);
2091: l_return_status VARCHAR2(1);
2092: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
2093: l_commit VARCHAR2(1):= FND_API.G_FALSE;
2094: l_mr_header_id number:=0;
2095: l_rowid varchar2(30);
2096: BEGIN
2089: l_msg_count NUMBER;
2090: l_msg_data VARCHAR2(2000);
2091: l_return_status VARCHAR2(1);
2092: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
2093: l_commit VARCHAR2(1):= FND_API.G_FALSE;
2094: l_mr_header_id number:=0;
2095: l_rowid varchar2(30);
2096: BEGIN
2097: SAVEPOINT CREATE_MR_HEADER_PVT;
2097: SAVEPOINT CREATE_MR_HEADER_PVT;
2098:
2099: -- Initialize message list if p_init_msg_list is set to TRUE.
2100:
2101: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2102: p_api_version,
2103: l_api_name,G_PKG_NAME)
2104: THEN
2105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2101: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2102: p_api_version,
2103: l_api_name,G_PKG_NAME)
2104: THEN
2105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2106: END IF;
2107:
2108:
2109: IF FND_API.to_boolean(l_init_msg_list) THEN
2105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2106: END IF;
2107:
2108:
2109: IF FND_API.to_boolean(l_init_msg_list) THEN
2110: FND_MSG_PUB.initialize;
2111: END IF;
2112:
2113:
2110: FND_MSG_PUB.initialize;
2111: END IF;
2112:
2113:
2114: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2115:
2116:
2117: IF G_DEBUG='Y' THEN
2118: AHL_DEBUG_PUB.enable_debug;
2136: IF G_DEBUG='Y' THEN
2137: AHL_DEBUG_PUB.debug( 'AHL_FMP_MR_HEADERS_PVT.','+CREATE_MR_HEADER+');
2138: END IF;
2139:
2140: IF FND_API.to_boolean(p_default)
2141: THEN
2142: DEFAULT_MISSING_ATTRIBS
2143: (
2144: p_x_mr_header_rec =>p_x_mr_header_rec
2145: );
2146: END IF;
2147:
2148:
2149: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
2150: THEN
2151: TRANSLATE_VALUE_ID
2152: (
2153: x_return_status =>x_return_Status,
2157: l_msg_count := FND_MSG_PUB.count_msg;
2158: IF l_msg_count > 0
2159: THEN
2160: x_msg_count := l_msg_count;
2161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2162: RAISE FND_API.G_EXC_ERROR;
2163: END IF;
2164:
2165: IF p_x_mr_header_rec.DML_OPERATION='C'
2158: IF l_msg_count > 0
2159: THEN
2160: x_msg_count := l_msg_count;
2161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2162: RAISE FND_API.G_EXC_ERROR;
2163: END IF;
2164:
2165: IF p_x_mr_header_rec.DML_OPERATION='C'
2166: THEN
2168: p_x_mr_header_rec.VERSION_NUMBER:=1;
2169: p_x_mr_header_rec.copy_accomplishment_flag:='N';
2170: END IF;
2171:
2172: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
2173: THEN
2174: VALIDATE_MR_HEADER
2175: (
2176: x_return_status =>x_return_Status,
2181:
2182: IF l_msg_count > 0
2183: THEN
2184: x_msg_count := l_msg_count;
2185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2186: RAISE FND_API.G_EXC_ERROR;
2187: --sareepar added service category rank
2188: else
2189: p_x_mr_header_rec.service_category_rank := to_number(p_x_mr_header_rec.space_category_code);
2182: IF l_msg_count > 0
2183: THEN
2184: x_msg_count := l_msg_count;
2185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2186: RAISE FND_API.G_EXC_ERROR;
2187: --sareepar added service category rank
2188: else
2189: p_x_mr_header_rec.service_category_rank := to_number(p_x_mr_header_rec.space_category_code);
2190: END IF;
2191:
2192:
2193: -- insert process goes here
2194: /*
2195: IF p_x_mr_header_rec.EFFECTIVE_FROM is null or p_x_mr_header_rec.EFFECTIVE_FROM=FND_API.G_MISS_DATE
2196: THEN
2197: p_x_mr_header_rec.EFFECTIVE_FROM:=sysdate;
2198: END IF;
2199: */
2200: select AHL_MR_HEADERS_B_S.NEXTVAL INTO p_x_mr_header_rec.mr_header_id from dual;
2201:
2202:
2203: /*
2204: IF p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL OR p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG=FND_API.G_MISS_char
2205: THEN
2206: p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG:='N';
2207: END IF;
2208: */
2262: X_LAST_UPDATE_DATE =>sysdate,
2263: X_LAST_UPDATED_BY =>fnd_global.user_id,
2264: X_LAST_UPDATE_LOGIN =>fnd_global.user_id);
2265:
2266: IF FND_API.TO_BOOLEAN(p_commit) THEN
2267: COMMIT;
2268: END IF;
2269:
2270: IF G_DEBUG='Y' THEN
2271: AHL_DEBUG_PUB.disable_debug;
2272: END IF;
2273:
2274: EXCEPTION
2275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2276: ROLLBACK TO CREATE_MR_HEADER_PVT;
2277: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2278: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2279: p_count => x_msg_count,
2273:
2274: EXCEPTION
2275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2276: ROLLBACK TO CREATE_MR_HEADER_PVT;
2277: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2278: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2279: p_count => x_msg_count,
2280: p_data => x_msg_data);
2281: IF G_DEBUG='Y' THEN
2274: EXCEPTION
2275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2276: ROLLBACK TO CREATE_MR_HEADER_PVT;
2277: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2278: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2279: p_count => x_msg_count,
2280: p_data => x_msg_data);
2281: IF G_DEBUG='Y' THEN
2282: AHL_DEBUG_PUB.disable_debug;
2280: p_data => x_msg_data);
2281: IF G_DEBUG='Y' THEN
2282: AHL_DEBUG_PUB.disable_debug;
2283: END IF;
2284: WHEN FND_API.G_EXC_ERROR THEN
2285: ROLLBACK TO CREATE_MR_HEADER_PVT;
2286: X_return_status := FND_API.G_RET_STS_ERROR;
2287: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2288: p_count => x_msg_count,
2282: AHL_DEBUG_PUB.disable_debug;
2283: END IF;
2284: WHEN FND_API.G_EXC_ERROR THEN
2285: ROLLBACK TO CREATE_MR_HEADER_PVT;
2286: X_return_status := FND_API.G_RET_STS_ERROR;
2287: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2288: p_count => x_msg_count,
2289: p_data => X_msg_data);
2290: IF G_DEBUG='Y' THEN
2283: END IF;
2284: WHEN FND_API.G_EXC_ERROR THEN
2285: ROLLBACK TO CREATE_MR_HEADER_PVT;
2286: X_return_status := FND_API.G_RET_STS_ERROR;
2287: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2288: p_count => x_msg_count,
2289: p_data => X_msg_data);
2290: IF G_DEBUG='Y' THEN
2291: AHL_DEBUG_PUB.disable_debug;
2292: END IF;
2293:
2294: WHEN OTHERS THEN
2295: ROLLBACK TO CREATE_MR_HEADER_PVT;
2296: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2297: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2298: THEN
2299: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_FMP_MR_HEADER_PVT',
2300: p_procedure_name => 'CREATE_MR_HEADER',
2300: p_procedure_name => 'CREATE_MR_HEADER',
2301: p_error_text => SUBSTR(SQLERRM,1,240));
2302:
2303: END IF;
2304: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2305: p_count => x_msg_count,
2306: p_data => X_msg_data);
2307: IF G_DEBUG='Y' THEN
2308: AHL_DEBUG_PUB.disable_debug;
2312:
2313: PROCEDURE UPDATE_MR_HEADER
2314: (
2315: p_api_version IN NUMBER:=1.0,
2316: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2317: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2318: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2319: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2320: p_module_type IN VARCHAR2:=NULL,
2313: PROCEDURE UPDATE_MR_HEADER
2314: (
2315: p_api_version IN NUMBER:=1.0,
2316: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2317: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2318: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2319: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2320: p_module_type IN VARCHAR2:=NULL,
2321: x_return_status OUT NOCOPY VARCHAR2,
2314: (
2315: p_api_version IN NUMBER:=1.0,
2316: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2317: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2318: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2319: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2320: p_module_type IN VARCHAR2:=NULL,
2321: x_return_status OUT NOCOPY VARCHAR2,
2322: x_msg_count OUT NOCOPY NUMBER,
2315: p_api_version IN NUMBER:=1.0,
2316: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2317: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2318: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2319: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2320: p_module_type IN VARCHAR2:=NULL,
2321: x_return_status OUT NOCOPY VARCHAR2,
2322: x_msg_count OUT NOCOPY NUMBER,
2323: x_msg_data OUT NOCOPY VARCHAR2,
2328: l_num_rec NUMBER;
2329: l_msg_count NUMBER;
2330: l_msg_data VARCHAR2(2000);
2331: l_return_status VARCHAR2(1);
2332: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
2333: BEGIN
2334: SAVEPOINT UPDATE_MR_HEADER_PVT;
2335:
2336: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2332: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
2333: BEGIN
2334: SAVEPOINT UPDATE_MR_HEADER_PVT;
2335:
2336: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2337: p_api_version,
2338: l_api_name,G_PKG_NAME) THEN
2339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2340: END IF;
2335:
2336: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2337: p_api_version,
2338: l_api_name,G_PKG_NAME) THEN
2339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2340: END IF;
2341:
2342: IF FND_API.to_boolean(p_init_msg_list)
2343: THEN
2338: l_api_name,G_PKG_NAME) THEN
2339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2340: END IF;
2341:
2342: IF FND_API.to_boolean(p_init_msg_list)
2343: THEN
2344: FND_MSG_PUB.initialize;
2345: END IF;
2346:
2344: FND_MSG_PUB.initialize;
2345: END IF;
2346:
2347:
2348: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2349:
2350: IF G_DEBUG='Y' THEN
2351: AHL_DEBUG_PUB.enable_debug;
2352: AHL_DEBUG_PUB.debug('Service Category CODE:'||p_x_mr_header_Rec.SPACE_CATEGORY_CODE);
2361: x_mr_header_id => p_x_mr_header_rec.mr_header_id,
2362: x_return_status => x_return_status
2363: );
2364:
2365: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2366: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2367: fnd_log.string
2368: (
2369: fnd_log.level_error,
2370: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2371: 'Title,version to id conversion failed.....'
2372: );
2373: END IF;
2374: RAISE FND_API.G_EXC_ERROR;
2375: END IF;
2376: END IF;
2377:
2378: IF FND_API.to_boolean( p_default )
2374: RAISE FND_API.G_EXC_ERROR;
2375: END IF;
2376: END IF;
2377:
2378: IF FND_API.to_boolean( p_default )
2379: THEN
2380: DEFAULT_MISSING_ATTRIBS
2381: (
2382: p_x_mr_header_rec =>p_x_mr_header_rec
2406: END IF;
2407:
2408: -- Convert Value to id.
2409:
2410: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
2411: THEN
2412:
2413: TRANSLATE_VALUE_ID
2414: (
2420:
2421: IF l_msg_count > 0
2422: THEN
2423: x_msg_count := l_msg_count;
2424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2425: RAISE FND_API.G_EXC_ERROR;
2426: END IF;
2427:
2428:
2421: IF l_msg_count > 0
2422: THEN
2423: x_msg_count := l_msg_count;
2424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2425: RAISE FND_API.G_EXC_ERROR;
2426: END IF;
2427:
2428:
2429:
2426: END IF;
2427:
2428:
2429:
2430: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
2431: THEN
2432:
2433: VALIDATE_MR_HEADER
2434: (
2442:
2443: IF l_msg_count > 0
2444: THEN
2445: x_msg_count := l_msg_count;
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: RAISE FND_API.G_EXC_ERROR;
2448: --sareepar added service category rank
2449: else
2450: p_x_mr_header_rec.service_category_rank := to_number(p_x_mr_header_rec.space_category_code);
2443: IF l_msg_count > 0
2444: THEN
2445: x_msg_count := l_msg_count;
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: RAISE FND_API.G_EXC_ERROR;
2448: --sareepar added service category rank
2449: else
2450: p_x_mr_header_rec.service_category_rank := to_number(p_x_mr_header_rec.space_category_code);
2451: END IF;
2509:
2510: l_msg_count := FND_MSG_PUB.count_msg;
2511: IF l_msg_count > 0 THEN
2512: X_msg_count := l_msg_count;
2513: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2514: RAISE FND_API.G_EXC_ERROR;
2515: END IF;
2516:
2517: -- pdoki, Following Proc call is obsoleted after SBE Project, Start.
2510: l_msg_count := FND_MSG_PUB.count_msg;
2511: IF l_msg_count > 0 THEN
2512: X_msg_count := l_msg_count;
2513: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2514: RAISE FND_API.G_EXC_ERROR;
2515: END IF;
2516:
2517: -- pdoki, Following Proc call is obsoleted after SBE Project, Start.
2518: -- Check For Cycli Association
2516:
2517: -- pdoki, Following Proc call is obsoleted after SBE Project, Start.
2518: -- Check For Cycli Association
2519:
2520: IF (p_x_mr_header_rec.PRECEDING_MR_HEADER_ID IS NOT NULL OR p_x_mr_header_rec.PRECEDING_MR_HEADER_ID<>fnd_api.g_miss_num) and p_x_mr_header_rec.dml_operation<>'D'
2521: THEN
2522: CHECK_CYCLIC_ASSOCIATION
2523: (
2524: p_api_version,
2535:
2536: l_msg_count := FND_MSG_PUB.count_msg;
2537: IF l_msg_count > 0 THEN
2538: X_msg_count := l_msg_count;
2539: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2540: RAISE FND_API.G_EXC_ERROR;
2541: END IF;
2542: -- pdoki, SBE Project, End.
2543:
2536: l_msg_count := FND_MSG_PUB.count_msg;
2537: IF l_msg_count > 0 THEN
2538: X_msg_count := l_msg_count;
2539: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2540: RAISE FND_API.G_EXC_ERROR;
2541: END IF;
2542: -- pdoki, SBE Project, End.
2543:
2544:
2541: END IF;
2542: -- pdoki, SBE Project, End.
2543:
2544:
2545: IF FND_API.TO_BOOLEAN(p_commit) THEN
2546: COMMIT;
2547: END IF;
2548: -- Debug info
2549:
2556: END IF;
2557:
2558: EXCEPTION
2559:
2560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2561: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2562: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2563: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2564: p_count => x_msg_count,
2558: EXCEPTION
2559:
2560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2561: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2562: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2563: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2564: p_count => x_msg_count,
2565: p_data => x_msg_data);
2566: IF G_DEBUG='Y' THEN
2559:
2560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2561: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2562: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2563: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2564: p_count => x_msg_count,
2565: p_data => x_msg_data);
2566: IF G_DEBUG='Y' THEN
2567: AHL_DEBUG_PUB.disable_debug;
2566: IF G_DEBUG='Y' THEN
2567: AHL_DEBUG_PUB.disable_debug;
2568: END IF;
2569:
2570: WHEN FND_API.G_EXC_ERROR THEN
2571: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2572: X_return_status := FND_API.G_RET_STS_ERROR;
2573: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2574: p_count => x_msg_count,
2568: END IF;
2569:
2570: WHEN FND_API.G_EXC_ERROR THEN
2571: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2572: X_return_status := FND_API.G_RET_STS_ERROR;
2573: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2574: p_count => x_msg_count,
2575: p_data => X_msg_data);
2576: IF G_DEBUG='Y' THEN
2569:
2570: WHEN FND_API.G_EXC_ERROR THEN
2571: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2572: X_return_status := FND_API.G_RET_STS_ERROR;
2573: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2574: p_count => x_msg_count,
2575: p_data => X_msg_data);
2576: IF G_DEBUG='Y' THEN
2577: AHL_DEBUG_PUB.disable_debug;
2577: AHL_DEBUG_PUB.disable_debug;
2578: END IF;
2579: WHEN OTHERS THEN
2580: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2581: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2582: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2583: THEN
2584: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2585: p_procedure_name =>l_api_name,
2584: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2585: p_procedure_name =>l_api_name,
2586: p_error_text => SUBSTR(SQLERRM,1,240));
2587: END IF;
2588: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2589: p_count => x_msg_count,
2590: p_data => X_msg_data);
2591: IF G_DEBUG='Y' THEN
2592: AHL_DEBUG_PUB.disable_debug;
2628: FND_MSG_PUB.ADD;
2629: RETURN;
2630: END IF;
2631:
2632: IF P_MR_HEADER_ID IS NULL OR P_MR_HEADER_ID=FND_API.G_MISS_NUM
2633: THEN
2634: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
2635: FND_MSG_PUB.ADD;
2636: L_ERR_FLAG:=1;
2635: FND_MSG_PUB.ADD;
2636: L_ERR_FLAG:=1;
2637: END IF;
2638:
2639: IF P_OBJECT_VERSION_NUMBER IS NULL OR P_OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
2640: THEN
2641: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
2642: FND_MSG_PUB.ADD;
2643: L_ERR_FLAG:=1;
2664:
2665: PROCEDURE DELETE_MR_HEADER
2666: (
2667: p_api_version IN NUMBER:=1.0,
2668: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2669: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2670: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2671: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2672: p_module_type IN VARCHAR2:=NULL,
2665: PROCEDURE DELETE_MR_HEADER
2666: (
2667: p_api_version IN NUMBER:=1.0,
2668: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2669: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2670: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2671: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2672: p_module_type IN VARCHAR2:=NULL,
2673: x_return_status OUT NOCOPY VARCHAR2,
2666: (
2667: p_api_version IN NUMBER:=1.0,
2668: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2669: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2670: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2671: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2672: p_module_type IN VARCHAR2:=NULL,
2673: x_return_status OUT NOCOPY VARCHAR2,
2674: x_msg_count OUT NOCOPY NUMBER,
2667: p_api_version IN NUMBER:=1.0,
2668: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2669: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2670: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2671: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2672: p_module_type IN VARCHAR2:=NULL,
2673: x_return_status OUT NOCOPY VARCHAR2,
2674: x_msg_count OUT NOCOPY NUMBER,
2675: x_msg_data OUT NOCOPY VARCHAR2,
2681: l_num_rec NUMBER;
2682: l_msg_count NUMBER;
2683: l_msg_data VARCHAR2(2000);
2684: l_return_status VARCHAR2(1);
2685: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
2686: Cursor CurGetRoutes(c_mr_header_id number)
2687: Is
2688: Select * from ahl_mr_Routes
2689: Where mr_header_id=c_mr_header_id;
2741:
2742: BEGIN
2743: SAVEPOINT DELETE_MR_HEADER_PVT;
2744:
2745: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2746: p_api_version,
2747: l_api_name,G_PKG_NAME) THEN
2748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2749: END IF;
2744:
2745: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2746: p_api_version,
2747: l_api_name,G_PKG_NAME) THEN
2748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2749: END IF;
2750:
2751: IF FND_API.to_boolean(P_init_msg_list)
2752: THEN
2747: l_api_name,G_PKG_NAME) THEN
2748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2749: END IF;
2750:
2751: IF FND_API.to_boolean(P_init_msg_list)
2752: THEN
2753: FND_MSG_PUB.initialize;
2754: END IF;
2755:
2753: FND_MSG_PUB.initialize;
2754: END IF;
2755:
2756:
2757: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2758:
2759: IF G_DEBUG='Y' THEN
2760: AHL_DEBUG_PUB.enable_debug;
2761: END IF;
2764: IF G_DEBUG='Y' THEN
2765: AHL_DEBUG_PUB.debug( 'AHL_FMP_MR_HEADERS_PVT.','+DELETE_MR_HEADER+');
2766: END IF;
2767:
2768: -- IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
2769: -- THEN
2770: VALIDATE_DEL_MR_HEADER
2771: (
2772: p_mr_header_id =>p_mr_header_id,
2777: l_msg_count := FND_MSG_PUB.count_msg;
2778: IF l_msg_count > 0
2779: THEN
2780: x_msg_count := l_msg_count;
2781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2782: RAISE FND_API.G_EXC_ERROR;
2783: END IF;
2784:
2785: -- END IF;
2778: IF l_msg_count > 0
2779: THEN
2780: x_msg_count := l_msg_count;
2781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2782: RAISE FND_API.G_EXC_ERROR;
2783: END IF;
2784:
2785: -- END IF;
2786:
2877:
2878: AHL_SB_RULES_PVT.Delete_Rules_For_MR
2879: (
2880: p_api_version => 1.0,
2881: p_commit => FND_API.G_FALSE,
2882: p_mr_header_id => p_mr_header_id,
2883: x_return_status => x_return_status,
2884: x_msg_count => x_msg_count,
2885: x_msg_data => x_msg_data
2906: -- sansatpa - Changes for NR Analysis - MR Orgs Deletion -- Ends
2907:
2908:
2909: l_msg_count := FND_MSG_PUB.count_msg;
2910: IF l_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
2911: THEN
2912: x_msg_count := l_msg_count;
2913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2914: RAISE FND_API.G_EXC_ERROR;
2909: l_msg_count := FND_MSG_PUB.count_msg;
2910: IF l_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
2911: THEN
2912: x_msg_count := l_msg_count;
2913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2914: RAISE FND_API.G_EXC_ERROR;
2915: END IF;
2916:
2917: AHL_MR_HEADERS_PKG.DELETE_ROW
2910: IF l_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
2911: THEN
2912: x_msg_count := l_msg_count;
2913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2914: RAISE FND_API.G_EXC_ERROR;
2915: END IF;
2916:
2917: AHL_MR_HEADERS_PKG.DELETE_ROW
2918: (
2921:
2922: l_msg_count := FND_MSG_PUB.count_msg;
2923: IF l_msg_count > 0 THEN
2924: X_msg_count := l_msg_count;
2925: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2926: RAISE FND_API.G_EXC_ERROR;
2927: END IF;
2928:
2929: IF G_DEBUG='Y' THEN
2922: l_msg_count := FND_MSG_PUB.count_msg;
2923: IF l_msg_count > 0 THEN
2924: X_msg_count := l_msg_count;
2925: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2926: RAISE FND_API.G_EXC_ERROR;
2927: END IF;
2928:
2929: IF G_DEBUG='Y' THEN
2930: AHL_DEBUG_PUB.disable_debug;
2929: IF G_DEBUG='Y' THEN
2930: AHL_DEBUG_PUB.disable_debug;
2931: END IF;
2932:
2933: IF FND_API.TO_BOOLEAN(p_commit) THEN
2934: COMMIT;
2935: END IF;
2936: EXCEPTION
2937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2933: IF FND_API.TO_BOOLEAN(p_commit) THEN
2934: COMMIT;
2935: END IF;
2936: EXCEPTION
2937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2938: ROLLBACK TO DELETE_MR_HEADER_PVT;
2939: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2940: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2941: p_count => x_msg_count,
2935: END IF;
2936: EXCEPTION
2937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2938: ROLLBACK TO DELETE_MR_HEADER_PVT;
2939: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2940: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2941: p_count => x_msg_count,
2942: p_data => x_msg_data);
2943: IF G_DEBUG='Y' THEN
2936: EXCEPTION
2937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2938: ROLLBACK TO DELETE_MR_HEADER_PVT;
2939: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2940: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2941: p_count => x_msg_count,
2942: p_data => x_msg_data);
2943: IF G_DEBUG='Y' THEN
2944: AHL_DEBUG_PUB.disable_debug;
2943: IF G_DEBUG='Y' THEN
2944: AHL_DEBUG_PUB.disable_debug;
2945: END IF;
2946:
2947: WHEN FND_API.G_EXC_ERROR THEN
2948: ROLLBACK TO DELETE_MR_HEADER_PVT;
2949: X_return_status := FND_API.G_RET_STS_ERROR;
2950: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2951: p_count => x_msg_count,
2945: END IF;
2946:
2947: WHEN FND_API.G_EXC_ERROR THEN
2948: ROLLBACK TO DELETE_MR_HEADER_PVT;
2949: X_return_status := FND_API.G_RET_STS_ERROR;
2950: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2951: p_count => x_msg_count,
2952: p_data => X_msg_data);
2953: IF G_DEBUG='Y' THEN
2946:
2947: WHEN FND_API.G_EXC_ERROR THEN
2948: ROLLBACK TO DELETE_MR_HEADER_PVT;
2949: X_return_status := FND_API.G_RET_STS_ERROR;
2950: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2951: p_count => x_msg_count,
2952: p_data => X_msg_data);
2953: IF G_DEBUG='Y' THEN
2954: AHL_DEBUG_PUB.disable_debug;
2955: END IF;
2956:
2957: WHEN OTHERS THEN
2958: ROLLBACK TO DELETE_MR_HEADER_PVT;
2959: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2960: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2961: THEN
2962: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2963: p_procedure_name =>l_api_name,
2962: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2963: p_procedure_name =>l_api_name,
2964: p_error_text => SUBSTR(SQLERRM,1,240));
2965: END IF;
2966: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2967: p_count => x_msg_count,
2968: p_data => X_msg_data);
2969: IF G_DEBUG='Y' THEN
2970: AHL_DEBUG_PUB.disable_debug;