[Home] [Help]
PACKAGE BODY: APPS.AHL_UNIT_ACCOMPLISH_PKG
Source
1 PACKAGE BODY AHL_UNIT_ACCOMPLISH_PKG AS
2 /* $Header: AHLLUMAB.pls 115.2 2002/12/04 23:04:21 sracha noship $ */
3 -- ARCS header version
4
5 G_PKG_NAME VARCHAR2(30) := 'AHL_UNIT_ACCOMPLISH_PKG';
6
7 PROCEDURE insert_row (
8 P_X_UNIT_ACCOMPLISHMNT_ID IN OUT NOCOPY NUMBER,
9 P_UNIT_EFFECTIVITY_ID IN NUMBER,
10 P_COUNTER_ID IN NUMBER,
11 P_COUNTER_VALUE IN NUMBER,
12 P_ATTRIBUTE_CATEGORY IN VARCHAR2,
13 P_ATTRIBUTE1 IN VARCHAR2,
14 P_ATTRIBUTE2 IN VARCHAR2,
15 P_ATTRIBUTE3 IN VARCHAR2,
16 P_ATTRIBUTE4 IN VARCHAR2,
17 P_ATTRIBUTE5 IN VARCHAR2,
18 P_ATTRIBUTE6 IN VARCHAR2,
19 P_ATTRIBUTE7 IN VARCHAR2,
20 P_ATTRIBUTE8 IN VARCHAR2,
21 P_ATTRIBUTE9 IN VARCHAR2,
22 P_ATTRIBUTE10 IN VARCHAR2,
23 P_ATTRIBUTE11 IN VARCHAR2,
24 P_ATTRIBUTE12 IN VARCHAR2,
25 P_ATTRIBUTE13 IN VARCHAR2,
26 P_ATTRIBUTE14 IN VARCHAR2,
27 P_ATTRIBUTE15 IN VARCHAR2,
28 P_OBJECT_VERSION_NUMBER IN NUMBER,
29 P_LAST_UPDATE_DATE IN DATE,
30 P_LAST_UPDATED_BY IN NUMBER,
31 P_CREATION_DATE IN DATE,
32 P_CREATED_BY IN NUMBER,
33 P_LAST_UPDATE_LOGIN IN NUMBER
34 ) IS
35
36 BEGIN
37 insert into ahl_unit_accomplishmnts(
38 UNIT_ACCOMPLISHMNT_ID,
39 UNIT_EFFECTIVITY_ID,
40 COUNTER_ID,
41 COUNTER_VALUE,
42 ATTRIBUTE_CATEGORY,
43 ATTRIBUTE1,
44 ATTRIBUTE2,
45 ATTRIBUTE3,
46 ATTRIBUTE4,
47 ATTRIBUTE5,
48 ATTRIBUTE6,
49 ATTRIBUTE7,
50 ATTRIBUTE8,
51 ATTRIBUTE9,
52 ATTRIBUTE10,
53 ATTRIBUTE11,
54 ATTRIBUTE12,
55 ATTRIBUTE13,
56 ATTRIBUTE14,
57 ATTRIBUTE15,
58 OBJECT_VERSION_NUMBER,
59 LAST_UPDATE_DATE,
60 LAST_UPDATED_BY,
61 CREATION_DATE,
62 CREATED_BY,
63 LAST_UPDATE_LOGIN
64 ) values (
65 AHL_UNIT_ACCOMPLISHMNTS_S.NEXTVAL,
66 P_UNIT_EFFECTIVITY_ID,
67 P_COUNTER_ID,
68 P_COUNTER_VALUE,
69 P_ATTRIBUTE_CATEGORY,
70 P_ATTRIBUTE1,
71 P_ATTRIBUTE2,
72 P_ATTRIBUTE3,
73 P_ATTRIBUTE4,
74 P_ATTRIBUTE5,
75 P_ATTRIBUTE6,
76 P_ATTRIBUTE7,
77 P_ATTRIBUTE8,
78 P_ATTRIBUTE9,
79 P_ATTRIBUTE10,
80 P_ATTRIBUTE11,
81 P_ATTRIBUTE12,
82 P_ATTRIBUTE13,
83 P_ATTRIBUTE14,
84 P_ATTRIBUTE15,
85 P_OBJECT_VERSION_NUMBER,
86 P_LAST_UPDATE_DATE,
87 P_LAST_UPDATED_BY,
88 P_CREATION_DATE,
89 P_CREATED_BY,
90 P_LAST_UPDATE_LOGIN
91 ) RETURNING UNIT_ACCOMPLISHMNT_ID INTO P_X_UNIT_ACCOMPLISHMNT_ID;
92
93 END insert_row;
94
95 ------------------------------
96
97 PROCEDURE update_row (
98 P_UNIT_ACCOMPLISHMNT_ID IN NUMBER,
99 P_UNIT_EFFECTIVITY_ID IN NUMBER,
100 P_COUNTER_ID IN NUMBER,
101 P_COUNTER_VALUE IN NUMBER,
102 P_ATTRIBUTE_CATEGORY IN VARCHAR2,
103 P_ATTRIBUTE1 IN VARCHAR2,
104 P_ATTRIBUTE2 IN VARCHAR2,
105 P_ATTRIBUTE3 IN VARCHAR2,
106 P_ATTRIBUTE4 IN VARCHAR2,
107 P_ATTRIBUTE5 IN VARCHAR2,
108 P_ATTRIBUTE6 IN VARCHAR2,
109 P_ATTRIBUTE7 IN VARCHAR2,
110 P_ATTRIBUTE8 IN VARCHAR2,
111 P_ATTRIBUTE9 IN VARCHAR2,
112 P_ATTRIBUTE10 IN VARCHAR2,
113 P_ATTRIBUTE11 IN VARCHAR2,
114 P_ATTRIBUTE12 IN VARCHAR2,
115 P_ATTRIBUTE13 IN VARCHAR2,
116 P_ATTRIBUTE14 IN VARCHAR2,
117 P_ATTRIBUTE15 IN VARCHAR2,
118 P_OBJECT_VERSION_NUMBER IN NUMBER,
119 P_LAST_UPDATE_DATE IN DATE,
120 P_LAST_UPDATED_BY IN NUMBER,
121 P_LAST_UPDATE_LOGIN IN NUMBER
122 ) IS
123
124 BEGIN
125 update ahl_unit_accomplishmnts set
126 UNIT_EFFECTIVITY_ID = P_UNIT_EFFECTIVITY_ID,
127 COUNTER_ID = P_COUNTER_ID,
128 COUNTER_VALUE = P_COUNTER_VALUE,
129 ATTRIBUTE_CATEGORY = P_ATTRIBUTE_CATEGORY,
130 ATTRIBUTE1 = P_ATTRIBUTE1,
131 ATTRIBUTE2 = P_ATTRIBUTE2,
132 ATTRIBUTE3 = P_ATTRIBUTE3,
133 ATTRIBUTE4 = P_ATTRIBUTE4,
134 ATTRIBUTE5 = P_ATTRIBUTE5,
135 ATTRIBUTE6 = P_ATTRIBUTE6,
136 ATTRIBUTE7 = P_ATTRIBUTE7,
137 ATTRIBUTE8 = P_ATTRIBUTE8,
138 ATTRIBUTE9 = P_ATTRIBUTE9,
139 ATTRIBUTE10 = P_ATTRIBUTE10,
140 ATTRIBUTE11 = P_ATTRIBUTE11,
141 ATTRIBUTE12 = P_ATTRIBUTE12,
142 ATTRIBUTE13 = P_ATTRIBUTE13,
143 ATTRIBUTE14 = P_ATTRIBUTE14,
144 ATTRIBUTE15 = P_ATTRIBUTE15,
145 OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER,
146 LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
147 LAST_UPDATED_BY = P_LAST_UPDATED_BY,
148 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
149 where UNIT_ACCOMPLISHMNT_ID = P_UNIT_ACCOMPLISHMNT_ID;
150
151 if (sql%notfound) then
152 raise no_data_found;
153 end if;
154
155 END update_row;
156
157 ------------------------------
158
159 PROCEDURE delete_row (
160 P_UNIT_ACCOMPLISHMNT_ID IN NUMBER
161 ) IS
162 BEGIN
163
164 delete from ahl_unit_accomplishmnts
165 where UNIT_ACCOMPLISHMNT_ID = P_UNIT_ACCOMPLISHMNT_ID;
166
167 if (sql%notfound) then
168 raise no_data_found;
169 end if;
170
171 END delete_row;
172
173 ------------------------------
174
175 END AHL_UNIT_ACCOMPLISH_PKG;