PACKAGE BODY: APPS.JTF_OBJECT_PARAM_PKG

Source

1 PACKAGE body JTF_OBJECT_PARAM_PKG as
2 /* $Header: jtfobpab.pls 120.1 2005/07/02 00:52:26 appldev noship $ */
3 procedure INSERT_ROW  ( X_ROWID  IN OUT NOCOPY   VARCHAR2,
4     X_OBJECT_DTLS_ID IN NUMBER,
5     X_SOURCE_PARAM IN VARCHAR2,
6     X_DEST_PARAM IN VARCHAR2,
7     X_CREATION_DATE IN DATE,
8     X_CREATED_BY IN NUMBER,
9     X_LAST_UPDATED_BY IN NUMBER,
10     X_LAST_UPDATE_DATE IN DATE,
11     X_LAST_UPDATE_LOGIN IN NUMBER)
12    is
13 
14    l_PARAMETER_ID jtf_object_pg_params.parameter_id%type;
15   cursor c is
16   select ROWID from jtf_object_pg_params
17     where parameter_id=l_PARAMETER_ID;
18 
19 
20 begin
21 
22 INSERT INTO  JTF_OBJECT_PG_PARAMS
23       (  PARAMETER_ID ,
24          OBJECT_DTLS_ID ,
25          SOURCE_PARAM ,
26          DEST_PARAM ,
27          CREATION_DATE,
28          CREATED_BY ,
29          LAST_UPDATED_BY ,
30          LAST_UPDATE_DATE ,
31          LAST_UPDATE_LOGIN ,
32          OBJECT_VERSION_NUMBER )
33          VALUES
34          (
35          JTF_OBJECT_PG_PARAMS_S.NEXTVAL,
36          X_OBJECT_DTLS_ID ,
37          X_SOURCE_PARAM ,
38          X_DEST_PARAM ,
39          X_CREATION_DATE,
40          X_CREATED_BY ,
41          X_LAST_UPDATED_BY ,
42          X_LAST_UPDATE_DATE ,
43          X_LAST_UPDATE_LOGIN ,
44          1.0 )
45          returning PARAMETER_ID into l_PARAMETER_ID;
46 
47 
48   open c;
49   fetch c into X_ROWID;
50   if (c%notfound) then
51     close c;
52     raise no_data_found;
53   end if;
54   close c;
55 
56 end INSERT_ROW;
57 
58 procedure LOCK_ROW (
59   X_PARAMETER_ID in NUMBER,
60   X_OBJECT_VERSION_NUMBER in NUMBER
61 ) is
62   cursor c is select
63         OBJECT_VERSION_NUMBER
64     from jtf_object_pg_params
65     where parameter_id= X_PARAMETER_ID
66     for update of PARAMETER_ID nowait;
67    recinfo c%rowtype;
68 
69 begin
70 	open c;
71 	fetch c into recinfo;
72 	if (c%notfound) then
73 		close c;
74 		fnd_message.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
75 		fnd_msg_pub.add;
76 		app_exception.raise_exception;
77 	 end if;
78 	 close c;
79 
80   if (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
81   then
82     null;
83   else
84     fnd_message.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
85     fnd_msg_pub.add;
86     app_exception.raise_exception;
87   end if;
88 
89 
90 end LOCK_ROW;
91 
92 procedure UPDATE_ROW  ( X_PARAMETER_ID  IN NUMBER,
93         X_SOURCE_PARAM IN VARCHAR2,
94         X_DEST_PARAM IN VARCHAR2,
95         X_LAST_UPDATED_BY IN NUMBER,
96         X_LAST_UPDATE_DATE IN DATE,
97         X_LAST_UPDATE_LOGIN IN NUMBER,
98         X_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER
99    ) is
100 
101    l_object_version_number jtf_object_pg_params.object_version_number%type;
102 begin
103 
104 
105 
106 UPDATE  JTF_OBJECT_PG_PARAMS A
107 SET
108    A.SOURCE_PARAM = X_SOURCE_PARAM
109  , A.DEST_PARAM = X_DEST_PARAM
110  , A.LAST_UPDATED_BY = X_LAST_UPDATED_BY
111  , A.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
112  , A.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
113  , A.OBJECT_VERSION_NUMBER =(X_OBJECT_VERSION_NUMBER + 1.0)
114 
115   where  PARAMETER_ID=X_PARAMETER_ID;
116 
117 
118   if (sql%notfound) then
119     raise no_data_found;
120   end if;
121 
122 
123 end UPDATE_ROW;
124 
125 procedure DELETE_ROW (
126   X_PARAMETER_ID  IN NUMBER,
127   X_OBJECT_VERSION_NUMBER IN NUMBER
128 ) is
129 
130 begin
131 
132 
133   delete from JTF_OBJECT_PG_PARAMS
134   where PARAMETER_ID = X_PARAMETER_ID
135   and   object_version_number=X_OBJECT_VERSION_NUMBER ;
136 
137   if (sql%notfound) then
138     raise no_data_found;
139   end if;
140 
141 end DELETE_ROW;
142 
143 
144 end ;
145