[Home] [Help]
PACKAGE BODY: APPS.AHL_SNAPSHOTS_PKG
Source
1 PACKAGE BODY AHL_SNAPSHOTS_PKG as
2 /* $Header: AHLLSNPB.pls 115.1 2003/10/23 19:19:54 sikumar noship $ */
3 PROCEDURE INSERT_ROW (
4 X_SNAPSHOT_ID IN NUMBER,
5 X_OBJECT_VERSION_NUMBER IN NUMBER,
6 X_SNAPSHOT_NUMBER IN NUMBER,
7 X_LAST_UPDATE_DATE IN DATE,
8 X_LAST_UPDATED_BY IN NUMBER,
9 X_CREATION_DATE IN DATE,
10 X_CREATED_BY IN NUMBER,
11 X_LAST_UPDATE_LOGIN IN NUMBER,
12 X_VISIT_ID IN NUMBER,
13 X_VISIT_TASK_ID IN NUMBER,
14 X_MR_ID IN NUMBER,
15 X_ESTIMATED_PRICE IN NUMBER,
16 X_ACTUAL_PRICE IN NUMBER,
17 X_ESTIMATED_COST IN NUMBER,
18 X_ACTUAL_COST IN NUMBER,
19 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
20 X_ATTRIBUTE1 IN VARCHAR2,
21 X_ATTRIBUTE2 IN VARCHAR2,
22 X_ATTRIBUTE3 IN VARCHAR2,
23 X_ATTRIBUTE4 IN VARCHAR2,
24 X_ATTRIBUTE5 IN VARCHAR2,
25 X_ATTRIBUTE6 IN VARCHAR2,
26 X_ATTRIBUTE7 IN VARCHAR2,
27 X_ATTRIBUTE8 IN VARCHAR2,
28 X_ATTRIBUTE9 IN VARCHAR2,
29 X_ATTRIBUTE10 IN VARCHAR2,
30 X_ATTRIBUTE11 IN VARCHAR2,
31 X_ATTRIBUTE12 IN VARCHAR2,
32 X_ATTRIBUTE13 IN VARCHAR2,
33 X_ATTRIBUTE14 IN VARCHAR2,
34 X_ATTRIBUTE15 IN VARCHAR2
35 ) IS
36 BEGIN
37 INSERT INTO AHL_SNAPSHOTS (
38 SNAPSHOT_ID,
39 OBJECT_VERSION_NUMBER,
40 SNAPSHOT_NUMBER,
41 LAST_UPDATE_DATE,
42 LAST_UPDATED_BY,
43 CREATION_DATE,
44 CREATED_BY,
45 LAST_UPDATE_LOGIN,
46 VISIT_ID,
47 VISIT_TASK_ID,
48 MR_ID,
49 ESTIMATED_PRICE,
50 ACTUAL_PRICE,
51 ESTIMATED_COST,
52 ACTUAL_COST,
53 ATTRIBUTE_CATEGORY,
54 ATTRIBUTE1,
55 ATTRIBUTE2,
56 ATTRIBUTE3,
57 ATTRIBUTE4,
58 ATTRIBUTE5,
59 ATTRIBUTE6,
60 ATTRIBUTE7,
61 ATTRIBUTE8,
62 ATTRIBUTE9,
63 ATTRIBUTE10,
64 ATTRIBUTE11,
65 ATTRIBUTE12,
66 ATTRIBUTE13,
67 ATTRIBUTE14,
68 ATTRIBUTE15
69 )
70 VALUES(
71 X_SNAPSHOT_ID,
72 X_OBJECT_VERSION_NUMBER,
73 X_SNAPSHOT_NUMBER,
74 X_LAST_UPDATE_DATE,
75 X_LAST_UPDATED_BY,
76 X_CREATION_DATE,
77 X_CREATED_BY,
78 X_LAST_UPDATE_LOGIN,
79 X_VISIT_ID,
80 X_VISIT_TASK_ID,
81 X_MR_ID,
82 X_ESTIMATED_PRICE,
83 X_ACTUAL_PRICE,
84 X_ESTIMATED_COST,
85 X_ACTUAL_COST,
86 X_ATTRIBUTE_CATEGORY,
87 X_ATTRIBUTE1,
88 X_ATTRIBUTE2,
89 X_ATTRIBUTE3,
90 X_ATTRIBUTE4,
91 X_ATTRIBUTE5,
92 X_ATTRIBUTE6,
93 X_ATTRIBUTE7,
94 X_ATTRIBUTE8,
95 X_ATTRIBUTE9,
96 X_ATTRIBUTE10,
97 X_ATTRIBUTE11,
98 X_ATTRIBUTE12,
99 X_ATTRIBUTE13,
100 X_ATTRIBUTE14,
101 X_ATTRIBUTE15
102 );
103 END INSERT_ROW;
104
105 PROCEDURE UPDATE_ROW (
106 X_SNAPSHOT_ID IN NUMBER,
107 X_OBJECT_VERSION_NUMBER IN NUMBER,
108 X_SNAPSHOT_NUMBER IN NUMBER,
109 X_LAST_UPDATE_DATE IN DATE,
110 X_LAST_UPDATED_BY IN NUMBER,
111 --X_CREATION_DATE IN DATE,
112 --X_CREATED_BY IN NUMBER,
113 X_LAST_UPDATE_LOGIN IN NUMBER,
114 X_VISIT_ID IN NUMBER,
115 X_VISIT_TASK_ID IN NUMBER,
116 X_MR_ID IN NUMBER,
117 X_ESTIMATED_PRICE IN NUMBER,
118 X_ACTUAL_PRICE IN NUMBER,
119 X_ESTIMATED_COST IN NUMBER,
120 X_ACTUAL_COST IN NUMBER,
121 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
122 X_ATTRIBUTE1 IN VARCHAR2,
123 X_ATTRIBUTE2 IN VARCHAR2,
124 X_ATTRIBUTE3 IN VARCHAR2,
125 X_ATTRIBUTE4 IN VARCHAR2,
126 X_ATTRIBUTE5 IN VARCHAR2,
127 X_ATTRIBUTE6 IN VARCHAR2,
128 X_ATTRIBUTE7 IN VARCHAR2,
129 X_ATTRIBUTE8 IN VARCHAR2,
130 X_ATTRIBUTE9 IN VARCHAR2,
131 X_ATTRIBUTE10 IN VARCHAR2,
132 X_ATTRIBUTE11 IN VARCHAR2,
133 X_ATTRIBUTE12 IN VARCHAR2,
134 X_ATTRIBUTE13 IN VARCHAR2,
135 X_ATTRIBUTE14 IN VARCHAR2,
136 X_ATTRIBUTE15 IN VARCHAR2
137 ) IS
138 BEGIN
139 UPDATE AHL_SNAPSHOTS SET
140 VISIT_ID = X_VISIT_ID,
141 VISIT_TASK_ID = X_VISIT_TASK_ID,
142 SNAPSHOT_NUMBER = X_SNAPSHOT_NUMBER,
143 --CREATION_DATE = X_CREATION_DATE,
144 --CREATED_BY = X_CREATED_BY,
145 MR_ID = X_MR_ID,
146 ESTIMATED_PRICE = X_ESTIMATED_PRICE,
147 ACTUAL_PRICE = X_ACTUAL_PRICE,
148 ESTIMATED_COST = X_ESTIMATED_COST,
149 ACTUAL_COST = X_ACTUAL_COST,
150 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
151 ATTRIBUTE1 = X_ATTRIBUTE1,
152 ATTRIBUTE2 = X_ATTRIBUTE2,
153 ATTRIBUTE3 = X_ATTRIBUTE3,
154 ATTRIBUTE4 = X_ATTRIBUTE4,
155 ATTRIBUTE5 = X_ATTRIBUTE5,
156 ATTRIBUTE6 = X_ATTRIBUTE6,
157 ATTRIBUTE7 = X_ATTRIBUTE7,
158 ATTRIBUTE8 = X_ATTRIBUTE8,
159 ATTRIBUTE9 = X_ATTRIBUTE9,
160 ATTRIBUTE10 = X_ATTRIBUTE10,
161 ATTRIBUTE11 = X_ATTRIBUTE11,
162 ATTRIBUTE12 = X_ATTRIBUTE12,
163 ATTRIBUTE13 = X_ATTRIBUTE13,
164 ATTRIBUTE14 = X_ATTRIBUTE14,
165 ATTRIBUTE15 = X_ATTRIBUTE15,
166 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER +1,
167 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
168 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
169 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
170 WHERE SNAPSHOT_ID = X_SNAPSHOT_ID
171 AND OBJECT_VERSION_NUMBER=X_OBJECT_VERSION_NUMBER;
172 IF (SQL%ROWCOUNT=0)
173 THEN
174 FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
175 FND_MSG_PUB.ADD;
176 END IF;
177 END UPDATE_ROW;
178
179 PROCEDURE DELETE_ROW (
180 X_SNAPSHOT_ID IN NUMBER
181 ) IS
182 BEGIN
183 DELETE FROM AHL_SNAPSHOTS
184 WHERE SNAPSHOT_ID = X_SNAPSHOT_ID;
185
186 IF (SQL%NOTFOUND) THEN
187 RAISE NO_DATA_FOUND;
188 END IF;
189
190 END DELETE_ROW;
191
192 END AHL_SNAPSHOTS_PKG;