1 PACKAGE BODY IEX_DEL_PAY_XREF_PKG AS
2 /* $Header: iextdpxb.pls 120.0 2004/01/24 03:21:57 appldev noship $ */
3
4 /* Insert_Row procedure */
5 PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
6
7 PROCEDURE Insert_Row(x_rowid IN OUT NOCOPY VARCHAR2
8 ,p_DEL_PAY_ID NUMBER DEFAULT NULL
9 ,p_LAST_UPDATE_DATE DATE
10 ,p_LAST_UPDATED_BY NUMBER
11 ,p_LAST_UPDATE_LOGIN NUMBER DEFAULT NULL
12 ,p_CREATION_DATE DATE
13 ,p_CREATED_BY NUMBER
14 ,p_OBJECT_VERSION_NUMBER NUMBER
15 ,p_PROGRAM_ID NUMBER DEFAULT NULL
16 ,p_DELINQUENCY_ID NUMBER DEFAULT NULL
17 ,p_PAYMENT_ID NUMBER DEFAULT NULL
18 ) IS
19 CURSOR C IS SELECT ROWID FROM IEX_DEL_PAY_XREF
20 WHERE DEL_PAY_ID = p_DEL_PAY_ID;
21
22 BEGIN
23 INSERT INTO IEX_DEL_PAY_XREF
24 (
25 DEL_PAY_ID
26 ,LAST_UPDATE_DATE
27 ,LAST_UPDATED_BY
28 ,LAST_UPDATE_LOGIN
29 ,CREATION_DATE
30 ,CREATED_BY
31 ,OBJECT_VERSION_NUMBER
32 ,PROGRAM_ID
33 ,DELINQUENCY_ID
34 ,PAYMENT_ID
35 ) VALUES (
36 p_DEL_PAY_ID
37 ,p_LAST_UPDATE_DATE
38 ,p_LAST_UPDATED_BY
39 ,p_LAST_UPDATE_LOGIN
40 ,p_CREATION_DATE
41 ,p_CREATED_BY
42 ,p_OBJECT_VERSION_NUMBER
43 ,p_PROGRAM_ID
44 ,p_DELINQUENCY_ID
45 ,p_PAYMENT_ID
46 );
47
48 OPEN C;
49 FETCH C INTO x_rowid;
50 IF (C%NOTFOUND) THEN
51 CLOSE C;
52 RAISE NO_DATA_FOUND;
53 END IF;
54 CLOSE C;
55 END Insert_Row;
56
57 /* Update_Row procedure */
58 PROCEDURE Update_Row(x_rowid VARCHAR2
59 ,p_DEL_PAY_ID NUMBER DEFAULT NULL
60 ,p_LAST_UPDATE_DATE DATE
61 ,p_LAST_UPDATED_BY NUMBER
62 ,p_LAST_UPDATE_LOGIN NUMBER DEFAULT NULL
63 ,p_CREATION_DATE DATE
64 ,p_CREATED_BY NUMBER
65 ,p_OBJECT_VERSION_NUMBER NUMBER
66 ,p_PROGRAM_ID NUMBER DEFAULT NULL
67 ,p_DELINQUENCY_ID NUMBER DEFAULT NULL
68 ,p_PAYMENT_ID NUMBER DEFAULT NULL
69 ) IS
70 BEGIN
71 UPDATE IEX_DEL_PAY_XREF SET
72 DEL_PAY_ID = p_DEL_PAY_ID
73 ,LAST_UPDATE_DATE = p_LAST_UPDATE_DATE
74 ,LAST_UPDATED_BY = p_LAST_UPDATED_BY
75 ,LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN
76 ,CREATION_DATE = p_CREATION_DATE
77 ,CREATED_BY = p_CREATED_BY
78 ,OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER
79 ,PROGRAM_ID = p_PROGRAM_ID
80 ,DELINQUENCY_ID = p_DELINQUENCY_ID
81 ,PAYMENT_ID = p_PAYMENT_ID
82 WHERE rowid = x_rowid;
83
84 if (sql%notfound) then
85 raise no_data_found;
86 end if;
87 END Update_Row;
88
89 /* Delete_Row procedure */
90 PROCEDURE Delete_Row(x_rowid VARCHAR2) IS
91 BEGIN
92 DELETE FROM IEX_DEL_PAY_XREF
93 WHERE rowid = x_rowid;
94
95 if (sql%notfound) then
96 raise no_data_found;
97 end if;
98 END Delete_Row;
99
100 /* Lock_Row procedure */
101 PROCEDURE Lock_Row(x_rowid VARCHAR2
102 ,p_DEL_PAY_ID NUMBER DEFAULT NULL
103 ,p_LAST_UPDATE_DATE DATE
104 ,p_LAST_UPDATED_BY NUMBER
105 ,p_LAST_UPDATE_LOGIN NUMBER DEFAULT NULL
106 ,p_CREATION_DATE DATE
107 ,p_CREATED_BY NUMBER
108 ,p_OBJECT_VERSION_NUMBER NUMBER
109 ,p_PROGRAM_ID NUMBER DEFAULT NULL
110 ,p_DELINQUENCY_ID NUMBER DEFAULT NULL
111 ,p_PAYMENT_ID NUMBER DEFAULT NULL
112 ) IS
113 CURSOR C IS SELECT * FROM IEX_DEL_PAY_XREF
114 WHERE rowid = x_rowid
115 FOR UPDATE of DEL_PAY_ID NOWAIT;
116 Recinfo C%ROWTYPE;
117 BEGIN
118 OPEN C;
119 FETCH C INTO Recinfo;
120 IF (C%NOTFOUND) THEN
121 CLOSE C;
122 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
123 APP_EXCEPTION.Raise_Exception;
124 END IF;
125 CLOSE C;
126
127 IF (
128 (Recinfo.DEL_PAY_ID = p_DEL_PAY_ID)
129 AND ( (Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
130 OR ( (Recinfo.LAST_UPDATE_DATE IS NULL)
131 AND (p_LAST_UPDATE_DATE IS NULL)))
132 AND ( (Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
133 OR ( (Recinfo.LAST_UPDATED_BY IS NULL)
134 AND (p_LAST_UPDATED_BY IS NULL)))
135 AND ( (Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
136 OR ( (Recinfo.LAST_UPDATE_LOGIN IS NULL)
137 AND (p_LAST_UPDATE_LOGIN IS NULL)))
138 AND ( (Recinfo.CREATION_DATE = p_CREATION_DATE)
139 OR ( (Recinfo.CREATION_DATE IS NULL)
140 AND (p_CREATION_DATE IS NULL)))
141 AND ( (Recinfo.CREATED_BY = p_CREATED_BY)
142 OR ( (Recinfo.CREATED_BY IS NULL)
143 AND (p_CREATED_BY IS NULL)))
144 AND ( (Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
145 OR ( (Recinfo.OBJECT_VERSION_NUMBER IS NULL)
146 AND (p_OBJECT_VERSION_NUMBER IS NULL)))
147 AND ( (Recinfo.PROGRAM_ID = p_PROGRAM_ID)
148 OR ( (Recinfo.PROGRAM_ID IS NULL)
149 AND (p_PROGRAM_ID IS NULL)))
150 AND ( (Recinfo.DELINQUENCY_ID = p_DELINQUENCY_ID)
151 OR ( (Recinfo.DELINQUENCY_ID IS NULL)
152 AND (p_DELINQUENCY_ID IS NULL)))
153 AND ( (Recinfo.PAYMENT_ID = p_PAYMENT_ID)
154 OR ( (Recinfo.PAYMENT_ID IS NULL)
155 AND (p_PAYMENT_ID IS NULL)))
156 ) THEN
157 return;
158 ELSE
159 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
160 APP_EXCEPTION.Raise_Exception;
161 END IF;
162 END Lock_Row;
163 END;
164