APPS.AP_CARDS_PKG dependencies on AP_CARDS

Line 1: PACKAGE BODY AP_CARDS_PKG as

1: PACKAGE BODY AP_CARDS_PKG as
2: /* $Header: apiwcrdb.pls 120.6.12010000.2 2009/01/22 07:55:17 cjain ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Employee_Id NUMBER,

Line 61: CURSOR C IS SELECT rowid FROM ap_cards

57: X_CardProgramId NUMBER,
58: X_CardReferenceId NUMBER,
59: X_paycardreferenceid NUMBER
60: ) IS
61: CURSOR C IS SELECT rowid FROM ap_cards
62: WHERE card_id = X_Card_Id;
63: CURSOR C2 IS SELECT ap_cards_s.nextval FROM sys.dual;
64: BEGIN
65: if (X_Card_Id is NULL) then

Line 63: CURSOR C2 IS SELECT ap_cards_s.nextval FROM sys.dual;

59: X_paycardreferenceid NUMBER
60: ) IS
61: CURSOR C IS SELECT rowid FROM ap_cards
62: WHERE card_id = X_Card_Id;
63: CURSOR C2 IS SELECT ap_cards_s.nextval FROM sys.dual;
64: BEGIN
65: if (X_Card_Id is NULL) then
66: OPEN C2;
67: FETCH C2 INTO X_Card_Id;

Line 71: INSERT INTO ap_cards(

67: FETCH C2 INTO X_Card_Id;
68: CLOSE C2;
69: end if;
70:
71: INSERT INTO ap_cards(
72: employee_id,
73: card_number,
74: card_expiration_date,
75: card_id,

Line 248: FROM ap_cards

244: X_CardProgramId NUMBER
245: ) IS
246: CURSOR C IS
247: SELECT *
248: FROM ap_cards
249: WHERE rowid = X_Rowid
250: FOR UPDATE of Card_Id NOWAIT;
251: Recinfo C%ROWTYPE;
252:

Line 467: UPDATE ap_cards

463:
464:
465: ) IS
466: BEGIN
467: UPDATE ap_cards
468: SET
469: employee_id = X_Employee_Id,
470: card_expiration_date = X_Card_Expiration_Date,
471: card_id = X_Card_Id,

Line 526: DELETE FROM ap_cards

522: end if;
523: END Update_Row;
524: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
525: BEGIN
526: DELETE FROM ap_cards
527: WHERE rowid = X_Rowid;
528:
529: if (SQL%NOTFOUND) then
530: Raise NO_DATA_FOUND;

Line 649: END AP_CARDS_PKG;

645: END IF;
646:
647: END Supplier_Delete_Row;
648:
649: END AP_CARDS_PKG;