[Home] [Help]
91: OPEN CurHeaderDet(p_x_mr_header_rec.mr_header_id);
92: FETCH CurHeaderDet INTO l_mr_header_rec;
93: CLOSE CurHeaderDet;
94:
95: IF p_x_mr_header_rec.OBJECT_VERSION_NUMBER= FND_API.G_MISS_NUM
96: THEN
97: p_x_mr_header_rec.OBJECT_VERSION_NUMBER:=NULL;
98: ELSE
99: p_x_mr_header_rec.OBJECT_VERSION_NUMBER:=l_mr_header_rec.OBJECT_VERSION_NUMBER;
98: ELSE
99: p_x_mr_header_rec.OBJECT_VERSION_NUMBER:=l_mr_header_rec.OBJECT_VERSION_NUMBER;
100: END IF;
101:
102: IF p_x_mr_header_rec.TITLE= FND_API.G_MISS_CHAR
103: THEN
104: p_x_mr_header_rec.TITLE:=NULL;
105: ELSIF p_x_mr_header_rec.TITLE IS NULL
106: THEN
106: THEN
107: p_x_mr_header_rec.TITLE:=l_mr_header_rec.TITLE;
108: END IF;
109:
110: IF p_x_mr_header_rec.REVISION= FND_API.G_MISS_CHAR
111: THEN
112: p_x_mr_header_rec.REVISION:=NULL;
113: ELSIF p_x_mr_header_rec.REVISION IS NULL
114: THEN
113: ELSIF p_x_mr_header_rec.REVISION IS NULL
114: THEN
115: p_x_mr_header_rec.REVISION:=l_mr_header_Rec.REVISION;
116: END IF;
117: IF p_x_mr_header_rec.VERSION_NUMBER= FND_API.G_MISS_NUM
118: THEN
119: p_x_mr_header_rec.VERSION_NUMBER:=NULL;
120: ELSIF p_x_mr_header_rec.VERSION_NUMBER IS NULL
121: THEN
121: THEN
122: p_x_mr_header_rec.VERSION_NUMBER:=l_mr_header_Rec.VERSION_NUMBER;
123: END IF;
124:
125: IF p_x_mr_header_rec.CATEGORY_CODE= FND_API.G_MISS_CHAR
126: THEN
127: p_x_mr_header_rec.CATEGORY_CODE:=NULL;
128: ELSIF p_x_mr_header_rec.CATEGORY_CODE IS NULL
129: THEN
129: THEN
130: p_x_mr_header_rec.CATEGORY_CODE
131: :=l_mr_header_Rec.CATEGORY_CODE;
132: END IF;
133: IF p_x_mr_header_rec.CATEGORY= FND_API.G_MISS_CHAR
134: THEN
135: p_x_mr_header_rec.CATEGORY:=NULL;
136: ELSIF p_x_mr_header_rec.CATEGORY IS NULL
137: THEN
138: p_x_mr_header_rec.CATEGORY
139: :=l_mr_header_Rec.CATEGORY;
140: END IF;
141:
142: IF p_x_mr_header_rec.PROGRAM_TYPE_CODE= FND_API.G_MISS_CHAR
143: THEN
144: p_x_mr_header_rec.PROGRAM_TYPE_CODE:=NULL;
145: ELSIF p_x_mr_header_rec.PROGRAM_TYPE_CODE IS NULL
146: THEN
146: THEN
147: p_x_mr_header_rec.PROGRAM_TYPE_CODE
148: :=l_mr_header_Rec.PROGRAM_TYPE_CODE;
149: END IF;
150: IF p_x_mr_header_rec.PROGRAM_TYPE= FND_API.G_MISS_CHAR
151: THEN
152: p_x_mr_header_rec.PROGRAM_TYPE:=NULL;
153: ELSIF p_x_mr_header_rec.PROGRAM_TYPE IS NULL
154: THEN
155: p_x_mr_header_rec.PROGRAM_TYPE
156: :=l_mr_header_Rec.PROGRAM_TYPE;
157: END IF;
158:
159: IF p_x_mr_header_rec.PROGRAM_SUBTYPE= FND_API.G_MISS_CHAR
160: THEN
161: p_x_mr_header_rec.PROGRAM_SUBTYPE:=NULL;
162: ELSIF p_x_mr_header_rec.PROGRAM_SUBTYPE IS NULL
163: THEN
164: p_x_mr_header_rec.PROGRAM_SUBTYPE:=
165: l_mr_header_Rec.PROGRAM_SUBTYPE;
166: END IF;
167:
168: IF p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE= FND_API.G_MISS_CHAR
169: THEN
170: p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE:=NULL;
171: ELSIF p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE IS NULL
172: THEN
173: p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE:=l_mr_header_Rec.PROGRAM_SUBTYPE_CODE;
174: END IF;
175:
176:
177: IF p_x_mr_header_rec.SERVICE_TYPE_CODE= FND_API.G_MISS_CHAR
178: THEN
179: p_x_mr_header_rec.SERVICE_TYPE_CODE:=NULL;
180: ELSIF p_x_mr_header_rec.SERVICE_TYPE_CODE IS NULL
181: THEN
180: ELSIF p_x_mr_header_rec.SERVICE_TYPE_CODE IS NULL
181: THEN
182: p_x_mr_header_rec.SERVICE_TYPE_CODE:=l_mr_header_Rec.SERVICE_TYPE_CODE;
183: END IF;
184: IF p_x_mr_header_rec.SERVICE_TYPE= FND_API.G_MISS_CHAR
185: THEN
186: p_x_mr_header_rec.SERVICE_TYPE:=NULL;
187: ELSIF p_x_mr_header_rec.SERVICE_TYPE IS NULL
188: THEN
188: THEN
189: p_x_mr_header_rec.SERVICE_TYPE:=l_mr_header_Rec.SERVICE_TYPE;
190: END IF;
191:
192: IF p_x_mr_header_rec.MR_STATUS_CODE= FND_API.G_MISS_CHAR
193: THEN
194: p_x_mr_header_rec.MR_STATUS_CODE:=NULL;
195: ELSIF p_x_mr_header_rec.MR_STATUS_CODE IS NULL
196: THEN
195: ELSIF p_x_mr_header_rec.MR_STATUS_CODE IS NULL
196: THEN
197: p_x_mr_header_rec.MR_STATUS_CODE:=l_mr_header_Rec.MR_STATUS_CODE;
198: END IF;
199: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE= FND_API.G_MISS_CHAR
200: THEN
201: p_x_mr_header_rec.IMPLEMENT_STATUS_CODE:=NULL;
202: ELSIF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE IS NULL
203: THEN
202: ELSIF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE IS NULL
203: THEN
204: p_x_mr_header_rec.IMPLEMENT_STATUS_CODE:=l_mr_header_Rec.IMPLEMENT_STATUS_CODE;
205: END IF;
206: IF p_x_mr_header_rec.IMPLEMENT_STATUS= FND_API.G_MISS_CHAR
207: THEN
208: p_x_mr_header_rec.IMPLEMENT_STATUS:=NULL;
209: ELSIF p_x_mr_header_rec.IMPLEMENT_STATUS IS NULL
210: THEN
210: THEN
211: p_x_mr_header_rec.IMPLEMENT_STATUS
212: :=l_mr_header_Rec.IMPLEMENT_STATUS;
213: END IF;
214: IF p_x_mr_header_rec.EFFECTIVE_FROM=FND_API.G_MISS_DATE
215: THEN
216: p_x_mr_header_rec.EFFECTIVE_FROM:=NULL;
217: ELSIF p_x_mr_header_rec.EFFECTIVE_FROM IS NULL
218: THEN
217: ELSIF p_x_mr_header_rec.EFFECTIVE_FROM IS NULL
218: THEN
219: p_x_mr_header_rec.EFFECTIVE_FROM:=l_mr_header_Rec.EFFECTIVE_FROM;
220: END IF;
221: IF p_x_mr_header_rec.EFFECTIVE_TO=FND_API.G_MISS_DATE
222: THEN
223: p_x_mr_header_rec.EFFECTIVE_TO:=NULL;
224: ELSIF p_x_mr_header_rec.EFFECTIVE_TO IS NULL
225: THEN
224: ELSIF p_x_mr_header_rec.EFFECTIVE_TO IS NULL
225: THEN
226: p_x_mr_header_rec.EFFECTIVE_TO:=l_mr_header_Rec.EFFECTIVE_TO;
227: END IF;
228: IF p_x_mr_header_rec.REPETITIVE_FLAG= FND_API.G_MISS_CHAR
229: THEN
230: p_x_mr_header_rec.REPETITIVE_FLAG:=NULL;
231: ELSIF p_x_mr_header_rec.REPETITIVE_FLAG IS NULL
232: THEN
231: ELSIF p_x_mr_header_rec.REPETITIVE_FLAG IS NULL
232: THEN
233: p_x_mr_header_rec.REPETITIVE_FLAG:=l_mr_header_Rec.REPETITIVE_FLAG;
234: END IF;
235: IF p_x_mr_header_rec.REPETITIVE= FND_API.G_MISS_CHAR
236: THEN
237: p_x_mr_header_rec.REPETITIVE:=NULL;
238: ELSIF p_x_mr_header_rec.REPETITIVE IS NULL
239: THEN
239: THEN
240: p_x_mr_header_rec.REPETITIVE:=l_mr_header_Rec.REPETITIVE;
241: END IF;
242:
243: IF p_x_mr_header_rec.SHOW_REPETITIVE_CODE= FND_API.G_MISS_CHAR
244: THEN
245: p_x_mr_header_rec.SHOW_REPETITIVE_CODE:=NULL;
246: ELSIF p_x_mr_header_rec.SHOW_REPETITIVE_CODE IS NULL
247: THEN
247: THEN
248: p_x_mr_header_rec.SHOW_REPETITIVE_CODE:=l_mr_header_Rec.SHOW_REPETITIVE_CODE;
249: END IF;
250:
251: IF p_x_mr_header_rec.SHOW_REPETITIVE= FND_API.G_MISS_CHAR
252: THEN
253: p_x_mr_header_rec.SHOW_REPETITIVE:=NULL;
254: ELSIF p_x_mr_header_rec.SHOW_REPETITIVE IS NULL
255: THEN
254: ELSIF p_x_mr_header_rec.SHOW_REPETITIVE IS NULL
255: THEN
256: p_x_mr_header_rec.SHOW_REPETITIVE:=l_mr_header_Rec.SHOW_REPETITIVE;
257: END IF;
258: IF p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG= FND_API.G_MISS_CHAR
259: THEN
260: p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG:=NULL;
261: ELSIF p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL
262: THEN
262: THEN
263: p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG:=l_mr_header_Rec.COPY_ACCOMPLISHMENT_FLAG;
264: END IF;
265:
266: IF p_x_mr_header_rec.COPY_ACCOMPLISHMENT= FND_API.G_MISS_CHAR
267: THEN
268: p_x_mr_header_rec.COPY_ACCOMPLISHMENT:=NULL;
269: ELSIF p_x_mr_header_rec.COPY_ACCOMPLISHMENT IS NULL
270: THEN
270: THEN
271: p_x_mr_header_rec.COPY_ACCOMPLISHMENT:=l_mr_header_Rec.COPY_ACCOMPLISHMENT;
272: END IF;
273:
274: IF p_x_mr_header_rec.WHICHEVER_FIRST_CODE= FND_API.G_MISS_CHAR
275: THEN
276: p_x_mr_header_rec.WHICHEVER_FIRST_CODE:=NULL;
277: ELSIF p_x_mr_header_rec.WHICHEVER_FIRST_CODE IS NULL
278: THEN
278: THEN
279: p_x_mr_header_rec.WHICHEVER_FIRST_CODE:=l_mr_header_Rec.WHICHEVER_FIRST_CODE;
280: END IF;
281:
282: IF p_x_mr_header_rec.WHICHEVER_FIRST= FND_API.G_MISS_CHAR
283: THEN
284: p_x_mr_header_rec.WHICHEVER_FIRST:=NULL;
285: ELSIF p_x_mr_header_rec.WHICHEVER_FIRST IS NULL
286: THEN
286: THEN
287: p_x_mr_header_rec.WHICHEVER_FIRST:=l_mr_header_Rec.WHICHEVER_FIRST;
288: END IF;
289:
290: IF p_x_mr_header_rec.PRECEDING_MR_HEADER_ID= FND_API.G_MISS_NUM
291: THEN
292: p_x_mr_header_rec.PRECEDING_MR_HEADER_ID:=NULL;
293: ELSIF p_x_mr_header_rec.PRECEDING_MR_HEADER_ID IS NULL
294: THEN
294: THEN
295: p_x_mr_header_rec.PRECEDING_MR_HEADER_ID:=l_mr_header_Rec.PRECEDING_MR_HEADER_ID;
296: END IF;
297:
298: IF p_x_mr_header_rec.PRECEDING_MR_TITLE= FND_API.G_MISS_CHAR
299: THEN
300: p_x_mr_header_rec.PRECEDING_MR_TITLE:=NULL;
301: ELSIF p_x_mr_header_rec.PRECEDING_MR_TITLE IS NULL
302: THEN
302: THEN
303: p_x_mr_header_rec.PRECEDING_MR_TITLE:=l_mr_header_Rec.PRECEDING_MR_TITLE;
304: END IF;
305:
306: IF p_x_mr_header_rec.PRECEDING_MR_REVISION= FND_API.G_MISS_CHAR
307: THEN
308: p_x_mr_header_rec.PRECEDING_MR_REVISION:=NULL;
309: ELSIF p_x_mr_header_rec.PRECEDING_MR_REVISION IS NULL
310: THEN
310: THEN
311: p_x_mr_header_rec.PRECEDING_MR_REVISION:=l_mr_header_Rec.PRECEDING_MR_REVISION;
312: END IF;
313:
314: IF p_x_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID= FND_API.G_MISS_NUM
315: THEN
316: p_x_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID:=NULL;
317: ELSIF p_x_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID IS NULL
318: THEN
318: THEN
319: p_x_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID:=l_mr_header_Rec.SERVICE_REQUEST_TEMPLATE_ID;
320: END IF;
321:
322: IF p_x_mr_header_rec.DOWN_TIME= FND_API.G_MISS_NUM
323: THEN
324: p_x_mr_header_rec.DOWN_TIME:=NULL;
325: ELSIF p_x_mr_header_rec.DOWN_TIME IS NULL
326: THEN
326: THEN
327: p_x_mr_header_rec.DOWN_TIME:=l_mr_header_Rec.DOWN_TIME;
328: END IF;
329:
330: IF p_x_mr_header_rec.TYPE_CODE= FND_API.G_MISS_CHAR
331: THEN
332: p_x_mr_header_rec.TYPE_CODE:=NULL;
333: ELSIF p_x_mr_header_rec.TYPE_CODE IS NULL
334: THEN
334: THEN
335: p_x_mr_header_rec.TYPE_CODE:=l_mr_header_Rec.TYPE_CODE;
336: END IF;
337:
338: IF p_x_mr_header_rec.AUTO_SIGNOFF_FLAG= FND_API.G_MISS_CHAR
339: THEN
340: p_x_mr_header_rec.AUTO_SIGNOFF_FLAG:=NULL;
341: ELSIF p_x_mr_header_rec.AUTO_SIGNOFF_FLAG IS NULL
342: THEN
342: THEN
343: p_x_mr_header_rec.AUTO_SIGNOFF_FLAG:=l_mr_header_Rec.AUTO_SIGNOFF_FLAG;
344: END IF;
345:
346: IF p_x_mr_header_rec.COPY_INIT_ACCOMPL_FLAG= FND_API.G_MISS_CHAR
347: THEN
348: p_x_mr_header_rec.COPY_INIT_ACCOMPL_FLAG:=NULL;
349: ELSIF p_x_mr_header_rec.COPY_INIT_ACCOMPL_FLAG IS NULL
350: THEN
350: THEN
351: p_x_mr_header_rec.COPY_INIT_ACCOMPL_FLAG:=l_mr_header_Rec.COPY_INIT_ACCOMPL_FLAG;
352: END IF;
353:
354: IF p_x_mr_header_rec.COPY_DEFERRALS_FLAG= FND_API.G_MISS_CHAR
355: THEN
356: p_x_mr_header_rec.COPY_DEFERRALS_FLAG:=NULL;
357: ELSIF p_x_mr_header_rec.COPY_DEFERRALS_FLAG IS NULL
358: THEN
358: THEN
359: p_x_mr_header_rec.COPY_DEFERRALS_FLAG:=l_mr_header_Rec.COPY_DEFERRALS_FLAG;
360: END IF;
361:
362: IF p_x_mr_header_rec.UOM_CODE= FND_API.G_MISS_CHAR
363: THEN
364: p_x_mr_header_rec.UOM_CODE:=NULL;
365: ELSIF p_x_mr_header_rec.UOM_CODE IS NULL
366: THEN
366: THEN
367: p_x_mr_header_rec.UOM_CODE:=l_mr_header_Rec.UOM_CODE;
368: END IF;
369:
370: IF p_x_mr_header_rec.DESCRIPTION= FND_API.G_MISS_CHAR
371: THEN
372: p_x_mr_header_rec.DESCRIPTION:=NULL;
373: ELSIF p_x_mr_header_rec.DESCRIPTION IS NULL
374: THEN
373: ELSIF p_x_mr_header_rec.DESCRIPTION IS NULL
374: THEN
375: p_x_mr_header_rec.DESCRIPTION:=l_mr_header_Rec.DESCRIPTION;
376: END IF;
377: IF p_x_mr_header_rec.COMMENTS= FND_API.G_MISS_CHAR
378: THEN
379: p_x_mr_header_rec.COMMENTS:=NULL;
380: ELSIF p_x_mr_header_rec.COMMENTS IS NULL
381: THEN
380: ELSIF p_x_mr_header_rec.COMMENTS IS NULL
381: THEN
382: p_x_mr_header_rec.COMMENTS:=l_mr_header_Rec.COMMENTS;
383: END IF;
384: IF p_x_mr_header_rec.ATTRIBUTE_CATEGORY= FND_API.G_MISS_CHAR
385: THEN
386: p_x_mr_header_rec.ATTRIBUTE_CATEGORY:=NULL;
387: ELSIF p_x_mr_header_rec.ATTRIBUTE_CATEGORY IS NULL
388: THEN
388: THEN
389: p_x_mr_header_rec.ATTRIBUTE_CATEGORY:=l_mr_header_Rec.ATTRIBUTE_CATEGORY;
390: END IF;
391:
392: IF p_x_mr_header_rec.ATTRIBUTE1= FND_API.G_MISS_CHAR
393: THEN
394: p_x_mr_header_rec.ATTRIBUTE1:=NULL;
395: ELSIF p_x_mr_header_rec.ATTRIBUTE1 IS NULL
396: THEN
396: THEN
397: p_x_mr_header_rec.ATTRIBUTE1:=l_mr_header_Rec.ATTRIBUTE1;
398: END IF;
399:
400: IF p_x_mr_header_rec.ATTRIBUTE2= FND_API.G_MISS_CHAR
401: THEN
402: p_x_mr_header_rec.ATTRIBUTE2:=NULL;
403: ELSIF p_x_mr_header_rec.ATTRIBUTE2 IS NULL
404: THEN
404: THEN
405: p_x_mr_header_rec.ATTRIBUTE2:=l_mr_header_Rec.ATTRIBUTE2;
406: END IF;
407:
408: IF p_x_mr_header_rec.ATTRIBUTE3= FND_API.G_MISS_CHAR
409: THEN
410: p_x_mr_header_rec.ATTRIBUTE3:=NULL;
411: ELSIF p_x_mr_header_rec.ATTRIBUTE3 IS NULL
412: THEN
412: THEN
413: p_x_mr_header_rec.ATTRIBUTE3:=l_mr_header_Rec.ATTRIBUTE3;
414: END IF;
415:
416: IF p_x_mr_header_rec.ATTRIBUTE4= FND_API.G_MISS_CHAR
417: THEN
418: p_x_mr_header_rec.ATTRIBUTE4:=NULL;
419: ELSIF p_x_mr_header_rec.ATTRIBUTE4 IS NULL
420: THEN
420: THEN
421: p_x_mr_header_rec.ATTRIBUTE4:=l_mr_header_Rec.ATTRIBUTE4;
422: END IF;
423:
424: IF p_x_mr_header_rec.ATTRIBUTE5= FND_API.G_MISS_CHAR
425: THEN
426: p_x_mr_header_rec.ATTRIBUTE5:=NULL;
427: ELSIF p_x_mr_header_rec.ATTRIBUTE5 IS NULL
428: THEN
428: THEN
429: p_x_mr_header_rec.ATTRIBUTE5:=l_mr_header_Rec.ATTRIBUTE5;
430: END IF;
431:
432: IF p_x_mr_header_rec.ATTRIBUTE6= FND_API.G_MISS_CHAR
433: THEN
434: p_x_mr_header_rec.ATTRIBUTE6:=NULL;
435: ELSIF p_x_mr_header_rec.ATTRIBUTE6 IS NULL
436: THEN
436: THEN
437: p_x_mr_header_rec.ATTRIBUTE6:=l_mr_header_Rec.ATTRIBUTE6;
438: END IF;
439:
440: IF p_x_mr_header_rec.ATTRIBUTE7= FND_API.G_MISS_CHAR
441: THEN
442: p_x_mr_header_rec.ATTRIBUTE7:=NULL;
443: ELSIF p_x_mr_header_rec.ATTRIBUTE7 IS NULL
444: THEN
444: THEN
445: p_x_mr_header_rec.ATTRIBUTE7 :=l_mr_header_Rec.ATTRIBUTE7;
446: END IF;
447:
448: IF p_x_mr_header_rec.ATTRIBUTE8= FND_API.G_MISS_CHAR
449: THEN
450: p_x_mr_header_rec.ATTRIBUTE8:=NULL;
451: ELSIF p_x_mr_header_rec.ATTRIBUTE8 IS NULL
452: THEN
452: THEN
453: p_x_mr_header_rec.ATTRIBUTE8:=l_mr_header_Rec.ATTRIBUTE8;
454: END IF;
455:
456: IF p_x_mr_header_rec.ATTRIBUTE9= FND_API.G_MISS_CHAR
457: THEN
458: p_x_mr_header_rec.ATTRIBUTE9:=NULL;
459: ELSIF p_x_mr_header_rec.ATTRIBUTE9 IS NULL
460: THEN
460: THEN
461: p_x_mr_header_rec.ATTRIBUTE9:=l_mr_header_Rec.ATTRIBUTE9;
462: END IF;
463:
464: IF p_x_mr_header_rec.ATTRIBUTE10= FND_API.G_MISS_CHAR
465: THEN
466: p_x_mr_header_rec.ATTRIBUTE10:=NULL;
467: ELSIF p_x_mr_header_rec.ATTRIBUTE10 IS NULL
468: THEN
467: ELSIF p_x_mr_header_rec.ATTRIBUTE10 IS NULL
468: THEN
469: p_x_mr_header_rec.ATTRIBUTE10:=l_mr_header_Rec.ATTRIBUTE10;
470: END IF;
471: IF p_x_mr_header_rec.ATTRIBUTE11= FND_API.G_MISS_CHAR
472: THEN
473: p_x_mr_header_rec.ATTRIBUTE11:=NULL;
474: ELSIF p_x_mr_header_rec.ATTRIBUTE11 IS NULL
475: THEN
475: THEN
476: p_x_mr_header_rec.ATTRIBUTE11:=l_mr_header_Rec.ATTRIBUTE11;
477: END IF;
478:
479: IF p_x_mr_header_rec.ATTRIBUTE12= FND_API.G_MISS_CHAR
480: THEN
481: p_x_mr_header_rec.ATTRIBUTE12:=NULL;
482: ELSIF p_x_mr_header_rec.ATTRIBUTE12 IS NULL
483: THEN
483: THEN
484: p_x_mr_header_rec.ATTRIBUTE12:=l_mr_header_Rec.ATTRIBUTE12;
485: END IF;
486:
487: IF p_x_mr_header_rec.ATTRIBUTE13= FND_API.G_MISS_CHAR
488: THEN
489: p_x_mr_header_rec.ATTRIBUTE13:=NULL;
490: ELSIF p_x_mr_header_rec.ATTRIBUTE13 IS NULL
491: THEN
491: THEN
492: p_x_mr_header_rec.ATTRIBUTE13:=l_mr_header_Rec.ATTRIBUTE13;
493: END IF;
494:
495: IF p_x_mr_header_rec.ATTRIBUTE14= FND_API.G_MISS_CHAR
496: THEN
497: p_x_mr_header_rec.ATTRIBUTE14:=NULL;
498: ELSIF p_x_mr_header_rec.ATTRIBUTE14 IS NULL
499: THEN
500: p_x_mr_header_rec.ATTRIBUTE14
501: :=l_mr_header_Rec.ATTRIBUTE14;
502: END IF;
503:
504: IF p_x_mr_header_rec.ATTRIBUTE15= FND_API.G_MISS_CHAR
505: THEN
506: p_x_mr_header_rec.ATTRIBUTE15:=NULL;
507: ELSIF p_x_mr_header_rec.ATTRIBUTE15 IS NULL
508: THEN
510: END IF;
511:
512:
513: --Billing Item
514: IF p_x_mr_header_rec.billing_item= FND_API.G_MISS_CHAR
515: THEN
516: p_x_mr_header_rec.billing_item:=NULL;
517: ELSIF p_x_mr_header_rec.billing_item IS NULL
518: THEN
518: THEN
519: p_x_mr_header_rec.billing_item:=l_mr_header_Rec.billing_item;
520: END IF;
521: --Billing Item Id
522: IF p_x_mr_header_rec.billing_item_id= FND_API.G_MISS_NUM
523: THEN
524: p_x_mr_header_rec.billing_item_id:=NULL;
525: ELSIF p_x_mr_header_rec.billing_item_id IS NULL
526: THEN
527: p_x_mr_header_rec.billing_item_id:=l_mr_header_Rec.billing_item_id;
528: END IF;
529:
530: --qa_inspection_type
531: IF p_x_mr_header_rec.qa_inspection_type= FND_API.G_MISS_CHAR
532: THEN
533: p_x_mr_header_rec.qa_inspection_type:=NULL;
534: ELSIF p_x_mr_header_rec.qa_inspection_type IS NULL
535: THEN
535: THEN
536: p_x_mr_header_rec.qa_inspection_type:=l_mr_header_Rec.qa_inspection_type;
537: END IF;
538:
539: IF p_x_mr_header_rec.qa_inspection_type_code= FND_API.G_MISS_CHAR
540: THEN
541: p_x_mr_header_rec.qa_inspection_type_code:=NULL;
542: ELSIF p_x_mr_header_rec.qa_inspection_type_code IS NULL
543: THEN
544: p_x_mr_header_rec.qa_inspection_type_code:=l_mr_header_Rec.qa_inspection_type_code;
545: END IF;
546:
547: --space_category_code
548: IF p_x_mr_header_rec.space_category_code= FND_API.G_MISS_CHAR
549: THEN
550: p_x_mr_header_rec.space_category_code:=NULL;
551: ELSIF p_x_mr_header_rec.space_category_code IS NULL
552: THEN
552: THEN
553: p_x_mr_header_rec.space_category_code:=l_mr_header_Rec.space_category_code;
554: END IF;
555:
556: IF p_x_mr_header_rec.space_category= FND_API.G_MISS_CHAR
557: THEN
558: p_x_mr_header_rec.space_category:=NULL;
559: ELSIF p_x_mr_header_rec.space_category IS NULL
560: THEN
584: OPEN get_lookup_type_code(p_lookup_code,p_lookup_type);
585: FETCH get_lookup_type_code INTO l_lookup_code;
586: IF get_lookup_type_code%NOTFOUND
587: THEN
588: x_return_Status:= FND_API.G_RET_STS_UNEXP_ERROR;
589: END IF;
590: CLOSE get_lookup_type_code;
591: end;
592:
667: l_num_rec NUMBER;
668: l_msg_count NUMBER;
669: l_msg_data VARCHAR2(2000);
670: l_return_status VARCHAR2(1);
671: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
672: l_mrItemId NUMBER:=0;
673: l_lookup_var varchar2(1);
674: l_object_version_number NUMBER;
675: l_check_flag VARCHAR2(1):='Y';
680: AHL_DEBUG_PUB.enable_debug;
681: AHL_DEBUG_PUB.debug('Trans TYPE CODE '||p_x_mr_header_rec.TYPE_CODE,'+HEADERS+');
682: END IF;
683:
684: x_return_status:=FND_API.G_RET_STS_SUCCESS;
685:
686: IF p_x_mr_header_rec.PROGRAM_TYPE IS NULL OR p_x_mr_header_rec.PROGRAM_TYPE=FND_API.G_MISS_CHAR
687: THEN
688: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
682: END IF;
683:
684: x_return_status:=FND_API.G_RET_STS_SUCCESS;
685:
686: IF p_x_mr_header_rec.PROGRAM_TYPE IS NULL OR p_x_mr_header_rec.PROGRAM_TYPE=FND_API.G_MISS_CHAR
687: THEN
688: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
689: FND_MSG_PUB.ADD;
690: l_check_flag:='N';
713:
714: -- Program Sub type
715:
716: IF (p_x_mr_header_rec.PROGRAM_SUBTYPE IS NULL OR
717: p_x_mr_header_rec.PROGRAM_SUBTYPE=FND_API.G_MISS_CHAR)
718: THEN
719: p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE:=FND_API.G_MISS_CHAR;
720: ELSE
721: IF l_check_flag='Y'
715:
716: IF (p_x_mr_header_rec.PROGRAM_SUBTYPE IS NULL OR
717: p_x_mr_header_rec.PROGRAM_SUBTYPE=FND_API.G_MISS_CHAR)
718: THEN
719: p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE:=FND_API.G_MISS_CHAR;
720: ELSE
721: IF l_check_flag='Y'
722: THEN
723:
741:
742: --Billing Item Id
743:
744:
745: IF (p_x_mr_header_rec.BILLING_ITEM IS NULL OR p_x_mr_header_rec.BILLING_ITEM=FND_API.G_MISS_CHAR)
746: THEN
747: p_x_mr_header_rec.BILLING_ITEM:=FND_API.G_MISS_CHAR;
748: ELSE
749: IF l_check_flag='Y'
743:
744:
745: IF (p_x_mr_header_rec.BILLING_ITEM IS NULL OR p_x_mr_header_rec.BILLING_ITEM=FND_API.G_MISS_CHAR)
746: THEN
747: p_x_mr_header_rec.BILLING_ITEM:=FND_API.G_MISS_CHAR;
748: ELSE
749: IF l_check_flag='Y'
750: THEN
751:
765: --Implent Status and QA INSPECTION TYPE
766: --Chack for the Valid QAInspection Type
767:
768: IF (p_x_mr_header_rec.QA_INSPECTION_TYPE IS NULL
769: OR p_x_mr_header_rec.QA_INSPECTION_TYPE=FND_API.G_MISS_CHAR)
770: THEN
771: p_x_mr_header_rec.QA_INSPECTION_TYPE:=FND_API.G_MISS_CHAR;
772: ELSE
773: IF l_check_flag='Y'
767:
768: IF (p_x_mr_header_rec.QA_INSPECTION_TYPE IS NULL
769: OR p_x_mr_header_rec.QA_INSPECTION_TYPE=FND_API.G_MISS_CHAR)
770: THEN
771: p_x_mr_header_rec.QA_INSPECTION_TYPE:=FND_API.G_MISS_CHAR;
772: ELSE
773: IF l_check_flag='Y'
774: THEN
775:
783: FND_MSG_PUB.ADD;
784: /* Commented the Qa inspection type depedency on IMPLEMENTAT_STATUS_CODE as per ER#3822674
785: ELSE
786: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE IS NOT NULL
787: OR p_x_mr_header_rec.IMPLEMENT_STATUS_CODE <>FND_API.G_MISS_CHAR
788: THEN
789: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE = 'OPTIONAL_DO_NOT_IMPLEMENT'
790: AND (p_x_mr_header_rec.qa_inspection_type IS NOT NULL
791: OR p_x_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
787: OR p_x_mr_header_rec.IMPLEMENT_STATUS_CODE <>FND_API.G_MISS_CHAR
788: THEN
789: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE = 'OPTIONAL_DO_NOT_IMPLEMENT'
790: AND (p_x_mr_header_rec.qa_inspection_type IS NOT NULL
791: OR p_x_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
792: THEN
793: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_QA');
794: FND_MSG_PUB.ADD;
795: END IF;
836:
837:
838: -- Preceding MR_header_id
839:
840: 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
841: THEN
842: OPEN get_titlecount(p_x_mr_header_rec.PRECEDING_MR_TITLE);
843: FETCH get_titlecount INTO l_title_counter;
844: Close get_titlecount;
903:
904: IF p_x_mr_header_rec.DML_OPERATION='U'
905: THEN
906:
907: IF p_x_mr_header_rec.version_number=FND_API.G_MISS_NUM OR
908: p_x_mr_header_rec.version_number IS NULL
909: THEN
910: select version_number into p_x_mr_header_rec.version_number
911: from AHL_MR_HEADERS_APP_V
928: WHERE MR_HEADER_ID=C_MR_HEADER_ID;
929: l_mr_rec GetMrdet%rowtype;
930: l_counter NUMBER:=0;
931: BEGIN
932: x_return_status:=FND_API.G_RET_STS_SUCCESS;
933:
934: IF p_mr_header_rec.MR_HEADER_ID IS NOT NULL OR p_mr_header_rec.MR_HEADER_ID<>FND_API.G_MISS_NUM
935: THEN
936:
930: l_counter NUMBER:=0;
931: BEGIN
932: x_return_status:=FND_API.G_RET_STS_SUCCESS;
933:
934: IF p_mr_header_rec.MR_HEADER_ID IS NOT NULL OR p_mr_header_rec.MR_HEADER_ID<>FND_API.G_MISS_NUM
935: THEN
936:
937:
938: OPEN GetMrDet(p_mr_header_rec.MR_HEADER_ID);
1161: l_old_prog_type varchar2(30);
1162: -- Tamal [MEL/CDL] -- End changes
1163:
1164: BEGIN
1165: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1166:
1167: IF G_DEBUG='Y' THEN
1168: AHL_DEBUG_PUB.enable_debug;
1169: AHL_DEBUG_PUB.debug('Application Usage code:'||G_APPLN_USAGE);
1177: RETURN;
1178: END IF;
1179:
1180: IF p_mr_header_rec.PROGRAM_TYPE_CODE IS NULL OR
1181: p_mr_header_rec.PROGRAM_TYPE_CODE=FND_API.G_MISS_CHAR
1182: THEN
1183: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
1184: FND_MSG_PUB.ADD;
1185: l_check_flag:='N';
1195:
1196:
1197: IF G_APPLN_USAGE='PM'
1198: THEN
1199: IF p_mr_header_rec.TYPE_CODE IS NULL OR p_mr_header_rec.TYPE_CODE=FND_API.G_MISS_CHAR
1200: THEN
1201: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TYPE_CODE_NULL');
1202: FND_MSG_PUB.ADD;
1203: l_check_flag:='N';
1204: END IF;
1205: END IF;
1206:
1207:
1208: IF p_mr_header_Rec.PROGRAM_SUBTYPE_CODE IS NULL OR p_mr_header_Rec.PROGRAM_SUBTYPE_CODE=FND_API.G_MISS_char
1209: THEN
1210: l_check_flag:='N';
1211: END IF;
1212:
1227: -- Service Type
1228: IF G_APPLN_USAGE<>'PM'
1229: THEN
1230:
1231: IF p_mr_header_rec.service_type_code IS NOT NULL OR p_mr_header_rec.service_type_code<>FND_API.G_MISS_CHAR
1232: THEN
1233:
1234: CHECK_LOOKUP_CODE
1235: (
1281: IF p_mr_header_rec.AUTO_SIGNOFF_FLAG='Y'
1282: THEN
1283:
1284: IF p_mr_header_rec.QA_INSPECTION_TYPE IS NOT NULL
1285: and p_mr_header_rec.QA_INSPECTION_TYPE <>FND_API.G_MISS_CHAR
1286: THEN
1287: IF G_DEBUG='Y' THEN
1288: AHL_DEBUG_PUB.debug('Error at AHL_FMP_AUTSIGNOFF_QA_INV');
1289: END IF;
1295:
1296: /*
1297: -- This validation removed based on er 2972124/3822674
1298: IF p_mr_header_rec.implement_status_code IS NOT NULL
1299: and p_mr_header_rec.implement_status_code <>FND_API.G_MISS_CHAR
1300: THEN
1301: IF p_mr_header_rec.implement_status_code = 'OPTIONAL_DO_NOT_IMPLEMENT'
1302: AND (p_mr_header_rec.qa_inspection_type IS NOT NULL
1303: AND p_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
1299: and p_mr_header_rec.implement_status_code <>FND_API.G_MISS_CHAR
1300: THEN
1301: IF p_mr_header_rec.implement_status_code = 'OPTIONAL_DO_NOT_IMPLEMENT'
1302: AND (p_mr_header_rec.qa_inspection_type IS NOT NULL
1303: AND p_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
1304: THEN
1305: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_QA');
1306: FND_MSG_PUB.ADD;
1307: END IF;
1321: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.repetitive_flag,false);
1322: FND_MSG_PUB.ADD;
1323: ELSE
1324: IF p_mr_header_rec.repetitive_flag ='N'
1325: and (p_mr_header_rec.SHOW_REPETITIVE_CODE IS NOT NULL OR p_mr_header_rec.SHOW_REPETITIVE_CODE<>FND_API.G_MISS_CHAR)
1326: THEN
1327: IF p_mr_header_rec.SHOW_REPETITIVE_CODE<>'NEXT'
1328: THEN
1329: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPITITVE_NO');
1344: p_mr_header_id=>p_mr_header_rec.mr_header_id,
1345: p_repetitive_flag=>p_mr_header_rec.repetitive_flag
1346: );
1347:
1348: IF l_return_Status<>FND_API.G_RET_STS_SUCCESS
1349: THEN
1350: FND_MESSAGE.SET_NAME('AHL',l_msg_data1);
1351: FND_MSG_PUB.ADD;
1352: END IF;
1370: END IF;
1371:
1372: --Space Category
1373:
1374: IF p_mr_header_rec.space_category_code is not null or p_mr_header_rec.space_category_code<>fnd_api.g_miss_char
1375: THEN
1376: CHECK_LOOKUP_CODE
1377: (
1378: x_return_status =>l_return_status,
1394:
1395: -- Effective From Validate Of Date
1396: IF l_mr_header_rec.MR_STATUS_CODE='DRAFT' -- AND nvl(l_mr_header_rec.SUPERUSER_ROLE,'N')='N'
1397: THEN
1398: IF p_mr_header_rec.effective_from is null or p_mr_header_rec.effective_from=fnd_api.g_miss_date
1399: THEN
1400: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_EFFECTIVE_FROM_NULL');
1401: FND_MSG_PUB.ADD;
1402: ELSIF TRUNC(p_mr_header_rec.effective_from)
1482: END IF;
1483:
1484: -- Validating null items
1485:
1486: IF p_mr_header_rec.SHOW_REPETITIVE_CODE IS NULL OR p_mr_header_rec.SHOW_REPETITIVE_CODE=FND_API.G_MISS_char
1487: THEN
1488: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPETITIVE_INVALID');
1489: FND_MSG_PUB.ADD;
1490: END IF;
1489: FND_MSG_PUB.ADD;
1490: END IF;
1491:
1492: IF p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL
1493: OR p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG=FND_API.G_MISS_CHAR
1494: THEN
1495: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ACCMPLSHMNT_NULL');
1496: FND_MSG_PUB.ADD;
1497: END IF;
1496: FND_MSG_PUB.ADD;
1497: END IF;
1498:
1499: IF p_mr_header_rec.CATEGORY_CODE IS NULL
1500: OR p_mr_header_rec.CATEGORY_CODE=FND_API.G_MISS_CHAR
1501: THEN
1502: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_CATEGORY_NULL');
1503: FND_MSG_PUB.ADD;
1504: END IF;
1505:
1506: IF G_APPLN_USAGE='PM'
1507: THEN
1508: IF p_mr_header_rec.TYPE_CODE IS NULL
1509: OR p_mr_header_rec.TYPE_CODE=FND_API.G_MISS_CHAR
1510: THEN
1511: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_TYPECODE_NULL');
1512: FND_MSG_PUB.ADD;
1513: ELSE
1555:
1556: END IF;
1557: else
1558: IF (p_mr_header_rec.DOWN_TIME IS NOT NULL AND
1559: p_mr_header_rec.DOWN_TIME<>FND_API.G_MISS_NUM)
1560: AND p_mr_header_rec.DOWN_TIME <=0
1561: THEN
1562: -- FOR CMRO MODE
1563: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_NO_Z');
1580:
1581: -- DML Operation Create
1582:
1583: IF p_mr_header_rec.dml_operation='C' THEN
1584: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1585: THEN
1586: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1587: FND_MSG_PUB.ADD;
1588: ELSIF p_mr_header_rec.title is not null or p_mr_header_rec.title<>fnd_api.g_miss_char
1584: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1585: THEN
1586: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1587: FND_MSG_PUB.ADD;
1588: ELSIF p_mr_header_rec.title is not null or p_mr_header_rec.title<>fnd_api.g_miss_char
1589: THEN
1590:
1591: -- Title Should not Repeat in Create mode
1592:
1599: END IF;
1600: END IF;
1601:
1602: ELSIF p_mr_header_rec.dml_operation<>'U' THEN
1603: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1604: THEN
1605: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1606: FND_MSG_PUB.ADD;
1607: END IF;
1610: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
1611: FND_MSG_PUB.ADD;
1612: END IF;
1613:
1614: IF p_mr_header_rec.mr_header_id is null or p_mr_header_rec.mr_header_id=fnd_api.g_miss_num
1615: THEN
1616: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
1617: FND_MSG_PUB.ADD;
1618: END IF;
1616: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
1617: FND_MSG_PUB.ADD;
1618: END IF;
1619:
1620: IF p_mr_header_rec.SERVICE_TYPE_CODE IS NULL OR p_mr_header_rec.SERVICE_TYPE_CODE=FND_API.G_MISS_char
1621: THEN
1622: IF G_APPLN_USAGE<>'PM'
1623: THEN
1624: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SERVICE_NULL');
1633: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_INVALID');
1634: FND_MSG_PUB.ADD;
1635: END IF;
1636:
1637: 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
1638: THEN
1639: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1640: FND_MSG_PUB.ADD;
1641: END IF;
1683: l_msg_count := FND_MSG_PUB.count_msg;
1684:
1685: IF l_msg_count > 0
1686: THEN
1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1688: END IF;
1689:
1690: END;
1691:
1691:
1692: PROCEDURE CHECK_CYCLIC_ASSOCIATION
1693: (
1694: p_api_version IN NUMBER:=1.0,
1695: p_init_msg_list IN VARCHAR2:= FND_API.G_TRUE ,
1696: p_validation_level IN NUMBER:= FND_API.G_VALID_LEVEL_FULL,
1697: x_return_status OUT NOCOPY VARCHAR2,
1698: x_msg_count OUT NOCOPY NUMBER,
1699: x_msg_data OUT NOCOPY VARCHAR2,
1692: PROCEDURE CHECK_CYCLIC_ASSOCIATION
1693: (
1694: p_api_version IN NUMBER:=1.0,
1695: p_init_msg_list IN VARCHAR2:= FND_API.G_TRUE ,
1696: p_validation_level IN NUMBER:= FND_API.G_VALID_LEVEL_FULL,
1697: x_return_status OUT NOCOPY VARCHAR2,
1698: x_msg_count OUT NOCOPY NUMBER,
1699: x_msg_data OUT NOCOPY VARCHAR2,
1700: P_MR_HEADER_ID IN NUMBER,
1705: l_cyclic_loop EXCEPTION;
1706: pragma EXCEPTION_INIT(l_cyclic_loop,-1436);
1707: l_counter NUMBER;
1708: BEGIN
1709: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1710:
1711: SELECT COUNT(*) INTO l_counter
1712: FROM AHL_MR_HEADERS_B
1713: WHERE APPLICATION_USG_CODE=G_APPLN_USAGE
1718: WHEN l_cyclic_loop THEN
1719: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_H_ID_CYCLIC');
1720: FND_MESSAGE.SET_TOKEN('FIELD',P_RELATED_MR_TITLE,false);
1721: FND_MSG_PUB.ADD;
1722: x_return_status := FND_API.G_RET_STS_ERROR;
1723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1724: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1726: p_count => x_msg_count,
1719: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_H_ID_CYCLIC');
1720: FND_MESSAGE.SET_TOKEN('FIELD',P_RELATED_MR_TITLE,false);
1721: FND_MSG_PUB.ADD;
1722: x_return_status := FND_API.G_RET_STS_ERROR;
1723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1724: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1726: p_count => x_msg_count,
1727: p_data => x_msg_data);
1720: FND_MESSAGE.SET_TOKEN('FIELD',P_RELATED_MR_TITLE,false);
1721: FND_MSG_PUB.ADD;
1722: x_return_status := FND_API.G_RET_STS_ERROR;
1723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1724: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1726: p_count => x_msg_count,
1727: p_data => x_msg_data);
1728:
1721: FND_MSG_PUB.ADD;
1722: x_return_status := FND_API.G_RET_STS_ERROR;
1723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1724: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1726: p_count => x_msg_count,
1727: p_data => x_msg_data);
1728:
1729: WHEN FND_API.G_EXC_ERROR THEN
1725: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1726: p_count => x_msg_count,
1727: p_data => x_msg_data);
1728:
1729: WHEN FND_API.G_EXC_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_ERROR;
1731: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1732: p_count => x_msg_count,
1733: p_data => X_msg_data);
1726: p_count => x_msg_count,
1727: p_data => x_msg_data);
1728:
1729: WHEN FND_API.G_EXC_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_ERROR;
1731: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1732: p_count => x_msg_count,
1733: p_data => X_msg_data);
1734: WHEN OTHERS THEN
1727: p_data => x_msg_data);
1728:
1729: WHEN FND_API.G_EXC_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_ERROR;
1731: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1732: p_count => x_msg_count,
1733: p_data => X_msg_data);
1734: WHEN OTHERS THEN
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1731: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1732: p_count => x_msg_count,
1733: p_data => X_msg_data);
1734: WHEN OTHERS THEN
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1736: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1737: THEN
1738: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
1739: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
1738: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
1739: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
1740: p_error_text => SUBSTR(SQLERRM,1,240));
1741: END IF;
1742: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1743: p_count => x_msg_count,
1744: p_data => X_msg_data);
1745: END;
1746:
1747:
1748: PROCEDURE CREATE_MR_HEADER
1749: (
1750: p_api_version IN NUMBER:=1.0,
1751: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1752: p_commit IN VARCHAR2:= FND_API.G_FALSE,
1753: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
1754: p_default IN VARCHAR2:= FND_API.G_FALSE ,
1755: p_module_type IN VARCHAR2:=NULL,
1748: PROCEDURE CREATE_MR_HEADER
1749: (
1750: p_api_version IN NUMBER:=1.0,
1751: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1752: p_commit IN VARCHAR2:= FND_API.G_FALSE,
1753: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
1754: p_default IN VARCHAR2:= FND_API.G_FALSE ,
1755: p_module_type IN VARCHAR2:=NULL,
1756: x_return_status OUT NOCOPY VARCHAR2,
1749: (
1750: p_api_version IN NUMBER:=1.0,
1751: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1752: p_commit IN VARCHAR2:= FND_API.G_FALSE,
1753: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
1754: p_default IN VARCHAR2:= FND_API.G_FALSE ,
1755: p_module_type IN VARCHAR2:=NULL,
1756: x_return_status OUT NOCOPY VARCHAR2,
1757: x_msg_count OUT NOCOPY NUMBER,
1750: p_api_version IN NUMBER:=1.0,
1751: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1752: p_commit IN VARCHAR2:= FND_API.G_FALSE,
1753: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
1754: p_default IN VARCHAR2:= FND_API.G_FALSE ,
1755: p_module_type IN VARCHAR2:=NULL,
1756: x_return_status OUT NOCOPY VARCHAR2,
1757: x_msg_count OUT NOCOPY NUMBER,
1758: x_msg_data OUT NOCOPY VARCHAR2,
1764: l_num_rec NUMBER;
1765: l_msg_count NUMBER;
1766: l_msg_data VARCHAR2(2000);
1767: l_return_status VARCHAR2(1);
1768: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
1769: l_commit VARCHAR2(1):= FND_API.G_FALSE;
1770: l_mr_header_id number:=0;
1771: l_rowid varchar2(30);
1772: BEGIN
1765: l_msg_count NUMBER;
1766: l_msg_data VARCHAR2(2000);
1767: l_return_status VARCHAR2(1);
1768: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
1769: l_commit VARCHAR2(1):= FND_API.G_FALSE;
1770: l_mr_header_id number:=0;
1771: l_rowid varchar2(30);
1772: BEGIN
1773: SAVEPOINT CREATE_MR_HEADER_PVT;
1773: SAVEPOINT CREATE_MR_HEADER_PVT;
1774:
1775: -- Initialize message list if p_init_msg_list is set to TRUE.
1776:
1777: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1778: p_api_version,
1779: l_api_name,G_PKG_NAME)
1780: THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1777: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1778: p_api_version,
1779: l_api_name,G_PKG_NAME)
1780: THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1783:
1784:
1785: IF FND_API.to_boolean(l_init_msg_list) THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1783:
1784:
1785: IF FND_API.to_boolean(l_init_msg_list) THEN
1786: FND_MSG_PUB.initialize;
1787: END IF;
1788:
1789:
1786: FND_MSG_PUB.initialize;
1787: END IF;
1788:
1789:
1790: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1791:
1792:
1793: IF G_DEBUG='Y' THEN
1794: AHL_DEBUG_PUB.enable_debug;
1810: IF G_DEBUG='Y' THEN
1811: AHL_DEBUG_PUB.debug( 'AHL_FMP_MR_HEADERS_PVT.','+CREATE_MR_HEADER+');
1812: END IF;
1813:
1814: IF FND_API.to_boolean(p_default)
1815: THEN
1816: DEFAULT_MISSING_ATTRIBS
1817: (
1818: p_x_mr_header_rec =>p_x_mr_header_rec
1819: );
1820: END IF;
1821:
1822:
1823: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
1824: THEN
1825: TRANSLATE_VALUE_ID
1826: (
1827: x_return_status =>x_return_Status,
1831: l_msg_count := FND_MSG_PUB.count_msg;
1832: IF l_msg_count > 0
1833: THEN
1834: x_msg_count := l_msg_count;
1835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1836: RAISE FND_API.G_EXC_ERROR;
1837: END IF;
1838:
1839: IF p_x_mr_header_rec.DML_OPERATION='C'
1832: IF l_msg_count > 0
1833: THEN
1834: x_msg_count := l_msg_count;
1835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1836: RAISE FND_API.G_EXC_ERROR;
1837: END IF;
1838:
1839: IF p_x_mr_header_rec.DML_OPERATION='C'
1840: THEN
1842: p_x_mr_header_rec.VERSION_NUMBER:=1;
1843: p_x_mr_header_rec.copy_accomplishment_flag:='N';
1844: END IF;
1845:
1846: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
1847: THEN
1848: VALIDATE_MR_HEADER
1849: (
1850: x_return_status =>x_return_Status,
1855:
1856: IF l_msg_count > 0
1857: THEN
1858: x_msg_count := l_msg_count;
1859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1860: RAISE FND_API.G_EXC_ERROR;
1861: END IF;
1862:
1863:
1856: IF l_msg_count > 0
1857: THEN
1858: x_msg_count := l_msg_count;
1859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1860: RAISE FND_API.G_EXC_ERROR;
1861: END IF;
1862:
1863:
1864: -- insert process goes here
1862:
1863:
1864: -- insert process goes here
1865: /*
1866: IF p_x_mr_header_rec.EFFECTIVE_FROM is null or p_x_mr_header_rec.EFFECTIVE_FROM=FND_API.G_MISS_DATE
1867: THEN
1868: p_x_mr_header_rec.EFFECTIVE_FROM:=sysdate;
1869: END IF;
1870: */
1871: select AHL_MR_HEADERS_B_S.NEXTVAL INTO p_x_mr_header_rec.mr_header_id from dual;
1872:
1873:
1874: /*
1875: 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
1876: THEN
1877: p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG:='N';
1878: END IF;
1879: */
1929: X_LAST_UPDATE_DATE =>sysdate,
1930: X_LAST_UPDATED_BY =>fnd_global.user_id,
1931: X_LAST_UPDATE_LOGIN =>fnd_global.user_id);
1932:
1933: IF FND_API.TO_BOOLEAN(p_commit) THEN
1934: COMMIT;
1935: END IF;
1936:
1937: IF G_DEBUG='Y' THEN
1938: AHL_DEBUG_PUB.disable_debug;
1939: END IF;
1940:
1941: EXCEPTION
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: ROLLBACK TO CREATE_MR_HEADER_PVT;
1944: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1946: p_count => x_msg_count,
1940:
1941: EXCEPTION
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: ROLLBACK TO CREATE_MR_HEADER_PVT;
1944: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1946: p_count => x_msg_count,
1947: p_data => x_msg_data);
1948: IF G_DEBUG='Y' THEN
1941: EXCEPTION
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: ROLLBACK TO CREATE_MR_HEADER_PVT;
1944: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1946: p_count => x_msg_count,
1947: p_data => x_msg_data);
1948: IF G_DEBUG='Y' THEN
1949: AHL_DEBUG_PUB.disable_debug;
1947: p_data => x_msg_data);
1948: IF G_DEBUG='Y' THEN
1949: AHL_DEBUG_PUB.disable_debug;
1950: END IF;
1951: WHEN FND_API.G_EXC_ERROR THEN
1952: ROLLBACK TO CREATE_MR_HEADER_PVT;
1953: X_return_status := FND_API.G_RET_STS_ERROR;
1954: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1955: p_count => x_msg_count,
1949: AHL_DEBUG_PUB.disable_debug;
1950: END IF;
1951: WHEN FND_API.G_EXC_ERROR THEN
1952: ROLLBACK TO CREATE_MR_HEADER_PVT;
1953: X_return_status := FND_API.G_RET_STS_ERROR;
1954: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1955: p_count => x_msg_count,
1956: p_data => X_msg_data);
1957: IF G_DEBUG='Y' THEN
1950: END IF;
1951: WHEN FND_API.G_EXC_ERROR THEN
1952: ROLLBACK TO CREATE_MR_HEADER_PVT;
1953: X_return_status := FND_API.G_RET_STS_ERROR;
1954: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1955: p_count => x_msg_count,
1956: p_data => X_msg_data);
1957: IF G_DEBUG='Y' THEN
1958: AHL_DEBUG_PUB.disable_debug;
1959: END IF;
1960:
1961: WHEN OTHERS THEN
1962: ROLLBACK TO CREATE_MR_HEADER_PVT;
1963: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1965: THEN
1966: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_FMP_MR_HEADER_PVT',
1967: p_procedure_name => 'CREATE_MR_HEADER',
1967: p_procedure_name => 'CREATE_MR_HEADER',
1968: p_error_text => SUBSTR(SQLERRM,1,240));
1969:
1970: END IF;
1971: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1972: p_count => x_msg_count,
1973: p_data => X_msg_data);
1974: IF G_DEBUG='Y' THEN
1975: AHL_DEBUG_PUB.disable_debug;
1979:
1980: PROCEDURE UPDATE_MR_HEADER
1981: (
1982: p_api_version IN NUMBER:=1.0,
1983: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1984: p_commit IN VARCHAR2:= FND_API.G_FALSE,
1985: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
1986: p_default IN VARCHAR2:= FND_API.G_FALSE ,
1987: p_module_type IN VARCHAR2:=NULL,
1980: PROCEDURE UPDATE_MR_HEADER
1981: (
1982: p_api_version IN NUMBER:=1.0,
1983: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1984: p_commit IN VARCHAR2:= FND_API.G_FALSE,
1985: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
1986: p_default IN VARCHAR2:= FND_API.G_FALSE ,
1987: p_module_type IN VARCHAR2:=NULL,
1988: x_return_status OUT NOCOPY VARCHAR2,
1981: (
1982: p_api_version IN NUMBER:=1.0,
1983: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1984: p_commit IN VARCHAR2:= FND_API.G_FALSE,
1985: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
1986: p_default IN VARCHAR2:= FND_API.G_FALSE ,
1987: p_module_type IN VARCHAR2:=NULL,
1988: x_return_status OUT NOCOPY VARCHAR2,
1989: x_msg_count OUT NOCOPY NUMBER,
1982: p_api_version IN NUMBER:=1.0,
1983: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1984: p_commit IN VARCHAR2:= FND_API.G_FALSE,
1985: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
1986: p_default IN VARCHAR2:= FND_API.G_FALSE ,
1987: p_module_type IN VARCHAR2:=NULL,
1988: x_return_status OUT NOCOPY VARCHAR2,
1989: x_msg_count OUT NOCOPY NUMBER,
1990: x_msg_data OUT NOCOPY VARCHAR2,
1995: l_num_rec NUMBER;
1996: l_msg_count NUMBER;
1997: l_msg_data VARCHAR2(2000);
1998: l_return_status VARCHAR2(1);
1999: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
2000: BEGIN
2001: SAVEPOINT UPDATE_MR_HEADER_PVT;
2002:
2003: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1999: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
2000: BEGIN
2001: SAVEPOINT UPDATE_MR_HEADER_PVT;
2002:
2003: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2004: p_api_version,
2005: l_api_name,G_PKG_NAME) THEN
2006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2007: END IF;
2002:
2003: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2004: p_api_version,
2005: l_api_name,G_PKG_NAME) THEN
2006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2007: END IF;
2008:
2009: IF FND_API.to_boolean(p_init_msg_list)
2010: THEN
2005: l_api_name,G_PKG_NAME) THEN
2006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2007: END IF;
2008:
2009: IF FND_API.to_boolean(p_init_msg_list)
2010: THEN
2011: FND_MSG_PUB.initialize;
2012: END IF;
2013:
2011: FND_MSG_PUB.initialize;
2012: END IF;
2013:
2014:
2015: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2016:
2017: IF G_DEBUG='Y' THEN
2018: AHL_DEBUG_PUB.enable_debug;
2019: AHL_DEBUG_PUB.debug('Service Category CODE:'||p_x_mr_header_Rec.SPACE_CATEGORY_CODE);
2028: x_mr_header_id => p_x_mr_header_rec.mr_header_id,
2029: x_return_status => x_return_status
2030: );
2031:
2032: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2033: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2034: fnd_log.string
2035: (
2036: fnd_log.level_error,
2037: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2038: 'Title,version to id conversion failed.....'
2039: );
2040: END IF;
2041: RAISE FND_API.G_EXC_ERROR;
2042: END IF;
2043: END IF;
2044:
2045: IF FND_API.to_boolean( p_default )
2041: RAISE FND_API.G_EXC_ERROR;
2042: END IF;
2043: END IF;
2044:
2045: IF FND_API.to_boolean( p_default )
2046: THEN
2047: DEFAULT_MISSING_ATTRIBS
2048: (
2049: p_x_mr_header_rec =>p_x_mr_header_rec
2072: END IF;
2073:
2074: -- Convert Value to id.
2075:
2076: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
2077: THEN
2078:
2079: TRANSLATE_VALUE_ID
2080: (
2086:
2087: IF l_msg_count > 0
2088: THEN
2089: x_msg_count := l_msg_count;
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2091: RAISE FND_API.G_EXC_ERROR;
2092: END IF;
2093:
2094:
2087: IF l_msg_count > 0
2088: THEN
2089: x_msg_count := l_msg_count;
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2091: RAISE FND_API.G_EXC_ERROR;
2092: END IF;
2093:
2094:
2095:
2092: END IF;
2093:
2094:
2095:
2096: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
2097: THEN
2098:
2099: VALIDATE_MR_HEADER
2100: (
2108:
2109: IF l_msg_count > 0
2110: THEN
2111: x_msg_count := l_msg_count;
2112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2113: RAISE FND_API.G_EXC_ERROR;
2114: END IF;
2115:
2116:
2109: IF l_msg_count > 0
2110: THEN
2111: x_msg_count := l_msg_count;
2112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2113: RAISE FND_API.G_EXC_ERROR;
2114: END IF;
2115:
2116:
2117: AHL_MR_HEADERS_PKG.UPDATE_ROW (
2167:
2168: l_msg_count := FND_MSG_PUB.count_msg;
2169: IF l_msg_count > 0 THEN
2170: X_msg_count := l_msg_count;
2171: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2172: RAISE FND_API.G_EXC_ERROR;
2173: END IF;
2174:
2175: -- Check For Cycli Association
2168: l_msg_count := FND_MSG_PUB.count_msg;
2169: IF l_msg_count > 0 THEN
2170: X_msg_count := l_msg_count;
2171: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2172: RAISE FND_API.G_EXC_ERROR;
2173: END IF;
2174:
2175: -- Check For Cycli Association
2176:
2173: END IF;
2174:
2175: -- Check For Cycli Association
2176:
2177: 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'
2178: THEN
2179: CHECK_CYCLIC_ASSOCIATION
2180: (
2181: p_api_version,
2192:
2193: l_msg_count := FND_MSG_PUB.count_msg;
2194: IF l_msg_count > 0 THEN
2195: X_msg_count := l_msg_count;
2196: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2197: RAISE FND_API.G_EXC_ERROR;
2198: END IF;
2199:
2200:
2193: l_msg_count := FND_MSG_PUB.count_msg;
2194: IF l_msg_count > 0 THEN
2195: X_msg_count := l_msg_count;
2196: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2197: RAISE FND_API.G_EXC_ERROR;
2198: END IF;
2199:
2200:
2201: IF FND_API.TO_BOOLEAN(p_commit) THEN
2197: RAISE FND_API.G_EXC_ERROR;
2198: END IF;
2199:
2200:
2201: IF FND_API.TO_BOOLEAN(p_commit) THEN
2202: COMMIT;
2203: END IF;
2204: -- Debug info
2205:
2212: END IF;
2213:
2214: EXCEPTION
2215:
2216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2217: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2218: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2219: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2220: p_count => x_msg_count,
2214: EXCEPTION
2215:
2216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2217: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2218: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2219: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2220: p_count => x_msg_count,
2221: p_data => x_msg_data);
2222: IF G_DEBUG='Y' THEN
2215:
2216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2217: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2218: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2219: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2220: p_count => x_msg_count,
2221: p_data => x_msg_data);
2222: IF G_DEBUG='Y' THEN
2223: AHL_DEBUG_PUB.disable_debug;
2222: IF G_DEBUG='Y' THEN
2223: AHL_DEBUG_PUB.disable_debug;
2224: END IF;
2225:
2226: WHEN FND_API.G_EXC_ERROR THEN
2227: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2228: X_return_status := FND_API.G_RET_STS_ERROR;
2229: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2230: p_count => x_msg_count,
2224: END IF;
2225:
2226: WHEN FND_API.G_EXC_ERROR THEN
2227: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2228: X_return_status := FND_API.G_RET_STS_ERROR;
2229: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2230: p_count => x_msg_count,
2231: p_data => X_msg_data);
2232: IF G_DEBUG='Y' THEN
2225:
2226: WHEN FND_API.G_EXC_ERROR THEN
2227: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2228: X_return_status := FND_API.G_RET_STS_ERROR;
2229: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2230: p_count => x_msg_count,
2231: p_data => X_msg_data);
2232: IF G_DEBUG='Y' THEN
2233: AHL_DEBUG_PUB.disable_debug;
2233: AHL_DEBUG_PUB.disable_debug;
2234: END IF;
2235: WHEN OTHERS THEN
2236: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2237: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2239: THEN
2240: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2241: p_procedure_name =>l_api_name,
2240: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2241: p_procedure_name =>l_api_name,
2242: p_error_text => SUBSTR(SQLERRM,1,240));
2243: END IF;
2244: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2245: p_count => x_msg_count,
2246: p_data => X_msg_data);
2247: IF G_DEBUG='Y' THEN
2248: AHL_DEBUG_PUB.disable_debug;
2284: FND_MSG_PUB.ADD;
2285: RETURN;
2286: END IF;
2287:
2288: IF P_MR_HEADER_ID IS NULL OR P_MR_HEADER_ID=FND_API.G_MISS_NUM
2289: THEN
2290: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
2291: FND_MSG_PUB.ADD;
2292: L_ERR_FLAG:=1;
2291: FND_MSG_PUB.ADD;
2292: L_ERR_FLAG:=1;
2293: END IF;
2294:
2295: IF P_OBJECT_VERSION_NUMBER IS NULL OR P_OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
2296: THEN
2297: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
2298: FND_MSG_PUB.ADD;
2299: L_ERR_FLAG:=1;
2320:
2321: PROCEDURE DELETE_MR_HEADER
2322: (
2323: p_api_version IN NUMBER:=1.0,
2324: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2325: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2326: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2327: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2328: p_module_type IN VARCHAR2:=NULL,
2321: PROCEDURE DELETE_MR_HEADER
2322: (
2323: p_api_version IN NUMBER:=1.0,
2324: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2325: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2326: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2327: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2328: p_module_type IN VARCHAR2:=NULL,
2329: x_return_status OUT NOCOPY VARCHAR2,
2322: (
2323: p_api_version IN NUMBER:=1.0,
2324: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2325: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2326: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2327: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2328: p_module_type IN VARCHAR2:=NULL,
2329: x_return_status OUT NOCOPY VARCHAR2,
2330: x_msg_count OUT NOCOPY NUMBER,
2323: p_api_version IN NUMBER:=1.0,
2324: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2325: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2326: p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
2327: p_default IN VARCHAR2:= FND_API.G_FALSE ,
2328: p_module_type IN VARCHAR2:=NULL,
2329: x_return_status OUT NOCOPY VARCHAR2,
2330: x_msg_count OUT NOCOPY NUMBER,
2331: x_msg_data OUT NOCOPY VARCHAR2,
2337: l_num_rec NUMBER;
2338: l_msg_count NUMBER;
2339: l_msg_data VARCHAR2(2000);
2340: l_return_status VARCHAR2(1);
2341: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
2342: Cursor CurGetRoutes(c_mr_header_id number)
2343: Is
2344: Select * from ahl_mr_Routes
2345: Where mr_header_id=c_mr_header_id;
2370:
2371: BEGIN
2372: SAVEPOINT DELETE_MR_HEADER_PVT;
2373:
2374: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2375: p_api_version,
2376: l_api_name,G_PKG_NAME) THEN
2377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2378: END IF;
2373:
2374: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2375: p_api_version,
2376: l_api_name,G_PKG_NAME) THEN
2377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2378: END IF;
2379:
2380: IF FND_API.to_boolean(P_init_msg_list)
2381: THEN
2376: l_api_name,G_PKG_NAME) THEN
2377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2378: END IF;
2379:
2380: IF FND_API.to_boolean(P_init_msg_list)
2381: THEN
2382: FND_MSG_PUB.initialize;
2383: END IF;
2384:
2382: FND_MSG_PUB.initialize;
2383: END IF;
2384:
2385:
2386: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2387:
2388: IF G_DEBUG='Y' THEN
2389: AHL_DEBUG_PUB.enable_debug;
2390: END IF;
2393: IF G_DEBUG='Y' THEN
2394: AHL_DEBUG_PUB.debug( 'AHL_FMP_MR_HEADERS_PVT.','+DELETE_MR_HEADER+');
2395: END IF;
2396:
2397: -- IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
2398: -- THEN
2399: VALIDATE_DEL_MR_HEADER
2400: (
2401: p_mr_header_id =>p_mr_header_id,
2406: l_msg_count := FND_MSG_PUB.count_msg;
2407: IF l_msg_count > 0
2408: THEN
2409: x_msg_count := l_msg_count;
2410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2411: RAISE FND_API.G_EXC_ERROR;
2412: END IF;
2413:
2414: -- END IF;
2407: IF l_msg_count > 0
2408: THEN
2409: x_msg_count := l_msg_count;
2410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2411: RAISE FND_API.G_EXC_ERROR;
2412: END IF;
2413:
2414: -- END IF;
2415:
2473: l_msg_count := FND_MSG_PUB.count_msg;
2474: IF l_msg_count > 0
2475: THEN
2476: x_msg_count := l_msg_count;
2477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2478: RAISE FND_API.G_EXC_ERROR;
2479: END IF;
2480:
2481: AHL_MR_HEADERS_PKG.DELETE_ROW
2474: IF l_msg_count > 0
2475: THEN
2476: x_msg_count := l_msg_count;
2477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2478: RAISE FND_API.G_EXC_ERROR;
2479: END IF;
2480:
2481: AHL_MR_HEADERS_PKG.DELETE_ROW
2482: (
2485:
2486: l_msg_count := FND_MSG_PUB.count_msg;
2487: IF l_msg_count > 0 THEN
2488: X_msg_count := l_msg_count;
2489: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2490: RAISE FND_API.G_EXC_ERROR;
2491: END IF;
2492:
2493: IF G_DEBUG='Y' THEN
2486: l_msg_count := FND_MSG_PUB.count_msg;
2487: IF l_msg_count > 0 THEN
2488: X_msg_count := l_msg_count;
2489: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2490: RAISE FND_API.G_EXC_ERROR;
2491: END IF;
2492:
2493: IF G_DEBUG='Y' THEN
2494: AHL_DEBUG_PUB.disable_debug;
2493: IF G_DEBUG='Y' THEN
2494: AHL_DEBUG_PUB.disable_debug;
2495: END IF;
2496:
2497: IF FND_API.TO_BOOLEAN(p_commit) THEN
2498: COMMIT;
2499: END IF;
2500: EXCEPTION
2501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2497: IF FND_API.TO_BOOLEAN(p_commit) THEN
2498: COMMIT;
2499: END IF;
2500: EXCEPTION
2501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2502: ROLLBACK TO DELETE_MR_HEADER_PVT;
2503: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2504: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2505: p_count => x_msg_count,
2499: END IF;
2500: EXCEPTION
2501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2502: ROLLBACK TO DELETE_MR_HEADER_PVT;
2503: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2504: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2505: p_count => x_msg_count,
2506: p_data => x_msg_data);
2507: IF G_DEBUG='Y' THEN
2500: EXCEPTION
2501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2502: ROLLBACK TO DELETE_MR_HEADER_PVT;
2503: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2504: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2505: p_count => x_msg_count,
2506: p_data => x_msg_data);
2507: IF G_DEBUG='Y' THEN
2508: AHL_DEBUG_PUB.disable_debug;
2507: IF G_DEBUG='Y' THEN
2508: AHL_DEBUG_PUB.disable_debug;
2509: END IF;
2510:
2511: WHEN FND_API.G_EXC_ERROR THEN
2512: ROLLBACK TO DELETE_MR_HEADER_PVT;
2513: X_return_status := FND_API.G_RET_STS_ERROR;
2514: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2515: p_count => x_msg_count,
2509: END IF;
2510:
2511: WHEN FND_API.G_EXC_ERROR THEN
2512: ROLLBACK TO DELETE_MR_HEADER_PVT;
2513: X_return_status := FND_API.G_RET_STS_ERROR;
2514: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2515: p_count => x_msg_count,
2516: p_data => X_msg_data);
2517: IF G_DEBUG='Y' THEN
2510:
2511: WHEN FND_API.G_EXC_ERROR THEN
2512: ROLLBACK TO DELETE_MR_HEADER_PVT;
2513: X_return_status := FND_API.G_RET_STS_ERROR;
2514: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2515: p_count => x_msg_count,
2516: p_data => X_msg_data);
2517: IF G_DEBUG='Y' THEN
2518: AHL_DEBUG_PUB.disable_debug;
2519: END IF;
2520:
2521: WHEN OTHERS THEN
2522: ROLLBACK TO DELETE_MR_HEADER_PVT;
2523: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2524: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2525: THEN
2526: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2527: p_procedure_name =>l_api_name,
2526: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2527: p_procedure_name =>l_api_name,
2528: p_error_text => SUBSTR(SQLERRM,1,240));
2529: END IF;
2530: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2531: p_count => x_msg_count,
2532: p_data => X_msg_data);
2533: IF G_DEBUG='Y' THEN
2534: AHL_DEBUG_PUB.disable_debug;