1: PACKAGE BODY BIS_FN_SAVE_FIELDS_PKG as
2: /* $Header: BISVSFNB.pls 115.0 1999/11/19 16:10:16 pkm ship $ */
3: /*
4: REM +=======================================================================+
5: REM | Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA |
8: REM | FILENAME |
9: REM | BISVSFNS.pls
10: REM |
11: REM | DESCRIPTION |
12: REM | PL/SQL body for package: BIS_FN_SAVE_FIELDS_PKG
13: REM |
14: REM +=======================================================================+
15: */
16: procedure INSERT_ROW (
23: X_LAST_UPDATE_DATE in DATE,
24: X_LAST_UPDATED_BY in NUMBER,
25: X_LAST_UPDATE_LOGIN in NUMBER
26: ) is
27: cursor C is select ROWID from BIS_FN_SAVE_FIELDS
28: where FUNCTION_ID = X_FUNCTION_ID
29: and FIELD = X_FIELD
30: ;
31: begin
28: where FUNCTION_ID = X_FUNCTION_ID
29: and FIELD = X_FIELD
30: ;
31: begin
32: insert into BIS_FN_SAVE_FIELDS (
33: FIELD,
34: FUNCTION_ID,
35: LAST_UPDATED_BY,
36: LAST_UPDATE_LOGIN,
65: X_ATTRIBUTE_CODE in VARCHAR2
66: ) is
67: cursor c1 is select
68: ATTRIBUTE_CODE
69: from BIS_FN_SAVE_FIELDS
70: where FUNCTION_ID = X_FUNCTION_ID
71: and FIELD = X_FIELD
72: for update of FUNCTION_ID nowait;
73: begin
91: X_LAST_UPDATED_BY in NUMBER,
92: X_LAST_UPDATE_LOGIN in NUMBER
93: ) is
94: begin
95: update BIS_FN_SAVE_FIELDS set
96: ATTRIBUTE_CODE = X_ATTRIBUTE_CODE,
97: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
98: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
99: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
109: X_FUNCTION_ID in NUMBER,
110: X_FIELD in VARCHAR2
111: ) is
112: begin
113: delete from BIS_FN_SAVE_FIELDS
114: where FUNCTION_ID = X_FUNCTION_ID
115: and FIELD = X_FIELD;
116:
117: if (sql%notfound) then
119: end if;
120:
121: end DELETE_ROW;
122:
123: END BIS_FN_SAVE_FIELDS_PKG;