DBA Data[Home] [Help]

PACKAGE BODY: APPS.HZ_INDUSTRIAL_CLASS_APP_PKG

Source


1 PACKAGE BODY HZ_INDUSTRIAL_CLASS_APP_PKG as
2 /* $Header: ARHOCATB.pls 120.3 2005/10/30 04:20:42 appldev ship $ */
3 
4 
5 PROCEDURE Insert_Row(
6                   x_Rowid       IN OUT NOCOPY            VARCHAR2,
7                   x_CODE_APPLIED_ID               NUMBER,
8                   x_BEGIN_DATE                    DATE,
9                   x_PARTY_ID                      NUMBER,
10                   x_END_DATE                      DATE,
11                   x_INDUSTRIAL_CLASS_ID           NUMBER,
12                   x_CREATED_BY                    NUMBER,
13                   x_CREATION_DATE                 DATE,
14                   x_LAST_UPDATE_LOGIN             NUMBER,
15                   x_LAST_UPDATE_DATE              DATE,
16                   x_LAST_UPDATED_BY               NUMBER,
17                   x_REQUEST_ID                    NUMBER,
18                   x_PROGRAM_APPLICATION_ID        NUMBER,
19                   x_PROGRAM_ID                    NUMBER,
20                   x_PROGRAM_UPDATE_DATE           DATE,
21                   x_WH_UPDATE_DATE                DATE,
22                   x_CONTENT_SOURCE_TYPE           VARCHAR2,
23                   x_IMPORTANCE_RANKING            VARCHAR2
24  ) IS
25    CURSOR C IS SELECT rowid FROM HZ_INDUSTRIAL_CLASS_APP
26             WHERE CODE_APPLIED_ID = x_CODE_APPLIED_ID;
27 BEGIN
28    INSERT INTO HZ_INDUSTRIAL_CLASS_APP(
29            CODE_APPLIED_ID,
30            BEGIN_DATE,
31            PARTY_ID,
32            END_DATE,
33            INDUSTRIAL_CLASS_ID,
34            CREATED_BY,
35            CREATION_DATE,
36            LAST_UPDATE_LOGIN,
37            LAST_UPDATE_DATE,
38            LAST_UPDATED_BY,
39            REQUEST_ID,
40            PROGRAM_APPLICATION_ID,
41            PROGRAM_ID,
42            PROGRAM_UPDATE_DATE,
43            WH_UPDATE_DATE,
44            CONTENT_SOURCE_TYPE
45            --IMPORTANCE_RANKING
46    ) VALUES (
47           x_CODE_APPLIED_ID,
48            decode( x_BEGIN_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_BEGIN_DATE),
49            decode( x_PARTY_ID, FND_API.G_MISS_NUM, NULL,x_PARTY_ID),
50            decode( x_END_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_END_DATE),
51            decode( x_INDUSTRIAL_CLASS_ID, FND_API.G_MISS_NUM, NULL,x_INDUSTRIAL_CLASS_ID),
52            decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL,x_CREATED_BY),
53            decode( x_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_CREATION_DATE),
54            decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATE_LOGIN),
55            decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_LAST_UPDATE_DATE),
56            decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATED_BY),
57            decode( x_REQUEST_ID, FND_API.G_MISS_NUM, NULL,x_REQUEST_ID),
58            decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_APPLICATION_ID),
59            decode( x_PROGRAM_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_ID),
60            decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_PROGRAM_UPDATE_DATE),
61            decode( x_WH_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_WH_UPDATE_DATE),
62            decode( x_CONTENT_SOURCE_TYPE, FND_API.G_MISS_CHAR, NULL,x_CONTENT_SOURCE_TYPE));
63            --decode( x_IMPORTANCE_RANKING, FND_API.G_MISS_CHAR, NULL,x_IMPORTANCE_RANKING));
64   OPEN C;
65    FETCH C INTO x_Rowid;
66    If (C%NOTFOUND) then
67        CLOSE C;
68        RAISE NO_DATA_FOUND;
69    End If;
70 End Insert_Row;
71 
72 
73 
74 PROCEDURE Delete_Row(                  x_CODE_APPLIED_ID               NUMBER
75  ) IS
76  BEGIN
77    DELETE FROM HZ_INDUSTRIAL_CLASS_APP
78     WHERE CODE_APPLIED_ID = x_CODE_APPLIED_ID;
79    If (SQL%NOTFOUND) then
80        RAISE NO_DATA_FOUND;
81    End If;
82  END Delete_Row;
83 
84 
85 
86 PROCEDURE Update_Row(
87                   x_Rowid          IN OUT NOCOPY         VARCHAR2,
88                   x_CODE_APPLIED_ID               NUMBER,
89                   x_BEGIN_DATE                    DATE,
90                   x_PARTY_ID                      NUMBER,
91                   x_END_DATE                      DATE,
92                   x_INDUSTRIAL_CLASS_ID           NUMBER,
93                   x_CREATED_BY                    NUMBER,
94                   x_CREATION_DATE                 DATE,
95                   x_LAST_UPDATE_LOGIN             NUMBER,
96                   x_LAST_UPDATE_DATE              DATE,
97                   x_LAST_UPDATED_BY               NUMBER,
98                   x_REQUEST_ID                    NUMBER,
99                   x_PROGRAM_APPLICATION_ID        NUMBER,
100                   x_PROGRAM_ID                    NUMBER,
101                   x_PROGRAM_UPDATE_DATE           DATE,
102                   x_WH_UPDATE_DATE                DATE,
103                   x_CONTENT_SOURCE_TYPE           VARCHAR2,
104                   x_IMPORTANCE_RANKING            VARCHAR2
105  ) IS
106  BEGIN
107     Update HZ_INDUSTRIAL_CLASS_APP
108     SET
109              CODE_APPLIED_ID = decode( x_CODE_APPLIED_ID, FND_API.G_MISS_NUM,CODE_APPLIED_ID,x_CODE_APPLIED_ID),
110              BEGIN_DATE = decode( x_BEGIN_DATE, FND_API.G_MISS_DATE,BEGIN_DATE,x_BEGIN_DATE),
111              PARTY_ID = decode( x_PARTY_ID, FND_API.G_MISS_NUM,PARTY_ID,x_PARTY_ID),
112              END_DATE = decode( x_END_DATE, FND_API.G_MISS_DATE,END_DATE,x_END_DATE),
113              INDUSTRIAL_CLASS_ID = decode( x_INDUSTRIAL_CLASS_ID, FND_API.G_MISS_NUM,INDUSTRIAL_CLASS_ID,x_INDUSTRIAL_CLASS_ID),
114              -- Bug 3032780
115              /*
116              CREATED_BY = decode( x_CREATED_BY, FND_API.G_MISS_NUM,CREATED_BY,x_CREATED_BY),
117              CREATION_DATE = decode( x_CREATION_DATE, FND_API.G_MISS_DATE,CREATION_DATE,x_CREATION_DATE),
118              */
119              LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,LAST_UPDATE_LOGIN,x_LAST_UPDATE_LOGIN),
120              LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),
121              LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
122              REQUEST_ID = decode( x_REQUEST_ID, FND_API.G_MISS_NUM,REQUEST_ID,x_REQUEST_ID),
123              PROGRAM_APPLICATION_ID = decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM,PROGRAM_APPLICATION_ID,x_PROGRAM_APPLICATION_ID),
124              PROGRAM_ID = decode( x_PROGRAM_ID, FND_API.G_MISS_NUM,PROGRAM_ID,x_PROGRAM_ID),
125              PROGRAM_UPDATE_DATE = decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE,PROGRAM_UPDATE_DATE,x_PROGRAM_UPDATE_DATE),
126              WH_UPDATE_DATE = decode( x_WH_UPDATE_DATE, FND_API.G_MISS_DATE,WH_UPDATE_DATE,x_WH_UPDATE_DATE),
127              CONTENT_SOURCE_TYPE = decode( x_CONTENT_SOURCE_TYPE, FND_API.G_MISS_CHAR,CONTENT_SOURCE_TYPE,x_CONTENT_SOURCE_TYPE)
128              --IMPORTANCE_RANKING = decode( x_IMPORTANCE_RANKING, FND_API.G_MISS_CHAR,IMPORTANCE_RANKING,x_IMPORTANCE_RANKING)
129    where rowid = X_RowId;
130 
131     If (SQL%NOTFOUND) then
132         RAISE NO_DATA_FOUND;
133     End If;
134  END Update_Row;
135 
136 
137 
138 PROCEDURE Lock_Row(
139                   x_Rowid                         VARCHAR2,
140                   x_CODE_APPLIED_ID               NUMBER,
141                   x_BEGIN_DATE                    DATE,
142                   x_PARTY_ID                      NUMBER,
143                   x_END_DATE                      DATE,
144                   x_INDUSTRIAL_CLASS_ID           NUMBER,
145                   x_CREATED_BY                    NUMBER,
146                   x_CREATION_DATE                 DATE,
147                   x_LAST_UPDATE_LOGIN             NUMBER,
148                   x_LAST_UPDATE_DATE              DATE,
149                   x_LAST_UPDATED_BY               NUMBER,
150                   x_REQUEST_ID                    NUMBER,
151                   x_PROGRAM_APPLICATION_ID        NUMBER,
152                   x_PROGRAM_ID                    NUMBER,
153                   x_PROGRAM_UPDATE_DATE           DATE,
154                   x_WH_UPDATE_DATE                DATE,
155                   x_CONTENT_SOURCE_TYPE           VARCHAR2,
156                   x_IMPORTANCE_RANKING            VARCHAR2
157  ) IS
158    CURSOR C IS
159         SELECT *
160           FROM HZ_INDUSTRIAL_CLASS_APP
161          WHERE rowid = x_Rowid
162          FOR UPDATE of CODE_APPLIED_ID NOWAIT;
163    Recinfo C%ROWTYPE;
164  BEGIN
165     OPEN C;
166     FETCH C INTO Recinfo;
167     If (C%NOTFOUND) then
168         CLOSE C;
169         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
170         APP_EXCEPTION.RAISE_EXCEPTION;
171     End If;
172     CLOSE C;
173     if (
174            (    ( Recinfo.CODE_APPLIED_ID = x_CODE_APPLIED_ID)
175             OR (    ( Recinfo.CODE_APPLIED_ID = NULL )
176                 AND (  x_CODE_APPLIED_ID = NULL )))
177        AND (    ( Recinfo.BEGIN_DATE = x_BEGIN_DATE)
178             OR (    ( Recinfo.BEGIN_DATE = NULL )
179                 AND (  x_BEGIN_DATE = NULL )))
180        AND (    ( Recinfo.PARTY_ID = x_PARTY_ID)
181             OR (    ( Recinfo.PARTY_ID = NULL )
182                 AND (  x_PARTY_ID = NULL )))
183        AND (    ( Recinfo.END_DATE = x_END_DATE)
184             OR (    ( Recinfo.END_DATE = NULL )
185                 AND (  x_END_DATE = NULL )))
186        AND (    ( Recinfo.INDUSTRIAL_CLASS_ID = x_INDUSTRIAL_CLASS_ID)
187             OR (    ( Recinfo.INDUSTRIAL_CLASS_ID = NULL )
188                 AND (  x_INDUSTRIAL_CLASS_ID = NULL )))
189        AND (    ( Recinfo.CREATED_BY = x_CREATED_BY)
190             OR (    ( Recinfo.CREATED_BY = NULL )
191                 AND (  x_CREATED_BY = NULL )))
192        AND (    ( Recinfo.CREATION_DATE = x_CREATION_DATE)
193             OR (    ( Recinfo.CREATION_DATE = NULL )
194                 AND (  x_CREATION_DATE = NULL )))
195        AND (    ( Recinfo.LAST_UPDATE_LOGIN = x_LAST_UPDATE_LOGIN)
196             OR (    ( Recinfo.LAST_UPDATE_LOGIN = NULL )
197                 AND (  x_LAST_UPDATE_LOGIN = NULL )))
198        AND (    ( Recinfo.LAST_UPDATE_DATE = x_LAST_UPDATE_DATE)
199             OR (    ( Recinfo.LAST_UPDATE_DATE = NULL )
200                 AND (  x_LAST_UPDATE_DATE = NULL )))
201        AND (    ( Recinfo.LAST_UPDATED_BY = x_LAST_UPDATED_BY)
202             OR (    ( Recinfo.LAST_UPDATED_BY = NULL )
203                 AND (  x_LAST_UPDATED_BY = NULL )))
204        AND (    ( Recinfo.REQUEST_ID = x_REQUEST_ID)
205             OR (    ( Recinfo.REQUEST_ID = NULL )
206                 AND (  x_REQUEST_ID = NULL )))
207        AND (    ( Recinfo.PROGRAM_APPLICATION_ID = x_PROGRAM_APPLICATION_ID)
208             OR (    ( Recinfo.PROGRAM_APPLICATION_ID = NULL )
209                 AND (  x_PROGRAM_APPLICATION_ID = NULL )))
210        AND (    ( Recinfo.PROGRAM_ID = x_PROGRAM_ID)
211             OR (    ( Recinfo.PROGRAM_ID = NULL )
212                 AND (  x_PROGRAM_ID = NULL )))
213        AND (    ( Recinfo.PROGRAM_UPDATE_DATE = x_PROGRAM_UPDATE_DATE)
214             OR (    ( Recinfo.PROGRAM_UPDATE_DATE = NULL )
215                 AND (  x_PROGRAM_UPDATE_DATE = NULL )))
216        AND (    ( Recinfo.WH_UPDATE_DATE = x_WH_UPDATE_DATE)
217             OR (    ( Recinfo.WH_UPDATE_DATE = NULL )
218                 AND (  x_WH_UPDATE_DATE = NULL )))
219        AND (    ( Recinfo.CONTENT_SOURCE_TYPE = x_CONTENT_SOURCE_TYPE)
220             OR (    ( Recinfo.CONTENT_SOURCE_TYPE = NULL )
221                 AND (  x_CONTENT_SOURCE_TYPE = NULL )))
222 /*
223        AND (    ( Recinfo.IMPORTANCE_RANKING = x_IMPORTANCE_RANKING)
224             OR (    ( Recinfo.IMPORTANCE_RANKING = NULL )
225                 AND (  x_IMPORTANCE_RANKING = NULL )))
226 */
227        ) then
228        return;
229    else
230        FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
231        APP_EXCEPTION.RAISE_EXCEPTION;
232    End If;
233 END Lock_Row;
234 
235 END HZ_INDUSTRIAL_CLASS_APP_PKG;