[Home] [Help]
34: Open cur_old_ref_values;
35: Fetch cur_old_ref_values INTO old_references;
36: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
37: Close cur_old_ref_values;
38: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: IGS_GE_MSG_STACK.ADD;
40: App_Exception.Raise_Exception;
41: Return;
42: END IF;
75: IF p_inserting OR p_updating THEN
76: IF new_references.unit_attempt_status <> 'DISCONTIN' THEN
77: IF IGS_EN_VAL_AUS.ENRP_VAL_AUS_AUSG(new_references.administrative_unit_status
78: ,v_message_name) = FALSE THEN
79: Fnd_Message.Set_Name('IGS',v_message_name);
80: IGS_GE_MSG_STACK.ADD;
81: App_Exception.Raise_Exception;
82: END IF;
83: END IF;
94: NULL;
95: ELSE
96: IF NOT IGS_LOOKUPS_VIEW_PKG.Get_PK_For_Validation (
97: 'UNIT_ATTEMPT_STATUS', new_references.unit_attempt_status ) THEN
98: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
99: IGS_GE_MSG_STACK.ADD;
100: App_Exception.Raise_Exception;
101: END IF;
102: END IF;
127:
128: IF upper(column_name) = 'EFFECTIVE_PROGRESSION_IND' OR
129: column_name IS NULL THEN
130: IF new_references.effective_progression_ind NOT IN ( 'Y' , 'N' ) THEN
131: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
132: IGS_GE_MSG_STACK.ADD;
133: App_Exception.Raise_Exception;
134: END IF;
135: END IF;
135: END IF;
136: IF upper(column_name) = 'CLOSED_IND' OR
137: column_name IS NULL THEN
138: IF new_references.closed_ind NOT IN ( 'Y' , 'N' ) THEN
139: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
140: IGS_GE_MSG_STACK.ADD;
141: App_Exception.Raise_Exception;
142: END IF;
143: END IF;
143: END IF;
144: IF upper(column_name) = 'ADMINISTRATIVE_UNIT_STATUS' OR
145: column_name IS NULL THEN
146: IF new_references.administrative_unit_status <> UPPER(new_references.administrative_unit_status) THEN
147: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
148: IGS_GE_MSG_STACK.ADD;
149: App_Exception.Raise_Exception;
150: END IF;
151: END IF;
152:
153: IF upper(column_name) = 'EFFECTIVE_TIME_ELAPSED_IND' OR
154: column_name IS NULL THEN
155: IF new_references.effective_time_elapsed_ind NOT IN ( 'Y' , 'N' ) THEN
156: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
157: IGS_GE_MSG_STACK.ADD;
158: App_Exception.Raise_Exception;
159: END IF;
160: END IF;
160: END IF;
161: IF upper(column_Name) = 'SHOW_ON_OFFIC_NTFCTN_IND' OR
162: column_name IS NULL THEN
163: IF new_references.show_on_offic_ntfctn_ind NOT IN ( 'Y' , 'N' ) THEN
164: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
165: IGS_GE_MSG_STACK.ADD;
166: App_Exception.Raise_Exception;
167: END IF;
168: END IF;
168: END IF;
169: IF upper(Column_Name) = 'UNIT_ATTEMPT_STATUS' OR
170: column_name IS NULL THEN
171: IF new_references.unit_attempt_status <> upper(new_references.unit_attempt_status) THEN
172: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
173: IGS_GE_MSG_STACK.ADD;
174: App_Exception.Raise_Exception;
175: END IF;
176: END IF;
222: Open cur_rowid;
223: Fetch cur_rowid INTO lv_rowid;
224: IF (cur_rowid%FOUND) THEN
225: Close cur_rowid;
226: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AUS_LKUPV_FK');
227: IGS_GE_MSG_STACK.ADD;
228: App_Exception.Raise_Exception;
229: Return;
230: END IF;
272: IF (p_action = 'INSERT') THEN
273: -- Call all the procedures related to Before Insert.
274: BeforeRowInsertUpdate1 ( p_inserting => TRUE );
275: IF Get_PK_For_Validation (new_references.administrative_unit_status ) THEN
276: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
277: IGS_GE_MSG_STACK.ADD;
278: App_Exception.Raise_Exception;
279: END IF;
280: Check_Constraints ;
285: Check_Constraints;
286: Check_Parent_Existance;
287: ELSIF (p_action = 'VALIDATE_INSERT') THEN
288: IF Get_PK_For_Validation (new_references.administrative_unit_status ) THEN
289: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
290: IGS_GE_MSG_STACK.ADD;
291: App_Exception.Raise_Exception;
292: END IF;
293: Check_Constraints ;
337: if X_LAST_UPDATE_LOGIN is NULL then
338: X_LAST_UPDATE_LOGIN := -1;
339: end if;
340: else
341: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
342: IGS_GE_MSG_STACK.ADD;
343: app_exception.raise_exception;
344: end if;
345:
430: open c1;
431: fetch c1 into tlinfo;
432: if (c1%notfound) then
433: close c1;
434: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
435: app_exception.raise_exception;
436: return;
437: end if;
438: close c1;
445: AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
446: ) then
447: null;
448: else
449: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
450: app_exception.raise_exception;
451: end if;
452: return;
453: end LOCK_ROW;
480: if X_LAST_UPDATE_LOGIN is NULL then
481: X_LAST_UPDATE_LOGIN := -1;
482: end if;
483: else
484: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
485: IGS_GE_MSG_STACK.ADD;
486: app_exception.raise_exception;
487: end if;
488: