[Home] [Help]
1: PACKAGE BODY FINANCIALS_PURGES_PKG as
2: /* $Header: apifipub.pls 120.3 2004/10/28 00:02:56 pjena noship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5:
66: X_Action VARCHAR2 DEFAULT NULL,
67: X_calling_sequence IN VARCHAR2,
68: X_Org_Id NUMBER
69: ) IS
70: CURSOR C IS SELECT rowid FROM FINANCIALS_PURGES
71: WHERE purge_name = X_Purge_Name;
72: current_calling_sequence VARCHAR2(2000);
73: debug_info VARCHAR2(100);
74: BEGIN
74: BEGIN
75:
76: -- Update the calling sequence
77: --
78: current_calling_sequence := 'FINANCIALS_PURGES_PKG.INSERT_ROW<-' ||
79: X_calling_sequence;
80:
81:
82: debug_info := 'Insert into FINANCIALS_PURGES';
78: current_calling_sequence := 'FINANCIALS_PURGES_PKG.INSERT_ROW<-' ||
79: X_calling_sequence;
80:
81:
82: debug_info := 'Insert into FINANCIALS_PURGES';
83:
84: INSERT INTO FINANCIALS_PURGES(
85:
86: purge_name,
80:
81:
82: debug_info := 'Insert into FINANCIALS_PURGES';
83:
84: INSERT INTO FINANCIALS_PURGES(
85:
86: purge_name,
87: creation_date,
88: created_by,
301: X_Org_Id NUMBER
302: ) IS
303: CURSOR C IS
304: SELECT *
305: FROM FINANCIALS_PURGES
306: WHERE rowid = X_Rowid
307: FOR UPDATE of Purge_Name NOWAIT;
308: Recinfo C%ROWTYPE;
309:
312:
313: BEGIN
314: -- Update the calling sequence
315: --
316: current_calling_sequence := 'FINANCIALS_PURGES_PKG.LOCK_ROW<-' ||
317: X_calling_sequence;
318:
319: debug_info := 'Open cursor C';
320: OPEN C;
531: debug_info VARCHAR2(100);
532: BEGIN
533: -- Update the calling sequence
534: --
535: current_calling_sequence := 'FINANCIALS_PURGES_PKG.DELETE_ROW<-' ||
536: X_calling_sequence;
537:
538: debug_info := 'Delete from FINANCIALS_PURGES';
539: DELETE FROM FINANCIALS_PURGES
534: --
535: current_calling_sequence := 'FINANCIALS_PURGES_PKG.DELETE_ROW<-' ||
536: X_calling_sequence;
537:
538: debug_info := 'Delete from FINANCIALS_PURGES';
539: DELETE FROM FINANCIALS_PURGES
540: WHERE rowid = X_Rowid;
541:
542: if (SQL%NOTFOUND) then
535: current_calling_sequence := 'FINANCIALS_PURGES_PKG.DELETE_ROW<-' ||
536: X_calling_sequence;
537:
538: debug_info := 'Delete from FINANCIALS_PURGES';
539: DELETE FROM FINANCIALS_PURGES
540: WHERE rowid = X_Rowid;
541:
542: if (SQL%NOTFOUND) then
543: Raise NO_DATA_FOUND;
556:
557: END Delete_Row;
558:
559:
560: END FINANCIALS_PURGES_PKG;