[Home] [Help]
PACKAGE BODY: APPS.HZ_DUP_EXCLUSIONS_PKG
Source
1 PACKAGE BODY HZ_DUP_EXCLUSIONS_PKG AS
2 /*$Header: ARHDQDEB.pls 120.5 2005/06/16 21:10:30 jhuang noship $ */
3
4 PROCEDURE Insert_Row(
5 px_DUP_EXCLUSION_ID IN OUT NOCOPY NUMBER,
6 p_PARTY_ID NUMBER,
7 p_DUP_PARTY_ID NUMBER,
8 p_FROM_DATE DATE,
9 p_TO_DATE DATE,
10 p_CREATED_BY NUMBER,
11 p_CREATION_DATE DATE,
12 p_LAST_UPDATE_LOGIN NUMBER,
13 p_LAST_UPDATE_DATE DATE,
14 p_LAST_UPDATED_BY NUMBER)
15 IS
16 CURSOR C2 IS SELECT HZ_DUP_EXCLUSIONS_s.nextval FROM sys.dual;
17 BEGIN
18 IF ( px_DUP_EXCLUSION_ID IS NULL) OR (px_DUP_EXCLUSION_ID = FND_API.G_MISS_NUM) THEN
19 OPEN C2;
20 FETCH C2 INTO px_DUP_EXCLUSION_ID;
21 CLOSE C2;
22 END IF;
23
24 INSERT INTO HZ_DUP_EXCLUSIONS(
25 DUP_EXCLUSION_ID,
26 PARTY_ID,
27 DUP_PARTY_ID,
28 FROM_DATE,
29 TO_DATE,
30 CREATED_BY,
31 CREATION_DATE,
32 LAST_UPDATE_LOGIN,
33 LAST_UPDATE_DATE,
34 LAST_UPDATED_BY
35 )
36 VALUES (
37 px_DUP_EXCLUSION_ID,
38 decode(p_PARTY_ID, FND_API.G_MISS_NUM, NULL,
39 p_PARTY_ID),
40 decode(p_DUP_PARTY_ID, FND_API.G_MISS_NUM, NULL,
41 p_DUP_PARTY_ID),
42 decode(p_from_date, FND_API.G_MISS_DATE, NULL,
43 p_from_date),
44 decode(p_to_date, FND_API.G_MISS_DATE, NULL,
45 p_to_date),
46 hz_utility_v2pub.created_by,
47 hz_utility_v2pub.creation_date,
48 hz_utility_v2pub.last_update_login,
49 hz_utility_v2pub.last_update_date,
50 hz_utility_v2pub.last_updated_by
51 );
52
53 End Insert_Row;
54
55 PROCEDURE Update_Row(
56 p_DUP_EXCLUSION_ID NUMBER,
57 p_PARTY_ID NUMBER,
58 p_DUP_PARTY_ID NUMBER,
59 p_FROM_DATE DATE,
60 p_TO_DATE DATE,
61 p_CREATED_BY NUMBER,
62 p_CREATION_DATE DATE,
63 p_LAST_UPDATE_LOGIN NUMBER,
64 p_LAST_UPDATE_DATE DATE,
65 p_LAST_UPDATED_BY NUMBER
66 ) IS
67 BEGIN
68 UPDATE HZ_DUP_EXCLUSIONS
69 SET
70 PARTY_ID = decode(p_PARTY_ID, FND_API.G_MISS_NUM, NULL,
71 p_PARTY_ID),
72 DUP_PARTY_ID = decode(p_DUP_PARTY_ID, FND_API.G_MISS_NUM, NULL,
73 p_DUP_PARTY_ID),
74 FROM_DATE = decode(p_FROM_DATE,FND_API.G_MISS_DATE, NULL,
75 p_FROM_DATE),
76 TO_DATE = decode(p_TO_DATE,FND_API.G_MISS_DATE, NULL,
77 p_TO_DATE),
78 CREATED_BY = created_by,
79 CREATION_DATE = CREATION_DATE,
80 LAST_UPDATE_LOGIN = HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
81 LAST_UPDATE_DATE = HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
82 LAST_UPDATED_BY = hz_utility_v2pub.LAST_UPDATED_BY
83 where DUP_exclusion_id = p_DUP_exclusion_id;
84
85
86 If (SQL%NOTFOUND) then
87 RAISE NO_DATA_FOUND;
88 End If;
89 END Update_Row;
90
91 PROCEDURE Delete_Row(p_DUP_exclusion_id NUMBER) IS
92 BEGIN
93 DELETE FROM hz_DUP_exclusions
94 where DUP_exclusion_id = p_DUP_exclusion_id ;
95
96 If (SQL%NOTFOUND) then
97 RAISE NO_DATA_FOUND;
98 End If;
99 END Delete_Row;
100
101 PROCEDURE Lock_Row(
102 p_DUP_EXCLUSION_ID IN OUT NOCOPY NUMBER,
103 p_PARTY_ID NUMBER,
104 p_DUP_PARTY_ID NUMBER,
105 p_FROM_DATE DATE,
106 p_TO_DATE DATE,
107 p_CREATED_BY NUMBER,
108 p_CREATION_DATE DATE,
109 p_LAST_UPDATE_LOGIN NUMBER,
110 p_LAST_UPDATE_DATE DATE,
111 p_LAST_UPDATED_BY NUMBER
112 ) IS
113 CURSOR C IS
114 SELECT *
115 FROM hz_DUP_exclusions
116 WHERE DUP_exclusion_id = p_DUP_exclusion_id
117 FOR UPDATE OF DUP_exclusion_id NOWAIT;
118 Recinfo C%ROWTYPE;
119 BEGIN
120 OPEN C;
121 FETCH C INTO Recinfo;
122 If (C%NOTFOUND) then
123 CLOSE C;
124 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
125 APP_EXCEPTION.RAISE_EXCEPTION;
126 End If;
127 CLOSE C;
128
129 if (
130 ( (Recinfo.DUP_EXCLUSION_ID = p_DUP_EXCLUSION_ID)
131 OR ( (Recinfo.DUP_EXCLUSION_ID IS NULL)
132 AND (p_DUP_EXCLUSION_ID IS NULL )))
133 AND ( (Recinfo.PARTY_ID = p_PARTY_ID)
134 OR ( (Recinfo.PARTY_ID IS NULL)
135 AND (p_PARTY_ID IS NULL )))
136 AND ( (Recinfo.DUP_PARTY_ID = p_DUP_PARTY_ID)
137 OR ( (Recinfo.DUP_PARTY_ID IS NULL)
138 AND (p_DUP_PARTY_ID IS NULL )))
139 AND ( (Recinfo.FROM_DATE = p_FROM_DATE)
140 OR ( (Recinfo.FROM_DATE IS NULL)
141 AND (p_FROM_DATE IS NULL )))
142 AND ( (Recinfo.TO_DATE = p_TO_DATE)
143 OR ( (Recinfo.TO_DATE IS NULL)
144 AND (p_TO_DATE IS NULL )))
145 AND ( (Recinfo.CREATED_BY = p_CREATED_BY )
146 OR ( (Recinfo.CREATED_BY IS NULL)
147 AND (p_CREATED_BY IS NULL )))
148 AND ( (Recinfo.CREATION_DATE = p_CREATION_DATE)
149 OR ( (Recinfo.CREATION_DATE IS NULL)
150 AND (p_CREATION_DATE IS NULL )))
151 AND ( (Recinfo.LAST_UPDATE_LOGIN= p_LAST_UPDATE_LOGIN)
152 OR ( (Recinfo.LAST_UPDATE_LOGIN IS NULL)
153 AND (p_LAST_UPDATE_LOGIN IS NULL )))
154 AND ( (Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
155 OR ( (Recinfo.LAST_UPDATE_DATE IS NULL)
156 AND (p_LAST_UPDATE_DATE IS NULL )))
157 AND ( (Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
158 OR ( (Recinfo.LAST_UPDATED_BY IS NULL)
159 AND (p_LAST_UPDATED_BY IS NULL )))
160 ) then
161 return;
162 else
163 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
164 APP_EXCEPTION.RAISE_EXCEPTION;
165 End If;
166 END Lock_Row;
167 END HZ_DUP_EXCLUSIONS_PKG;