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.11 2010/11/11 20:21:00 vinaik 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 653: RETURN AP_CARDS_ALL.CARD_ID%TYPE IS

649:
650: -- 8726861
651: FUNCTION GET_CARD_ID(
652: P_CARD_NUMBER IN AP_EXPENSE_FEED_LINES_ALL.CARD_NUMBER%TYPE)
653: RETURN AP_CARDS_ALL.CARD_ID%TYPE IS
654: l_debug_info VARCHAR2(100);
655: x_return_status VARCHAR2(4000);
656: x_msg_count NUMBER;
657: x_msg_data VARCHAR2(4000);

Line 668: null ,trim(P_CARD_NUMBER), -- party id is null as we reference cards through ap_cards_all.employee_id

664: -- Call IBY API to get the card_reference_id.
665:
666: iby_fndcpt_setup_pub.card_exists(1.0,NULL,
667: x_return_status, x_msg_count, x_msg_data,
668: null ,trim(P_CARD_NUMBER), -- party id is null as we reference cards through ap_cards_all.employee_id
669: p_card_instrument, x_response);
670:
671: if (x_return_status = 'S') then
672: x_instr_id := p_card_instrument.card_id;

Line 678: ap_cards_all where card_reference_id=x_instr_id and rownum=1;

674: if (x_instr_id is not null) then
675:
676: begin
677: select card_id into l_card_id from
678: ap_cards_all where card_reference_id=x_instr_id and rownum=1;
679:
680: exception
681: when NO_DATA_FOUND then
682: RETURN -1 ;

Line 722: END AP_CARDS_PKG;

718:
719:
720:
721:
722: END AP_CARDS_PKG;