[Home] [Help]
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:
42: Return;
82: -- Validate IGS_PE_PERSON exists
83: IF IGS_CO_VAL_OC.genp_val_prsn_id(new_references.person_id,
84: v_message_name) = FALSE THEN
85: FND_MESSAGE.SET_NAME('IGS',v_message_name);
86: IGS_GE_MSG_STACK.ADD;
87: APP_EXCEPTION.RAISE_EXCEPTION;
88: END IF;
89: --
90: -- Validate assessment assessor type closed indicator
90: -- Validate assessment assessor type closed indicator
91: IF IGS_AS_VAL_AIA.assp_val_asst_closed(new_references.ass_assessor_type,
92: v_message_name) = FALSE THEN
93: FND_MESSAGE.SET_NAME('IGS',v_message_name);
94: IGS_GE_MSG_STACK.ADD;
95: APP_EXCEPTION.RAISE_EXCEPTION;
96: END IF;
97: --
98: -- Validate IGS_AD_LOCATION closed indicator
99: -- As part of the bug# 1956374 changed to the below call from IGS_AS_VAL_AIA.crsp_val_loc_cd
100: IF IGS_PS_VAL_UOO.crsp_val_loc_cd(new_references.location_cd,
101: v_message_name) = FALSE THEN
102: FND_MESSAGE.SET_NAME('IGS',v_message_name);
103: IGS_GE_MSG_STACK.ADD;
104: APP_EXCEPTION.RAISE_EXCEPTION;
105: END IF;
106: --
107: -- Validate IGS_PS_UNIT mode closed indicator
108: -- As part of the bug# 1956374 changed to the below call from IGS_AS_VAL_AIA.crsp_val_um_closed
109: IF IGS_AS_VAL_UAI.crsp_val_um_closed(new_references.unit_mode,
110: v_message_name) = FALSE THEN
111: FND_MESSAGE.SET_NAME('IGS',v_message_name);
112: IGS_GE_MSG_STACK.ADD;
113: APP_EXCEPTION.RAISE_EXCEPTION;
114: END IF;
115: --
116: -- Validate IGS_PS_UNIT class indicator
117: -- As part of the bug# 1956374 changed to the below call from IGS_AS_VAL_AIA.crsp_val_ucl_closed
118: IF IGS_AS_VAL_UAI.crsp_val_ucl_closed(new_references.unit_class,
119: v_message_name) = FALSE THEN
120: FND_MESSAGE.SET_NAME('IGS',v_message_name);
121: IGS_GE_MSG_STACK.ADD;
122: APP_EXCEPTION.RAISE_EXCEPTION;
123: END IF;
124: END IF;
125: END BeforeRowInsertUpdate1;
142: new_references.person_id,
143: new_references.sequence_number,
144: v_message_name) = FALSE THEN
145: FND_MESSAGE.SET_NAME('IGS',v_message_name);
146: IGS_GE_MSG_STACK.ADD;
147: APP_EXCEPTION.RAISE_EXCEPTION;
148: END IF;
149: END IF;
150: -- Validate assessor links for invalid combinations
157: new_references.unit_class,
158: new_references.ass_assessor_type ,
159: v_message_name) = FALSE THEN
160: FND_MESSAGE.SET_NAME('IGS',v_message_name);
161: IGS_GE_MSG_STACK.ADD;
162: APP_EXCEPTION.RAISE_EXCEPTION;
163: END IF;
164: -- Save the rowid of the current row.
165: END IF;
176: NULL;
177: ELSIF NOT IGS_AS_ASSESSMNT_ITM_PKG.Get_PK_For_Validation (
178: new_references.ass_id ) THEN
179: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
180: IGS_GE_MSG_STACK.ADD;
181: APP_EXCEPTION.RAISE_EXCEPTION;
182: END IF;
183: IF (((old_references.ass_assessor_type = new_references.ass_assessor_type)) OR
184: ((new_references.ass_assessor_type IS NULL))) THEN
185: NULL;
186: ELSIF NOT IGS_AS_ASSESSOR_TYPE_PKG.Get_PK_For_Validation (
187: new_references.ass_assessor_type )THEN
188: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
189: IGS_GE_MSG_STACK.ADD;
190: APP_EXCEPTION.RAISE_EXCEPTION;
191:
192: END IF;
193: IF (((old_references.location_cd = new_references.location_cd)) OR
196: ELSIF NOT IGS_AD_LOCATION_PKG.Get_PK_For_Validation ( new_references.location_cd,
197: 'N'
198: ) THEN
199: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
200: IGS_GE_MSG_STACK.ADD;
201: APP_EXCEPTION.RAISE_EXCEPTION;
202: END IF;
203: IF (((old_references.person_id = new_references.person_id)) OR
204: ((new_references.person_id IS NULL))) THEN
206: ELSIF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
207: new_references.person_id
208: ) THEN
209: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
210: IGS_GE_MSG_STACK.ADD;
211: APP_EXCEPTION.RAISE_EXCEPTION;
212: END IF;
213: IF (((old_references.unit_class = new_references.unit_class)) OR
214: ((new_references.unit_class IS NULL))) THEN
216: ELSIF NOT IGS_AS_UNIT_CLASS_PKG.Get_PK_For_Validation (
217: new_references.unit_class
218: ) THEN
219: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
220: IGS_GE_MSG_STACK.ADD;
221: APP_EXCEPTION.RAISE_EXCEPTION;
222: END IF;
223: IF (((old_references.unit_mode = new_references.unit_mode)) OR
224: ((new_references.unit_mode IS NULL))) THEN
226: ELSIF NOT IGS_AS_UNIT_MODE_PKG.Get_PK_For_Validation (
227: new_references.unit_mode
228: ) THEN
229: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
230: IGS_GE_MSG_STACK.ADD;
231: APP_EXCEPTION.RAISE_EXCEPTION;
232: END IF;
233: END Check_Parent_Existance;
234:
269: Open cur_rowid;
270: Fetch cur_rowid INTO lv_rowid;
271: IF (cur_rowid%FOUND) THEN
272: Fnd_Message.Set_Name ('IGS', 'IGS_AS_AIA_AI_FK');
273: IGS_GE_MSG_STACK.ADD;
274: Close cur_rowid;
275: APP_EXCEPTION.RAISE_EXCEPTION;
276:
277: Return;
290: Open cur_rowid;
291: Fetch cur_rowid INTO lv_rowid;
292: IF (cur_rowid%FOUND) THEN
293: Fnd_Message.Set_Name ('IGS', 'IGS_AS_AIA_ASST_FK');
294: IGS_GE_MSG_STACK.ADD;
295: Close cur_rowid;
296: APP_EXCEPTION.RAISE_EXCEPTION;
297:
298: Return;
311: Open cur_rowid;
312: Fetch cur_rowid INTO lv_rowid;
313: IF (cur_rowid%FOUND) THEN
314: Fnd_Message.Set_Name ('IGS', 'IGS_AS_AIA_LOC_FK');
315: IGS_GE_MSG_STACK.ADD;
316: Close cur_rowid;
317: APP_EXCEPTION.RAISE_EXCEPTION;
318:
319: Return;
332: Open cur_rowid;
333: Fetch cur_rowid INTO lv_rowid;
334: IF (cur_rowid%FOUND) THEN
335: Fnd_Message.Set_Name ('IGS', 'IGS_AS_AIA_PE_FK');
336: IGS_GE_MSG_STACK.ADD;
337: Close cur_rowid;
338: APP_EXCEPTION.RAISE_EXCEPTION;
339:
340: Return;
354: Open cur_rowid;
355: Fetch cur_rowid INTO lv_rowid;
356: IF (cur_rowid%FOUND) THEN
357: Fnd_Message.Set_Name ('IGS', 'IGS_AS_AIA_UM_FK');
358: IGS_GE_MSG_STACK.ADD;
359: Close cur_rowid;
360: APP_EXCEPTION.RAISE_EXCEPTION;
361:
362: Return;
408: IF Get_PK_For_Validation ( new_references.ass_id ,
409: new_references.person_id ,
410: new_references.sequence_number ) THEN
411: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
412: IGS_GE_MSG_STACK.ADD;
413: APP_EXCEPTION.RAISE_EXCEPTION;
414: END IF;
415:
416: Check_Constraints;
425: IF Get_PK_For_Validation ( new_references.ass_id ,
426: new_references.person_id ,
427: new_references.sequence_number ) THEN
428: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
429: IGS_GE_MSG_STACK.ADD;
430: APP_EXCEPTION.RAISE_EXCEPTION;
431: END IF;
432: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
433:
486: X_LAST_UPDATE_LOGIN := -1;
487: end if;
488: else
489: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
490: IGS_GE_MSG_STACK.ADD;
491: APP_EXCEPTION.RAISE_EXCEPTION;
492: end if;
493: Before_DML(
494: p_action=>'INSERT',
582: open c1;
583: fetch c1 into tlinfo;
584: if (c1%notfound) then
585: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
586: IGS_GE_MSG_STACK.ADD;
587: APP_EXCEPTION.RAISE_EXCEPTION;
588: close c1;
589: return;
590: end if;
609: ) then
610: null;
611: else
612: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
613: IGS_GE_MSG_STACK.ADD;
614: APP_EXCEPTION.RAISE_EXCEPTION;
615: end if;
616: return;
617: end LOCK_ROW;
647: X_LAST_UPDATE_LOGIN := -1;
648: end if;
649: else
650: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
651: IGS_GE_MSG_STACK.ADD;
652: APP_EXCEPTION.RAISE_EXCEPTION;
653: end if;
654: Before_DML(
655: p_action=>'UPDATE',
790: IF upper(column_name) = 'PRIMARY_ASSESSOR_IND' OR
791: column_name is null Then
792: IF new_references.primary_assessor_ind NOT IN ('Y' , 'N') Then
793: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
794: IGS_GE_MSG_STACK.ADD;
795: APP_EXCEPTION.RAISE_EXCEPTION;
796: END IF;
797: END IF;
798:
800: IF upper(column_name) = 'ASS_ASSESSOR_TYPE' OR
801: column_name is null Then
802: IF new_references.ass_assessor_type <> UPPER(new_references.ass_assessor_type) Then
803: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
804: IGS_GE_MSG_STACK.ADD;
805: APP_EXCEPTION.RAISE_EXCEPTION;
806: END IF;
807: END IF;
808:
810: column_name is null Then
811: IF new_references.location_cd <>
812: UPPER(new_references.location_cd) Then
813: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
814: IGS_GE_MSG_STACK.ADD;
815: APP_EXCEPTION.RAISE_EXCEPTION;
816: END IF;
817: END IF;
818:
820: column_name is null Then
821: IF new_references.primary_assessor_ind <>
822: UPPER(new_references.primary_assessor_ind) Then
823: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
824: IGS_GE_MSG_STACK.ADD;
825: APP_EXCEPTION.RAISE_EXCEPTION;
826: END IF;
827: END IF;
828: IF upper(column_name) = 'UNIT_CLASS' OR
829: column_name is null Then
830: IF new_references.unit_class <>
831: UPPER(new_references.unit_class) Then
832: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
833: IGS_GE_MSG_STACK.ADD;
834: APP_EXCEPTION.RAISE_EXCEPTION;
835: END IF;
836: END IF;
837: IF upper(column_name) = 'UNIT_MODE' OR
838: column_name is null Then
839: IF new_references.unit_mode <>
840: UPPER(new_references.unit_mode) Then
841: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
842: IGS_GE_MSG_STACK.ADD;
843: APP_EXCEPTION.RAISE_EXCEPTION;
844: END IF;
845: END IF;
846:
847: IF upper(column_name) = 'ITEM_LIMIT' OR
848: column_name is null Then
849: IF new_references.item_limit < 0 OR new_references.item_limit > 99999 Then
850: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
851: IGS_GE_MSG_STACK.ADD;
852: APP_EXCEPTION.RAISE_EXCEPTION;
853: END IF;
854: END IF;
855:
857: IF upper(column_name) = 'SEQUENCE_NUMBER' OR
858: column_name is null Then
859: IF new_references.sequence_number < 1 OR new_references.sequence_number > 999999 Then
860: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
861: IGS_GE_MSG_STACK.ADD;
862: APP_EXCEPTION.RAISE_EXCEPTION;
863: END IF;
864: END IF;
865: