1: package body AHL_PROG_TYPE_SUBTYPES_PKG as
2: /* $Header: AHLLFPTB.pls 120.1 2008/03/14 11:56:20 pdoki ship $ */
3: procedure INSERT_ROW (
4: X_PROG_TYPE_SUBTYPE_ID in NUMBER,
5: X_OBJECT_VERSION_NUMBER in NUMBER,
27: X_LAST_UPDATED_BY in NUMBER,
28: X_LAST_UPDATE_LOGIN in NUMBER
29: ) is
30: begin
31: insert into AHL_PROG_TYPE_SUBTYPES (
32: PROG_TYPE_SUBTYPE_ID,
33: OBJECT_VERSION_NUMBER,
34: LAST_UPDATE_DATE,
35: LAST_UPDATED_BY,
118: X_LAST_UPDATED_BY in NUMBER,
119: X_LAST_UPDATE_LOGIN in NUMBER
120: ) is
121: begin
122: update AHL_PROG_TYPE_SUBTYPES set
123: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER + 1,
124: PROGRAM_TYPE_CODE = X_PROGRAM_TYPE_CODE,
125: PROGRAM_SUBTYPE_CODE = X_PROGRAM_SUBTYPE_CODE,
126: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
163: procedure DELETE_ROW (
164: X_PROG_TYPE_SUBTYPE_ID in NUMBER
165: ) is
166: begin
167: delete from AHL_PROG_TYPE_SUBTYPES
168: where PROG_TYPE_SUBTYPE_ID = X_PROG_TYPE_SUBTYPE_ID;
169: end DELETE_ROW;
170: end AHL_PROG_TYPE_SUBTYPES_PKG;
166: begin
167: delete from AHL_PROG_TYPE_SUBTYPES
168: where PROG_TYPE_SUBTYPE_ID = X_PROG_TYPE_SUBTYPE_ID;
169: end DELETE_ROW;
170: end AHL_PROG_TYPE_SUBTYPES_PKG;