eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.CSD_MRO_SERIAL_NUMBERS_PKG

Source


1 PACKAGE BODY CSD_MRO_SERIAL_NUMBERS_PKG as
2 /* $Header: csdtsrlb.pls 115.7 2002/11/14 02:03:30 swai noship $ */
3 
4 
5 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_MRO_SERIAL_NUMBERS_PKG';
6 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtsrlb.pls';
7 l_debug        NUMBER := csd_gen_utility_pvt.g_debug_level;
8 
9 PROCEDURE Insert_Row(
10           px_MRO_SERIAL_NUMBER_ID   IN OUT NOCOPY NUMBER
11          ,p_REPAIR_GROUP_ID    NUMBER
12          ,p_SERIAL_NUMBER    VARCHAR2
13          ,p_VALIDATE_LEVEL    VARCHAR2
14          ,p_CREATED_BY    NUMBER
15          ,p_CREATION_DATE    DATE
16          ,p_LAST_UPDATED_BY    NUMBER
17          ,p_LAST_UPDATE_DATE    DATE
18          ,p_LAST_UPDATE_LOGIN    NUMBER
19          ,p_CONTEXT    VARCHAR2
20          ,p_ATTRIBUTE1    VARCHAR2
21          ,p_ATTRIBUTE2    VARCHAR2
22          ,p_ATTRIBUTE3    VARCHAR2
23          ,p_ATTRIBUTE4    VARCHAR2
24          ,p_ATTRIBUTE5    VARCHAR2
25          ,p_ATTRIBUTE6    VARCHAR2
26          ,p_ATTRIBUTE7    VARCHAR2
27          ,p_ATTRIBUTE8    VARCHAR2
28          ,p_ATTRIBUTE9    VARCHAR2
29          ,p_ATTRIBUTE10    VARCHAR2
30          ,p_ATTRIBUTE11    VARCHAR2
31          ,p_ATTRIBUTE12    VARCHAR2
32          ,p_ATTRIBUTE13    VARCHAR2
33          ,p_ATTRIBUTE14    VARCHAR2
34          ,p_ATTRIBUTE15    VARCHAR2
35          ,p_OBJECT_VERSION_NUMBER    NUMBER
36          ,p_CUSTOMER_PRODUCT_ID     NUMBER
37          ,p_REFERENCE_NUMBER VARCHAR2)
38 
39  IS
40    CURSOR C2 IS SELECT CSD_MRO_SERIAL_NUMBERS_S1.nextval FROM sys.dual;
41 BEGIN
42    If (px_MRO_SERIAL_NUMBER_ID IS NULL) OR (px_MRO_SERIAL_NUMBER_ID = FND_API.G_MISS_NUM) then
43        OPEN C2;
44        FETCH C2 INTO px_MRO_SERIAL_NUMBER_ID;
45        CLOSE C2;
46    End If;
47    INSERT INTO CSD_MRO_SERIAL_NUMBERS(
48            MRO_SERIAL_NUMBER_ID
49           ,REPAIR_GROUP_ID
50           ,SERIAL_NUMBER
51           ,validate_level
52           ,CREATED_BY
53           ,CREATION_DATE
54           ,LAST_UPDATED_BY
55           ,LAST_UPDATE_DATE
56           ,LAST_UPDATE_LOGIN
57           ,CONTEXT
58           ,ATTRIBUTE1
59           ,ATTRIBUTE2
60           ,ATTRIBUTE3
61           ,ATTRIBUTE4
62           ,ATTRIBUTE5
63           ,ATTRIBUTE6
64           ,ATTRIBUTE7
65           ,ATTRIBUTE8
66           ,ATTRIBUTE9
67           ,ATTRIBUTE10
68           ,ATTRIBUTE11
69           ,ATTRIBUTE12
70           ,ATTRIBUTE13
71           ,ATTRIBUTE14
72           ,ATTRIBUTE15
73           ,OBJECT_VERSION_NUMBER
74           ,CUSTOMER_PRODUCT_ID
75           ,REFERENCE_NUMBER
76           ) VALUES (
77            px_MRO_SERIAL_NUMBER_ID
78           ,decode( p_REPAIR_GROUP_ID, FND_API.G_MISS_NUM, NULL, p_REPAIR_GROUP_ID)
79           ,decode( p_SERIAL_NUMBER, FND_API.G_MISS_CHAR, NULL, p_SERIAL_NUMBER)
80           ,decode( p_VALIDATE_LEVEL, FND_API.G_MISS_CHAR, NULL, p_VALIDATE_LEVEL)
81           ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
82           ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
83           ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
84           ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
85           ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
86           ,decode( p_CONTEXT, FND_API.G_MISS_CHAR, NULL, p_CONTEXT)
87           ,decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1)
88           ,decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2)
89           ,decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3)
90           ,decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4)
91           ,decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5)
92           ,decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6)
93           ,decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7)
94           ,decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8)
95           ,decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9)
96           ,decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10)
97           ,decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11)
98           ,decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12)
99           ,decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13)
100           ,decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14)
101           ,decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15)
102           ,decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, p_OBJECT_VERSION_NUMBER)
103           ,decode( p_CUSTOMER_PRODUCT_ID, FND_API.G_MISS_NUM, NULL, p_CUSTOMER_PRODUCT_ID)
104           ,decode( p_REFERENCE_NUMBER, FND_API.G_MISS_CHAR, NULL, p_REFERENCE_NUMBER));
105 End Insert_Row;
106 
107 PROCEDURE Update_Row(
108           p_MRO_SERIAL_NUMBER_ID    NUMBER
109          ,p_REPAIR_GROUP_ID    NUMBER
110          ,p_SERIAL_NUMBER    VARCHAR2
111          ,p_VALIDATE_LEVEL    VARCHAR2
112          ,p_CREATED_BY    NUMBER
113          ,p_CREATION_DATE    DATE
114          ,p_LAST_UPDATED_BY    NUMBER
115          ,p_LAST_UPDATE_DATE    DATE
116          ,p_LAST_UPDATE_LOGIN    NUMBER
117          ,p_CONTEXT    VARCHAR2
118          ,p_ATTRIBUTE1    VARCHAR2
119          ,p_ATTRIBUTE2    VARCHAR2
120          ,p_ATTRIBUTE3    VARCHAR2
121          ,p_ATTRIBUTE4    VARCHAR2
122          ,p_ATTRIBUTE5    VARCHAR2
123          ,p_ATTRIBUTE6    VARCHAR2
124          ,p_ATTRIBUTE7    VARCHAR2
125          ,p_ATTRIBUTE8    VARCHAR2
126          ,p_ATTRIBUTE9    VARCHAR2
127          ,p_ATTRIBUTE10    VARCHAR2
128          ,p_ATTRIBUTE11    VARCHAR2
129          ,p_ATTRIBUTE12    VARCHAR2
130          ,p_ATTRIBUTE13    VARCHAR2
131          ,p_ATTRIBUTE14    VARCHAR2
132          ,p_ATTRIBUTE15    VARCHAR2
133          ,p_OBJECT_VERSION_NUMBER    NUMBER
134          ,p_CUSTOMER_PRODUCT_ID     NUMBER
135          ,p_REFERENCE_NUMBER VARCHAR2)
136 
137 IS
138 BEGIN
139     Update CSD_MRO_SERIAL_NUMBERS
140     SET
141         REPAIR_GROUP_ID = decode( p_REPAIR_GROUP_ID, FND_API.G_MISS_NUM, NULL, NULL, REPAIR_GROUP_ID, p_REPAIR_GROUP_ID)
142        ,SERIAL_NUMBER = decode( p_SERIAL_NUMBER, FND_API.G_MISS_CHAR, NULL, NULL, SERIAL_NUMBER, p_SERIAL_NUMBER)
143        ,validate_level = decode( p_VALIDATE_LEVEL, FND_API.G_MISS_CHAR, NULL, NULL, validate_level, p_VALIDATE_LEVEL)
144        ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, NULL, CREATED_BY, p_CREATED_BY)
145        ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, NULL, NULL, CREATION_DATE, p_CREATION_DATE)
146        ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, NULL, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
147        ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, NULL, NULL, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
148        ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, NULL, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
149        ,CONTEXT = decode( p_CONTEXT, FND_API.G_MISS_CHAR, NULL, NULL, CONTEXT, p_CONTEXT)
150        ,ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE1, p_ATTRIBUTE1)
151        ,ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE2, p_ATTRIBUTE2)
152        ,ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE3, p_ATTRIBUTE3)
153        ,ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE4, p_ATTRIBUTE4)
154        ,ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE5, p_ATTRIBUTE5)
155        ,ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE6, p_ATTRIBUTE6)
156        ,ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE7, p_ATTRIBUTE7)
157        ,ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE8, p_ATTRIBUTE8)
158        ,ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE9, p_ATTRIBUTE9)
159        ,ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE10, p_ATTRIBUTE10)
160        ,ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE11, p_ATTRIBUTE11)
161        ,ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE12, p_ATTRIBUTE12)
162        ,ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE13, p_ATTRIBUTE13)
163        ,ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE14, p_ATTRIBUTE14)
164        ,ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE15, p_ATTRIBUTE15)
165        ,OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, NULL, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
166        ,CUSTOMER_PRODUCT_ID = decode( p_CUSTOMER_PRODUCT_ID, FND_API.G_MISS_NUM, NULL, NULL, CUSTOMER_PRODUCT_ID, p_CUSTOMER_PRODUCT_ID)
167        ,REFERENCE_NUMBER = decode( p_REFERENCE_NUMBER, FND_API.G_MISS_CHAR, NULL, NULL, REFERENCE_NUMBER, p_REFERENCE_NUMBER)
168     where MRO_SERIAL_NUMBER_ID = p_MRO_SERIAL_NUMBER_ID;
169 
170     If (SQL%NOTFOUND) then
171         RAISE NO_DATA_FOUND;
172     End If;
173 END Update_Row;
174 
175 PROCEDURE Delete_Row(
176     p_MRO_SERIAL_NUMBER_ID  NUMBER)
177 IS
178 BEGIN
179     DELETE FROM CSD_MRO_SERIAL_NUMBERS
180     WHERE MRO_SERIAL_NUMBER_ID = p_MRO_SERIAL_NUMBER_ID;
181     If (SQL%NOTFOUND) then
182         RAISE NO_DATA_FOUND;
183     End If;
184 END Delete_Row;
185 
186 PROCEDURE Lock_Row(
187           p_MRO_SERIAL_NUMBER_ID    NUMBER
188          ,p_OBJECT_VERSION_NUMBER    NUMBER)
189 
190  IS
191    CURSOR C IS
192        SELECT *
193        FROM CSD_MRO_SERIAL_NUMBERS
194        WHERE MRO_SERIAL_NUMBER_ID =  p_MRO_SERIAL_NUMBER_ID
195        FOR UPDATE of MRO_SERIAL_NUMBER_ID NOWAIT;
196    Recinfo C%ROWTYPE;
197 BEGIN
198     OPEN C;
199     FETCH C INTO Recinfo;
200     If (C%NOTFOUND) then
201         CLOSE C;
202         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
203         APP_EXCEPTION.RAISE_EXCEPTION;
204     End If;
205     CLOSE C;
206 
207     IF (recinfo.object_version_number = p_OBJECT_VERSION_NUMBER) THEN
208        NULL;
209     ELSE
210         fnd_message.set_name ('FND', 'FORM_RECORD_CHANGED');
211        APP_EXCEPTION.RAISE_EXCEPTION;
212     END IF;
213 
214 
215 END Lock_Row;
216 
217 End CSD_MRO_SERIAL_NUMBERS_PKG;