1 PACKAGE BODY IEX_PAY_RECEIPT_XREF_PKG AS
2 /* $Header: iextprxb.pls 120.0 2004/01/24 03:22:31 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_PAY_RECEIPT_XREF_ID NUMBER
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_PROGRAM_ID NUMBER DEFAULT NULL
15 ,p_OBJECT_VERSION_NUMBER NUMBER
16 ,p_PAYMENT_ID NUMBER DEFAULT NULL
17 ,p_CASH_RECEIPT_ID NUMBER DEFAULT NULL
18 ) IS
19 CURSOR C IS SELECT ROWID FROM IEX_PAY_RECEIPT_XREF
20 WHERE PAY_RECEIPT_XREF_ID = p_PAY_RECEIPT_XREF_ID;
21
22 BEGIN
23 INSERT INTO IEX_PAY_RECEIPT_XREF
24 (
25 PAY_RECEIPT_XREF_ID
26 ,LAST_UPDATE_DATE
27 ,LAST_UPDATED_BY
28 ,LAST_UPDATE_LOGIN
29 ,CREATION_DATE
30 ,CREATED_BY
31 ,PROGRAM_ID
32 ,OBJECT_VERSION_NUMBER
33 ,PAYMENT_ID
34 ,CASH_RECEIPT_ID
35 ) VALUES (
36 p_PAY_RECEIPT_XREF_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_PROGRAM_ID
43 ,p_OBJECT_VERSION_NUMBER
44 ,p_PAYMENT_ID
45 ,p_CASH_RECEIPT_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_PAY_RECEIPT_XREF_ID NUMBER
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_PROGRAM_ID NUMBER DEFAULT NULL
66 ,p_OBJECT_VERSION_NUMBER NUMBER
67 ,p_PAYMENT_ID NUMBER DEFAULT NULL
68 ,p_CASH_RECEIPT_ID NUMBER DEFAULT NULL
69 ) IS
70 BEGIN
71 UPDATE IEX_PAY_RECEIPT_XREF SET
72 PAY_RECEIPT_XREF_ID = p_PAY_RECEIPT_XREF_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 ,PROGRAM_ID = p_PROGRAM_ID
79 ,OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER
80 ,PAYMENT_ID = p_PAYMENT_ID
81 ,CASH_RECEIPT_ID = p_CASH_RECEIPT_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_PAY_RECEIPT_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_PAY_RECEIPT_XREF_ID NUMBER
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_PROGRAM_ID NUMBER DEFAULT NULL
109 ,p_OBJECT_VERSION_NUMBER NUMBER
110 ,p_PAYMENT_ID NUMBER DEFAULT NULL
111 ,p_CASH_RECEIPT_ID NUMBER DEFAULT NULL
112 ) IS
113 CURSOR C IS SELECT * FROM IEX_PAY_RECEIPT_XREF
114 WHERE rowid = x_rowid
115 FOR UPDATE of PAY_RECEIPT_XREF_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.PAY_RECEIPT_XREF_ID = p_PAY_RECEIPT_XREF_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.PROGRAM_ID = p_PROGRAM_ID)
145 OR ( (Recinfo.PROGRAM_ID IS NULL)
146 AND (p_PROGRAM_ID IS NULL)))
147 AND ( (Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
148 OR ( (Recinfo.OBJECT_VERSION_NUMBER IS NULL)
149 AND (p_OBJECT_VERSION_NUMBER IS NULL)))
150 AND ( (Recinfo.PAYMENT_ID = p_PAYMENT_ID)
151 OR ( (Recinfo.PAYMENT_ID IS NULL)
152 AND (p_PAYMENT_ID IS NULL)))
153 AND ( (Recinfo.CASH_RECEIPT_ID = p_CASH_RECEIPT_ID)
154 OR ( (Recinfo.CASH_RECEIPT_ID IS NULL)
155 AND (p_CASH_RECEIPT_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