[Home] [Help]
33: -- Populate Old Values.
34: Open cur_old_ref_values;
35: Fetch cur_old_ref_values INTO old_references;
36: IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT','VALIDATE_INSERT')) THEN
37: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
38: IGS_GE_MSG_STACK.ADD;
39: Close cur_old_ref_values;
40: App_Exception.Raise_Exception;
41:
79: IF p_inserting THEN
80: IF igs_pr_val_scpca.prgp_val_cfg_cat (
81: new_references.prg_cal_type,
82: v_message_name) = FALSE THEN
83: Fnd_Message.Set_Name('IGS',v_message_name);
84: IGS_GE_MSG_STACK.ADD;
85: App_Exception.Raise_Exception;
86: END IF;
87: END IF;
90: new_references.show_cause_length <> old_references.show_cause_length) THEN
91: IF IGS_PR_VAL_SPCA.prgp_val_spca_cause (
92: new_references.show_cause_length,
93: v_message_name) = FALSE THEN
94: Fnd_Message.Set_Name('IGS',v_message_name);
95: IGS_GE_MSG_STACK.ADD;
96: App_Exception.Raise_Exception;
97: END IF;
98: END IF;
101: new_references.appeal_length <> old_references.appeal_length) THEN
102: IF IGS_PR_VAL_SPCA.prgp_val_spca_appeal (
103: new_references.appeal_length,
104: v_message_name) = FALSE THEN
105: Fnd_Message.Set_Name('IGS',v_message_name);
106: IGS_GE_MSG_STACK.ADD;
107: App_Exception.Raise_Exception;
108: END IF;
109: END IF;
121: ELSE
122: IF NOT IGS_CA_TYPE_PKG.Get_PK_For_Validation (
123: new_references.prg_cal_type
124: ) THEN
125: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
126: IGS_GE_MSG_STACK.ADD;
127: App_Exception.Raise_Exception;
128: END IF;
129: END IF;
134: ELSE
135: IF NOT IGS_PR_S_PRG_CONF_PKG.Get_PK_For_Validation (
136: new_references.s_control_num
137: ) THEN
138: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
139: IGS_GE_MSG_STACK.ADD;
140: App_Exception.Raise_Exception;
141: END IF;
142: END IF;
186:
187: Open cur_rowid;
188: Fetch cur_rowid INTO lv_rowid;
189: IF (cur_rowid%FOUND) THEN
190: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPCA_CAT_FK');
191: IGS_GE_MSG_STACK.ADD;
192: Close cur_rowid;
193: App_Exception.Raise_Exception;
194:
213:
214: Open cur_rowid;
215: Fetch cur_rowid INTO lv_rowid;
216: IF (cur_rowid%FOUND) THEN
217: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPCA_SPGCC_FK');
218: IGS_GE_MSG_STACK.ADD;
219: Close cur_rowid;
220: App_Exception.Raise_Exception;
221:
262: IF Get_PK_For_Validation (
263: new_references.s_control_num,
264: new_references.prg_cal_type
265: ) THEN
266: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
267: IGS_GE_MSG_STACK.ADD;
268: App_Exception.Raise_Exception;
269: END IF;
270: Check_Constraints;
279: IF Get_PK_For_Validation (
280: new_references.s_control_num ,
281: new_references.prg_cal_type
282: ) THEN
283: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
284: IGS_GE_MSG_STACK.ADD;
285: App_Exception.Raise_Exception;
286: END IF;
287: Check_Constraints;
322: if X_LAST_UPDATE_LOGIN is NULL then
323: X_LAST_UPDATE_LOGIN := -1;
324: end if;
325: else
326: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
327: IGS_GE_MSG_STACK.ADD;
328: app_exception.raise_exception;
329: end if;
330:
397: begin
398: open c1;
399: fetch c1 into tlinfo;
400: if (c1%notfound) then
401: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
402: IGS_GE_MSG_STACK.ADD;
403: close c1;
404: app_exception.raise_exception;
405:
416: AND (X_APPEAL_LENGTH is null)))
417: ) then
418: null;
419: else
420: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
421: IGS_GE_MSG_STACK.ADD;
422: app_exception.raise_exception;
423: end if;
424: return;
450: if X_LAST_UPDATE_LOGIN is NULL then
451: X_LAST_UPDATE_LOGIN := -1;
452: end if;
453: else
454: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
455: IGS_GE_MSG_STACK.ADD;
456: app_exception.raise_exception;
457: end if;
458:
571: END IF ;
572:
573: IF upper(Column_name) = 'S_CONTROL_NUM' OR COLUMN_NAME IS NULL THEN
574: IF new_references.S_CONTROL_NUM < 1 or new_references.S_CONTROL_NUM > 1 then
575: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
576: IGS_GE_MSG_STACK.ADD;
577: App_Exception.Raise_Exception ;
578: END IF;
579:
580: END IF ;
581:
582: IF upper(Column_name) = 'STREAM_NUM' OR COLUMN_NAME IS NULL THEN
583: IF new_references.STREAM_NUM < 0 or new_references.STREAM_NUM > 99 then
584: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
585: IGS_GE_MSG_STACK.ADD;
586: App_Exception.Raise_Exception ;
587: END IF;
588:
589: END IF ;
590:
591: IF upper(Column_name) = 'SHOW_CAUSE_LENGTH' OR COLUMN_NAME IS NULL THEN
592: IF new_references.SHOW_CAUSE_LENGTH < 0 or new_references.SHOW_CAUSE_LENGTH > 999 then
593: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
594: IGS_GE_MSG_STACK.ADD;
595: App_Exception.Raise_Exception ;
596: END IF;
597:
598: END IF ;
599:
600: IF upper(Column_name) = 'APPEAL_LENGTH' OR COLUMN_NAME IS NULL THEN
601: IF new_references.APPEAL_LENGTH < 0 or new_references.APPEAL_LENGTH > 999 then
602: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
603: IGS_GE_MSG_STACK.ADD;
604: App_Exception.Raise_Exception ;
605: END IF;
606:
607: END IF ;
608:
609: IF upper(Column_name) = 'PRG_CAL_TYPE' OR COLUMN_NAME IS NULL THEN
610: IF new_references.PRG_CAL_TYPE<> upper(new_references.PRG_CAL_TYPE) then
611: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
612: IGS_GE_MSG_STACK.ADD;
613: App_Exception.Raise_Exception ;
614: END IF;
615: