[Home] [Help]
198: --
199: PROCEDURE Archive_Card
200: (p_commit IN VARCHAR2,
201: p_instr_id IN iby_creditcard.instrid%TYPE,
202: x_history_id OUT NOCOPY iby_creditcard_h.card_history_change_id%TYPE
203: )
204: IS
205: BEGIN
206:
207: /*
208: * Fix for bug 5256903 by rameshsh:
209: *
210: * The active_flag column is nullable in IBY_CREDITCARD
211: * but nor in IBY_CREDITCARD_H.
212: *
213: * If active_flag is not set for a particular credit card
214: * in IBY_CREDITCARD, default the value to 'Y', otherwise
215: * this method will throw a 'cannot insert NULL exception ..'
213: * If active_flag is not set for a particular credit card
214: * in IBY_CREDITCARD, default the value to 'Y', otherwise
215: * this method will throw a 'cannot insert NULL exception ..'
216: */
217: SELECT iby_creditcard_h_s.NEXTVAL INTO x_history_id FROM dual;
218: INSERT INTO iby_creditcard_h
219: (card_history_change_id, instrid, expirydate, expiry_sec_segment_id,
220: addressid,
221: description, chname, chname_sec_segment_id, finame, security_group_id,
214: * in IBY_CREDITCARD, default the value to 'Y', otherwise
215: * this method will throw a 'cannot insert NULL exception ..'
216: */
217: SELECT iby_creditcard_h_s.NEXTVAL INTO x_history_id FROM dual;
218: INSERT INTO iby_creditcard_h
219: (card_history_change_id, instrid, expirydate, expiry_sec_segment_id,
220: addressid,
221: description, chname, chname_sec_segment_id, finame, security_group_id,
222: encrypted,
796: p_allow_invalid_card IN VARCHAR2,
797: p_issuer IN iby_creditcard.card_issuer_code%TYPE
798: )
799: IS
800: l_history_id iby_creditcard_h.card_history_change_id%TYPE;
801: l_billing_site NUMBER;
802: l_expiry_date iby_creditcard.expirydate%TYPE;
803:
804: -- variabled for CHNAME and EXPDATE encryption