[Home] [Help]
64: Open cur_old_ref_values;
65: Fetch cur_old_ref_values INTO old_references;
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;
154: -- Validate that updates are allowed
155: IF IGS_PS_VAL_CRS.CRSP_VAL_IUD_CRV_DTL(v_course_cd,
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
173: -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_COO.crsp_val_loc_cd
174: IF IGS_PS_VAL_UOO.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
181: -- Validate attendance mode
182: IF IGS_PS_VAL_COo.crsp_val_coo_am (
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
189: -- Validate attendance type
190: IF IGS_PS_VAL_COo.crsp_val_coo_att (
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;
200: -- Validate enrolment officer IGS_PE_PERSON id
201: IF IGS_GE_MNT_SDTT.PID_VAL_STAFF (
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;
211: -- progrma length measuremnt is 'Not Applicable'
212: IF (new_references.program_length_measurement IS NULL AND new_references.program_length IS NOT NULL ) OR
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:
253:
254: IF upper(column_name) = 'FORCED_ATT_TYPE_IND' OR
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;
338: BEGIN
339:
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 ;
354: ELSE
355: IF NOT IGS_EN_ATD_MODE_PKG.Get_PK_For_Validation (
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;
367: ELSE
368: IF NOT IGS_EN_ATD_TYPE_PKG.Get_PK_For_Validation (
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;
386: new_references.course_cd,
387: new_references.version_number,
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;
400: IF NOT IGS_AD_LOCATION_PKG.Get_PK_For_Validation (
401: new_references.location_cd ,
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;
413: ELSE
414: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
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;
660: Open cur_rowid;
661: Fetch cur_rowid INTO lv_rowid;
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;
687: Open cur_rowid;
688: Fetch cur_rowid INTO lv_rowid;
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;
718: Open cur_rowid;
719: Fetch cur_rowid INTO lv_rowid;
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;
745: Open cur_rowid;
746: Fetch cur_rowid INTO lv_rowid;
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;
772: Open cur_rowid;
773: Fetch cur_rowid INTO lv_rowid;
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;
886: new_references.cal_type,
887: new_references.location_cd,
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;
912: new_references.cal_type,
913: new_references.location_cd,
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;
1014: END LOOP;
1015: EXCEPTION
1016: WHEN OTHERS THEN
1017: -- If an error occurs during insertion in igs_ps_ent_pt_ref_cd then raise an exception.
1018: p_message_name := FND_MESSAGE.GET;
1019:
1020: END dflt_prg_ofropt_ref_code;
1021:
1022:
1138: if X_LAST_UPDATE_LOGIN is NULL then
1139: X_LAST_UPDATE_LOGIN := -1;
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 (
1408: open c1;
1409: fetch c1 into tlinfo;
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;
1428: AND (X_ENR_OFFICER_PERSON_ID is null)))
1429: ) then
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;
1493: if X_LAST_UPDATE_LOGIN is NULL then
1494: X_LAST_UPDATE_LOGIN := -1;
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 (