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 |
6 REM | All rights reserved. |
7 REM +=======================================================================+
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 (
17 X_ROWID in out VARCHAR2,
18 X_FUNCTION_ID in NUMBER,
19 X_FIELD in VARCHAR2,
20 X_ATTRIBUTE_CODE in VARCHAR2,
21 X_CREATION_DATE in DATE,
22 X_CREATED_BY in NUMBER,
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
32 insert into BIS_FN_SAVE_FIELDS (
33 FIELD,
34 FUNCTION_ID,
35 LAST_UPDATED_BY,
36 LAST_UPDATE_LOGIN,
37 ATTRIBUTE_CODE,
38 CREATION_DATE,
39 CREATED_BY,
40 LAST_UPDATE_DATE
41 ) values
42 (
43 X_FIELD,
44 X_FUNCTION_ID,
45 X_LAST_UPDATED_BY,
46 X_LAST_UPDATE_LOGIN,
47 X_ATTRIBUTE_CODE,
48 X_CREATION_DATE,
49 X_CREATED_BY,
50 X_LAST_UPDATE_DATE
51 );
52 open c;
53 fetch c into X_ROWID;
54 if (c%notfound) then
55 close c;
56 raise no_data_found;
57 end if;
58 close c;
59
60 end INSERT_ROW;
61
62 procedure LOCK_ROW (
63 X_FUNCTION_ID in NUMBER,
64 X_FIELD in VARCHAR2,
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
74 for tlinfo in c1 loop
75 if ( (tlinfo.ATTRIBUTE_CODE = X_ATTRIBUTE_CODE)
76 ) then
77 null;
78 else
79 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
80 app_exception.raise_exception;
81 end if;
82 end loop;
83 return;
84 end LOCK_ROW;
85
86 procedure UPDATE_ROW (
87 X_FUNCTION_ID in NUMBER,
88 X_FIELD in VARCHAR2,
89 X_ATTRIBUTE_CODE in VARCHAR2,
90 X_LAST_UPDATE_DATE in DATE,
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
100 where FUNCTION_ID = X_FUNCTION_ID
101 and FIELD = X_FIELD;
102
103 if (sql%notfound) then
104 raise no_data_found;
105 end if;
106 end UPDATE_ROW;
107
108 procedure DELETE_ROW (
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
118 raise no_data_found;
119 end if;
120
121 end DELETE_ROW;
122
123 END BIS_FN_SAVE_FIELDS_PKG;
[Home] [Help]