[Home] [Help]
49: -- Populate Old Values.
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: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
54: IGS_GE_MSG_STACK.ADD;
55: Close cur_old_ref_values;
56: App_Exception.Raise_Exception;
57: Return;
121:
122:
123: IF ((UPPER (column_name) = 'ABBREVIATION') OR (column_name IS NULL)) THEN
124: IF (new_references.abbreviation <> UPPER (new_references.abbreviation)) THEN
125: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
126: IGS_GE_MSG_STACK.ADD;
127: App_Exception.Raise_Exception;
128: END IF;
129: END IF;
130:
131:
132: IF ((UPPER (column_name) = 'ADMINISTRATIVE_IND') OR (column_name IS NULL)) THEN
133: IF new_references.administrative_ind NOT IN ( 'Y' , 'N' ) 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) = 'AUTHORISATION_RQRD_IND') OR (column_name IS NULL)) THEN
141: IF new_references.authorisation_rqrd_ind NOT IN ( 'Y' , 'N' ) 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) = 'UNIT_SET_CAT') OR (column_name IS NULL)) THEN
149: IF (new_references.unit_set_cat <> UPPER (new_references.unit_set_cat)) 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_SET_CD') OR (column_name IS NULL)) THEN
157: IF (new_references.unit_set_cd <> UPPER (new_references.unit_set_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_SET_STATUS') OR (column_name IS NULL)) THEN
165: IF (new_references.unit_set_status <> UPPER (new_references.unit_set_status)) 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;
270: new_references.version_number,
271: new_references.hist_start_dt
272: ) THEN
273:
274: Fnd_message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
275: IGS_GE_MSG_STACK.ADD;
276: App_Exception.Raise_Exception;
277:
278: END IF;
290: new_references.unit_set_cd,
291: new_references.version_number,
292: new_references.hist_start_dt
293: ) THEN
294: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
295: IGS_GE_MSG_STACK.ADD;
296: App_Exception.Raise_Exception;
297: END IF;
298: Check_Constraints;
370: if X_LAST_UPDATE_LOGIN is NULL then
371: X_LAST_UPDATE_LOGIN := -1;
372: end if;
373: else
374: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
375: IGS_GE_MSG_STACK.ADD;
376: app_exception.raise_exception;
377: end if;
378:
522: begin
523: open c1;
524: fetch c1 into tlinfo;
525: if (c1%notfound) then
526: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
527: IGS_GE_MSG_STACK.ADD;
528: app_exception.raise_exception;
529: close c1;
530: return;
573: AND (tlinfo.AUTHORISATION_RQRD_IND = X_AUTHORISATION_RQRD_IND)
574: ) then
575: null;
576: else
577: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
578: IGS_GE_MSG_STACK.ADD;
579: app_exception.raise_exception;
580: end if;
581: return;
621: if X_LAST_UPDATE_LOGIN is NULL then
622: X_LAST_UPDATE_LOGIN := -1;
623: end if;
624: else
625: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
626: IGS_GE_MSG_STACK.ADD;
627: app_exception.raise_exception;
628: end if;
629: