APPS.IEC_P_VDU_TYPES_PKG dependencies on IEC_P_VDU_TYPES

Line 1: package body IEC_P_VDU_TYPES_PKG as

1: package body IEC_P_VDU_TYPES_PKG as
2: /* $Header: IECVDUTB.pls 115.1 2004/08/02 18:00:42 minwang noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2,

Line 17: from IEC_P_VDU_TYPES

13: X_LAST_UPDATE_LOGIN in NUMBER,
14: X_OBJECT_VERSION_NUMBER in NUMBER
15: ) is
16: cursor C is select ROWID
17: from IEC_P_VDU_TYPES
18: where
19: VDU_TYPE_ID = X_VDU_TYPE_ID
20: and VDU_TYPE_NAME = X_VDU_TYPE_NAME
21: and HARDWARE_LAYER = X_HARDWARE_LAYER;

Line 25: insert into IEC_P_VDU_TYPES

21: and HARDWARE_LAYER = X_HARDWARE_LAYER;
22:
23: begin
24:
25: insert into IEC_P_VDU_TYPES
26: ( VDU_TYPE_ID,
27: VDU_TYPE_NAME,
28: HARDWARE_LAYER,
29: CREATED_BY,

Line 65: from IEC_P_VDU_TYPES

61: cursor c is select
62: VDU_TYPE_NAME,
63: HARDWARE_LAYER,
64: OBJECT_VERSION_NUMBER
65: from IEC_P_VDU_TYPES
66: where VDU_TYPE_ID = X_VDU_TYPE_ID
67: for update of VDU_TYPE_NAME, HARDWARE_LAYER, OBJECT_VERSION_NUMBER nowait;
68: recinfo c%rowtype;
69: begin

Line 101: update IEC_P_VDU_TYPES b

97: X_OBJECT_VERSION_NUMBER in NUMBER
98: ) is
99: begin
100:
101: update IEC_P_VDU_TYPES b
102: set b.LAST_UPDATED_BY = X_LAST_UPDATED_BY,
103: b.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
104: b.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
105: b.VDU_TYPE_NAME = X_VDU_TYPE_NAME,

Line 119: delete from IEC_P_VDU_TYPES

115: procedure DELETE_ROW (
116: X_VDU_TYPE_ID in NUMBER
117: ) is
118: begin
119: delete from IEC_P_VDU_TYPES
120: where VDU_TYPE_ID = X_VDU_TYPE_ID;
121:
122: if (sql%notfound) then
123: raise no_data_found;

Line 149: end IEC_P_VDU_TYPES_PKG;

145: INSERT_ROW (ROW_ID, X_VDU_TYPE_ID, X_VDU_TYPE_NAME, X_HARDWARE_LAYER, USER_ID, SYSDATE, USER_ID, SYSDATE, USER_ID, 0);
146:
147: end LOAD_ROW;
148:
149: end IEC_P_VDU_TYPES_PKG;