[Home] [Help]
50: Open cur_old_ref_values;
51: Fetch cur_old_ref_values INTO old_references;
52: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
53: Close cur_old_ref_values;
54: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
55: IGS_GE_MSG_STACK.ADD;
56: App_Exception.Raise_Exception;
57: Return;
58: END IF;
122: END IF;
123:
124: IF upper(column_name) = 'ADM_UNIT_OUTCOME_STATUS' OR column_name is null Then
125: IF new_references.adm_unit_outcome_status <> UPPER(new_references.adm_unit_outcome_status) Then
126: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
127: IGS_GE_MSG_STACK.ADD;
128: App_Exception.Raise_Exception;
129: END IF;
130: END IF;
130: END IF;
131:
132: IF upper(column_name) = 'CAL_TYPE' OR column_name is null Then
133: IF new_references.cal_type <> UPPER(new_references.cal_type) Then
134: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
135: IGS_GE_MSG_STACK.ADD;
136: App_Exception.Raise_Exception;
137: END IF;
138: END IF;
138: END IF;
139:
140: IF upper(column_name) = 'LOCATION_CD' OR column_name is null Then
141: IF new_references.location_cd <> UPPER(new_references.location_cd) Then
142: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
143: IGS_GE_MSG_STACK.ADD;
144: App_Exception.Raise_Exception;
145: END IF;
146: END IF;
146: END IF;
147:
148: IF upper(column_name) = 'SUP_UNIT_CD' OR column_name is null Then
149: IF new_references.sup_unit_cd <> UPPER(new_references.sup_unit_cd) Then
150: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
151: IGS_GE_MSG_STACK.ADD;
152: App_Exception.Raise_Exception;
153: END IF;
154: END IF;
154: END IF;
155:
156: IF upper(column_name) = 'UNIT_CD' OR column_name is null Then
157: IF new_references.unit_cd <> UPPER(new_references.unit_cd) Then
158: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
162: END IF;
162: END IF;
163:
164: IF upper(column_name) = 'UNIT_CLASS' OR column_name is null Then
165: IF new_references.unit_class <> UPPER(new_references.unit_class) Then
166: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
167: IGS_GE_MSG_STACK.ADD;
168: App_Exception.Raise_Exception;
169: END IF;
170: END IF;
170: END IF;
171:
172: IF upper(column_name) = 'UNIT_MODE' OR column_name is null Then
173: IF new_references.unit_mode <> UPPER(new_references.unit_mode) 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;
178: END IF;
179:
180: IF upper(column_name) = 'CI_SEQUENCE_NUMBER' OR column_name is null Then
181: IF new_references.ci_sequence_number < 1 OR new_references.ci_sequence_number > 999999 Then
182: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
183: IGS_GE_MSG_STACK.ADD;
184: App_Exception.Raise_Exception;
185: END IF;
186: END IF;
315: Get_UK_For_Validation (
316: new_references.adm_ps_appl_inst_unit_id,
317: new_references.hist_start_dt
318: ) THEN
319: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
320: IGS_GE_MSG_STACK.ADD;
321: App_Exception.Raise_Exception;
322: END IF;
323: Check_Constraints;
326: IF Get_UK_For_Validation (
327: new_references.adm_ps_appl_inst_unit_id,
328: new_references.hist_start_dt
329: ) THEN
330: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
331: IGS_GE_MSG_STACK.ADD;
332: App_Exception.Raise_Exception;
333: END IF;
334: Check_Constraints;
337: Get_UK_For_Validation (
338: new_references.adm_ps_appl_inst_unit_id,
339: new_references.hist_start_dt
340: ) THEN
341: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
342: IGS_GE_MSG_STACK.ADD;
343: App_Exception.Raise_Exception;
344: END IF;
345: Check_Constraints;
348: IF Get_UK_For_Validation (
349: new_references.adm_ps_appl_inst_unit_id,
350: new_references.hist_start_dt
351: ) THEN
352: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
353: IGS_GE_MSG_STACK.ADD;
354: App_Exception.Raise_Exception;
355: END IF;
356: Check_Constraints;
414: if X_LAST_UPDATE_LOGIN is NULL then
415: X_LAST_UPDATE_LOGIN := -1;
416: end if;
417: else
418: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
419: IGS_GE_MSG_STACK.ADD;
420: app_exception.raise_exception;
421: end if;
422: Before_DML(p_action =>'INSERT',
529: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
530: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
531: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
532: -- that the ownerof policy function does not have privilege to access.
533: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
534: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
535: IGS_GE_MSG_STACK.ADD;
536: app_exception.raise_exception;
537: ELSE
530: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
531: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
532: -- that the ownerof policy function does not have privilege to access.
533: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
534: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
535: IGS_GE_MSG_STACK.ADD;
536: app_exception.raise_exception;
537: ELSE
538: RAISE;
587: open c1;
588: fetch c1 into tlinfo;
589: if (c1%notfound) then
590: close c1;
591: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
592: IGS_GE_MSG_STACK.ADD;
593: app_exception.raise_exception;
594: return;
595: end if;
635: AND (X_SUP_UV_VERSION_NUMBER is null)))
636: ) then
637: null;
638: else
639: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
640: IGS_GE_MSG_STACK.ADD;
641: app_exception.raise_exception;
642: end if;
643: return;
686: if X_LAST_UPDATE_LOGIN is NULL then
687: X_LAST_UPDATE_LOGIN := -1;
688: end if;
689: else
690: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
691: IGS_GE_MSG_STACK.ADD;
692: app_exception.raise_exception;
693: end if;
694: Before_DML(p_action =>'UPDATE',
742: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
743: where ROWID = X_ROWID
744: ;
745: if (sql%notfound) then
746: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
747: IGS_GE_MSG_STACK.ADD;
748: app_exception.raise_exception;
749: end if;
750: After_DML(
759: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
760: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
761: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
762: -- that the ownerof policy function does not have privilege to access.
763: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
764: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
765: IGS_GE_MSG_STACK.ADD;
766: app_exception.raise_exception;
767: ELSE
760: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
761: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
762: -- that the ownerof policy function does not have privilege to access.
763: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
764: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
765: IGS_GE_MSG_STACK.ADD;
766: app_exception.raise_exception;
767: ELSE
768: RAISE;
879: v_message_name := null;
880: delete from IGS_AD_PS_APINTUNTHS_ALL
881: where ROWID = X_ROWID;
882: if (sql%notfound) then
883: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
884: IGS_GE_MSG_STACK.ADD;
885: app_exception.raise_exception;
886: end if;
887: After_DML(
891: EXCEPTION
892: WHEN e_resource_busy_exception THEN
893: -- Set error message number
894: v_message_name := 'IGS_AD_UNABLE_TO_DELETE';
895: Fnd_Message.Set_Name('IGS',v_message_name);
896: IGS_GE_MSG_STACK.ADD;
897: App_Exception.Raise_Exception;
898: WHEN OTHERS THEN
899: IF SQLCODE = '-28115' OR SQLCODE = '-28113' OR SQLCODE = '-28111' THEN
901: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
902: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
903: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
904: -- that the ownerof policy function does not have privilege to access.
905: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
906: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
907: IGS_GE_MSG_STACK.ADD;
908: app_exception.raise_exception;
909: ELSE
902: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
903: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
904: -- that the ownerof policy function does not have privilege to access.
905: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
906: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
907: IGS_GE_MSG_STACK.ADD;
908: app_exception.raise_exception;
909: ELSE
910: RAISE;