68: l_site_use_rec.site_use_type := G_PC_BILLING_SITE_USE;
69: l_site_use_rec.created_by_module := 'TCA_V2_API';
70:
71: HZ_PARTY_SITE_V2PUB.Create_Party_Site_Use
72: (FND_API.G_FALSE,l_site_use_rec,l_site_use_id,
73: lx_return_status,lx_msg_count,lx_msg_data
74: );
75: END IF;
76: END IF;
173: l_addressid := p_paymentcard.Billing_Address_Id;
174: l_billing_zip := p_paymentcard.Billing_Postal_Code;
175: l_billing_terr := p_paymentcard.Billing_Address_Territory;
176:
177: IF FND_API.to_Boolean(p_is_update) THEN
178: IF (l_addressid = FND_API.G_MISS_NUM) THEN
179: l_addressid := NULL;
180: ELSIF (l_addressid IS NULL) THEN
181: l_addressid := FND_API.G_MISS_NUM;
174: l_billing_zip := p_paymentcard.Billing_Postal_Code;
175: l_billing_terr := p_paymentcard.Billing_Address_Territory;
176:
177: IF FND_API.to_Boolean(p_is_update) THEN
178: IF (l_addressid = FND_API.G_MISS_NUM) THEN
179: l_addressid := NULL;
180: ELSIF (l_addressid IS NULL) THEN
181: l_addressid := FND_API.G_MISS_NUM;
182: END IF;
177: IF FND_API.to_Boolean(p_is_update) THEN
178: IF (l_addressid = FND_API.G_MISS_NUM) THEN
179: l_addressid := NULL;
180: ELSIF (l_addressid IS NULL) THEN
181: l_addressid := FND_API.G_MISS_NUM;
182: END IF;
183: IF (l_billing_zip = FND_API.G_MISS_CHAR) THEN
184: l_billing_zip := NULL;
185: ELSIF (l_billing_zip IS NULL) THEN
179: l_addressid := NULL;
180: ELSIF (l_addressid IS NULL) THEN
181: l_addressid := FND_API.G_MISS_NUM;
182: END IF;
183: IF (l_billing_zip = FND_API.G_MISS_CHAR) THEN
184: l_billing_zip := NULL;
185: ELSIF (l_billing_zip IS NULL) THEN
186: l_billing_zip := FND_API.G_MISS_CHAR;
187: END IF;
182: END IF;
183: IF (l_billing_zip = FND_API.G_MISS_CHAR) THEN
184: l_billing_zip := NULL;
185: ELSIF (l_billing_zip IS NULL) THEN
186: l_billing_zip := FND_API.G_MISS_CHAR;
187: END IF;
188: IF (l_billing_terr = FND_API.G_MISS_CHAR) THEN
189: l_billing_terr := NULL;
190: ELSIF (l_billing_terr IS NULL) THEN
184: l_billing_zip := NULL;
185: ELSIF (l_billing_zip IS NULL) THEN
186: l_billing_zip := FND_API.G_MISS_CHAR;
187: END IF;
188: IF (l_billing_terr = FND_API.G_MISS_CHAR) THEN
189: l_billing_terr := NULL;
190: ELSIF (l_billing_terr IS NULL) THEN
191: l_billing_terr := FND_API.G_MISS_CHAR;
192: END IF;
187: END IF;
188: IF (l_billing_terr = FND_API.G_MISS_CHAR) THEN
189: l_billing_terr := NULL;
190: ELSIF (l_billing_terr IS NULL) THEN
191: l_billing_terr := FND_API.G_MISS_CHAR;
192: END IF;
193: END IF;
194:
195: IF ( (NOT (l_addressid IS NULL OR l_addressid = FND_API.G_MISS_NUM))
191: l_billing_terr := FND_API.G_MISS_CHAR;
192: END IF;
193: END IF;
194:
195: IF ( (NOT (l_addressid IS NULL OR l_addressid = FND_API.G_MISS_NUM))
196: AND
197: (NOT (l_billing_zip IS NULL OR l_billing_zip = FND_API.G_MISS_CHAR))
198: )
199: THEN
193: END IF;
194:
195: IF ( (NOT (l_addressid IS NULL OR l_addressid = FND_API.G_MISS_NUM))
196: AND
197: (NOT (l_billing_zip IS NULL OR l_billing_zip = FND_API.G_MISS_CHAR))
198: )
199: THEN
200: RETURN FALSE;
201: END IF;
199: THEN
200: RETURN FALSE;
201: END IF;
202:
203: IF ( (NOT (l_billing_zip IS NULL OR l_billing_zip = FND_API.G_MISS_CHAR))
204: AND (l_billing_terr IS NULL OR l_billing_terr = FND_API.G_MISS_CHAR)
205: )
206: THEN
207: RETURN FALSE;
200: RETURN FALSE;
201: END IF;
202:
203: IF ( (NOT (l_billing_zip IS NULL OR l_billing_zip = FND_API.G_MISS_CHAR))
204: AND (l_billing_terr IS NULL OR l_billing_terr = FND_API.G_MISS_CHAR)
205: )
206: THEN
207: RETURN FALSE;
208: ELSIF ( (NOT (l_billing_terr IS NULL OR l_billing_terr = FND_API.G_MISS_CHAR))
204: AND (l_billing_terr IS NULL OR l_billing_terr = FND_API.G_MISS_CHAR)
205: )
206: THEN
207: RETURN FALSE;
208: ELSIF ( (NOT (l_billing_terr IS NULL OR l_billing_terr = FND_API.G_MISS_CHAR))
209:
210: AND (l_billing_zip IS NULL OR l_billing_zip = FND_API.G_MISS_CHAR)
211: )
212: THEN
206: THEN
207: RETURN FALSE;
208: ELSIF ( (NOT (l_billing_terr IS NULL OR l_billing_terr = FND_API.G_MISS_CHAR))
209:
210: AND (l_billing_zip IS NULL OR l_billing_zip = FND_API.G_MISS_CHAR)
211: )
212: THEN
213: RETURN FALSE;
214: END IF;
321: -- If Site use id is already provied then no need to call get_billing address
322: IF (p_address_type = G_PARTY_SITE_USE_ID) AND (NOT (p_billing_address_id IS NULL)) THEN
323: l_billing_site := p_billing_address_id;
324: ELSE
325: IF (p_billing_address_id = FND_API.G_MISS_NUM ) THEN
326: l_billing_site := FND_API.G_MISS_NUM;
327: ELSIF (NOT (p_billing_address_id IS NULL)) THEN
328: l_billing_site := Get_Billing_Site(p_billing_address_id,p_owner_id);
329: IF (l_billing_site IS NULL) THEN
322: IF (p_address_type = G_PARTY_SITE_USE_ID) AND (NOT (p_billing_address_id IS NULL)) THEN
323: l_billing_site := p_billing_address_id;
324: ELSE
325: IF (p_billing_address_id = FND_API.G_MISS_NUM ) THEN
326: l_billing_site := FND_API.G_MISS_NUM;
327: ELSIF (NOT (p_billing_address_id IS NULL)) THEN
328: l_billing_site := Get_Billing_Site(p_billing_address_id,p_owner_id);
329: IF (l_billing_site IS NULL) THEN
330: x_result_code := G_RC_INVALID_ADDRESS;
334: END IF;
335: -- Bug 5153265 end
336:
337: IF (NOT ( (p_billing_country IS NULL)
338: OR (p_billing_country = FND_API.G_MISS_CHAR) )
339: )
340: THEN
341: IF (NOT iby_utility_pvt.Validate_Territory(p_billing_country)) THEN
342: x_result_code := G_RC_INVALID_ADDRESS;
391: p_attribute6,p_attribute7,p_attribute8,p_attribute9,p_attribute10,
392: p_attribute11,p_attribute12,p_attribute13,p_attribute14,p_attribute15
393: );
394:
395: IF FND_API.To_Boolean(p_commit) THEN
396: COMMIT;
397: END IF;
398: END Create_Card;
399:
466: -- If Site use id is already provied then no need to call get_billing address
467: IF (p_address_type = G_PARTY_SITE_USE_ID) AND (NOT (p_billing_address_id IS NULL)) THEN
468: l_billing_site := p_billing_address_id;
469: ELSE
470: IF (p_billing_address_id = FND_API.G_MISS_NUM ) THEN
471: l_billing_site := FND_API.G_MISS_NUM;
472: ELSIF (NOT (p_billing_address_id IS NULL)) THEN
473: l_billing_site := Get_Billing_Site(p_billing_address_id,p_owner_id);
474: IF (l_billing_site IS NULL) THEN
467: IF (p_address_type = G_PARTY_SITE_USE_ID) AND (NOT (p_billing_address_id IS NULL)) THEN
468: l_billing_site := p_billing_address_id;
469: ELSE
470: IF (p_billing_address_id = FND_API.G_MISS_NUM ) THEN
471: l_billing_site := FND_API.G_MISS_NUM;
472: ELSIF (NOT (p_billing_address_id IS NULL)) THEN
473: l_billing_site := Get_Billing_Site(p_billing_address_id,p_owner_id);
474: IF (l_billing_site IS NULL) THEN
475: x_result_code := G_RC_INVALID_ADDRESS;
479: END IF;
480: -- Bug 5153265 end
481:
482: IF (NOT ( (p_billing_country IS NULL)
483: OR (p_billing_country = FND_API.G_MISS_CHAR) )
484: )
485: THEN
486: IF (NOT iby_utility_pvt.Validate_Territory(p_billing_country)) THEN
487: x_result_code := G_RC_INVALID_ADDRESS;
501: END IF;
502: END IF;
503:
504: UPDATE iby_paymentcard
505: SET chname = DECODE(p_holder_name, FND_API.G_MISS_CHAR,NULL, NULL,chname, p_holder_name),
506:
507: card_owner_id = NVL(card_owner_id,p_owner_id),
508: addressid = DECODE(l_billing_site, FND_API.G_MISS_NUM,NULL,
509: NULL,addressid, l_billing_site),
504: UPDATE iby_paymentcard
505: SET chname = DECODE(p_holder_name, FND_API.G_MISS_CHAR,NULL, NULL,chname, p_holder_name),
506:
507: card_owner_id = NVL(card_owner_id,p_owner_id),
508: addressid = DECODE(l_billing_site, FND_API.G_MISS_NUM,NULL,
509: NULL,addressid, l_billing_site),
510: bill_addr_territory_code =
511: DECODE(p_billing_country, FND_API.G_MISS_CHAR,NULL,
512: NULL,bill_addr_territory_code, p_billing_country),
507: card_owner_id = NVL(card_owner_id,p_owner_id),
508: addressid = DECODE(l_billing_site, FND_API.G_MISS_NUM,NULL,
509: NULL,addressid, l_billing_site),
510: bill_addr_territory_code =
511: DECODE(p_billing_country, FND_API.G_MISS_CHAR,NULL,
512: NULL,bill_addr_territory_code, p_billing_country),
513: billing_addr_postal_code =
514: DECODE(p_billing_zip, FND_API.G_MISS_CHAR,NULL,
515: NULL,billing_addr_postal_code, p_billing_zip),
510: bill_addr_territory_code =
511: DECODE(p_billing_country, FND_API.G_MISS_CHAR,NULL,
512: NULL,bill_addr_territory_code, p_billing_country),
513: billing_addr_postal_code =
514: DECODE(p_billing_zip, FND_API.G_MISS_CHAR,NULL,
515: NULL,billing_addr_postal_code, p_billing_zip),
516: expirydate = NVL(p_expiry_date, expirydate),
517:
518: instrument_type = NVL(p_instr_type, instrument_type),
516: expirydate = NVL(p_expiry_date, expirydate),
517:
518: instrument_type = NVL(p_instr_type, instrument_type),
519:
520: finame = DECODE(p_fi_name, FND_API.G_MISS_CHAR,NULL, NULL,finame, p_fi_name),
521: single_use_flag = NVL(p_single_use, single_use_flag),
522: information_only_flag = NVL(p_info_only, information_only_flag),
523: card_purpose = DECODE(p_purpose, FND_API.G_MISS_CHAR,NULL, NULL,card_purpose, p_purpose),
524: description = DECODE(p_desc, FND_API.G_MISS_CHAR,NULL, NULL,description, p_desc),
519:
520: finame = DECODE(p_fi_name, FND_API.G_MISS_CHAR,NULL, NULL,finame, p_fi_name),
521: single_use_flag = NVL(p_single_use, single_use_flag),
522: information_only_flag = NVL(p_info_only, information_only_flag),
523: card_purpose = DECODE(p_purpose, FND_API.G_MISS_CHAR,NULL, NULL,card_purpose, p_purpose),
524: description = DECODE(p_desc, FND_API.G_MISS_CHAR,NULL, NULL,description, p_desc),
525: active_flag = NVL(p_active_flag, active_flag),
526: inactive_date = DECODE(p_inactive_date, FND_API.G_MISS_DATE,NULL,
527: NULL,inactive_date, p_inactive_date),
520: finame = DECODE(p_fi_name, FND_API.G_MISS_CHAR,NULL, NULL,finame, p_fi_name),
521: single_use_flag = NVL(p_single_use, single_use_flag),
522: information_only_flag = NVL(p_info_only, information_only_flag),
523: card_purpose = DECODE(p_purpose, FND_API.G_MISS_CHAR,NULL, NULL,card_purpose, p_purpose),
524: description = DECODE(p_desc, FND_API.G_MISS_CHAR,NULL, NULL,description, p_desc),
525: active_flag = NVL(p_active_flag, active_flag),
526: inactive_date = DECODE(p_inactive_date, FND_API.G_MISS_DATE,NULL,
527: NULL,inactive_date, p_inactive_date),
528: object_version_number = object_version_number + 1,
522: information_only_flag = NVL(p_info_only, information_only_flag),
523: card_purpose = DECODE(p_purpose, FND_API.G_MISS_CHAR,NULL, NULL,card_purpose, p_purpose),
524: description = DECODE(p_desc, FND_API.G_MISS_CHAR,NULL, NULL,description, p_desc),
525: active_flag = NVL(p_active_flag, active_flag),
526: inactive_date = DECODE(p_inactive_date, FND_API.G_MISS_DATE,NULL,
527: NULL,inactive_date, p_inactive_date),
528: object_version_number = object_version_number + 1,
529: last_update_date = sysdate,
530: last_updated_by = fnd_global.user_id,
548: WHERE (instrid = p_instr_id);
549:
550: IF (SQL%NOTFOUND) THEN x_result_code := G_RC_INVALID_CARD_ID; END IF;
551:
552: IF FND_API.To_Boolean(p_commit) THEN
553: COMMIT;
554: END IF;
555: END Update_Card;
556:
556:
557: PROCEDURE Create_Card
558: (
559: p_api_version IN NUMBER,
560: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
561: p_commit IN VARCHAR2 := FND_API.G_TRUE,
562: x_return_status OUT NOCOPY VARCHAR2,
563: x_msg_count OUT NOCOPY NUMBER,
564: x_msg_data OUT NOCOPY VARCHAR2,
557: PROCEDURE Create_Card
558: (
559: p_api_version IN NUMBER,
560: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
561: p_commit IN VARCHAR2 := FND_API.G_TRUE,
562: x_return_status OUT NOCOPY VARCHAR2,
563: x_msg_count OUT NOCOPY NUMBER,
564: x_msg_data OUT NOCOPY VARCHAR2,
565: p_card_instrument IN PaymentCard_rec_type,
583:
584: BEGIN
585: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
586:
587: IF NOT FND_API.Compatible_API_Call (l_api_version,
588: p_api_version,
589: l_module,
590: G_PKG_NAME)
591: THEN
593: debug_level => FND_LOG.LEVEL_ERROR,
594: module => G_DEBUG_MODULE || l_module);
595: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
596: FND_MSG_PUB.Add;
597: RAISE FND_API.G_EXC_ERROR;
598: END IF;
599:
600: IF FND_API.to_Boolean( p_init_msg_list ) THEN
601: FND_MSG_PUB.initialize;
596: FND_MSG_PUB.Add;
597: RAISE FND_API.G_EXC_ERROR;
598: END IF;
599:
600: IF FND_API.to_Boolean( p_init_msg_list ) THEN
601: FND_MSG_PUB.initialize;
602: END IF;
603: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
604:
606:
607: Card_Exists
608: (
609: 1.0,
610: FND_API.G_FALSE,
611: x_return_status,
612: x_msg_count,
613: x_msg_data,
614: p_card_instrument.Owner_Id,
623:
624: IF (lx_card_rec.Card_Id IS NULL) THEN
625:
626: -- validate billing address information
627: IF (NOT Validate_Card_Billing(FND_API.G_FALSE,p_card_instrument)) THEN
628: x_response.Result_Code := G_RC_INVALID_ADDRESS;
629: iby_fndcpt_common_pub.Prepare_Result
630: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
631: RETURN;
634: iby_debug_pub.add('creating new card',
635: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
636:
637: Create_Card
638: (FND_API.G_FALSE,
639: p_card_instrument.Owner_Id, p_card_instrument.Card_Holder_Name,
640: p_card_instrument.Billing_Address_Id,
641: p_card_instrument.Address_Type,
642: p_card_instrument.Billing_Postal_Code,
673: l_info_only := p_card_instrument.Info_Only_Flag;
674: END IF;
675:
676: -- validate billing address information
677: IF (NOT Validate_Card_Billing(FND_API.G_TRUE,p_card_instrument)) THEN
678: x_response.Result_Code := G_RC_INVALID_ADDRESS;
679: iby_fndcpt_common_pub.Prepare_Result
680: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
681: RETURN;
689: RETURN;
690: END IF;
691:
692: Update_Card
693: (FND_API.G_FALSE, lx_card_rec.Card_Id, p_card_instrument.Owner_Id,
694: p_card_instrument.Card_Holder_Name,
695: p_card_instrument.Billing_Address_Id,
696: p_card_instrument.Address_Type,
697: p_card_instrument.Billing_Postal_Code,
699: p_card_instrument.Expiration_Date, p_card_instrument.Instrument_Type,
700: p_card_instrument.FI_Name, p_card_instrument.Single_Use_Flag,
701: l_info_only, p_card_instrument.Card_Purpose,
702: p_card_instrument.Card_Description, p_card_instrument.Active_Flag,
703: NVL(p_card_instrument.Inactive_Date,FND_API.G_MISS_DATE),
704: p_card_instrument.attribute_category,
705: p_card_instrument.attribute1, p_card_instrument.attribute2,
706: p_card_instrument.attribute3, p_card_instrument.attribute4,
707: p_card_instrument.attribute5, p_card_instrument.attribute6,
716: x_response.Result_Code := NVL(lx_result_code,IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS);
717: iby_fndcpt_common_pub.Prepare_Result
718: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
719:
720: IF FND_API.To_Boolean(p_commit) THEN
721: COMMIT;
722: END IF;
723:
724: EXCEPTION
722: END IF;
723:
724: EXCEPTION
725:
726: WHEN FND_API.G_EXC_ERROR THEN
727: --ROLLBACK TO Create_Card;
728: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
729: debug_level => FND_LOG.LEVEL_ERROR,
730: module => G_DEBUG_MODULE || l_module);
727: --ROLLBACK TO Create_Card;
728: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
729: debug_level => FND_LOG.LEVEL_ERROR,
730: module => G_DEBUG_MODULE || l_module);
731: x_return_status := FND_API.G_RET_STS_ERROR ;
732: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
733: p_data => x_msg_data
734: );
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
731: x_return_status := FND_API.G_RET_STS_ERROR ;
732: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
733: p_data => x_msg_data
734: );
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
736: --ROLLBACK TO Create_Card;
737: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
738: debug_level => FND_LOG.LEVEL_UNEXPECTED,
739: module => G_DEBUG_MODULE || l_module);
736: --ROLLBACK TO Create_Card;
737: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
738: debug_level => FND_LOG.LEVEL_UNEXPECTED,
739: module => G_DEBUG_MODULE || l_module);
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
741: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
742: p_data => x_msg_data
743: );
744: WHEN OTHERS THEN
748: module => G_DEBUG_MODULE || l_module);
749:
750: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
751:
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
753: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
754: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
755: END IF;
756:
769:
770: PROCEDURE Update_Card
771: (
772: p_api_version IN NUMBER,
773: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
774: p_commit IN VARCHAR2 := FND_API.G_TRUE,
775: x_return_status OUT NOCOPY VARCHAR2,
776: x_msg_count OUT NOCOPY NUMBER,
777: x_msg_data OUT NOCOPY VARCHAR2,
770: PROCEDURE Update_Card
771: (
772: p_api_version IN NUMBER,
773: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
774: p_commit IN VARCHAR2 := FND_API.G_TRUE,
775: x_return_status OUT NOCOPY VARCHAR2,
776: x_msg_count OUT NOCOPY NUMBER,
777: x_msg_data OUT NOCOPY VARCHAR2,
778: p_card_instrument IN PaymentCard_rec_type,
788:
789: l_info_only iby_paymentcard.information_only_flag%TYPE := NULL;
790:
791: BEGIN
792: IF NOT FND_API.Compatible_API_Call (l_api_version,
793: p_api_version,
794: l_module,
795: G_PKG_NAME)
796: THEN
798: debug_level => FND_LOG.LEVEL_ERROR,
799: module => G_DEBUG_MODULE || l_module);
800: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
801: FND_MSG_PUB.Add;
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804:
805: IF FND_API.to_Boolean( p_init_msg_list ) THEN
806: FND_MSG_PUB.initialize;
801: FND_MSG_PUB.Add;
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804:
805: IF FND_API.to_Boolean( p_init_msg_list ) THEN
806: FND_MSG_PUB.initialize;
807: END IF;
808: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
809:
813: IF (NOT p_card_instrument.Info_Only_Flag = 'Y') THEN
814: l_info_only := p_card_instrument.Info_Only_Flag;
815: END IF;
816: -- validate billing address information
817: IF (NOT Validate_Card_Billing(FND_API.G_TRUE,p_card_instrument)) THEN
818: x_response.Result_Code := G_RC_INVALID_ADDRESS;
819: iby_fndcpt_common_pub.Prepare_Result
820: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
821: RETURN;
821: RETURN;
822: END IF;
823:
824: Update_Card
825: (FND_API.G_FALSE, p_card_instrument.Card_Id, p_card_instrument.Owner_Id,
826: p_card_instrument.Card_Holder_Name,
827: p_card_instrument.Billing_Address_Id,
828: p_card_instrument.Address_Type,
829: p_card_instrument.Billing_Postal_Code,
849: NVL(lx_result_code,IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS);
850: iby_fndcpt_common_pub.Prepare_Result
851: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
852:
853: IF FND_API.To_Boolean(p_commit) THEN
854: COMMIT;
855: END IF;
856:
857: EXCEPTION
855: END IF;
856:
857: EXCEPTION
858:
859: WHEN FND_API.G_EXC_ERROR THEN
860: ROLLBACK TO Update_Card;
861: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
862: debug_level => FND_LOG.LEVEL_ERROR,
863: module => G_DEBUG_MODULE || l_module);
860: ROLLBACK TO Update_Card;
861: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
862: debug_level => FND_LOG.LEVEL_ERROR,
863: module => G_DEBUG_MODULE || l_module);
864: x_return_status := FND_API.G_RET_STS_ERROR ;
865: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
866: p_data => x_msg_data
867: );
868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
864: x_return_status := FND_API.G_RET_STS_ERROR ;
865: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
866: p_data => x_msg_data
867: );
868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
869: ROLLBACK TO Update_Card;
870: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
871: debug_level => FND_LOG.LEVEL_UNEXPECTED,
872: module => G_DEBUG_MODULE || l_module);
869: ROLLBACK TO Update_Card;
870: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
871: debug_level => FND_LOG.LEVEL_UNEXPECTED,
872: module => G_DEBUG_MODULE || l_module);
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
874: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
875: p_data => x_msg_data
876: );
877: WHEN OTHERS THEN
881: module => G_DEBUG_MODULE || l_module);
882:
883: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
884:
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
886: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
887: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
888: END IF;
889:
901: END Update_Card;
902:
903: PROCEDURE Remask_Instruments
904: (
905: p_commit IN VARCHAR2 := FND_API.G_TRUE
906: )
907: IS
908: l_card_number iby_paymentcard.card_number%TYPE;
909: lx_mask_digits iby_paymentcard.card_number%TYPE;
940: last_update_login = fnd_global.login_id
941: WHERE (instrid = c_card_rec.instrid);
942: END LOOP;
943:
944: IF FND_API.to_Boolean( p_commit ) THEN
945: COMMIT;
946: END IF;
947: END Remask_Instruments;
948:
1023:
1024: PROCEDURE Card_Exists
1025: (
1026: p_api_version IN NUMBER,
1027: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1028: x_return_status OUT NOCOPY VARCHAR2,
1029: x_msg_count OUT NOCOPY NUMBER,
1030: x_msg_data OUT NOCOPY VARCHAR2,
1031: p_owner_id NUMBER,
1062: IF (p_card%ISOPEN) THEN
1063: CLOSE p_card;
1064: END IF;
1065:
1066: IF NOT FND_API.Compatible_API_Call (l_api_version,
1067: p_api_version,
1068: l_module,
1069: G_PKG_NAME)
1070: THEN
1072: debug_level => FND_LOG.LEVEL_ERROR,
1073: module => G_DEBUG_MODULE || l_module);
1074: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1075: FND_MSG_PUB.Add;
1076: RAISE FND_API.G_EXC_ERROR;
1077: END IF;
1078:
1079: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1080: FND_MSG_PUB.initialize;
1075: FND_MSG_PUB.Add;
1076: RAISE FND_API.G_EXC_ERROR;
1077: END IF;
1078:
1079: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1080: FND_MSG_PUB.initialize;
1081: END IF;
1082: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1083:
1094:
1095: Get_Card
1096: (
1097: 1.0,
1098: FND_API.G_FALSE,
1099: x_return_status,
1100: x_msg_count,
1101: x_msg_data,
1102: l_card_id,
1109: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1110:
1111: EXCEPTION
1112:
1113: WHEN FND_API.G_EXC_ERROR THEN
1114:
1115: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1116: debug_level => FND_LOG.LEVEL_ERROR,
1117: module => G_DEBUG_MODULE || l_module);
1114:
1115: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1116: debug_level => FND_LOG.LEVEL_ERROR,
1117: module => G_DEBUG_MODULE || l_module);
1118: x_return_status := FND_API.G_RET_STS_ERROR ;
1119: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1120: p_data => x_msg_data
1121: );
1122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1118: x_return_status := FND_API.G_RET_STS_ERROR ;
1119: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1120: p_data => x_msg_data
1121: );
1122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1123:
1124: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1125: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1126: module => G_DEBUG_MODULE || l_module);
1123:
1124: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1125: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1126: module => G_DEBUG_MODULE || l_module);
1127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1128: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1129: p_data => x_msg_data
1130: );
1131: WHEN OTHERS THEN
1135: module => G_DEBUG_MODULE || l_module);
1136:
1137: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1138:
1139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1140: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1141: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1142: END IF;
1143:
1155:
1156: PROCEDURE Get_Card
1157: (
1158: p_api_version IN NUMBER,
1159: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1160: x_return_status OUT NOCOPY VARCHAR2,
1161: x_msg_count OUT NOCOPY NUMBER,
1162: x_msg_data OUT NOCOPY VARCHAR2,
1163: p_card_id NUMBER,
1183: IF (p_card%ISOPEN) THEN
1184: CLOSE p_card;
1185: END IF;
1186:
1187: IF NOT FND_API.Compatible_API_Call (l_api_version,
1188: p_api_version,
1189: l_module,
1190: G_PKG_NAME)
1191: THEN
1193: debug_level => FND_LOG.LEVEL_ERROR,
1194: module => G_DEBUG_MODULE || l_module);
1195: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1196: FND_MSG_PUB.Add;
1197: RAISE FND_API.G_EXC_ERROR;
1198: END IF;
1199:
1200: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1201: FND_MSG_PUB.initialize;
1196: FND_MSG_PUB.Add;
1197: RAISE FND_API.G_EXC_ERROR;
1198: END IF;
1199:
1200: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1201: FND_MSG_PUB.initialize;
1202: END IF;
1203: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1204:
1222: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1223:
1224: EXCEPTION
1225:
1226: WHEN FND_API.G_EXC_ERROR THEN
1227:
1228: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1229: debug_level => FND_LOG.LEVEL_ERROR,
1230: module => G_DEBUG_MODULE || l_module);
1227:
1228: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1229: debug_level => FND_LOG.LEVEL_ERROR,
1230: module => G_DEBUG_MODULE || l_module);
1231: x_return_status := FND_API.G_RET_STS_ERROR ;
1232: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1233: p_data => x_msg_data
1234: );
1235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1231: x_return_status := FND_API.G_RET_STS_ERROR ;
1232: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1233: p_data => x_msg_data
1234: );
1235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1236:
1237: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1238: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1239: module => G_DEBUG_MODULE || l_module);
1236:
1237: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1238: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1239: module => G_DEBUG_MODULE || l_module);
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1241: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1242: p_data => x_msg_data
1243: );
1244: WHEN OTHERS THEN
1248: module => G_DEBUG_MODULE || l_module);
1249:
1250: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1251:
1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1253: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1254: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1255: END IF;
1256: