[Home] [Help]
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;
46: Close cur_old_ref_values;
47:
89: new_references.crv_version_number,
90: v_message_name) = FALSE THEN
91: Fnd_Message.Set_Name('IGS',v_message_name);
92: IGS_GE_MSG_STACK.ADD;
93: App_Exception.Raise_Exception;
94: END IF;
95: --
96: -- Can only create against ACTIVE or PLANNED IGS_PS_UNIT sets
97: IF IGS_PS_VAL_COUSR.crsp_val_iud_us_dtl (
99: new_references.us_version_number,
100: v_message_name) = FALSE THEN
101: Fnd_Message.Set_Name('IGS',v_message_name);
102: IGS_GE_MSG_STACK.ADD;
103: App_Exception.Raise_Exception;
104: END IF;
105: END IF;
106: -- Validate that inserts/updates are allowed
107: IF p_inserting OR p_updating THEN
114: new_references.us_version_number,
115: v_message_name) = FALSE THEN
116: Fnd_Message.Set_Name('IGS',v_message_name);
117: IGS_GE_MSG_STACK.ADD;
118: App_Exception.Raise_Exception;
119: END IF;
120: --
121: -- Validate the 'only as subordinate indicator'
122: IF IGS_PS_VAL_COus.crsp_val_cous_subind (
129: new_references.only_as_sub_ind,
130: v_message_name) = FALSE THEN
131: Fnd_Message.Set_Name('IGS',v_message_name);
132: IGS_GE_MSG_STACK.ADD;
133: App_Exception.Raise_Exception;
134: END IF;
135: END IF;
136:
137:
162: IF new_references.cal_type <> UPPER(new_references.cal_type)
163: THEN
164: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
165: IGS_GE_MSG_STACK.ADD;
166: App_Exception.Raise_Exception;
167: END IF;
168: END IF;
169:
170: IF upper(column_name)= 'COURSE_CD' OR
172: IF new_references.course_cd <> UPPER(new_references.course_cd)
173: THEN
174: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
175: IGS_GE_MSG_STACK.ADD;
176: App_Exception.Raise_Exception;
177: END IF;
178: END IF;
179:
180: IF upper(column_name)= 'UNIT_SET_CD' OR
182: IF new_references.unit_set_cd <> UPPER(new_references.unit_set_cd)
183: THEN
184: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
185: IGS_GE_MSG_STACK.ADD;
186: App_Exception.Raise_Exception;
187: END IF;
188: END IF;
189:
190: IF upper(column_name)= 'ONLY_AS_SUB_IND' OR
192: IF new_references.only_as_sub_ind NOT IN ( 'Y' , 'N' )
193: THEN
194: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
195: IGS_GE_MSG_STACK.ADD;
196: App_Exception.Raise_Exception;
197: END IF;
198: END IF;
199:
200: IF upper(column_name)= 'SHOW_ON_OFFICIAL_NTFCTN_IND' OR
202: IF new_references.show_on_official_ntfctn_ind NOT IN ( 'Y' , 'N' )
203: THEN
204: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
205: IGS_GE_MSG_STACK.ADD;
206: App_Exception.Raise_Exception;
207: END IF;
208: END IF;
209: END Check_Constraints;
210:
226: new_references.cal_type
227: )THEN
228: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
229: IGS_GE_MSG_STACK.ADD;
230: App_Exception.Raise_Exception;
231: END IF;
232: END IF;
233:
234: IF (((old_references.unit_set_cd = new_references.unit_set_cd) AND
242: new_references.us_version_number
243: )THEN
244: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
245: IGS_GE_MSG_STACK.ADD;
246: App_Exception.Raise_Exception;
247: END IF;
248: END IF;
249:
250: END Check_Parent_Existance;
385: IF (cur_rowid%FOUND) THEN
386: Close cur_rowid;
387: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COUS_CO_FK');
388: IGS_GE_MSG_STACK.ADD;
389: App_Exception.Raise_Exception;
390: Return;
391: END IF;
392: Close cur_rowid;
393:
413: IF (cur_rowid%FOUND) THEN
414: Close cur_rowid;
415: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COUS_US_FK');
416: IGS_GE_MSG_STACK.ADD;
417: App_Exception.Raise_Exception;
418: Return;
419: END IF;
420: Close cur_rowid;
421:
469: new_references.us_version_number
470: ) THEN
471: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
472: IGS_GE_MSG_STACK.ADD;
473: App_Exception.Raise_Exception;
474: END IF;
475: Check_Constraints;
476: Check_Parent_Existance;
477: ELSIF (p_action = 'UPDATE') THEN
492: new_references.us_version_number
493: ) THEN
494: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
495: IGS_GE_MSG_STACK.ADD;
496: App_Exception.Raise_Exception;
497: END IF;
498: Check_Constraints;
499: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
500: Check_Constraints;
553: end if;
554: else
555: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
556: IGS_GE_MSG_STACK.ADD;
557: app_exception.raise_exception;
558: end if;
559: Before_DML (
560: p_action => 'INSERT',
561: x_rowid => X_ROWID,
643: if (c1%notfound) then
644: close c1;
645: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
646: IGS_GE_MSG_STACK.ADD;
647: app_exception.raise_exception;
648: return;
649: end if;
650: close c1;
651:
658: null;
659: else
660: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
661: IGS_GE_MSG_STACK.ADD;
662: app_exception.raise_exception;
663: end if;
664: return;
665: end LOCK_ROW;
666:
695: end if;
696: else
697: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
698: IGS_GE_MSG_STACK.ADD;
699: app_exception.raise_exception;
700: end if;
701: Before_DML (
702: p_action => 'UPDATE',
703: x_rowid => X_ROWID,