[Home] [Help]
55: -- Populate Old Values.
56: Open cur_old_ref_values;
57: Fetch cur_old_ref_values INTO old_references;
58: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
59: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
60: Igs_Ge_Msg_Stack.Add;
61: Close cur_old_ref_values;
62: App_Exception.Raise_Exception;
63: Return;
119: BEGIN
120: -- Validate conditions on insert (these apply to the trigger only).
121: IF p_inserting THEN
122: IF new_references.s_adv_stnd_type <> 'LEVEL' THEN
123: Fnd_Message.Set_Name('IGS', 'IGS_AV_TYPE_MUSTBE_LEVEL');
124: Igs_Ge_Msg_Stack.Add;
125: App_Exception.Raise_Exception;
126: END IF;
127: IF new_references.s_adv_stnd_granting_status <> 'APPROVED' AND
125: App_Exception.Raise_Exception;
126: END IF;
127: IF new_references.s_adv_stnd_granting_status <> 'APPROVED' AND
128: p_adv_stnd_trans = 'N' THEN
129: Fnd_Message.Set_Name('IGS', 'IGS_AV_STATUS_MUSTBE_APPROVED');
130: Igs_Ge_Msg_Stack.Add;
131: App_Exception.Raise_Exception;
132: END IF;
133: END IF;
135: IF p_inserting OR p_updating THEN
136: IF igs_av_val_asule.advp_val_ule_closed (
137: new_references.UNIT_LEVEL,
138: v_message_name) = FALSE THEN
139: Fnd_Message.Set_Name('IGS', v_message_name);
140: Igs_Ge_Msg_Stack.Add;
141: App_Exception.Raise_Exception;
142: END IF;
143: END IF;
150: new_references.approved_dt,
151: 'APPROVED',
152: v_message_name,
153: p_adv_stnd_trans) = FALSE THEN
154: Fnd_Message.Set_Name('IGS', v_message_name);
155: Igs_Ge_Msg_Stack.Add;
156: App_Exception.Raise_Exception;
157: END IF;
158: END IF;
161: IF p_updating AND
162: (new_references.s_adv_stnd_granting_status = 'GRANTED') AND
163: (old_references.s_adv_stnd_granting_status <> new_references.s_adv_stnd_granting_status) THEN
164: IF old_references.s_adv_stnd_granting_status = 'REVOKED' THEN
165: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_REVOKED_APPROVED');
166: Igs_Ge_Msg_Stack.Add;
167: App_Exception.Raise_Exception;
168: ELSIF old_references.s_adv_stnd_granting_status = 'CANCELLED' THEN
169: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_CANCELLED_APPROVED');
165: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_REVOKED_APPROVED');
166: Igs_Ge_Msg_Stack.Add;
167: App_Exception.Raise_Exception;
168: ELSIF old_references.s_adv_stnd_granting_status = 'CANCELLED' THEN
169: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_CANCELLED_APPROVED');
170: Igs_Ge_Msg_Stack.Add;
171: App_Exception.Raise_Exception;
172: ELSIF old_references.s_adv_stnd_granting_status = 'EXPIRED' THEN
173: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_EXPIRED_APPROVED');
169: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_CANCELLED_APPROVED');
170: Igs_Ge_Msg_Stack.Add;
171: App_Exception.Raise_Exception;
172: ELSIF old_references.s_adv_stnd_granting_status = 'EXPIRED' THEN
173: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_EXPIRED_APPROVED');
174: Igs_Ge_Msg_Stack.Add;
175: App_Exception.Raise_Exception;
176: END IF;
177: END IF;
184: new_references.granted_dt,
185: 'GRANTED',
186: v_message_name,
187: p_adv_stnd_trans) = 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;
198: IF igs_av_val_asu.advp_val_expiry_dt (
199: new_references.expiry_dt,
200: v_message_name,
201: p_adv_stnd_trans) = FALSE THEN
202: Fnd_Message.Set_Name('IGS', v_message_name);
203: Igs_Ge_Msg_Stack.Add;
204: App_Exception.Raise_Exception;
205: END IF;
206: END IF;
212: IF igs_av_val_asu.advp_val_as_dates (
213: new_references.cancelled_dt,
214: 'CANCELLED',
215: v_message_name) = FALSE THEN
216: Fnd_Message.Set_Name('IGS', v_message_name);
217: Igs_Ge_Msg_Stack.Add;
218: App_Exception.Raise_Exception;
219: END IF;
220: IF igs_av_val_asu.advp_val_as_aprvd_dt (
220: IF igs_av_val_asu.advp_val_as_aprvd_dt (
221: new_references.approved_dt,
222: new_references.cancelled_dt,
223: v_message_name) = FALSE THEN
224: Fnd_Message.Set_Name('IGS', v_message_name);
225: Igs_Ge_Msg_Stack.Add;
226: App_Exception.Raise_Exception;
227: END IF;
228: END IF;
234: IF igs_av_val_asu.advp_val_as_dates (
235: new_references.revoked_dt,
236: 'REVOKED',
237: v_message_name) = FALSE THEN
238: Fnd_Message.Set_Name('IGS', v_message_name);
239: Igs_Ge_Msg_Stack.Add;
240: App_Exception.Raise_Exception;
241: END IF;
242: IF igs_av_val_asu.advp_val_as_aprvd_dt (
242: IF igs_av_val_asu.advp_val_as_aprvd_dt (
243: new_references.approved_dt,
244: new_references.revoked_dt,
245: v_message_name) = FALSE THEN
246: Fnd_Message.Set_Name('IGS', v_message_name);
247: Igs_Ge_Msg_Stack.Add;
248: App_Exception.Raise_Exception;
249: END IF;
250: END IF;
257: new_references.granted_dt,
258: v_message_name,
259: p_adv_stnd_trans
260: ) = FALSE THEN
261: Fnd_Message.Set_Name('IGS', v_message_name);
262: Igs_Ge_Msg_Stack.Add;
263: App_Exception.Raise_Exception;
264: END IF;
265: ELSIF new_references.s_adv_stnd_granting_status = 'REVOKED' THEN
267: 'REVOKED',
268: new_references.revoked_dt,
269: v_message_name
270: ) = FALSE THEN
271: Fnd_Message.Set_Name('IGS', v_message_name);
272: Igs_Ge_Msg_Stack.Add;
273: App_Exception.Raise_Exception;
274: END IF;
275: ELSIF new_references.s_adv_stnd_granting_status = 'CANCELLED' THEN
277: 'CANCELLED',
278: new_references.cancelled_dt,
279: v_message_name
280: ) = FALSE THEN
281: Fnd_Message.Set_Name('IGS', v_message_name);
282: Igs_Ge_Msg_Stack.Add;
283: App_Exception.Raise_Exception;
284: END IF;
285: ELSIF new_references.s_adv_stnd_granting_status = 'EXPIRED' THEN
287: 'EXPIRED',
288: new_references.expiry_dt,
289: v_message_name
290: ) = FALSE THEN
291: Fnd_Message.Set_Name('IGS', v_message_name);
292: Igs_Ge_Msg_Stack.Add;
293: App_Exception.Raise_Exception;
294: END IF;
295: ELSIF new_references.s_adv_stnd_granting_status = 'APPROVED' THEN
298: new_references.approved_dt,
299: v_message_name,
300: p_adv_stnd_trans
301: ) = FALSE THEN
302: Fnd_Message.Set_Name('IGS', v_message_name);
303: Igs_Ge_Msg_Stack.Add;
304: App_Exception.Raise_Exception;
305: END IF;
306: END IF;
313: (p_updating AND (new_references.authorising_person_id <> old_references.authorising_person_id)) THEN
314: IF igs_co_val_oc.genp_val_prsn_id (
315: new_references.authorising_person_id,
316: v_message_name) = FALSE THEN
317: Fnd_Message.Set_Name('IGS', v_message_name);
318: Igs_Ge_Msg_Stack.Add;
319: App_Exception.Raise_Exception;
320: END IF;
321: IF igs_ad_val_acai.genp_val_staff_prsn (
320: END IF;
321: IF igs_ad_val_acai.genp_val_staff_prsn (
322: new_references.authorising_person_id,
323: v_message_name) = FALSE THEN
324: Fnd_Message.Set_Name('IGS', v_message_name);
325: Igs_Ge_Msg_Stack.Add;
326: App_Exception.Raise_Exception;
327: END IF;
328: END IF;
337: new_references.person_id,
338: new_references.as_course_cd,
339: new_references.granted_dt,
340: v_message_name) = FALSE THEN
341: Fnd_Message.Set_Name('IGS', v_message_name);
342: Igs_Ge_Msg_Stack.Add;
343: App_Exception.Raise_Exception;
344: END IF;
345: END IF;
348: old_references.exemption_institution_cd)) THEN
349: IF igs_av_val_asu.advp_val_asu_inst (
350: new_references.exemption_institution_cd,
351: v_message_name) = FALSE THEN
352: Fnd_Message.Set_Name('IGS', v_message_name);
353: Igs_Ge_Msg_Stack.Add;
354: App_Exception.Raise_Exception;
355: END IF;
356: END IF;
371: v_course_cd,
372: v_version_number,
373: v_message_name,
374: v_exemption_institution_cd) = FALSE THEN
375: Fnd_Message.Set_Name('IGS', v_message_name);
376: Igs_Ge_Msg_Stack.Add;
377: App_Exception.Raise_Exception;
378: END IF;
379: -- Process any advanced standing to do records
446: new_references.as_course_cd,
447: new_references.as_version_number,
448: v_message_name,
449: new_references.exemption_institution_cd) = FALSE THEN
450: Fnd_Message.Set_Name('IGS', v_message_name);
451: IGS_GE_MSG_STACK.ADD;
452: App_Exception.Raise_Exception;
453: END IF;
454: ELSE
457: old_references.as_course_cd,
458: old_references.as_version_number,
459: v_message_name,
460: old_references.exemption_institution_cd) = FALSE THEN
461: Fnd_Message.Set_Name('IGS', v_message_name);
462: IGS_GE_MSG_STACK.ADD;
463: App_Exception.Raise_Exception;
464: END IF;
465: END IF;
500: IF upper(column_name) = 'S_ADV_STND_TYPE' OR
501: column_name is null Then
502: IF new_references.S_ADV_STND_TYPE <>
503: UPPER(new_references.S_ADV_STND_TYPE) Then
504: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
505: Igs_Ge_Msg_Stack.Add;
506: App_Exception.Raise_Exception;
507: END IF;
508: END IF;
509: IF upper(column_name) = 'UNIT_LEVEL' OR
510: column_name is null Then
511: IF new_references.UNIT_LEVEL <>
512: UPPER(new_references.UNIT_LEVEL) Then
513: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
514: Igs_Ge_Msg_Stack.Add;
515: App_Exception.Raise_Exception;
516: END IF;
517: END IF;
518: IF upper(column_name) = 'AS_COURSE_CD' OR
519: column_name is null Then
520: IF new_references.AS_COURSE_CD <>
521: UPPER(new_references.AS_COURSE_CD) Then
522: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
523: Igs_Ge_Msg_Stack.Add;
524: App_Exception.Raise_Exception;
525: END IF;
526: END IF;
527: IF upper(column_name) = 'S_ADV_STND_GRANTING_STATUS' OR
528: column_name is null Then
529: IF new_references.S_ADV_STND_GRANTING_STATUS <>
530: UPPER(new_references.S_ADV_STND_GRANTING_STATUS) Then
531: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
532: Igs_Ge_Msg_Stack.Add;
533: App_Exception.Raise_Exception;
534: END IF;
535: END IF;
536: IF upper(column_name) = 'CRS_GROUP_IND' OR
537: column_name is null Then
538: IF new_references.crs_group_ind <>
539: UPPER(new_references.crs_group_ind) Then
540: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
541: Igs_Ge_Msg_Stack.Add;
542: App_Exception.Raise_Exception;
543: END IF;
544: END IF;
548: -- 16-Oct-2002; kdande; Bug# 2627933
549: -- Changed the credit point limit to 999.999 from 99
550: IF new_references.credit_points < 0 OR
551: new_references.credit_points > 999.999 Then
552: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
553: Igs_Ge_Msg_Stack.Add;
554: App_Exception.Raise_Exception;
555: END IF;
556: END IF;
558: IF upper(column_name) = 'UNIT_LEVEL_MARK' OR
559: column_name is null Then
560: IF new_references.unit_level_mark < 0 OR
561: new_references.unit_level_mark > 100.000 Then
562: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
563: Igs_Ge_Msg_Stack.Add;
564: App_Exception.Raise_Exception;
565: END IF;
566: END IF;
567:
568: IF upper(column_name) = 'CRS_GROUP_IND' OR
569: column_name is null Then
570: IF (new_references.crs_group_ind not in ('Y', 'N')) Then
571: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
572: Igs_Ge_Msg_Stack.Add;
573: App_Exception.Raise_Exception;
574: END IF;
575: END IF;
575: END IF;
576: IF upper(column_name) = 'S_ADV_STND_TYPE' OR
577: column_name is null Then
578: IF (new_references.s_adv_stnd_type <> 'LEVEL') Then
579: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
580: Igs_Ge_Msg_Stack.Add;
581: App_Exception.Raise_Exception;
582: END IF;
583: END IF;
585: -- Start of addition for Bug no. 1960126
586: --Added qual_dets_id in if condition w.r.t. ARCR032 CCR
587: IF (new_references.institution_cd IS NOT NULL) AND
588: (new_references.unit_details_id IS NULL AND new_references.QUAL_DETS_ID IS NULL ) THEN
589: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
590: Igs_Ge_Msg_Stack.Add;
591: App_Exception.Raise_Exception;
592: END IF;
593:
592: END IF;
593:
594: IF (new_references.institution_cd IS NULL AND
595: new_references.tst_rslt_dtls_id IS NULL) THEN
596: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
597: Igs_Ge_Msg_Stack.Add;
598: App_Exception.Raise_Exception;
599: END IF;
600:
605: (new_references.unit_details_id IS NOT NULL AND new_references.qual_dets_id IS NOT NULL ) OR
606: (new_references.qual_dets_id IS NOT NULL AND new_references.tst_rslt_dtls_id IS NOT NULL))
607:
608: ) THEN
609: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
610: Igs_Ge_Msg_Stack.Add;
611: App_Exception.Raise_Exception;
612: END IF;
613:
614:
615: IF upper(column_name) = 'CAL_TYPE' OR
616: column_name is null THEN
617: IF (new_references.cal_type IS NULL) THEN
618: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
619: Igs_Ge_Msg_Stack.Add;
620: App_Exception.Raise_Exception;
621: END IF;
622: END IF;
623:
624: IF upper(column_name) = 'CI_SEQUENCE_NUMBER' OR
625: column_name is null THEN
626: IF (new_references.CI_SEQUENCE_NUMBER IS NULL) THEN
627: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
628: Igs_Ge_Msg_Stack.Add;
629: App_Exception.Raise_Exception;
630: END IF;
631: END IF;
657: new_references.qual_dets_id,
658: new_references.s_adv_stnd_type,
659: new_references.crs_group_ind
660: ) THEN
661: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
662: IGS_GE_MSG_STACK.ADD;
663: app_exception.raise_exception;
664: END IF;
665: END Check_Uniqueness ;
679: new_references.as_course_cd,
680: new_references.as_version_number,
681: new_references.exemption_institution_cd
682: ) THEN
683: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
684: Igs_Ge_Msg_Stack.Add;
685: App_Exception.Raise_Exception;
686: END IF;
687: END IF;
703: FOR rec_exists IN c_exists
704: LOOP
705:
706: EXECUTE IMMEDIATE
707: 'BEGIN IF NOT IGS_UC_QUAL_DETS_PKG.Get_PK_For_Validation(:1) THEN Fnd_Message.Set_Name (''FND'', ''FORM_RECORD_DELETED''); Igs_Ge_Msg_Stack.Add; App_Exception.Raise_Exception; END IF; END;'
708: USING
709: new_references.qual_dets_id;
710:
711: END LOOP;
718: ELSE
719: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
720: new_references.authorising_person_id
721: ) THEN
722: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
723: Igs_Ge_Msg_Stack.Add;
724: App_Exception.Raise_Exception;
725: END IF;
726: END IF;
731: IF NOT IGS_LOOKUPS_VIEW_Pkg.Get_PK_For_Validation (
732: 'ADV_STND_GRANTING_STATUS',
733: new_references.s_adv_stnd_granting_status
734: ) THEN
735: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
736: Igs_Ge_Msg_Stack.Add;
737: App_Exception.Raise_Exception;
738: END IF;
739: END IF;
743: ELSE
744: IF NOT IGS_PS_UNIT_LEVEL_PKG.Get_PK_For_Validation (
745: new_references.UNIT_LEVEL
746: ) THEN
747: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
748: Igs_Ge_Msg_Stack.Add;
749: App_Exception.Raise_Exception;
750: END IF;
751: END IF;
758: NULL;
759: ELSE
760: IF NOT IGS_CA_INST_PKG.Get_PK_For_Validation (new_references.cal_type,
761: new_references.ci_sequence_number) THEN
762: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
763: Igs_Ge_Msg_Stack.Add;
764: App_Exception.Raise_Exception;
765: END IF;
766: END IF;
871: BEGIN
872: Open cur_rowid;
873: Fetch cur_rowid INTO lv_rowid;
874: IF (cur_rowid%FOUND) THEN
875: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_AS_FK');
876: Igs_Ge_Msg_Stack.Add;
877: Close cur_rowid;
878: App_Exception.Raise_Exception;
879: Return;
895: BEGIN
896: Open cur_rowid;
897: Fetch cur_rowid INTO lv_rowid;
898: IF (cur_rowid%FOUND) THEN
899: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_PE_FK');
900: Igs_Ge_Msg_Stack.Add;
901: Close cur_rowid;
902: App_Exception.Raise_Exception;
903: Return;
916: BEGIN
917: Open cur_rowid;
918: Fetch cur_rowid INTO lv_rowid;
919: IF (cur_rowid%FOUND) THEN
920: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_SLV_FK');
921: Igs_Ge_Msg_Stack.Add;
922: Close cur_rowid;
923: App_Exception.Raise_Exception;
924: Return;
941: BEGIN
942: Open cur_rowid;
943: Fetch cur_rowid INTO lv_rowid;
944: IF (cur_rowid%FOUND) THEN
945: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_CI_FK');
946: Igs_Ge_Msg_Stack.Add;
947: Close cur_rowid;
948: App_Exception.Raise_Exception;
949: Return;
963: BEGIN
964: Open cur_rowid;
965: Fetch cur_rowid into lv_rowid;
966: IF (cur_rowid%FOUND) THEN
967: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_UCQD_FK');
968: Igs_Ge_Msg_Stack.Add;
969: Close cur_rowid;
970: App_Exception.Raise_Exception;
971: Return;
985: BEGIN
986: Open cur_rowid;
987: Fetch cur_rowid INTO l_rowid;
988: IF (cur_rowid%FOUND) THEN
989: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_TUD_FK');
990: Igs_Ge_Msg_Stack.Add;
991: Close cur_rowid;
992: App_Exception.Raise_Exception;
993: Return;
1006: BEGIN
1007: Open cur_rowid;
1008: Fetch cur_rowid INTO l_rowid;
1009: IF (cur_rowid%FOUND) THEN
1010: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_TRD_FK');
1011: Igs_Ge_Msg_Stack.Add;
1012: Close cur_rowid;
1013: App_Exception.Raise_Exception;
1014: Return;
1100: p_adv_stnd_trans => x_adv_stnd_trans);
1101: IF Get_PK_For_Validation (
1102: new_references.av_stnd_unit_lvl_id
1103: ) THEN
1104: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1105: Igs_Ge_Msg_Stack.Add;
1106: App_Exception.Raise_Exception;
1107: END IF;
1108: check_uniqueness;
1128: ELSIF (p_action = 'VALIDATE_INSERT') THEN
1129: IF Get_PK_For_Validation (
1130: new_references.av_stnd_unit_lvl_id
1131: ) THEN
1132: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1133: Igs_Ge_Msg_Stack.Add;
1134: App_Exception.Raise_Exception;
1135: END IF;
1136: check_uniqueness;
1233: else
1234: X_PROGRAM_UPDATE_DATE := SYSDATE ;
1235: end if ;
1236: else
1237: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1238: Igs_Ge_Msg_Stack.Add;
1239: app_exception.raise_exception;
1240: end if;
1241: select IGS_AV_STND_UNIT_LVL_S.NEXTVAL INTO x_av_stnd_unit_lvl_id FROM DUAL;
1370: );
1371: EXCEPTION
1372: WHEN OTHERS THEN
1373: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
1374: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1375: fnd_message.set_token ('ERR_CD', SQLCODE);
1376: igs_ge_msg_stack.add;
1377: igs_sc_gen_001.unset_ctx('R');
1378: app_exception.raise_exception;
1371: EXCEPTION
1372: WHEN OTHERS THEN
1373: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
1374: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1375: fnd_message.set_token ('ERR_CD', SQLCODE);
1376: igs_ge_msg_stack.add;
1377: igs_sc_gen_001.unset_ctx('R');
1378: app_exception.raise_exception;
1379: ELSE
1437: begin
1438: open c1;
1439: fetch c1 into tlinfo;
1440: if (c1%notfound) then
1441: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1442: Igs_Ge_Msg_Stack.Add;
1443: close c1;
1444: app_exception.raise_exception;
1445: return;
1490: AND (X_UNIT_LEVEL_MARK is null)))
1491: ) then
1492: null;
1493: else
1494: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1495: Igs_Ge_Msg_Stack.Add;
1496: app_exception.raise_exception;
1497: end if;
1498: return;
1549: if X_LAST_UPDATE_LOGIN is NULL then
1550: X_LAST_UPDATE_LOGIN := -1;
1551: end if;
1552: else
1553: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1554: Igs_Ge_Msg_Stack.Add;
1555: app_exception.raise_exception;
1556: end if;
1557:
1632: QUAL_DETS_ID = X_QUAL_DETS_ID,
1633: UNIT_LEVEL_MARK = X_UNIT_LEVEL_MARK
1634: where rowid = X_ROWID ;
1635: if (sql%notfound) then
1636: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1637: igs_ge_msg_stack.add;
1638: igs_sc_gen_001.unset_ctx('R');
1639: app_exception.raise_exception;
1640: end if;
1648: );
1649: EXCEPTION
1650: WHEN OTHERS THEN
1651: IF (SQLCODE = (-28115)) THEN
1652: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1653: fnd_message.set_token ('ERR_CD', SQLCODE);
1654: igs_ge_msg_stack.add;
1655: igs_sc_gen_001.unset_ctx('R');
1656: app_exception.raise_exception;
1649: EXCEPTION
1650: WHEN OTHERS THEN
1651: IF (SQLCODE = (-28115)) THEN
1652: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1653: fnd_message.set_token ('ERR_CD', SQLCODE);
1654: igs_ge_msg_stack.add;
1655: igs_sc_gen_001.unset_ctx('R');
1656: app_exception.raise_exception;
1657: ELSE
1779: END IF;
1780: delete from IGS_AV_STND_UNIT_LVL_ALL
1781: where ROWID = X_ROWID ;
1782: if (sql%notfound) then
1783: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1784: igs_ge_msg_stack.add;
1785: igs_sc_gen_001.unset_ctx('R');
1786: app_exception.raise_exception;
1787: end if;