[Home] [Help]
41: Open cur_old_ref_values;
42: Fetch cur_old_ref_values INTO old_references;
43: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
44: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
45: Igs_Ge_Msg_Stack.Add;
46: Close cur_old_ref_values;
47: App_Exception.Raise_Exception;
48: Return;
49: END IF;
95: new_references.cal_type,
96: new_references.ci_sequence_number
97: ))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;
103:
126: IF upper(column_name) = 'CAL_TYPE' OR
127: column_name is null Then
128: IF new_references.cal_type <> UPPER(new_references.cal_type) Then
129: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
130: Igs_Ge_Msg_Stack.Add;
131: App_Exception.Raise_Exception;
132: END IF;
133: END IF;
134:
135: IF upper(column_name) = 'UNIT_CD' OR
136: column_name is null Then
137: IF new_references.unit_cd <> UPPER(new_references.unit_cd) Then
138: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
139: Igs_Ge_Msg_Stack.Add;
140: App_Exception.Raise_Exception;
141: END IF;
142: END IF;
143:
144: IF upper(column_name) = 'CI_SEQUENCE_NUMBER' OR
145: column_name is null Then
146: IF new_references.ci_sequence_number < 1 AND new_references.ci_sequence_number > 999999 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) = 'GROUP_SEQUENCE_NUMBER' OR
154: column_name is null Then
155: IF new_references.group_sequence_number < 1 AND new_references.group_sequence_number > 999999 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;
161:
162: IF upper(column_name) = 'DUPLICATE_IND' OR
163: column_name is null Then
164: IF new_references.duplicate_ind NOT IN ( 'Y' , 'N' ) Then
165: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
166: Igs_Ge_Msg_Stack.Add;
167: App_Exception.Raise_Exception;
168: END IF;
169: END IF;
170:
227: Open cur_rowid;
228: Fetch cur_rowid INTO lv_rowid;
229: IF (cur_rowid%FOUND) THEN
230: Fnd_Message.Set_Name ('IGS', 'IGS_AS_MS_UOP_FK');
231: Igs_Ge_Msg_Stack.Add;
232: Close cur_rowid;
233: App_Exception.Raise_Exception;
234: Return;
235: END IF;
288: IF Get_PK_For_Validation (
289: new_references.sheet_number
290: ) THEN
291: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
292: Igs_Ge_Msg_Stack.Add;
293: App_Exception.Raise_Exception;
294: END IF;
295:
296: Check_Constraints;
308: IF Get_PK_For_Validation (
309: new_references.sheet_number
310: ) THEN
311: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
312: Igs_Ge_Msg_Stack.Add;
313: App_Exception.Raise_Exception;
314: END IF;
315: Check_Constraints;
316: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
375: X_PROGRAM_UPDATE_DATE := SYSDATE;
376: end if;
377: else
378: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
379: Igs_Ge_Msg_Stack.Add;
380: app_exception.raise_exception;
381: end if;
382: Before_DML(
383: p_action=>'INSERT',
490: open c1;
491: fetch c1 into tlinfo;
492: if (c1%notfound) then
493: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
494: Igs_Ge_Msg_Stack.Add;
495: close c1;
496: app_exception.raise_exception;
497: return;
498: end if;
511: ) then
512: null;
513: else
514: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
515: Igs_Ge_Msg_Stack.Add;
516: app_exception.raise_exception;
517: end if;
518: return;
519: end LOCK_ROW;
556: X_LAST_UPDATE_LOGIN := -1;
557: end if;
558: else
559: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
560: Igs_Ge_Msg_Stack.Add;
561: app_exception.raise_exception;
562: end if;
563: Before_DML(
564: p_action=>'UPDATE',