[Home] [Help]
66: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
67: Close cur_old_ref_values;
68: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
69: IGS_GE_MSG_STACK.ADD;
70: App_Exception.Raise_Exception;
71: Return;
72: END IF;
73: Close cur_old_ref_values;
74:
156: v_version_number,
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: IF p_inserting THEN
163: -- Validate calendar type
164: IF IGS_PS_VAL_CO.crsp_val_co_cal_type(
165: new_references.cal_type,
166: v_message_name) = FALSE THEN
167: Fnd_Message.Set_Name('IGS',v_message_name);
168: IGS_GE_MSG_STACK.ADD;
169: App_Exception.Raise_Exception;
170: END IF;
171: -- Validate IGS_AD_LOCATION code
172:
173: -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_COO.crsp_val_loc_cd
175: new_references.location_cd,
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: -- Validate attendance mode
182: IF IGS_PS_VAL_COo.crsp_val_coo_am (
183: new_references.attendance_mode,
183: new_references.attendance_mode,
184: v_message_name) = FALSE THEN
185: Fnd_Message.Set_Name('IGS',v_message_name);
186: IGS_GE_MSG_STACK.ADD;
187: App_Exception.Raise_Exception;
188: END IF;
189: -- Validate attendance type
190: IF IGS_PS_VAL_COo.crsp_val_coo_att (
191: new_references.attendance_type,
191: new_references.attendance_type,
192: v_message_name) = FALSE THEN
193: Fnd_Message.Set_Name('IGS',v_message_name);
194: IGS_GE_MSG_STACK.ADD;
195: App_Exception.Raise_Exception;
196: END IF;
197: END IF;
198: IF p_inserting OR p_updating THEN
199: IF new_references.enr_officer_person_id IS NOT NULL THEN
202: new_references.enr_officer_person_id,
203: v_preferred_name) = FALSE THEN
204: Fnd_Message.Set_Name('IGS','IGS_GE_NOT_STAFF_MEMBER');
205: IGS_GE_MSG_STACK.ADD;
206: App_Exception.Raise_Exception;
207: END IF;
208: END IF;
209:
210: -- If program length is provided then program length measurement is also required and vice versa, exception being when
213: (new_references.program_length_measurement IS NOT NULL AND new_references.program_length IS NULL
214: AND new_references.program_length_measurement <> 'NOT_APPLICABLE' ) THEN
215: fnd_message.set_name('IGS','IGS_PS_PRG_LENGTH_INCLUSIVE');
216: IGS_GE_MSG_STACK.ADD;
217: App_exception.raise_exception;
218: END IF;
219:
220: END IF;
221:
255: column_name is null Then
256: IF ( new_references.forced_att_type_ind NOT IN ( 'Y' , 'N' ) ) Then
257: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
258: IGS_GE_MSG_STACK.ADD;
259: App_Exception.Raise_Exception;
260: END IF;
261: END IF;
262:
263: IF upper(column_name) = 'TIME_LIMITATION' OR
264: column_name is null Then
265: IF ( new_references.time_limitation < 0.01 OR new_references.time_limitation > 99.99 ) Then
266: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
267: IGS_GE_MSG_STACK.ADD;
268: App_Exception.Raise_Exception;
269: END IF;
270: END IF;
271:
272: IF upper(column_name) = 'FORCED_LOCATION_IND' OR
273: column_name is null Then
274: IF ( new_references.forced_location_ind NOT IN ( 'Y' , 'N' ) ) Then
275: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
276: IGS_GE_MSG_STACK.ADD;
277: App_Exception.Raise_Exception;
278: END IF;
279: END IF;
280:
281: IF upper(column_name) = 'FORCED_ATT_MODE_IND' OR
282: column_name is null Then
283: IF ( new_references.forced_att_mode_ind NOT IN ( 'Y' , 'N' ) ) Then
284: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
285: IGS_GE_MSG_STACK.ADD;
286: App_Exception.Raise_Exception;
287: END IF;
288: END IF;
289:
290: IF upper(column_name) = 'ATTENDANCE_MODE' OR
291: column_name is null Then
292: IF ( new_references.attendance_mode <> UPPER(new_references.attendance_mode) ) 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;
298:
299: IF upper(column_name) = 'ATTENDANCE_TYPE' OR
300: column_name is null Then
301: IF ( new_references.attendance_type <> UPPER(new_references.attendance_type) ) Then
302: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
303: IGS_GE_MSG_STACK.ADD;
304: App_Exception.Raise_Exception;
305: END IF;
306: END IF;
307:
308: IF upper(column_name) = 'CAL_TYPE' OR
309: column_name is null Then
310: IF ( new_references.cal_type <> UPPER(new_references.cal_type) ) Then
311: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
312: IGS_GE_MSG_STACK.ADD;
313: App_Exception.Raise_Exception;
314: END IF;
315: END IF;
316:
317: IF upper(column_name) = 'COURSE_CD' OR
318: column_name is null Then
319: IF ( new_references.course_cd <> UPPER(new_references.course_cd) ) Then
320: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
321: IGS_GE_MSG_STACK.ADD;
322: App_Exception.Raise_Exception;
323: END IF;
324: END IF;
325:
326: IF upper(column_name) = 'LOCATION_CD' OR
327: column_name is null Then
328: IF ( new_references.location_cd <> UPPER(new_references.location_cd) ) Then
329: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
330: IGS_GE_MSG_STACK.ADD;
331: App_Exception.Raise_Exception;
332: END IF;
333: END IF;
334:
335: END Check_Constraints;
340: IF Get_UK_For_Validation (
341: new_references.coo_id ) THEN
342: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
343: IGS_GE_MSG_STACK.ADD;
344: App_Exception.Raise_Exception;
345: END IF;
346: END Check_Uniqueness ;
347:
348: PROCEDURE Check_Parent_Existance AS
356: new_references.attendance_mode
357: ) THEN
358: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
359: IGS_GE_MSG_STACK.ADD;
360: App_Exception.Raise_Exception;
361: END IF;
362: END IF;
363:
364: IF (((old_references.attendance_type = new_references.attendance_type)) OR
369: new_references.attendance_type
370: ) THEN
371: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
372: IGS_GE_MSG_STACK.ADD;
373: App_Exception.Raise_Exception;
374: END IF;
375: END IF;
376:
377: IF (((old_references.course_cd = new_references.course_cd) AND
388: new_references.cal_type
389: ) THEN
390: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
391: IGS_GE_MSG_STACK.ADD;
392: App_Exception.Raise_Exception;
393: END IF;
394: END IF;
395:
396: IF (((old_references.location_cd = new_references.location_cd)) OR
402: 'N'
403: ) THEN
404: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
405: IGS_GE_MSG_STACK.ADD;
406: App_Exception.Raise_Exception;
407: END IF;
408: END IF;
409:
410: IF (((old_references.enr_officer_person_id = new_references.enr_officer_person_id)) OR
415: new_references.enr_officer_person_id
416: ) THEN
417: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
418: IGS_GE_MSG_STACK.ADD;
419: App_Exception.Raise_Exception;
420: END IF;
421: END IF;
422:
423: END Check_Parent_Existance;
662: IF (cur_rowid%FOUND) THEN
663: Close cur_rowid;
664: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COO_AM_FK');
665: IGS_GE_MSG_STACK.ADD;
666: App_Exception.Raise_Exception;
667: Return;
668: END IF;
669: Close cur_rowid;
670:
689: IF (cur_rowid%FOUND) THEN
690: Close cur_rowid;
691: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COO_ATT_FK');
692: IGS_GE_MSG_STACK.ADD;
693: App_Exception.Raise_Exception;
694: Return;
695: END IF;
696: Close cur_rowid;
697:
720: IF (cur_rowid%FOUND) THEN
721: Close cur_rowid;
722: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COO_CO_FK');
723: IGS_GE_MSG_STACK.ADD;
724: App_Exception.Raise_Exception;
725: Return;
726: END IF;
727: Close cur_rowid;
728:
747: IF (cur_rowid%FOUND) THEN
748: Close cur_rowid;
749: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COO_LOC_FK');
750: IGS_GE_MSG_STACK.ADD;
751: App_Exception.Raise_Exception;
752: Return;
753: END IF;
754: Close cur_rowid;
755:
774: IF (cur_rowid%FOUND) THEN
775: Close cur_rowid;
776: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COO_PE_FK');
777: IGS_GE_MSG_STACK.ADD;
778: App_Exception.Raise_Exception;
779: Return;
780: END IF;
781: Close cur_rowid;
782:
888: new_references.attendance_mode,
889: new_references.attendance_type ) THEN
890: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
891: IGS_GE_MSG_STACK.ADD;
892: App_Exception.Raise_Exception;
893: END IF;
894: Check_Constraints;
895: Check_Parent_Existance;
896: Check_Uniqueness;
914: new_references.attendance_mode,
915: new_references.attendance_type ) THEN
916: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
917: IGS_GE_MSG_STACK.ADD;
918: App_Exception.Raise_Exception;
919: END IF;
920: Check_Constraints;
921: Check_Uniqueness;
922: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
1041: IF (c_coo%FOUND) THEN
1042: l_rowid := NULL;
1043: dflt_prg_ofropt_ref_code( l_coo_id,l_message_name );
1044: IF l_message_name IS NOT NULL THEN
1045: app_exception.raise_exception;
1046: END IF;
1047: END IF;
1048: CLOSE c_coo;
1049: END IF;
1140: end if;
1141: else
1142: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1143: IGS_GE_MSG_STACK.ADD;
1144: app_exception.raise_exception;
1145: end if;
1146: Before_DML (
1147: p_action => 'INSERT',
1148: x_rowid => X_ROWID,
1410: if (c1%notfound) then
1411: close c1;
1412: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1413: IGS_GE_MSG_STACK.ADD;
1414: app_exception.raise_exception;
1415: return;
1416: end if;
1417: close c1;
1418:
1430: null;
1431: else
1432: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1433: IGS_GE_MSG_STACK.ADD;
1434: app_exception.raise_exception;
1435: end if;
1436: return;
1437: end LOCK_ROW;
1438:
1495: end if;
1496: else
1497: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1498: IGS_GE_MSG_STACK.ADD;
1499: app_exception.raise_exception;
1500: end if;
1501: Before_DML (
1502: p_action => 'UPDATE',
1503: x_rowid => X_ROWID,