[Home] [Help]
PACKAGE BODY: APPS.IEU_UWQ_RTNODE_BIND_VAL_PKG
Source
1 package body IEU_UWQ_RTNODE_BIND_VAL_PKG as
2 /* $Header: IEURTNBB.pls 120.0 2005/06/02 15:56:20 appldev noship $ */
3 procedure INSERT_ROW (
4 P_RESOURCE_ID in NUMBER,
5 P_NODE_ID in NUMBER,
6 P_SEL_RT_NODE_ID in NUMBER,
7 P_BIND_VAR_NAME in VARCHAR2,
8 P_BIND_VAR_VALUE in VARCHAR2,
9 P_BIND_VAR_DATA_TYPE in VARCHAR2
10
11
12 ) is
13 l_not_valid_flag VARCHAR2(1);
14 begin
15 l_not_valid_flag := 'N';
16 INSERT INTO IEU_UWQ_RTNODE_BIND_VALS
17 (RTNODE_BIND_VAR_ID,
18 SEL_RT_NODE_ID,
19 CREATED_BY,
20 CREATION_DATE,
21 LAST_UPDATED_BY,
22 LAST_UPDATE_DATE,
23 LAST_UPDATE_LOGIN,
24 OBJECT_VERSION_NUMBER,
25 RESOURCE_ID,
26 NODE_ID,
27 BIND_VAR_NAME,
28 BIND_VAR_VALUE,
29 BIND_VAR_DATATYPE,
30 NOT_VALID_FLAG)
31 VALUES
32 ( IEU_UWQ_RTNODE_BIND_VALS_S1.NEXTVAL,
33 P_SEL_RT_NODE_ID ,
34 FND_GLOBAL.USER_ID,
35 SYSDATE,
36 FND_GLOBAL.USER_ID,
37 SYSDATE,
38 FND_GLOBAL.LOGIN_ID,
39 1,
40 P_RESOURCE_ID ,
41 P_NODE_ID ,
42 P_BIND_VAR_NAME ,
43 P_BIND_VAR_VALUE,
44 P_BIND_VAR_DATA_TYPE,
45 l_not_valid_flag);
46 end INSERT_ROW;
47
48 procedure UPDATE_ROW (
49 P_RESOURCE_ID in NUMBER,
50 P_NODE_ID in NUMBER,
51 P_SEL_RT_NODE_ID in NUMBER,
52 P_BIND_VAR_NAME in VARCHAR2,
53 P_BIND_VAR_VALUE in VARCHAR2,
54 P_BIND_VAR_DATA_TYPE in VARCHAR2
55
56 ) is
57 begin
58 UPDATE IEU_UWQ_RTNODE_BIND_VALS
59 SET
60 CREATED_BY = FND_GLOBAL.USER_ID,
61 CREATION_DATE = SYSDATE,
62 LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
63 LAST_UPDATE_DATE = SYSDATE,
64 LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
65 BIND_VAR_VALUE = P_BIND_VAR_VALUE,
66 BIND_VAR_DATATYPE = P_BIND_VAR_DATA_TYPE,
67 NOT_VALID_FLAG = 'N',
68 SEL_RT_NODE_ID = P_SEL_RT_NODE_ID,
69 OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
70 WHERE RESOURCE_ID = P_RESOURCE_ID
71 AND NODE_ID = P_NODE_ID
72 AND BIND_VAR_NAME = P_BIND_VAR_NAME;
73
74 if (sql%notfound) then
75 raise no_data_found;
76 end if;
77 end UPDATE_ROW;
78
79 PROCEDURE LOAD_ROW (
80 P_RESOURCE_ID in NUMBER,
81 P_NODE_ID in NUMBER,
82 P_SEL_RT_NODE_ID in NUMBER,
83 P_BIND_VAR_NAME in VARCHAR2,
84 P_BIND_VAR_VALUE in VARCHAR2,
85 P_BIND_VAR_DATA_TYPE in VARCHAR2
86
87 ) is
88
89 begin
90
91 IEU_UWQ_RTNODE_BIND_VAL_PKG.UPDATE_ROW (
92 P_RESOURCE_ID ,
93 P_NODE_ID ,
94 P_SEL_RT_NODE_ID ,
95 P_BIND_VAR_NAME ,
96 P_BIND_VAR_VALUE ,
97 P_BIND_VAR_DATA_TYPE );
98
99 if (sql%notfound) then
100 raise no_data_found;
101 end if;
102 Exception
103 when no_data_found then
104 IEU_UWQ_RTNODE_BIND_VAL_PKG.INSERT_ROW (
105 P_RESOURCE_ID ,
106 P_NODE_ID ,
107 P_SEL_RT_NODE_ID ,
108 P_BIND_VAR_NAME ,
109 P_BIND_VAR_VALUE ,
110 P_BIND_VAR_DATA_TYPE ) ;
111 END LOAD_ROW;
112
113 procedure DELETE_ROW (
114 P_RESOURCE_ID in NUMBER,
115 P_NODE_ID in NUMBER,
116 P_SEL_RT_NODE_ID in NUMBER,
117 P_BIND_VAR_NAME in VARCHAR2
118 ) is
119 begin
120 delete from IEU_UWQ_RTNODE_BIND_VALS
121 where RESOURCE_ID = P_RESOURCE_ID
122 and NODE_ID = P_NODE_ID
123 and BIND_VAR_NAME = P_BIND_VAR_NAME
124 and SEL_RT_NODE_ID = P_SEL_RT_NODE_ID;
125
126 if (sql%notfound) then
127 raise no_data_found;
128 end if;
129
130 end DELETE_ROW;
131
132 end IEU_UWQ_RTNODE_BIND_VAL_PKG;