[Home] [Help]
PACKAGE BODY: APPS.AHL_UE_RELATIONSHIPS_PKG
Source
1 package body AHL_UE_RELATIONSHIPS_PKG as
2 /* $Header: AHLLUERB.pls 115.1 2002/12/04 22:38:15 sracha noship $ */
3
4 procedure INSERT_ROW (
5 X_UE_RELATIONSHIP_ID IN OUT NOCOPY NUMBER,
6 X_UE_ID IN NUMBER,
7 X_RELATED_UE_ID IN NUMBER,
8 X_RELATIONSHIP_CODE IN VARCHAR2,
9 X_ORIGINATOR_UE_ID IN NUMBER,
10 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
11 X_ATTRIBUTE1 IN VARCHAR2,
12 X_ATTRIBUTE2 IN VARCHAR2,
13 X_ATTRIBUTE3 IN VARCHAR2,
14 X_ATTRIBUTE4 IN VARCHAR2,
15 X_ATTRIBUTE5 IN VARCHAR2,
16 X_ATTRIBUTE6 IN VARCHAR2,
17 X_ATTRIBUTE7 IN VARCHAR2,
18 X_ATTRIBUTE8 IN VARCHAR2,
19 X_ATTRIBUTE9 IN VARCHAR2,
20 X_ATTRIBUTE10 IN VARCHAR2,
21 X_ATTRIBUTE11 IN VARCHAR2,
22 X_ATTRIBUTE12 IN VARCHAR2,
23 X_ATTRIBUTE13 IN VARCHAR2,
24 X_ATTRIBUTE14 IN VARCHAR2,
25 X_ATTRIBUTE15 IN VARCHAR2,
26 X_OBJECT_VERSION_NUMBER IN NUMBER,
27 X_LAST_UPDATE_DATE IN DATE,
28 X_LAST_UPDATED_BY IN NUMBER,
29 X_CREATION_DATE IN DATE,
30 X_CREATED_BY IN NUMBER,
31 X_LAST_UPDATE_LOGIN IN NUMBER
32 ) is
33
34 cursor C is select ROWID from AHL_UE_RELATIONSHIPS
35 where UE_RELATIONSHIP_ID = X_UE_RELATIONSHIP_ID
36 ;
37
38 l_ROWID ROWID;
39
40 begin
41 insert into AHL_UE_RELATIONSHIPS (
42 UE_RELATIONSHIP_ID,
43 UE_ID,
44 RELATED_UE_ID,
45 RELATIONSHIP_CODE,
46 ORIGINATOR_UE_ID ,
47 ATTRIBUTE_CATEGORY,
48 ATTRIBUTE1,
49 ATTRIBUTE2,
50 ATTRIBUTE3,
51 ATTRIBUTE4,
52 ATTRIBUTE5,
53 ATTRIBUTE6,
54 ATTRIBUTE7,
55 ATTRIBUTE8,
56 ATTRIBUTE9,
57 ATTRIBUTE10,
58 ATTRIBUTE11,
59 ATTRIBUTE12,
60 ATTRIBUTE13,
61 ATTRIBUTE14,
62 ATTRIBUTE15,
63 OBJECT_VERSION_NUMBER,
64 LAST_UPDATE_DATE,
65 LAST_UPDATED_BY,
66 CREATION_DATE,
67 CREATED_BY,
68 LAST_UPDATE_LOGIN
69 ) values (
70 AHL_UE_RELATIONSHIPS_S.NEXTVAL,
71 X_UE_ID,
72 X_RELATED_UE_ID,
73 X_RELATIONSHIP_CODE,
74 X_ORIGINATOR_UE_ID,
75 X_ATTRIBUTE_CATEGORY,
76 X_ATTRIBUTE1,
77 X_ATTRIBUTE2,
78 X_ATTRIBUTE3,
79 X_ATTRIBUTE4,
80 X_ATTRIBUTE5,
81 X_ATTRIBUTE6,
82 X_ATTRIBUTE7,
83 X_ATTRIBUTE8,
84 X_ATTRIBUTE9,
85 X_ATTRIBUTE10,
86 X_ATTRIBUTE11,
87 X_ATTRIBUTE12,
88 X_ATTRIBUTE13,
89 X_ATTRIBUTE14,
90 X_ATTRIBUTE15,
91 X_OBJECT_VERSION_NUMBER,
92 X_LAST_UPDATE_DATE,
93 X_LAST_UPDATED_BY,
94 X_CREATION_DATE,
95 X_CREATED_BY,
96 X_LAST_UPDATE_LOGIN
97 ) RETURNING UE_RELATIONSHIP_ID INTO X_UE_RELATIONSHIP_ID;
98
99 open c;
100 fetch c into l_ROWID;
101 if (c%notfound) then
102 close c;
103 raise no_data_found;
104 end if;
105 close c;
106
107
108 end INSERT_ROW;
109
110
111 procedure UPDATE_ROW (
112 X_UE_RELATIONSHIP_ID IN NUMBER,
113 X_UE_ID IN NUMBER,
114 X_RELATED_UE_ID IN NUMBER,
115 X_RELATIONSHIP_CODE IN VARCHAR2,
116 X_ORIGINATOR_UE_ID IN NUMBER,
117 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
118 X_ATTRIBUTE1 IN VARCHAR2,
119 X_ATTRIBUTE2 IN VARCHAR2,
120 X_ATTRIBUTE3 IN VARCHAR2,
121 X_ATTRIBUTE4 IN VARCHAR2,
122 X_ATTRIBUTE5 IN VARCHAR2,
123 X_ATTRIBUTE6 IN VARCHAR2,
124 X_ATTRIBUTE7 IN VARCHAR2,
125 X_ATTRIBUTE8 IN VARCHAR2,
126 X_ATTRIBUTE9 IN VARCHAR2,
127 X_ATTRIBUTE10 IN VARCHAR2,
128 X_ATTRIBUTE11 IN VARCHAR2,
129 X_ATTRIBUTE12 IN VARCHAR2,
130 X_ATTRIBUTE13 IN VARCHAR2,
131 X_ATTRIBUTE14 IN VARCHAR2,
132 X_ATTRIBUTE15 IN VARCHAR2,
133 X_OBJECT_VERSION_NUMBER IN NUMBER,
134 X_LAST_UPDATE_DATE IN DATE,
135 X_LAST_UPDATED_BY IN NUMBER,
136 X_LAST_UPDATE_LOGIN IN NUMBER
137 ) is
138
139 begin
140 update AHL_UE_RELATIONSHIPS set
141 UE_ID = X_UE_ID,
142 RELATED_UE_ID = X_RELATED_UE_ID,
143 RELATIONSHIP_CODE = X_RELATIONSHIP_CODE,
144 ORIGINATOR_UE_ID = X_ORIGINATOR_UE_ID,
145 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
146 ATTRIBUTE1 = X_ATTRIBUTE1,
147 ATTRIBUTE2 = X_ATTRIBUTE2,
148 ATTRIBUTE3 = X_ATTRIBUTE3,
149 ATTRIBUTE4 = X_ATTRIBUTE4,
150 ATTRIBUTE5 = X_ATTRIBUTE5,
151 ATTRIBUTE6 = X_ATTRIBUTE6,
152 ATTRIBUTE7 = X_ATTRIBUTE7,
153 ATTRIBUTE8 = X_ATTRIBUTE8,
154 ATTRIBUTE9 = X_ATTRIBUTE9,
155 ATTRIBUTE10 = X_ATTRIBUTE10,
156 ATTRIBUTE11 = X_ATTRIBUTE11,
157 ATTRIBUTE12 = X_ATTRIBUTE12,
158 ATTRIBUTE13 = X_ATTRIBUTE13,
159 ATTRIBUTE14 = X_ATTRIBUTE14,
160 ATTRIBUTE15 = X_ATTRIBUTE15,
161 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
162 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
163 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
164 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
165
166 where UE_RELATIONSHIP_ID = X_UE_RELATIONSHIP_ID;
167
168 if (sql%notfound) then
169 raise no_data_found;
170 end if;
171
172 end UPDATE_ROW;
173
174 procedure DELETE_ROW (
175 X_UE_RELATIONSHIP_ID in NUMBER
176 ) is
177
178 begin
179
180 delete from AHL_UE_RELATIONSHIPS
181 where UE_RELATIONSHIP_ID = X_UE_RELATIONSHIP_ID;
182
183 if (sql%notfound) then
184 raise no_data_found;
185 end if;
186
187 end DELETE_ROW;
188
189 END AHL_UE_RELATIONSHIPS_PKG;