[Home] [Help]
37: Open cur_old_ref_values;
38: Fetch cur_old_ref_values INTO old_references;
39: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
40: Close cur_old_ref_values;
41: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
42: IGS_GE_MSG_STACK.ADD;
43: App_Exception.Raise_Exception;
44: Return;
45: END IF;
88: -- Validate unit fee trigger can be inserted
89: IF IGS_FI_VAL_UFT.finp_val_uft_ins (
90: new_references.fee_type,
91: v_message_name) = FALSE THEN
92: Fnd_Message.Set_Name('IGS',v_message_name);
93: IGS_GE_MSG_STACK.ADD;
94: App_Exception.Raise_Exception;
95: END IF;
96: END IF;
105: IF IGS_PS_VAL_CALUL.crsp_val_uv_sys_sts (
106: new_references.unit_cd,
107: new_references.version_number,
108: v_message_name) = FALSE THEN
109: Fnd_Message.Set_Name('IGS',v_message_name);
110: IGS_GE_MSG_STACK.ADD;
111: App_Exception.Raise_Exception;
112: END IF;
113: END IF;
117: IF IGS_FI_VAL_UFT.finp_val_uft_ftg (
118: new_references.fee_type,
119: new_references.fee_trigger_group_number,
120: v_message_name) = FALSE THEN
121: Fnd_Message.Set_Name('IGS',v_message_name);
122: IGS_GE_MSG_STACK.ADD;
123: App_Exception.Raise_Exception;
124: END IF;
125: END IF;
129: -- As part of the bug# 1956374 changed to the below call from IGS_FI_VAL_UFT.crsp_val_posp_cat
130: IF IGS_PS_VAL_POSP.crsp_val_posp_cat (
131: new_references.cal_type,
132: v_message_name) = FALSE THEN
133: Fnd_Message.Set_Name('IGS',v_message_name);
134: IGS_GE_MSG_STACK.ADD;
135: App_Exception.Raise_Exception;
136: END IF;
137: END IF;
142: IF IGS_AS_VAL_EVSA.assp_val_ci_status (
143: new_references.cal_type,
144: new_references.ci_sequence_number,
145: v_message_name) = FALSE THEN
146: Fnd_Message.Set_Name('IGS',v_message_name);
147: IGS_GE_MSG_STACK.ADD;
148: App_Exception.Raise_Exception;
149: END IF;
150: END IF;
153: -- As part of the bug# 1956374 changed to the below call from IGS_FI_VAL_UFT.crsp_val_loc_cd
154: IF IGS_PS_VAL_UOO.crsp_val_loc_cd (
155: new_references.location_cd,
156: v_message_name) = FALSE THEN
157: Fnd_Message.Set_Name('IGS',v_message_name);
158: IGS_GE_MSG_STACK.ADD;
159: App_Exception.Raise_Exception;
160: END IF;
161: END IF;
164: -- As part of the bug# 1956374 changed to the below call from IGS_FI_VAL_UFT.crsp_val_ucl_closed
165: IF IGS_AS_VAL_UAI.crsp_val_ucl_closed (
166: new_references.unit_class,
167: v_message_name) = FALSE THEN
168: Fnd_Message.Set_Name('IGS',v_message_name);
169: IGS_GE_MSG_STACK.ADD;
170: App_Exception.Raise_Exception;
171: END IF;
172: END IF;
235: new_references.location_cd,
236: new_references.create_dt,
237: new_references.fee_trigger_group_number,
238: v_message_name) = FALSE THEN
239: Fnd_Message.Set_Name('IGS',v_message_name);
240: IGS_GE_MSG_STACK.ADD;
241: App_Exception.Raise_Exception;
242: END IF;
243: END IF;
282: new_references.unit_class := column_value;
283: END IF;
284: IF ((UPPER (column_name) = 'SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
285: IF ((new_references.sequence_number < 1) OR (new_references.sequence_number > 999999)) THEN
286: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
287: IGS_GE_MSG_STACK.ADD;
288: App_Exception.Raise_Exception;
289: END IF;
290: END IF;
289: END IF;
290: END IF;
291: IF ((UPPER (column_name) = 'CI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
292: IF ((new_references.ci_sequence_number < 1) OR (new_references.ci_sequence_number > 999999)) THEN
293: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
294: IGS_GE_MSG_STACK.ADD;
295: App_Exception.Raise_Exception;
296: END IF;
297: END IF;
296: END IF;
297: END IF;
298: IF ((UPPER (column_name) = 'VERSION_NUMBER') OR (column_name IS NULL)) THEN
299: IF ((new_references.version_number < 1) OR (new_references.version_number > 999)) THEN
300: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
301: IGS_GE_MSG_STACK.ADD;
302: App_Exception.Raise_Exception;
303: END IF;
304: END IF;
303: END IF;
304: END IF;
305: IF ((UPPER (column_name) = 'FEE_TRIGGER_GROUP_NUMBER') OR (column_name IS NULL)) THEN
306: IF ((new_references.fee_trigger_group_number < 1) OR (new_references.fee_trigger_group_number > 999999)) THEN
307: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
308: IGS_GE_MSG_STACK.ADD;
309: App_Exception.Raise_Exception;
310: END IF;
311: END IF;
310: END IF;
311: END IF;
312: IF ((UPPER (column_name) = 'FEE_CI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
313: IF ((new_references.fee_ci_sequence_number < 1) OR (new_references.fee_ci_sequence_number > 999999)) THEN
314: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
315: IGS_GE_MSG_STACK.ADD;
316: App_Exception.Raise_Exception;
317: END IF;
318: END IF;
317: END IF;
318: END IF;
319: IF ((UPPER (column_name) = 'CAL_TYPE') OR (column_name IS NULL)) THEN
320: IF (new_references.cal_type <> UPPER (new_references.cal_type)) THEN
321: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
322: IGS_GE_MSG_STACK.ADD;
323: App_Exception.Raise_Exception;
324: END IF;
325: END IF;
324: END IF;
325: END IF;
326: IF ((UPPER (column_name) = 'FEE_CAL_TYPE') OR (column_name IS NULL)) THEN
327: IF (new_references.fee_cal_type <> UPPER (new_references.fee_cal_type)) THEN
328: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
329: IGS_GE_MSG_STACK.ADD;
330: App_Exception.Raise_Exception;
331: END IF;
332: END IF;
331: END IF;
332: END IF;
333: IF ((UPPER (column_name) = 'LOCATION_CD') OR (column_name IS NULL)) THEN
334: IF (new_references.location_cd <> UPPER (new_references.location_cd)) THEN
335: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
336: IGS_GE_MSG_STACK.ADD;
337: App_Exception.Raise_Exception;
338: END IF;
339: END IF;
338: END IF;
339: END IF;
340: IF ((UPPER (column_name) = 'UNIT_CD') OR (column_name IS NULL)) THEN
341: IF (new_references.unit_cd <> UPPER (new_references.unit_cd)) THEN
342: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
343: IGS_GE_MSG_STACK.ADD;
344: App_Exception.Raise_Exception;
345: END IF;
346: END IF;
345: END IF;
346: END IF;
347: IF ((UPPER (column_name) = 'UNIT_CLASS') OR (column_name IS NULL)) THEN
348: IF (new_references.unit_class <> UPPER (new_references.unit_class)) THEN
349: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
350: IGS_GE_MSG_STACK.ADD;
351: App_Exception.Raise_Exception;
352: END IF;
353: END IF;
366: new_references.location_cd,
367: new_references.unit_class,
368: new_references.create_dt
369: )) THEN
370: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
371: IGS_GE_MSG_STACK.ADD;
372: App_Exception.Raise_Exception;
373: END IF;
374: END Check_Uniqueness;
380: ELSE
381: IF NOT IGS_CA_TYPE_PKG.Get_PK_For_Validation (
382: new_references.cal_type
383: ) THEN
384: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
385: IGS_GE_MSG_STACK.ADD;
386: App_Exception.Raise_Exception;
387: END IF;
388: END IF;
395: IF NOT IGS_CA_INST_PKG.Get_PK_For_Validation (
396: new_references.cal_type,
397: new_references.ci_sequence_number
398: ) THEN
399: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
400: IGS_GE_MSG_STACK.ADD;
401: App_Exception.Raise_Exception;
402: END IF;
403: END IF;
416: new_references.fee_cal_type,
417: new_references.fee_ci_sequence_number,
418: new_references.fee_type
419: ) THEN
420: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
421: IGS_GE_MSG_STACK.ADD;
422: App_Exception.Raise_Exception;
423: END IF;
424: END IF;
440: new_references.fee_ci_sequence_number,
441: new_references.fee_type,
442: new_references.fee_trigger_group_number
443: ) THEN
444: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
445: IGS_GE_MSG_STACK.ADD;
446: App_Exception.Raise_Exception;
447: END IF;
448: END IF;
453: IF NOT IGS_AD_LOCATION_PKG.Get_PK_For_Validation (
454: new_references.location_cd ,
455: 'N'
456: ) THEN
457: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
458: IGS_GE_MSG_STACK.ADD;
459: App_Exception.Raise_Exception;
460: END IF;
461: END IF;
465: ELSE
466: IF NOT IGS_AS_UNIT_CLASS_PKG.Get_PK_For_Validation (
467: new_references.unit_class
468: ) THEN
469: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
470: IGS_GE_MSG_STACK.ADD;
471: App_Exception.Raise_Exception;
472: END IF;
473: END IF;
477: ELSE
478: IF NOT IGS_PS_UNIT_PKG.Get_PK_For_Validation (
479: new_references.unit_cd
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;
492: IF NOT IGS_PS_UNIT_VER_PKG.Get_PK_For_Validation (
493: new_references.unit_cd,
494: new_references.version_number
495: ) THEN
496: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
497: IGS_GE_MSG_STACK.ADD;
498: App_Exception.Raise_Exception;
499: END IF;
500: END IF;
582: Open cur_rowid;
583: Fetch cur_rowid INTO lv_rowid;
584: IF (cur_rowid%FOUND) THEN
585: Close cur_rowid;
586: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UFT_CAT_FK');
587: IGS_GE_MSG_STACK.ADD;
588: App_Exception.Raise_Exception;
589: Return;
590: END IF;
604: Open cur_rowid;
605: Fetch cur_rowid INTO lv_rowid;
606: IF (cur_rowid%FOUND) THEN
607: Close cur_rowid;
608: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UFT_CI_FK');
609: IGS_GE_MSG_STACK.ADD;
610: App_Exception.Raise_Exception;
611: Return;
612: END IF;
633: Open cur_rowid;
634: Fetch cur_rowid INTO lv_rowid;
635: IF (cur_rowid%FOUND) THEN
636: Close cur_rowid;
637: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UFT_FTG_FK');
638: IGS_GE_MSG_STACK.ADD;
639: App_Exception.Raise_Exception;
640: Return;
641: END IF;
653: Open cur_rowid;
654: Fetch cur_rowid INTO lv_rowid;
655: IF (cur_rowid%FOUND) THEN
656: Close cur_rowid;
657: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UFT_LOC_FK');
658: IGS_GE_MSG_STACK.ADD;
659: App_Exception.Raise_Exception;
660: Return;
661: END IF;
673: Open cur_rowid;
674: Fetch cur_rowid INTO lv_rowid;
675: IF (cur_rowid%FOUND) THEN
676: Close cur_rowid;
677: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UFT_UN_FK');
678: IGS_GE_MSG_STACK.ADD;
679: App_Exception.Raise_Exception;
680: Return;
681: END IF;
695: Open cur_rowid;
696: Fetch cur_rowid INTO lv_rowid;
697: IF (cur_rowid%FOUND) THEN
698: Close cur_rowid;
699: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UFT_UV_FK');
700: IGS_GE_MSG_STACK.ADD;
701: App_Exception.Raise_Exception;
702: Return;
703: END IF;
760: new_references.fee_type,
761: new_references.unit_cd,
762: new_references.sequence_number
763: )) THEN
764: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
765: IGS_GE_MSG_STACK.ADD;
766: App_Exception.Raise_Exception;
767: END IF;
768: Check_Uniqueness;
782: new_references.fee_type,
783: new_references.unit_cd,
784: new_references.sequence_number
785: )) THEN
786: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
787: IGS_GE_MSG_STACK.ADD;
788: App_Exception.Raise_Exception;
789: END IF;
790: Check_Uniqueness;
851: if X_LAST_UPDATE_LOGIN is NULL then
852: X_LAST_UPDATE_LOGIN := -1;
853: end if;
854: else
855: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
856: IGS_GE_MSG_STACK.ADD;
857: app_exception.raise_exception;
858: end if;
859: Before_DML(
962: open c1;
963: fetch c1 into tlinfo;
964: if (c1%notfound) then
965: close c1;
966: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
967: IGS_GE_MSG_STACK.ADD;
968: app_exception.raise_exception;
969: return;
970: end if;
993: AND (X_LOGICAL_DELETE_DT is null)))
994: ) then
995: null;
996: else
997: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
998: IGS_GE_MSG_STACK.ADD;
999: app_exception.raise_exception;
1000: end if;
1001: return;
1035: if X_LAST_UPDATE_LOGIN is NULL then
1036: X_LAST_UPDATE_LOGIN := -1;
1037: end if;
1038: else
1039: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1040: IGS_GE_MSG_STACK.ADD;
1041: app_exception.raise_exception;
1042: end if;
1043: Before_DML(