[Home] [Help]
39: Open cur_old_ref_values;
40: Fetch cur_old_ref_values INTO old_references;
41: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
42: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
43: IGS_GE_MSG_STACK.ADD;
44: Close cur_old_ref_values;
45: App_Exception.Raise_Exception;
46: Return;
47: END IF;
91: IF IGS_PS_VAL_UOO.crsp_val_loc_cd (
92: new_references.location_cd,
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: -- Validate IGS_PS_UNIT mode closed indicator
99: -- As part of the bug# 1956374 changed to the below call from IGS_AS_VAL_UAP.crsp_val_um_closed
100: IF IGS_AS_VAL_UAI.crsp_val_um_closed (
101: new_references.unit_mode,
102: v_message_name) = FALSE THEN
103: Fnd_Message.Set_Name('IGS', v_message_name);
104: IGS_GE_MSG_STACK.ADD;
105: App_Exception.Raise_Exception;
106: END IF;
107: -- Validate IGS_PS_UNIT class indicator
108: -- As part of the bug# 1956374 changed to the below call from IGS_AS_VAL_UAP.crsp_val_ucl_closed
109: IF IGS_AS_VAL_UAI.crsp_val_ucl_closed (
110: new_references.unit_class,
111: v_message_name) = FALSE THEN
112: Fnd_Message.Set_Name('IGS', v_message_name);
113: IGS_GE_MSG_STACK.ADD;
114: App_Exception.Raise_Exception;
115: END IF;
116: -- If the IGS_PS_UNIT version status is inactive then prevent inserts, updates and
117: -- deletes. As deletes are logical, they are equiv to updates and delete
120: new_references.unit_cd,
121: new_references.version_number,
122: v_message_name) = FALSE THEN
123: Fnd_Message.Set_Name('IGS', v_message_name);
124: IGS_GE_MSG_STACK.ADD;
125: App_Exception.Raise_Exception;
126: END IF;
127: -- If calendar instance is inactive, then prevent inserts, updates and
128: -- deletes. As deletes are logical, they are equiv to updates and delete
131: new_references.cal_type,
132: new_references.ci_sequence_number,
133: v_message_name) = FALSE THEN
134: Fnd_Message.Set_Name('IGS', v_message_name);
135: IGS_GE_MSG_STACK.ADD;
136: App_Exception.Raise_Exception;
137: END IF;
138: END IF;
139: IF p_inserting THEN
142: IF IGS_AS_VAL_UAI.crsp_val_uo_cal_type (
143: new_references.cal_type,
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 that IGS_PS_UNIT mode and IGS_PS_UNIT class cannot be set at the same time.
155: IF IGS_AS_VAL_UAP.assp_val_uc_um (new_references.UNIT_MODE,
156: new_references.unit_class,
157: v_message_name) = FALSE THEN
158: Fnd_Message.Set_Name('IGS', v_message_name);
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
162: END IF;
163: -- Validate the IGS_AD_LOCATION, class and mode are not not in conflict with any of
174: new_references.unit_class,
175: new_references.unit_mode,
176: v_message_name) = FALSE THEN
177: Fnd_Message.Set_Name('IGS', v_message_name);
178: IGS_GE_MSG_STACK.ADD;
179: App_Exception.Raise_Exception;
180: END IF;
181: IF IGS_AS_GEN_005.ASSP_UPD_UAP_UOO (new_references.unit_cd,
182: new_references.version_number,
185: new_references.location_cd,
186: new_references.unit_class, new_references.unit_mode, 'Y',
187: v_message_name) = FALSE THEN
188: Fnd_Message.Set_Name('IGS', v_message_name);
189: IGS_GE_MSG_STACK.ADD;
190: App_Exception.Raise_Exception;
191: END IF;
192: END IF;
193: IF p_inserting OR p_deleting OR
227: new_references.ass_pattern_id,
228: new_references.ass_pattern_cd,
229: v_message_name) = FALSE THEN
230: Fnd_Message.Set_Name('IGS', v_message_name);
231: IGS_GE_MSG_STACK.ADD;
232: App_Exception.Raise_Exception;
233: END IF;
234: -- Validate the assessment pattern code is unique within the IGS_PS_UNIT offering
235: -- pattern.
252: new_references.location_cd ,
253: 'N'
254: ))THEN
255: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
256: IGS_GE_MSG_STACK.ADD;
257: App_Exception.Raise_Exception;
258: END IF;
259: END IF;
260:
265: IF NOT(IGS_AS_UNIT_CLASS_PKG.Get_PK_For_Validation (
266: new_references.unit_class
267: ))THEN
268: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
269: IGS_GE_MSG_STACK.ADD;
270: App_Exception.Raise_Exception;
271: END IF;
272: END IF;
273: IF (((old_references.unit_mode= new_references.unit_mode)) OR
277: IF NOT(IGS_AS_UNIT_MODE_PKG.Get_PK_For_Validation (
278: new_references.unit_mode
279: ))THEN
280: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
281: IGS_GE_MSG_STACK.ADD;
282: App_Exception.Raise_Exception;
283: END IF;
284: END IF;
285:
299: new_references.cal_type,
300: new_references.ci_sequence_number
301: ))THEN
302: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
303: IGS_GE_MSG_STACK.ADD;
304: App_Exception.Raise_Exception;
305: END IF;
306: END IF;
307:
312: IF Get_UK_For_Validation (
313: new_references.ass_pattern_id
314: ) THEN
315: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
316: IGS_GE_MSG_STACK.ADD;
317: App_Exception.Raise_Exception;
318: END IF;
319:
320: End Check_Uniqueness;
351: IF upper(column_name) = 'ASS_PATTERN_CD' OR
352: column_name is null Then
353: IF new_references.ass_pattern_cd <> UPPER(new_references.ass_pattern_cd) Then
354: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
355: IGS_GE_MSG_STACK.ADD;
356: App_Exception.Raise_Exception;
357: END IF;
358: END IF;
359:
360: IF upper(column_name) = 'ASS_PATTERN_ID' OR
361: column_name is null Then
362: IF new_references.ass_pattern_id < 1 AND new_references.ass_pattern_id > 999999 Then
363: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
364: IGS_GE_MSG_STACK.ADD;
365: App_Exception.Raise_Exception;
366: END IF;
367: END IF;
368: IF upper(column_name) = 'CAL_TYPE' OR
368: IF upper(column_name) = 'CAL_TYPE' OR
369: column_name is null Then
370: IF new_references.cal_type <> UPPER(new_references.cal_type) Then
371: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
372: IGS_GE_MSG_STACK.ADD;
373: App_Exception.Raise_Exception;
374: END IF;
375: END IF;
376: IF upper(column_name) = 'LOCATION_CD' OR
376: IF upper(column_name) = 'LOCATION_CD' OR
377: column_name is null Then
378: IF new_references.location_cd <> UPPER(new_references.location_cd) Then
379: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
380: IGS_GE_MSG_STACK.ADD;
381: App_Exception.Raise_Exception;
382: END IF;
383: END IF;
384: IF upper(column_name) = 'UNIT_MODE' OR
384: IF upper(column_name) = 'UNIT_MODE' OR
385: column_name is null Then
386: IF new_references.unit_mode <> UPPER(new_references.unit_mode) Then
387: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
388: IGS_GE_MSG_STACK.ADD;
389: App_Exception.Raise_Exception;
390: END IF;
391: END IF;
392: IF upper(column_name) = 'UNIT_CLASS' OR
392: IF upper(column_name) = 'UNIT_CLASS' OR
393: column_name is null Then
394: IF new_references.unit_class <> UPPER(new_references.unit_class) Then
395: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
396: IGS_GE_MSG_STACK.ADD;
397: App_Exception.Raise_Exception;
398: END IF;
399: END IF;
400: IF upper(column_name) = 'DFLT_PATTERN_IND' OR
400: IF upper(column_name) = 'DFLT_PATTERN_IND' OR
401: column_name is null Then
402: IF new_references.dflt_pattern_ind <> UPPER(new_references.dflt_pattern_ind) Then
403: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
404: IGS_GE_MSG_STACK.ADD;
405: App_Exception.Raise_Exception;
406: END IF;
407: END IF;
408:
410: IF upper(column_name) = 'CI_SEQUENCE_NUMBER' OR
411: column_name is null Then
412: IF new_references.ci_sequence_number < 1 AND new_references.ci_sequence_number > 999999 Then
413: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
414: IGS_GE_MSG_STACK.ADD;
415: App_Exception.Raise_Exception;
416: END IF;
417: END IF;
418: END Check_Constraints;
509: Open cur_rowid;
510: Fetch cur_rowid INTO lv_rowid;
511: IF (cur_rowid%FOUND) THEN
512: Fnd_Message.Set_Name ('IGS', 'IGS_AS_UAP_LOC_FK');
513: IGS_GE_MSG_STACK.ADD;
514: Close cur_rowid;
515: App_Exception.Raise_Exception;
516: Return;
517: END IF;
529: Open cur_rowid;
530: Fetch cur_rowid INTO lv_rowid;
531: IF (cur_rowid%FOUND) THEN
532: Fnd_Message.Set_Name ('IGS', 'IGS_AS_UAP_UCL_FK');
533: IGS_GE_MSG_STACK.ADD;
534: Close cur_rowid;
535: App_Exception.Raise_Exception;
536: Return;
537: END IF;
549: Open cur_rowid;
550: Fetch cur_rowid INTO lv_rowid;
551: IF (cur_rowid%FOUND) THEN
552: Fnd_Message.Set_Name ('IGS', 'IGS_AS_UAP_UM_FK');
553: IGS_GE_MSG_STACK.ADD;
554: Close cur_rowid;
555: App_Exception.Raise_Exception;
556: Return;
557: END IF;
575: Open cur_rowid;
576: Fetch cur_rowid INTO lv_rowid;
577: IF (cur_rowid%FOUND) THEN
578: Fnd_Message.Set_Name ('IGS', 'IGS_AS_UAP_UOP_FK');
579: IGS_GE_MSG_STACK.ADD;
580: Close cur_rowid;
581: App_Exception.Raise_Exception;
582: Return;
583: END IF;
640: new_references.ci_sequence_number,
641: new_references.ass_pattern_id
642: ) THEN
643: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
644: IGS_GE_MSG_STACK.ADD;
645: App_Exception.Raise_Exception;
646: END IF;
647:
648: Check_Uniqueness;
667: new_references.ci_sequence_number,
668: new_references.ass_pattern_id
669: ) THEN
670: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
671: IGS_GE_MSG_STACK.ADD;
672: App_Exception.Raise_Exception;
673: END IF;
674: Check_Uniqueness;
675: Check_Constraints;
756: X_PROGRAM_UPDATE_DATE := SYSDATE;
757: end if;
758: else
759: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
760: IGS_GE_MSG_STACK.ADD;
761: app_exception.raise_exception;
762: end if;
763: --
764: Before_DML(
880: open c1;
881: fetch c1 into tlinfo;
882: if (c1%notfound) then
883: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
884: IGS_GE_MSG_STACK.ADD;
885: close c1;
886: app_exception.raise_exception;
887: return;
888: end if;
908: ) then
909: null;
910: else
911: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
912: IGS_GE_MSG_STACK.ADD;
913: app_exception.raise_exception;
914: end if;
915: return;
916: end LOCK_ROW;
953: X_LAST_UPDATE_LOGIN := -1;
954: end if;
955: else
956: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
957: IGS_GE_MSG_STACK.ADD;
958: app_exception.raise_exception;
959: end if;
960: Before_DML(
961: p_action=>'UPDATE',