1: package body AHL_MR_ROUTE_SEQUENCES_PKG as
2: /* $Header: AHLLMRSB.pls 115.2 2003/10/30 02:59:05 rtadikon noship $ */
3: procedure INSERT_ROW (
4: X_MR_ROUTE_SEQUENCE_ID in out NOCOPY NUMBER,
5: X_ATTRIBUTE15 in VARCHAR2,
28: X_LAST_UPDATED_BY in NUMBER,
29: X_LAST_UPDATE_LOGIN in NUMBER
30: ) is
31: begin
32: insert into AHL_MR_ROUTE_SEQUENCES (
33: ATTRIBUTE15,
34: RELATED_MR_ROUTE_ID,
35: SEQUENCE_CODE,
36: CREATED_BY,
67: X_ATTRIBUTE11,
68: X_ATTRIBUTE12,
69: X_ATTRIBUTE13,
70: X_ATTRIBUTE14,
71: AHL_MR_ROUTE_SEQUENCES_S.NEXTVAL,
72: X_OBJECT_VERSION_NUMBER,
73: X_LAST_UPDATE_DATE,
74: X_LAST_UPDATED_BY,
75: X_CREATION_DATE,
115: X_LAST_UPDATED_BY in NUMBER,
116: X_LAST_UPDATE_LOGIN in NUMBER
117: ) is
118: begin
119: update AHL_MR_ROUTE_SEQUENCES set
120: ATTRIBUTE15 = X_ATTRIBUTE15,
121: RELATED_MR_ROUTE_ID = X_RELATED_MR_ROUTE_ID,
122: SEQUENCE_CODE = X_SEQUENCE_CODE,
123: MR_ROUTE_ID = X_MR_ROUTE_ID,
151: procedure DELETE_ROW (
152: X_MR_ROUTE_SEQUENCE_ID in NUMBER
153: ) is
154: begin
155: delete from AHL_MR_ROUTE_SEQUENCES
156: where MR_ROUTE_SEQUENCE_ID = X_MR_ROUTE_SEQUENCE_ID;
157:
158: if (sql%notfound) then
159: raise no_data_found;
160: end if;
161:
162: end DELETE_ROW;
163:
164: end AHL_MR_ROUTE_SEQUENCES_PKG;