[Home] [Help]
44: Open cur_old_ref_values;
45: Fetch cur_old_ref_values INTO old_references;
46: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
47: Close cur_old_ref_values;
48: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
49: IGS_GE_MSG_STACK.ADD;
50: App_Exception.Raise_Exception;
51: Return;
52: END IF;
97: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
98: new_references.adm_appl_offer_resp_dt_alias,
99: 'ADM_APPL_OFFER_RESP_DT_ALIAS',
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;
112: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
113: new_references.adm_appl_chng_of_pref_dt_alias,
114: 'ADM_APPL_CHNG_OF_PREF_DT_ALIAS',
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: END IF;
126: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
127: new_references.adm_appl_due_dt_alias,
128: 'ADM_APPL_DUE_DT_ALIAS',
129: v_message_name) = FALSE THEN
130: Fnd_Message.Set_Name('IGS',v_message_name);
131: IGS_GE_MSG_STACK.ADD;
132: App_Exception.Raise_Exception;
133: END IF;
134: END IF;
140: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
141: new_references.adm_appl_final_dt_alias,
142: 'ADM_APPL_FINAL_DT_ALIAS',
143: v_message_name) = FALSE THEN
144: Fnd_Message.Set_Name('IGS',v_message_name);
145: IGS_GE_MSG_STACK.ADD;
146: App_Exception.Raise_Exception;
147: END IF;
148: END IF;
154: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
155: new_references.initialise_adm_perd_dt_alias,
156: 'INITIALISE_ADM_PERD_DT_ALIAS',
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;
168: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
169: new_references.adm_appl_encmb_chk_dt_alias,
170: 'ADM_APPL_ENCMB_CHK_DT_ALIAS',
171: v_message_name) = FALSE THEN
172: Fnd_Message.Set_Name('IGS',v_message_name);
173: IGS_GE_MSG_STACK.ADD;
174: App_Exception.Raise_Exception;
175: END IF;
176: END IF;
182: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
183: new_references.adm_appl_course_strt_dt_alias,
184: 'ADM_APPL_COURSE_STRT_DT_ALIAS',
185: v_message_name) = FALSE THEN
186: Fnd_Message.Set_Name('IGS',v_message_name);
187: IGS_GE_MSG_STACK.ADD;
188: App_Exception.Raise_Exception;
189: END IF;
190: END IF;
197: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
198: new_references.adm_appl_short_strt_dt_alias,
199: 'ADM_APPL_SHORT_STRT_DT_ALIAS',
200: v_message_name) = FALSE THEN
201: Fnd_Message.Set_Name('IGS',v_message_name);
202: IGS_GE_MSG_STACK.ADD;
203: App_Exception.Raise_Exception;
204: END IF;
205: END IF;
211: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
212: new_references.adm_appl_e_comp_perd_dt_alias,
213: 'ADM_APPL_E_COMP_PERD_DT_ALIAS',
214: v_message_name) = FALSE THEN
215: Fnd_Message.Set_Name('IGS',v_message_name);
216: IGS_GE_MSG_STACK.ADD;
217: App_Exception.Raise_Exception;
218: END IF;
219: END IF;
225: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
226: new_references.adm_appl_m_comp_perd_dt_alias,
227: 'ADM_APPL_M_COMP_PERD_DT_ALIAS',
228: v_message_name) = FALSE THEN
229: Fnd_Message.Set_Name('IGS',v_message_name);
230: IGS_GE_MSG_STACK.ADD;
231: App_Exception.Raise_Exception;
232: END IF;
233: END IF;
239: IF IGS_AD_VAL_SACCO.admp_val_sacco_da (
240: new_references.adm_appl_s_comp_perd_dt_alias,
241: 'ADM_APPL_S_COMP_PERD_DT_ALIAS',
242: v_message_name) = FALSE THEN
243: Fnd_Message.Set_Name('IGS',v_message_name);
244: IGS_GE_MSG_STACK.ADD;
245: App_Exception.Raise_Exception;
246: END IF;
247: END IF;
289: END IF;
290:
291: IF upper(Column_Name) = 'ADM_APPL_CHNG_OF_PREF_DT_ALIAS' OR Column_Name IS NULL THEN
292: IF new_references.adm_appl_chng_of_pref_dt_alias <> UPPER(new_references.adm_appl_chng_of_pref_dt_alias) 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;
296: END IF;
297: END IF;
298: IF upper(Column_Name) = 'ADM_APPL_DUE_DT_ALIAS' OR Column_Name IS NULL THEN
299: IF new_references.adm_appl_due_dt_alias <> UPPER(new_references.adm_appl_due_dt_alias) THEN
300: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
301: IGS_GE_MSG_STACK.ADD;
302: App_Exception.Raise_Exception;
303: END IF;
304: END IF;
303: END IF;
304: END IF;
305: IF upper(Column_Name) = 'ADM_APPL_FINAL_DT_ALIAS' OR Column_Name IS NULL THEN
306: IF new_references.adm_appl_final_dt_alias <> UPPER(new_references.adm_appl_final_dt_alias) THEN
307: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
308: IGS_GE_MSG_STACK.ADD;
309: App_Exception.Raise_Exception;
310: END IF;
311: END IF;
310: END IF;
311: END IF;
312: IF upper(Column_Name) = 'ADM_APPL_OFFER_RESP_DT_ALIAS' OR Column_Name IS NULL THEN
313: IF new_references.adm_appl_offer_resp_dt_alias <> UPPER(new_references.adm_appl_offer_resp_dt_alias) THEN
314: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
315: IGS_GE_MSG_STACK.ADD;
316: App_Exception.Raise_Exception;
317: END IF;
318: END IF;
317: END IF;
318: END IF;
319: IF upper(Column_Name) = 'INITIALISE_ADM_PERD_DT_ALIAS' OR Column_Name IS NULL THEN
320: IF new_references.initialise_adm_perd_dt_alias <> UPPER(new_references.initialise_adm_perd_dt_alias) THEN
321: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
322: IGS_GE_MSG_STACK.ADD;
323: App_Exception.Raise_Exception;
324: END IF;
325: END IF;
324: END IF;
325: END IF;
326: IF upper(Column_Name) = 'ADM_APPL_ENCMB_CHK_DT_ALIAS' OR Column_Name IS NULL THEN
327: IF new_references.adm_appl_encmb_chk_dt_alias <> UPPER(new_references.adm_appl_encmb_chk_dt_alias) THEN
328: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
329: IGS_GE_MSG_STACK.ADD;
330: App_Exception.Raise_Exception;
331: END IF;
332: END IF;
331: END IF;
332: END IF;
333: IF upper(Column_Name) = 'ADM_APPL_SHORT_STRT_DT_ALIAS' OR Column_Name IS NULL THEN
334: IF new_references.adm_appl_short_strt_dt_alias <> UPPER(new_references.adm_appl_short_strt_dt_alias) THEN
335: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
336: IGS_GE_MSG_STACK.ADD;
337: App_Exception.Raise_Exception;
338: END IF;
339: END IF;
338: END IF;
339: END IF;
340: IF upper(Column_Name) = 'ADM_APPL_E_COMP_PERD_DT_ALIAS' OR Column_Name IS NULL THEN
341: IF new_references.adm_appl_e_comp_perd_dt_alias <> UPPER(new_references.adm_appl_e_comp_perd_dt_alias) THEN
342: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
343: IGS_GE_MSG_STACK.ADD;
344: App_Exception.Raise_Exception;
345: END IF;
346: END IF;
345: END IF;
346: END IF;
347: IF upper(Column_Name) = 'ADM_APPL_M_COMP_PERD_DT_ALIAS' OR Column_Name IS NULL THEN
348: IF new_references.adm_appl_m_comp_perd_dt_alias <> UPPER(new_references.adm_appl_m_comp_perd_dt_alias) THEN
349: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
350: IGS_GE_MSG_STACK.ADD;
351: App_Exception.Raise_Exception;
352: END IF;
353: END IF;
352: END IF;
353: END IF;
354: IF upper(Column_Name) = 'ADM_APPL_S_COMP_PERD_DT_ALIAS' OR Column_Name IS NULL THEN
355: IF new_references.adm_appl_s_comp_perd_dt_alias <> UPPER(new_references.adm_appl_s_comp_perd_dt_alias) THEN
356: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
357: IGS_GE_MSG_STACK.ADD;
358: App_Exception.Raise_Exception;
359: END IF;
360: END IF;
359: END IF;
360: END IF;
361: IF upper(Column_Name) = 'ADM_APPL_COURSE_STRT_DT_ALIAS' OR Column_Name IS NULL THEN
362: IF new_references.adm_appl_course_strt_dt_alias <> UPPER(new_references.adm_appl_course_strt_dt_alias) 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;
366: END IF;
367: END IF;
368: IF upper(Column_Name) = 'S_CONTROL_NUM' OR Column_Name IS NULL THEN
369: IF new_references.s_control_num <> 1 THEN
370: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
371: IGS_GE_MSG_STACK.ADD;
372: App_Exception.Raise_Exception;
373: END IF;
374: END IF;
374: END IF;
375:
376: IF upper(Column_Name) = 'ADM_PRC_TRK_DT_ALIAS' OR Column_Name IS NULL THEN
377: IF new_references.ADM_PRC_TRK_DT_ALIAS <> UPPER(new_references.ADM_PRC_TRK_DT_ALIAS) THEN
378: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
379: IGS_GE_MSG_STACK.ADD;
380: App_Exception.Raise_Exception;
381: END IF;
382: END IF;
382: END IF;
383:
384: IF upper(Column_Name) = 'POST_ADM_TRK_DT_ALIAS' OR Column_Name IS NULL THEN
385: IF new_references.POST_ADM_TRK_DT_ALIAS <> UPPER(new_references.POST_ADM_TRK_DT_ALIAS) THEN
386: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
387: IGS_GE_MSG_STACK.ADD;
388: App_Exception.Raise_Exception;
389: END IF;
390: END IF;
390: END IF;
391:
392: IF upper(Column_Name) = 'INQ_CAL_TYPE' OR Column_Name IS NULL THEN
393: IF new_references.INQ_CAL_TYPE <> UPPER(new_references.INQ_CAL_TYPE) THEN
394: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
395: IGS_GE_MSG_STACK.ADD;
396: App_Exception.Raise_Exception;
397: END IF;
398: END IF;
408: ELSE
409: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
410: new_references.adm_appl_course_strt_dt_alias
411: ) THEN
412: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
413: IGS_GE_MSG_STACK.ADD;
414: App_Exception.Raise_Exception;
415: END IF;
416: END IF;
421: ELSE
422: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
423: new_references.adm_appl_final_dt_alias
424: ) THEN
425: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
426: IGS_GE_MSG_STACK.ADD;
427: App_Exception.Raise_Exception;
428: END IF;
429: END IF;
434: ELSE
435: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
436: new_references.adm_appl_due_dt_alias
437: ) THEN
438: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
439: IGS_GE_MSG_STACK.ADD;
440: App_Exception.Raise_Exception;
441: END IF;
442: END IF;
447: ELSE
448: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
449: new_references.adm_appl_encmb_chk_dt_alias
450: ) THEN
451: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
452: IGS_GE_MSG_STACK.ADD;
453: App_Exception.Raise_Exception;
454: END IF;
455: END IF;
460: ELSE
461: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
462: new_references.adm_appl_e_comp_perd_dt_alias
463: ) THEN
464: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
465: IGS_GE_MSG_STACK.ADD;
466: App_Exception.Raise_Exception;
467: END IF;
468: END IF;
473: ELSE
474: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
475: new_references.initialise_adm_perd_dt_alias
476: ) THEN
477: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
478: IGS_GE_MSG_STACK.ADD;
479: App_Exception.Raise_Exception;
480: END IF;
481: END IF;
486: ELSE
487: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
488: new_references.adm_appl_m_comp_perd_dt_alias
489: ) THEN
490: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
491: IGS_GE_MSG_STACK.ADD;
492: App_Exception.Raise_Exception;
493: END IF;
494: END IF;
499: ELSE
500: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
501: new_references.adm_appl_chng_of_pref_dt_alias
502: ) THEN
503: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
504: IGS_GE_MSG_STACK.ADD;
505: App_Exception.Raise_Exception;
506: END IF;
507: END IF;
512: ELSE
513: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
514: new_references.adm_appl_offer_resp_dt_alias
515: ) THEN
516: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
517: IGS_GE_MSG_STACK.ADD;
518: App_Exception.Raise_Exception;
519: END IF;
520: END IF;
525: ELSE
526: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
527: new_references.adm_appl_short_strt_dt_alias
528: ) THEN
529: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
530: IGS_GE_MSG_STACK.ADD;
531: App_Exception.Raise_Exception;
532: END IF;
533: END IF;
538: ELSE
539: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
540: new_references.adm_appl_s_comp_perd_dt_alias
541: ) THEN
542: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
543: IGS_GE_MSG_STACK.ADD;
544: App_Exception.Raise_Exception;
545: END IF;
546: END IF;
551: ELSE
552: IF NOT IGS_CA_TYPE_PKG.Get_PK_For_Validation (
553: new_references.inq_cal_type
554: ) THEN
555: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
556: IGS_GE_MSG_STACK.ADD;
557: App_Exception.Raise_Exception;
558: END IF;
559: END IF;
611: Open cur_rowid;
612: Fetch cur_rowid INTO lv_rowid;
613: IF (cur_rowid%FOUND) THEN
614: Close cur_rowid;
615: Fnd_Message.Set_Name ('IGS', 'IGS_AD_SACCO_DA_DUE_FK');
616: IGS_GE_MSG_STACK.ADD;
617: App_Exception.Raise_Exception;
618: Return;
619: END IF;
639: Open cur_rowid;
640: Fetch cur_rowid INTO lv_rowid;
641: IF (cur_rowid%FOUND) THEN
642: Close cur_rowid;
643: Fnd_Message.Set_Name ('IGS', 'IGS_AD_SACCO_CAT_FK');
644: IGS_GE_MSG_STACK.ADD;
645: App_Exception.Raise_Exception;
646: Return;
647: END IF;
704: BeforeRowInsertUpdate1 ( p_inserting => TRUE );
705: IF Get_PK_For_Validation (
706: new_references.s_control_num
707: ) THEN
708: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
709: IGS_GE_MSG_STACK.ADD;
710: App_Exception.Raise_Exception;
711: END IF;
712: Check_Constraints;
720: ELSIF (p_action = 'VALIDATE_INSERT') THEN
721: IF Get_PK_For_Validation (
722: new_references.s_control_num
723: ) THEN
724: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
725: IGS_GE_MSG_STACK.ADD;
726: App_Exception.Raise_Exception;
727: END IF;
728: Check_Constraints;
781: if X_LAST_UPDATE_LOGIN is NULL then
782: X_LAST_UPDATE_LOGIN := -1;
783: end if;
784: else
785: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
786: IGS_GE_MSG_STACK.ADD;
787: app_exception.raise_exception;
788: end if;
789:
910: begin
911: open c1;
912: fetch c1 into tlinfo;
913: if (c1%notfound) then
914: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
915: IGS_GE_MSG_STACK.ADD;
916: app_exception.raise_exception;
917: close c1;
918: return;
963: AND (X_INQ_CAL_TYPE is null)))
964: ) then
965: null;
966: else
967: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
968: IGS_GE_MSG_STACK.ADD;
969: app_exception.raise_exception;
970: end if;
971: return;
1007: if X_LAST_UPDATE_LOGIN is NULL then
1008: X_LAST_UPDATE_LOGIN := -1;
1009: end if;
1010: else
1011: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1012: IGS_GE_MSG_STACK.ADD;
1013: app_exception.raise_exception;
1014: end if;
1015: