[Home] [Help]
1: PACKAGE BODY AP_RECURRING_PAYMENTS_PKG AS
2: /* $Header: apircupb.pls 120.9 2010/12/20 12:21:30 sbonala ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Recurring_Payment_Id IN OUT NOCOPY NUMBER,
107: X_RELATIONSHIP_ID NUMBER DEFAULT NULL,
108: X_PRODUCT_TYPE VARCHAR2 DEFAULT NULL, --Bug#8640313
109: X_PRODUCT_CATEGORY VARCHAR2 DEFAULT NULL --Bug#8640313
110: ) IS
111: CURSOR C IS SELECT rowid FROM AP_RECURRING_PAYMENTS
112: WHERE recurring_payment_id = X_Recurring_Payment_Id;
113: CURSOR C2 IS SELECT ap_recurring_payments_s.nextval FROM sys.dual;
114: current_calling_sequence VARCHAR2(2000);
115: debug_info VARCHAR2(100);
109: X_PRODUCT_CATEGORY VARCHAR2 DEFAULT NULL --Bug#8640313
110: ) IS
111: CURSOR C IS SELECT rowid FROM AP_RECURRING_PAYMENTS
112: WHERE recurring_payment_id = X_Recurring_Payment_Id;
113: CURSOR C2 IS SELECT ap_recurring_payments_s.nextval FROM sys.dual;
114: current_calling_sequence VARCHAR2(2000);
115: debug_info VARCHAR2(100);
116:
117: BEGIN
117: BEGIN
118: -- Update the calling sequence
119: --
120: current_calling_sequence :=
121: 'AP_RECURRING_PAYMENTS_PKG.INSERT_ROW<-'||X_calling_sequence;
122:
123: if (X_Recurring_Payment_Id is NULL) then
124: debug_info := 'Open cursor C2';
125: OPEN C2;
128: debug_info := 'Close cursor C2';
129: CLOSE C2;
130: end if;
131:
132: debug_info := 'Insert into AP_RECURRING_PAYMENTS';
133: INSERT INTO AP_RECURRING_PAYMENTS(
134: recurring_payment_id,
135: last_update_date,
136: last_updated_by,
129: CLOSE C2;
130: end if;
131:
132: debug_info := 'Insert into AP_RECURRING_PAYMENTS';
133: INSERT INTO AP_RECURRING_PAYMENTS(
134: recurring_payment_id,
135: last_update_date,
136: last_updated_by,
137: creation_date,
473: X_PRODUCT_CATEGORY VARCHAR2 DEFAULT NULL --Bug#8640313
474: ) IS
475: CURSOR C IS
476: SELECT *
477: FROM AP_RECURRING_PAYMENTS
478: WHERE rowid = X_Rowid
479: FOR UPDATE of Recurring_Payment_Id NOWAIT;
480: Recinfo C%ROWTYPE;
481: current_calling_sequence VARCHAR2(2000);
484: BEGIN
485: -- Update the calling sequence
486: --
487: current_calling_sequence :=
488: 'AP_RECURRING_PAYMENTS_PKG.LOCK_ROW<-'||X_calling_sequence;
489:
490: debug_info := 'Open cursor C';
491: OPEN C;
492: debug_info := 'Fetch cursor C';
918: BEGIN
919: -- Update the calling sequence
920: --
921: current_calling_sequence :=
922: 'AP_RECURRING_PAYMENTS_PKG.UPDATE_ROW<-'||X_calling_sequence;
923:
924: debug_info := 'Update AP_RECURRING_PAYMENTS';
925: UPDATE AP_RECURRING_PAYMENTS_ALL
926: SET
920: --
921: current_calling_sequence :=
922: 'AP_RECURRING_PAYMENTS_PKG.UPDATE_ROW<-'||X_calling_sequence;
923:
924: debug_info := 'Update AP_RECURRING_PAYMENTS';
925: UPDATE AP_RECURRING_PAYMENTS_ALL
926: SET
927: recurring_payment_id = X_Recurring_Payment_Id,
928: last_update_date = X_Last_Update_Date,
921: current_calling_sequence :=
922: 'AP_RECURRING_PAYMENTS_PKG.UPDATE_ROW<-'||X_calling_sequence;
923:
924: debug_info := 'Update AP_RECURRING_PAYMENTS';
925: UPDATE AP_RECURRING_PAYMENTS_ALL
926: SET
927: recurring_payment_id = X_Recurring_Payment_Id,
928: last_update_date = X_Last_Update_Date,
929: last_updated_by = X_Last_Updated_By,
1057:
1058: -- Update the calling sequence
1059: --
1060: current_calling_sequence :=
1061: 'AP_RECURRING_PAYMENTS_PKG.DELETE_ROW<-'||X_calling_sequence;
1062:
1063: debug_info := 'Delete from AP_RECURRING_PAYMENTS';
1064: DELETE FROM AP_RECURRING_PAYMENTS_ALL
1065: WHERE rowid = X_Rowid;
1059: --
1060: current_calling_sequence :=
1061: 'AP_RECURRING_PAYMENTS_PKG.DELETE_ROW<-'||X_calling_sequence;
1062:
1063: debug_info := 'Delete from AP_RECURRING_PAYMENTS';
1064: DELETE FROM AP_RECURRING_PAYMENTS_ALL
1065: WHERE rowid = X_Rowid;
1066:
1067: if (SQL%NOTFOUND) then
1060: current_calling_sequence :=
1061: 'AP_RECURRING_PAYMENTS_PKG.DELETE_ROW<-'||X_calling_sequence;
1062:
1063: debug_info := 'Delete from AP_RECURRING_PAYMENTS';
1064: DELETE FROM AP_RECURRING_PAYMENTS_ALL
1065: WHERE rowid = X_Rowid;
1066:
1067: if (SQL%NOTFOUND) then
1068: Raise NO_DATA_FOUND;
1080: APP_EXCEPTION.RAISE_EXCEPTION;
1081:
1082: END Delete_Row;
1083:
1084: END AP_RECURRING_PAYMENTS_PKG;