[Home] [Help]
51: Open cur_old_ref_values;
52: Fetch cur_old_ref_values INTO old_references;
53: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN( 'INSERT','VALIDATE_INSERT' )) THEN
54: Close cur_old_ref_values;
55: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
56: IGS_GE_MSG_STACK.ADD;
57: App_Exception.Raise_Exception;
58: Return;
59: END IF;
139:
140: IF upper(column_name) = 'S_CONTROL_NUM' OR
141: Column_name is null THEN
142: IF new_references.s_control_num NOT IN ( 1 ) THEN
143: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
144: IGS_GE_MSG_STACK.ADD;
145: App_Exception.Raise_Exception;
146: END IF;
147: END IF;
149: IF upper(column_name) = 'COMMENCEMENT_DT_ALIAS' OR
150: Column_name is null THEN
151: IF new_references.commencement_dt_alias <>
152: upper(new_references.commencement_dt_alias) THEN
153: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
154: IGS_GE_MSG_STACK.ADD;
155: App_Exception.Raise_Exception;
156: END IF;
157: END IF;
159: IF upper(column_name) = 'COMMENCE_CUTOFF_DT_ALIAS' OR
160: Column_name is null THEN
161: IF new_references.commence_cutoff_dt_alias <>
162: upper(new_references.commence_cutoff_dt_alias) THEN
163: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
164: IGS_GE_MSG_STACK.ADD;
165: App_Exception.Raise_Exception;
166: END IF;
167: END IF;
169: IF upper(column_name) = 'EFFECT_ENR_STRT_DT_ALIAS' OR
170: Column_name is null THEN
171: IF new_references.effect_enr_strt_dt_alias <>
172: upper(new_references.effect_enr_strt_dt_alias) THEN
173: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
174: IGS_GE_MSG_STACK.ADD;
175: App_Exception.Raise_Exception;
176: END IF;
177: END IF;
179: IF upper(column_name) = 'ENROLLED_RULE_CUTOFF_DT_ALIAS' OR
180: Column_name is null THEN
181: IF new_references.enrolled_rule_cutoff_dt_alias <>
182: upper(new_references.enrolled_rule_cutoff_dt_alias) THEN
183: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
184: IGS_GE_MSG_STACK.ADD;
185: App_Exception.Raise_Exception;
186: END IF;
187: END IF;
188: IF upper(column_name) = 'ENR_CLEANUP_DT_ALIAS' OR
189: Column_name is null THEN
190: IF new_references.enr_cleanup_dt_alias <>
191: upper(new_references.enr_cleanup_dt_alias) THEN
192: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
193: IGS_GE_MSG_STACK.ADD;
194: App_Exception.Raise_Exception;
195: END IF;
196: END IF;
198: IF upper(column_name) = 'ENR_FORM_DUE_DT_ALIAS' OR
199: Column_name is null THEN
200: IF new_references.enr_form_due_dt_alias <>
201: upper(new_references.enr_form_due_dt_alias) THEN
202: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
203: IGS_GE_MSG_STACK.ADD;
204: App_Exception.Raise_Exception;
205: END IF;
206: END IF;
208: IF upper(column_name) = 'ENR_PCKG_PROD_DT_ALIAS' OR
209: Column_name is null THEN
210: IF new_references.enr_pckg_prod_dt_alias <>
211: upper(new_references.enr_pckg_prod_dt_alias) THEN
212: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
213: IGS_GE_MSG_STACK.ADD;
214: App_Exception.Raise_Exception;
215: END IF;
216: END IF;
218: IF upper(column_name) = 'INVALID_RULE_CUTOFF_DT_ALIAS' OR
219: Column_name is null THEN
220: IF new_references.invalid_rule_cutoff_dt_alias <>
221: upper(new_references.invalid_rule_cutoff_dt_alias) THEN
222: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
223: IGS_GE_MSG_STACK.ADD;
224: App_Exception.Raise_Exception;
225: END IF;
226: END IF;
228: IF upper(column_name) = 'LAPSE_DT_ALIAS' OR
229: Column_name is null THEN
230: IF new_references.lapse_dt_alias <>
231: upper(new_references.lapse_dt_alias) THEN
232: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
233: IGS_GE_MSG_STACK.ADD;
234: App_Exception.Raise_Exception;
235: END IF;
236: END IF;
238: IF upper(column_name) = 'LOAD_EFFECT_DT_ALIAS' OR
239: Column_name is null THEN
240: IF new_references.load_effect_dt_alias <>
241: upper(new_references.load_effect_dt_alias) THEN
242: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: END IF;
246: END IF;
248: IF upper(column_name) = 'RECORD_CUTOFF_DT_ALIAS' OR
249: Column_name is null THEN
250: IF new_references.record_cutoff_dt_alias <>
251: upper(new_references.record_cutoff_dt_alias) THEN
252: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
253: IGS_GE_MSG_STACK.ADD;
254: App_Exception.Raise_Exception;
255: END IF;
256: END IF;
258: IF upper(column_name) = 'RECORD_OPEN_DT_ALIAS' OR
259: Column_name is null THEN
260: IF new_references.record_open_dt_alias <>
261: upper(new_references.record_open_dt_alias) THEN
262: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
263: IGS_GE_MSG_STACK.ADD;
264: App_Exception.Raise_Exception;
265: END IF;
266: END IF;
268: IF upper(column_name) = 'SUB_UNIT_DT_ALIAS' OR
269: Column_name is null THEN
270: IF new_references.sub_unit_dt_alias <>
271: upper(new_references.sub_unit_dt_alias) THEN
272: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
273: IGS_GE_MSG_STACK.ADD;
274: App_Exception.Raise_Exception;
275: END IF;
276: END IF;
278: IF upper(column_name) = 'VARIATION_CUTOFF_DT_ALIAS' OR
279: Column_name is null THEN
280: IF new_references.variation_cutoff_dt_alias <>
281: upper(new_references.variation_cutoff_dt_alias) THEN
282: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
283: IGS_GE_MSG_STACK.ADD;
284: App_Exception.Raise_Exception;
285: END IF;
286: END IF;
288: IF upper(column_name) = 'BEGIN_TRANS_DT_ALIAS' OR
289: Column_name is null THEN
290: IF new_references.begin_trans_dt_alias <>
291: upper(new_references.begin_trans_dt_alias) THEN
292: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
293: IGS_GE_MSG_STACK.ADD;
294: App_Exception.Raise_Exception;
295: END IF;
296: END IF;
298: IF upper(column_name) = 'CLEAN_TRANS_DT_ALIAS' OR
299: Column_name is null THEN
300: IF new_references.clean_trans_dt_alias <>
301: upper(new_references.clean_trans_dt_alias) THEN
302: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
303: IGS_GE_MSG_STACK.ADD;
304: App_Exception.Raise_Exception;
305: END IF;
306: END IF;
308: IF upper(column_name) = 'PLANNING_OPEN_DT_ALIAS' OR
309: Column_name is null THEN
310: IF new_references.planning_open_dt_alias <>
311: upper(new_references.planning_open_dt_alias) THEN
312: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
313: IGS_GE_MSG_STACK.ADD;
314: App_Exception.Raise_Exception;
315: END IF;
316: END IF;
318: IF upper(column_name) = 'SCHEDULE_OPEN_DT_ALIAS' OR
319: Column_name is null THEN
320: IF new_references.schedule_open_dt_alias <>
321: upper(new_references.schedule_open_dt_alias) THEN
322: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
323: IGS_GE_MSG_STACK.ADD;
324: App_Exception.Raise_Exception;
325: END IF;
326: END IF;
328: IF upper(column_name) = 'AUDIT_STATUS_DT_ALIAS' OR
329: Column_name is null THEN
330: IF new_references.audit_status_dt_alias <>
331: upper(new_references.audit_status_dt_alias) THEN
332: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
333: IGS_GE_MSG_STACK.ADD;
334: App_Exception.Raise_Exception;
335: END IF;
336: END IF;
347: ELSE
348: if not IGS_CA_DA_PKG.Get_PK_For_Validation (
349: new_references.enr_pckg_prod_dt_alias
350: ) then
351: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
352: IGS_GE_MSG_STACK.ADD;
353: App_Exception.Raise_Exception;
354: end if;
355: END IF;
360: ELSE
361: if not IGS_CA_DA_PKG.Get_PK_For_Validation (
362: new_references.record_cutoff_dt_alias
363: ) then
364: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
365: IGS_GE_MSG_STACK.ADD;
366: App_Exception.Raise_Exception;
367: end if;
368: END IF;
373: ELSE
374: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
375: new_references.record_open_dt_alias
376: ) then
377: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
378: IGS_GE_MSG_STACK.ADD;
379: App_Exception.Raise_Exception;
380: end if;
381: END IF;
386: ELSE
387: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
388: new_references.sub_unit_dt_alias
389: ) then
390: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
391: IGS_GE_MSG_STACK.ADD;
392: App_Exception.Raise_Exception;
393: end if;
394: END IF;
399: ELSE
400: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
401: new_references.variation_cutoff_dt_alias
402: ) then
403: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
404: IGS_GE_MSG_STACK.ADD;
405: App_Exception.Raise_Exception;
406: end if;
407: END IF;
412: ELSE
413: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
414: new_references.commencement_dt_alias
415: ) then
416: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
417: IGS_GE_MSG_STACK.ADD;
418: App_Exception.Raise_Exception;
419: end if;
420: END IF;
425: ELSE
426: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
427: new_references.commence_cutoff_dt_alias
428: ) then
429: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
430: IGS_GE_MSG_STACK.ADD;
431: App_Exception.Raise_Exception;
432: end if;
433: END IF;
438: ELSE
439: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
440: new_references.enr_form_due_dt_alias
441: ) then
442: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
443: IGS_GE_MSG_STACK.ADD;
444: App_Exception.Raise_Exception;
445: end if;
446: END IF;
451: ELSE
452: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
453: new_references.effect_enr_strt_dt_alias
454: ) then
455: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
456: IGS_GE_MSG_STACK.ADD;
457: App_Exception.Raise_Exception;
458: end if;
459: END IF;
464: ELSE
465: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
466: new_references.enrolled_rule_cutoff_dt_alias
467: ) then
468: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
469: IGS_GE_MSG_STACK.ADD;
470: App_Exception.Raise_Exception;
471: end if;
472: END IF;
477: ELSE
478: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
479: new_references.invalid_rule_cutoff_dt_alias
480: ) then
481: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
482: IGS_GE_MSG_STACK.ADD;
483: App_Exception.Raise_Exception;
484: end if;
485: END IF;
490: ELSE
491: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
492: new_references.lapse_dt_alias
493: ) then
494: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
495: IGS_GE_MSG_STACK.ADD;
496: App_Exception.Raise_Exception;
497: end if;
498: END IF;
503: ELSE
504: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
505: new_references.load_effect_dt_alias
506: ) then
507: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
508: IGS_GE_MSG_STACK.ADD;
509: App_Exception.Raise_Exception;
510: end if;
511: END IF;
516: ELSE
517: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
518: new_references.enr_cleanup_dt_alias
519: ) then
520: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
521: IGS_GE_MSG_STACK.ADD;
522: App_Exception.Raise_Exception;
523: end if;
524: END IF;
529: ELSE
530: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
531: new_references.begin_trans_dt_alias
532: ) then
533: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
534: IGS_GE_MSG_STACK.ADD;
535: App_Exception.Raise_Exception;
536: end if;
537: END IF;
542: ELSE
543: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
544: new_references.clean_trans_dt_alias
545: ) then
546: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
547: IGS_GE_MSG_STACK.ADD;
548: App_Exception.Raise_Exception;
549: end if;
550: END IF;
555: ELSE
556: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
557: new_references.planning_open_dt_alias
558: ) then
559: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
560: IGS_GE_MSG_STACK.ADD;
561: App_Exception.Raise_Exception;
562: end if;
563: END IF;
568: ELSE
569: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
570: new_references.schedule_open_dt_alias
571: ) then
572: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
573: IGS_GE_MSG_STACK.ADD;
574: App_Exception.Raise_Exception;
575: end if;
576: END IF;
581: ELSE
582: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
583: new_references.audit_status_dt_alias
584: ) then
585: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
586: IGS_GE_MSG_STACK.ADD;
587: App_Exception.Raise_Exception;
588: end if;
589: END IF;
651: Open cur_rowid;
652: Fetch cur_rowid INTO lv_rowid;
653: IF (cur_rowid%FOUND) THEN
654: Close cur_rowid;
655: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SECC_DA_FK');
656: IGS_GE_MSG_STACK.ADD;
657: App_Exception.Raise_Exception;
658: Return;
659: END IF;
729: Null;
730: if Get_PK_For_Validation (
731: new_references.s_control_num
732: ) then
733: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
734: IGS_GE_MSG_STACK.ADD;
735: App_Exception.Raise_Exception;
736: end if;
737: Check_constraints;
747: ELSIF (p_action = 'VALIDATE_INSERT') then
748: if Get_PK_For_Validation (
749: new_references.s_control_num
750: ) then
751: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
752: IGS_GE_MSG_STACK.ADD;
753: App_Exception.Raise_Exception;
754: end if;
755: Check_constraints;
828: if X_LAST_UPDATE_LOGIN is NULL then
829: X_LAST_UPDATE_LOGIN := -1;
830: end if;
831: else
832: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
833: IGS_GE_MSG_STACK.ADD;
834: app_exception.raise_exception;
835: end if;
836:
990: open c1;
991: fetch c1 into tlinfo;
992: if (c1%notfound) then
993: close c1;
994: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
995: IGS_GE_MSG_STACK.ADD;
996: app_exception.raise_exception;
997: return;
998: end if;
1054:
1055: ) then
1056: null;
1057: else
1058: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1059: IGS_GE_MSG_STACK.ADD;
1060: app_exception.raise_exception;
1061: end if;
1062: return;
1104: if X_LAST_UPDATE_LOGIN is NULL then
1105: X_LAST_UPDATE_LOGIN := -1;
1106: end if;
1107: else
1108: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1109: IGS_GE_MSG_STACK.ADD;
1110: app_exception.raise_exception;
1111: end if;
1112: