[Home] [Help]
21: l_end_rowid rowid;
22: x_return_status VARCHAR2(4000);
23: x_msg_count NUMBER;
24: x_msg_data VARCHAR2(4000);
25: p_card_instrument IBY_FNDCPT_SETUP_PUB.CREDITCARD_REC_TYPE;
26: x_instr_id NUMBER;
27: x_response IBY_FNDCPT_COMMON_PUB.RESULT_REC_TYPE;
28: l_sqlerr VARCHAR2(255);
29: l_user_id number;
120: p_card_instrument.Expiration_Date := h_card_expiration_date(i);
121: p_card_instrument.Card_Holder_Name := h_cardmember_name(i);
122:
123: if (h_card_number(i) IS NOT NULL) then
124: iby_fndcpt_setup_pub.card_exists(1.0,NULL,x_return_status, x_msg_count, x_msg_data, null, h_card_number(i),
125: p_card_instrument, x_response);
126: -- Added the assignment statements as card_exists api clears out the data
127: p_card_instrument.Instrument_Type := 'CREDITCARD';
128: p_card_instrument.Info_Only_Flag := 'Y';
135: end if;
136:
137: if ( x_return_status = 'S' OR h_card_reference_id(i) IS NOT NULL) then
138: v_instr_id(i) := p_card_instrument.card_id;
139: iby_fndcpt_setup_pub.update_card(1.0,NULL,'F',x_return_status,x_msg_count,x_msg_data, p_card_instrument,x_response);
140: v_return_status(i) := x_return_status;
141: else
142: p_card_instrument.card_number := h_card_number(i);
143: iby_fndcpt_setup_pub.create_card(1.0,NULL,'F',x_return_status,x_msg_count,x_msg_data, p_card_instrument,x_instr_id,x_response);
139: iby_fndcpt_setup_pub.update_card(1.0,NULL,'F',x_return_status,x_msg_count,x_msg_data, p_card_instrument,x_response);
140: v_return_status(i) := x_return_status;
141: else
142: p_card_instrument.card_number := h_card_number(i);
143: iby_fndcpt_setup_pub.create_card(1.0,NULL,'F',x_return_status,x_msg_count,x_msg_data, p_card_instrument,x_instr_id,x_response);
144: v_return_status(i) := x_return_status;
145: v_instr_id(i) := x_instr_id;
146: end if;
147: