1: PACKAGE BODY IEX_DELINQUENCIES_ALL_PKG AS
2: /* $Header: iextdelb.pls 120.0 2004/01/24 03:21:48 appldev noship $ */
3:
4: /* Insert_Row procedure */
5: PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
32: ,p_SECURITY_GROUP_ID NUMBER
33: ,p_UNPAID_REASON_CODE VARCHAR2
34: --,p_STRATEGY_ID NUMBER
35: ) IS
36: CURSOR C IS SELECT ROWID FROM IEX_DELINQUENCIES_ALL
37: WHERE DELINQUENCY_ID = p_DELINQUENCY_ID;
38:
39: BEGIN
40: INSERT INTO IEX_DELINQUENCIES_ALL
36: CURSOR C IS SELECT ROWID FROM IEX_DELINQUENCIES_ALL
37: WHERE DELINQUENCY_ID = p_DELINQUENCY_ID;
38:
39: BEGIN
40: INSERT INTO IEX_DELINQUENCIES_ALL
41: (
42: DELINQUENCY_ID
43: ,LAST_UPDATE_DATE
44: ,LAST_UPDATED_BY
135: ,p_UNPAID_REASON_CODE VARCHAR2
136: --,p_STRATEGY_ID NUMBER
137: ) IS
138: BEGIN
139: UPDATE IEX_DELINQUENCIES_ALL SET
140: DELINQUENCY_ID = p_DELINQUENCY_ID
141: ,LAST_UPDATE_DATE = p_LAST_UPDATE_DATE
142: ,LAST_UPDATED_BY = p_LAST_UPDATED_BY
143: ,LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN
173:
174: /* Delete_Row procedure */
175: PROCEDURE Delete_Row(x_rowid VARCHAR2) IS
176: BEGIN
177: DELETE FROM IEX_DELINQUENCIES_ALL
178: WHERE rowid = x_rowid;
179:
180: if (sql%notfound) then
181: raise no_data_found;
211: ,p_SECURITY_GROUP_ID NUMBER
212: ,p_UNPAID_REASON_CODE VARCHAR2
213: --,p_STRATEGY_ID NUMBER
214: ) IS
215: CURSOR C IS SELECT * FROM IEX_DELINQUENCIES_ALL
216: WHERE rowid = x_rowid
217: FOR UPDATE of DELINQUENCY_ID NOWAIT;
218: Recinfo C%ROWTYPE;
219: BEGIN