[Home] [Help]
136: --
137: PROCEDURE Archive_Card
138: (p_commit IN VARCHAR2,
139: p_instr_id IN iby_creditcard.instrid%TYPE,
140: x_history_id OUT NOCOPY iby_creditcard_h.card_history_change_id%TYPE
141: )
142: IS
143: BEGIN
144:
145: /*
146: * Fix for bug 5256903 by rameshsh:
147: *
148: * The active_flag column is nullable in IBY_CREDITCARD
149: * but nor in IBY_CREDITCARD_H.
150: *
151: * If active_flag is not set for a particular credit card
152: * in IBY_CREDITCARD, default the value to 'Y', otherwise
153: * this method will throw a 'cannot insert NULL exception ..'
151: * If active_flag is not set for a particular credit card
152: * in IBY_CREDITCARD, default the value to 'Y', otherwise
153: * this method will throw a 'cannot insert NULL exception ..'
154: */
155: SELECT iby_creditcard_h_s.NEXTVAL INTO x_history_id FROM dual;
156: INSERT INTO iby_creditcard_h
157: (card_history_change_id, instrid, expirydate, expiry_sec_segment_id,
158: addressid,
159: description, chname, chname_sec_segment_id, finame, security_group_id,
152: * in IBY_CREDITCARD, default the value to 'Y', otherwise
153: * this method will throw a 'cannot insert NULL exception ..'
154: */
155: SELECT iby_creditcard_h_s.NEXTVAL INTO x_history_id FROM dual;
156: INSERT INTO iby_creditcard_h
157: (card_history_change_id, instrid, expirydate, expiry_sec_segment_id,
158: addressid,
159: description, chname, chname_sec_segment_id, finame, security_group_id,
160: encrypted,
664: p_attribute30 IN iby_creditcard.attribute30%TYPE,
665: x_result_code OUT NOCOPY VARCHAR2
666: )
667: IS
668: l_history_id iby_creditcard_h.card_history_change_id%TYPE;
669: l_billing_site NUMBER;
670: l_expiry_date iby_creditcard.expirydate%TYPE;
671:
672: -- variabled for CHNAME and EXPDATE encryption