[Home] [Help]
1: PACKAGE BODY AHL_UNIT_CONFIG_HEADERS_PKG AS
2: /* $Header: AHLLUCHB.pls 120.1 2005/06/17 14:16:32 appldev $ */
3: -- Purpose: Briefly explain the functionality of the package body
4:
5: -- Contains common table handler procedures update, insert to be used by Unit Config header table.
40: X_LAST_UPDATE_DATE in DATE,
41: X_LAST_UPDATED_BY in NUMBER,
42: X_LAST_UPDATE_LOGIN in NUMBER
43: ) is
44: cursor C is select ROWID from AHL_UNIT_CONFIG_HEADERS
45: where UNIT_CONFIG_HEADER_ID = X_UNIT_CONFIG_HEADER_ID
46: ;
47: begin
48: insert into AHL_UNIT_CONFIG_HEADERS (
44: cursor C is select ROWID from AHL_UNIT_CONFIG_HEADERS
45: where UNIT_CONFIG_HEADER_ID = X_UNIT_CONFIG_HEADER_ID
46: ;
47: begin
48: insert into AHL_UNIT_CONFIG_HEADERS (
49: unit_config_header_id,
50: OBJECT_VERSION_NUMBER,
51: NAME,
52: MASTER_CONFIG_ID,
76: LAST_UPDATE_DATE,
77: LAST_UPDATED_BY,
78: LAST_UPDATE_LOGIN
79: ) values (
80: ahl_unit_config_headers_s.nextval,
81: X_OBJECT_VERSION_NUMBER,
82: X_NAME,
83: X_MASTER_CONFIG_ID,
84: X_CSI_ITEM_INSTANCE_ID,
164: ATTRIBUTE12,
165: ATTRIBUTE13,
166: ATTRIBUTE14,
167: ATTRIBUTE15
168: from AHL_UNIT_CONFIG_HEADERS
169: where UNIT_CONFIG_HEADER_ID = X_UNIT_CONFIG_HEADER_ID
170: for update of UNIT_CONFIG_HEADER_ID nowait;
171: recinfo c%rowtype;
172:
260: X_LAST_UPDATED_BY in NUMBER,
261: X_LAST_UPDATE_LOGIN in NUMBER
262: ) is
263: begin
264: update AHL_UNIT_CONFIG_HEADERS set
265: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
266: NAME = X_NAME,
267: MASTER_CONFIG_ID = X_MASTER_CONFIG_ID,
268: CSI_ITEM_INSTANCE_ID = X_CSI_ITEM_INSTANCE_ID,
301: X_UNIT_CONFIG_HEADER_ID in NUMBER
302: ) is
303: begin
304:
305: delete from AHL_UNIT_CONFIG_HEADERS
306: where UNIT_CONFIG_HEADER_ID = X_UNIT_CONFIG_HEADER_ID;
307:
308: if (sql%notfound) then
309: raise no_data_found;
315: begin
316: null;
317: end ADD_LANGUAGE;
318:
319: end AHL_UNIT_CONFIG_HEADERS_PKG;
320:
321:
322: