[Home] [Help]
PACKAGE BODY: APPS.CSP_PART_PRIORITIES_PKG
Source
1 PACKAGE BODY CSP_PART_PRIORITIES_PKG as
2 /* $Header: csptpapb.pls 115.0 2003/06/10 19:49:19 ajosephg noship $ */
3 -- Start of Comments
4 -- Package name : CSP_PART_PRIORITIES_PKG
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_PART_PRIORITIES_PKG';
11 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csptpapb.pls';
12
13 PROCEDURE Insert_Row(
14 px_PART_PRIORITY_ID IN OUT NOCOPY NUMBER,
15 p_PRIORITY VARCHAR2,
16 p_LOWER_RANGE NUMBER,
17 p_UPPER_RANGE NUMBER,
18 p_CREATED_BY NUMBER,
19 p_CREATION_DATE DATE,
20 p_LAST_UPDATED_BY NUMBER,
21 p_LAST_UPDATE_DATE DATE,
22 p_LAST_UPDATE_LOGIN NUMBER)
23
24 IS
25 CURSOR C2 IS SELECT CSP_PART_PRIORITIES_S1.nextval FROM sys.dual;
26 BEGIN
27 If (px_PART_PRIORITY_ID IS NULL) OR (px_PART_PRIORITY_ID = FND_API.G_MISS_NUM) then
28 OPEN C2;
29 FETCH C2 INTO px_PART_PRIORITY_ID;
30 CLOSE C2;
31 End If;
32
33 INSERT INTO CSP_PART_PRIORITIES(
34 PART_PRIORITY_ID,
35 PRIORITY,
36 LOWER_RANGE,
37 UPPER_RANGE,
38 CREATED_BY,
39 CREATION_DATE,
40 LAST_UPDATED_BY,
41 LAST_UPDATE_DATE,
42 LAST_UPDATE_LOGIN)
43 VALUES (
44 px_PART_PRIORITY_ID,
45 decode( p_PRIORITY, FND_API.G_MISS_CHAR, NULL, p_PRIORITY),
46 decode( p_LOWER_RANGE, FND_API.G_MISS_NUM, NULL, p_LOWER_RANGE),
47 decode( p_UPPER_RANGE, FND_API.G_MISS_NUM, NULL, p_UPPER_RANGE),
48 decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
49 decode(p_CREATION_DATE,fnd_api.g_miss_date,to_date(null),p_creation_date),
50 decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
51 decode(p_LAST_UPDATE_DATE,fnd_api.g_miss_date,to_date(null),p_last_update_date),
52 decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN));
53 End Insert_Row;
54
55 PROCEDURE Update_Row(
56 p_PART_PRIORITY_ID NUMBER,
57 p_PRIORITY VARCHAR2,
58 p_LOWER_RANGE NUMBER,
59 p_UPPER_RANGE NUMBER,
60 p_CREATED_BY NUMBER,
61 p_CREATION_DATE DATE,
62 p_LAST_UPDATED_BY NUMBER,
63 p_LAST_UPDATE_DATE DATE,
64 p_LAST_UPDATE_LOGIN NUMBER)
65
66 IS
67 BEGIN
68 Update CSP_PART_PRIORITIES
69 SET PRIORITY = decode( p_PRIORITY, FND_API.G_MISS_CHAR, PRIORITY, p_PRIORITY),
70 LOWER_RANGE = decode( p_LOWER_RANGE, FND_API.G_MISS_NUM, LOWER_RANGE, p_LOWER_RANGE),
71 UPPER_RANGE = decode( p_UPPER_RANGE, FND_API.G_MISS_NUM, UPPER_RANGE, p_UPPER_RANGE),
72 CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
73 CREATION_DATE = decode(p_CREATION_DATE,fnd_api.g_miss_date,creation_date,p_creation_date),
74 LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
75 LAST_UPDATE_DATE = decode(p_LAST_UPDATE_DATE,fnd_api.g_miss_date,last_update_date,p_last_update_date),
76 LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
77 where PART_PRIORITY_ID = p_PART_PRIORITY_ID;
78
79 If (SQL%NOTFOUND) then
80 RAISE NO_DATA_FOUND;
81 End If;
82 END Update_Row;
83
84 PROCEDURE Delete_Row(
85 p_PART_PRIORITY_ID NUMBER)
86 IS
87 BEGIN
88 DELETE FROM CSP_PART_PRIORITIES
89 WHERE PART_PRIORITY_ID = p_PART_PRIORITY_ID;
90 If (SQL%NOTFOUND) then
91 RAISE NO_DATA_FOUND;
92 End If;
93 END Delete_Row;
94
95 PROCEDURE Lock_Row(
96 p_PART_PRIORITY_ID NUMBER,
97 p_PRIORITY VARCHAR2,
98 p_LOWER_RANGE NUMBER,
99 p_UPPER_RANGE NUMBER,
100 p_CREATED_BY NUMBER,
101 p_CREATION_DATE DATE,
102 p_LAST_UPDATED_BY NUMBER,
103 p_LAST_UPDATE_DATE DATE,
104 p_LAST_UPDATE_LOGIN NUMBER)
105
106 IS
107 CURSOR C IS
108 SELECT *
109 FROM CSP_PART_PRIORITIES
110 WHERE PART_PRIORITY_ID = p_PART_PRIORITY_ID
111 FOR UPDATE of PART_PRIORITY_ID NOWAIT;
112 Recinfo C%ROWTYPE;
113 BEGIN
114 OPEN C;
115 FETCH C INTO Recinfo;
116 If (C%NOTFOUND) then
117 CLOSE C;
118 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
119 APP_EXCEPTION.RAISE_EXCEPTION;
120 End If;
121 CLOSE C;
122 if (
123 ( Recinfo.PART_PRIORITY_ID = p_PART_PRIORITY_ID)
124 AND ( ( Recinfo.PRIORITY = p_PRIORITY)
125 OR ( ( Recinfo.PRIORITY IS NULL )
126 AND ( p_PRIORITY IS NULL )))
127 AND ( ( Recinfo.LOWER_RANGE = p_LOWER_RANGE)
128 OR ( ( Recinfo.LOWER_RANGE IS NULL )
129 AND ( p_LOWER_RANGE IS NULL )))
130 AND ( ( Recinfo.UPPER_RANGE = p_UPPER_RANGE)
131 OR ( ( Recinfo.UPPER_RANGE IS NULL )
132 AND ( p_UPPER_RANGE IS NULL )))
133 AND ( ( Recinfo.CREATED_BY = p_CREATED_BY)
134 OR ( ( Recinfo.CREATED_BY IS NULL )
135 AND ( p_CREATED_BY IS NULL )))
136 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
137 OR ( ( Recinfo.CREATION_DATE IS NULL )
138 AND ( p_CREATION_DATE IS NULL )))
139 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
140 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
141 AND ( p_LAST_UPDATED_BY IS NULL )))
142 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
143 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
144 AND ( p_LAST_UPDATE_DATE IS NULL )))
145 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
146 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
147 AND ( p_LAST_UPDATE_LOGIN IS NULL )))
148
149 ) then
150 return;
151 else
152 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
153 APP_EXCEPTION.RAISE_EXCEPTION;
154 End If;
155 END Lock_Row;
156
157 End CSP_PART_PRIORITIES_PKG;