[Home] [Help]
1: package body IGS_AD_LOCATION_REL_PKG as
2: /* $Header: IGSAI44B.pls 115.4 2003/10/30 13:20:39 rghosh ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_LOCATION_REL%RowType;
1: package body IGS_AD_LOCATION_REL_PKG as
2: /* $Header: IGSAI44B.pls 115.4 2003/10/30 13:20:39 rghosh ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_LOCATION_REL%RowType;
6: new_references IGS_AD_LOCATION_REL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAI44B.pls 115.4 2003/10/30 13:20:39 rghosh ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_LOCATION_REL%RowType;
6: new_references IGS_AD_LOCATION_REL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
19: ) AS
20:
21: CURSOR cur_old_ref_values IS
22: SELECT *
23: FROM IGS_AD_LOCATION_REL
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
114: App_Exception.Raise_Exception;
115: END IF;
116:
117:
118: -- Validate IGS_AD_LOCATION relationship.
119: -- Save the rowid of the current row.
120: --IGS_OR_VAL_LR.genp_set_rowid(l_rowid);
121: --v_rowid_saved := TRUE; /* This line was commented becuase the variable v_rowid_saved is to be set true */
122: /* only if the record has been inserted into the pl/sql table */
204: )return BOOLEAN AS
205:
206: CURSOR cur_rowid IS
207: SELECT rowid
208: FROM IGS_AD_LOCATION_REL
209: WHERE location_cd = x_location_cd
210: AND sub_location_cd = x_sub_location_cd
211: FOR UPDATE NOWAIT;
212:
231: ) AS
232:
233: CURSOR cur_rowid IS
234: SELECT rowid
235: FROM IGS_AD_LOCATION_REL
236: WHERE location_cd = x_location_cd
237: OR sub_location_cd = x_location_cd ;
238:
239: lv_rowid cur_rowid%RowType;
337: X_SUB_LOCATION_CD in VARCHAR2,
338: X_DFLT_IND in VARCHAR2,
339: X_MODE in VARCHAR2 default 'R'
340: ) AS
341: cursor C is select ROWID from IGS_AD_LOCATION_REL
342: where LOCATION_CD = X_LOCATION_CD
343: and SUB_LOCATION_CD = X_SUB_LOCATION_CD;
344: X_LAST_UPDATE_DATE DATE;
345: X_LAST_UPDATED_BY NUMBER;
377: x_last_update_login=> X_LAST_UPDATE_LOGIN
378: );
379:
380:
381: insert into IGS_AD_LOCATION_REL (
382: LOCATION_CD,
383: SUB_LOCATION_CD,
384: DFLT_IND,
385: CREATION_DATE,
420: X_DFLT_IND in VARCHAR2
421: ) AS
422: cursor c1 is select
423: DFLT_IND
424: from IGS_AD_LOCATION_REL
425: WHERE ROWID = X_ROWID for update nowait ;
426: tlinfo c1%rowtype;
427:
428: begin
491: x_last_update_login=> X_LAST_UPDATE_LOGIN
492: );
493:
494:
495: update IGS_AD_LOCATION_REL set
496: DFLT_IND = NEW_REFERENCES.DFLT_IND,
497: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
498: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
499: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
516: X_SUB_LOCATION_CD in VARCHAR2,
517: X_DFLT_IND in VARCHAR2,
518: X_MODE in VARCHAR2 default 'R'
519: ) AS
520: cursor c1 is select rowid from IGS_AD_LOCATION_REL
521: where LOCATION_CD = X_LOCATION_CD
522: and SUB_LOCATION_CD = X_SUB_LOCATION_CD
523: ;
524:
553: p_action=>'DELETE',
554: x_rowid=> X_ROWID
555: );
556:
557: delete from IGS_AD_LOCATION_REL
558: where ROWID = X_ROWID;
559: if (sql%notfound) then
560: raise no_data_found;
561: end if;
567: );
568:
569: end DELETE_ROW;
570:
571: end IGS_AD_LOCATION_REL_PKG;