96: l_site_use_rec.site_use_type := G_CC_BILLING_SITE_USE;
97: l_site_use_rec.created_by_module := 'TCA_V2_API';
98:
99: HZ_PARTY_SITE_V2PUB.Create_Party_Site_Use
100: (FND_API.G_FALSE,l_site_use_rec,l_site_use_id,
101: lx_return_status,lx_msg_count,lx_msg_data
102: );
103: END IF;
104: END IF;
189: fnd_global.login_id, 1
190: FROM iby_creditcard
191: WHERE (instrid = p_instr_id);
192:
193: IF FND_API.To_Boolean(p_commit) THEN
194: COMMIT;
195: END IF;
196: END Archive_Card;
197:
411: RETURN;
412: END IF;
413:
414: iby_cc_validate.StripCC
415: (1.0, FND_API.G_FALSE, p_card_number,
416: lx_return_status, lx_msg_count, lx_msg_data, lx_cc_number
417: );
418:
419: IF( (lx_cc_number IS NULL) OR
417: );
418:
419: IF( (lx_cc_number IS NULL) OR
420: (lx_return_status IS NULL OR
421: lx_return_status <> FND_API.G_RET_STS_SUCCESS) )
422: THEN
423: x_result_code := G_RC_INVALID_CCNUMBER;
424: RETURN;
425: END IF;
459: -- If Site use id is already provied then no need to call get_billing address
460: IF (p_address_type = G_PARTY_SITE_USE_ID) AND (NOT (p_billing_address_id IS NULL)) THEN
461: l_billing_site := p_billing_address_id;
462: ELSE
463: IF (p_billing_address_id = FND_API.G_MISS_NUM ) THEN
464: l_billing_site := FND_API.G_MISS_NUM;
465: ELSIF (NOT (p_billing_address_id IS NULL)) THEN
466: l_billing_site := Get_Billing_Site(p_billing_address_id,p_owner_id);
467: IF (l_billing_site IS NULL) THEN
460: IF (p_address_type = G_PARTY_SITE_USE_ID) AND (NOT (p_billing_address_id IS NULL)) THEN
461: l_billing_site := p_billing_address_id;
462: ELSE
463: IF (p_billing_address_id = FND_API.G_MISS_NUM ) THEN
464: l_billing_site := FND_API.G_MISS_NUM;
465: ELSIF (NOT (p_billing_address_id IS NULL)) THEN
466: l_billing_site := Get_Billing_Site(p_billing_address_id,p_owner_id);
467: IF (l_billing_site IS NULL) THEN
468: x_result_code := G_RC_INVALID_ADDRESS;
472: END IF;
473: -- Bug 5153265 end
474:
475: IF (NOT ( (p_billing_country IS NULL)
476: OR (p_billing_country = FND_API.G_MISS_CHAR) )
477: )
478: THEN
479: IF (NOT iby_utility_pvt.Validate_Territory(p_billing_country)) THEN
480: x_result_code := G_RC_INVALID_ADDRESS;
512: IF (NOT lx_cc_compressed IS NULL) THEN
513: l_cc_ciphertext :=
514: HEXTORAW(IBY_SECURITY_PKG.Encode_Number(lx_cc_compressed,TRUE));
515: IBY_SECURITY_PKG.Create_Segment
516: (FND_API.G_FALSE,l_cc_ciphertext,iby_security_pkg.G_ENCODING_NUMERIC,
517: p_sys_sec_key,lx_sec_segment_id);
518: END IF;
519:
520: lx_cc_number := NVL(lx_unmasked_digits,'0');
605: p_attribute26,p_attribute27, p_attribute28,p_attribute29,p_attribute30
606: -- iby_security_pkg.get_salt_version bug 6326624
607: );
608:
609: IF FND_API.To_Boolean(p_commit) THEN
610: COMMIT;
611: END IF;
612: END Create_Card;
613:
712: -- If Site use id is already provied then no need to call get_billing address
713: IF (p_address_type = G_PARTY_SITE_USE_ID) AND (NOT (p_billing_address_id IS NULL)) THEN
714: l_billing_site := p_billing_address_id;
715: ELSE
716: IF (p_billing_address_id = FND_API.G_MISS_NUM ) THEN
717: l_billing_site := FND_API.G_MISS_NUM;
718: ELSIF (NOT (p_billing_address_id IS NULL)) THEN
719: l_billing_site := Get_Billing_Site(p_billing_address_id,p_owner_id);
720: IF (l_billing_site IS NULL) THEN
713: IF (p_address_type = G_PARTY_SITE_USE_ID) AND (NOT (p_billing_address_id IS NULL)) THEN
714: l_billing_site := p_billing_address_id;
715: ELSE
716: IF (p_billing_address_id = FND_API.G_MISS_NUM ) THEN
717: l_billing_site := FND_API.G_MISS_NUM;
718: ELSIF (NOT (p_billing_address_id IS NULL)) THEN
719: l_billing_site := Get_Billing_Site(p_billing_address_id,p_owner_id);
720: IF (l_billing_site IS NULL) THEN
721: x_result_code := G_RC_INVALID_ADDRESS;
725: END IF;
726: -- Bug 5153265 end
727:
728: IF (NOT ( (p_billing_country IS NULL)
729: OR (p_billing_country = FND_API.G_MISS_CHAR) )
730: )
731: THEN
732: IF (NOT iby_utility_pvt.Validate_Territory(p_billing_country)) THEN
733: x_result_code := G_RC_INVALID_ADDRESS;
790: l_masked_chname := p_holder_name;
791:
792: END IF;
793:
794: Archive_Card(FND_API.G_FALSE,p_instr_id,l_history_id);
795:
796:
797: UPDATE iby_creditcard
798: SET chname = DECODE(p_holder_name, FND_API.G_MISS_CHAR,NULL, NULL,chname, l_masked_chname),
794: Archive_Card(FND_API.G_FALSE,p_instr_id,l_history_id);
795:
796:
797: UPDATE iby_creditcard
798: SET chname = DECODE(p_holder_name, FND_API.G_MISS_CHAR,NULL, NULL,chname, l_masked_chname),
799: chname_sec_segment_id = l_chname_sec_segment_id,
800: card_owner_id = NVL(card_owner_id,p_owner_id),
801: addressid = DECODE(l_billing_site, FND_API.G_MISS_NUM,NULL,
802: NULL,addressid, l_billing_site),
797: UPDATE iby_creditcard
798: SET chname = DECODE(p_holder_name, FND_API.G_MISS_CHAR,NULL, NULL,chname, l_masked_chname),
799: chname_sec_segment_id = l_chname_sec_segment_id,
800: card_owner_id = NVL(card_owner_id,p_owner_id),
801: addressid = DECODE(l_billing_site, FND_API.G_MISS_NUM,NULL,
802: NULL,addressid, l_billing_site),
803: bill_addr_territory_code =
804: DECODE(p_billing_country, FND_API.G_MISS_CHAR,NULL,
805: NULL,bill_addr_territory_code, p_billing_country),
800: card_owner_id = NVL(card_owner_id,p_owner_id),
801: addressid = DECODE(l_billing_site, FND_API.G_MISS_NUM,NULL,
802: NULL,addressid, l_billing_site),
803: bill_addr_territory_code =
804: DECODE(p_billing_country, FND_API.G_MISS_CHAR,NULL,
805: NULL,bill_addr_territory_code, p_billing_country),
806: billing_addr_postal_code =
807: DECODE(p_billing_zip, FND_API.G_MISS_CHAR,NULL,
808: NULL,billing_addr_postal_code, p_billing_zip),
803: bill_addr_territory_code =
804: DECODE(p_billing_country, FND_API.G_MISS_CHAR,NULL,
805: NULL,bill_addr_territory_code, p_billing_country),
806: billing_addr_postal_code =
807: DECODE(p_billing_zip, FND_API.G_MISS_CHAR,NULL,
808: NULL,billing_addr_postal_code, p_billing_zip),
809: -- expirydate = NVL(p_expiry_date, expirydate),
810: expirydate = DECODE(p_expiry_date, NULL, expirydate, l_expiry_date),
811: expiry_sec_segment_id = DECODE(p_expiry_date, NULL, expiry_sec_segment_id,
813: encrypted = l_encrypted,
814: instrument_type = NVL(p_instr_type, instrument_type),
815: purchasecard_flag = NVL(p_pcard_flag, purchasecard_flag),
816: purchasecard_subtype =
817: DECODE(p_pcard_type, FND_API.G_MISS_CHAR,NULL,
818: NULL,purchasecard_subtype, p_pcard_type),
819: finame = DECODE(p_fi_name, FND_API.G_MISS_CHAR,NULL, NULL,finame, p_fi_name),
820: single_use_flag = NVL(p_single_use, single_use_flag),
821: information_only_flag = NVL(p_info_only, information_only_flag),
815: purchasecard_flag = NVL(p_pcard_flag, purchasecard_flag),
816: purchasecard_subtype =
817: DECODE(p_pcard_type, FND_API.G_MISS_CHAR,NULL,
818: NULL,purchasecard_subtype, p_pcard_type),
819: finame = DECODE(p_fi_name, FND_API.G_MISS_CHAR,NULL, NULL,finame, p_fi_name),
820: single_use_flag = NVL(p_single_use, single_use_flag),
821: information_only_flag = NVL(p_info_only, information_only_flag),
822: card_purpose = DECODE(p_purpose, FND_API.G_MISS_CHAR,NULL, NULL,card_purpose, p_purpose),
823: description = DECODE(p_desc, FND_API.G_MISS_CHAR,NULL, NULL,description, p_desc),
818: NULL,purchasecard_subtype, p_pcard_type),
819: finame = DECODE(p_fi_name, FND_API.G_MISS_CHAR,NULL, NULL,finame, p_fi_name),
820: single_use_flag = NVL(p_single_use, single_use_flag),
821: information_only_flag = NVL(p_info_only, information_only_flag),
822: card_purpose = DECODE(p_purpose, FND_API.G_MISS_CHAR,NULL, NULL,card_purpose, p_purpose),
823: description = DECODE(p_desc, FND_API.G_MISS_CHAR,NULL, NULL,description, p_desc),
824: active_flag = NVL(p_active_flag, active_flag),
825: inactive_date = DECODE(p_inactive_date, FND_API.G_MISS_DATE,NULL,
826: NULL,inactive_date, p_inactive_date),
819: finame = DECODE(p_fi_name, FND_API.G_MISS_CHAR,NULL, NULL,finame, p_fi_name),
820: single_use_flag = NVL(p_single_use, single_use_flag),
821: information_only_flag = NVL(p_info_only, information_only_flag),
822: card_purpose = DECODE(p_purpose, FND_API.G_MISS_CHAR,NULL, NULL,card_purpose, p_purpose),
823: description = DECODE(p_desc, FND_API.G_MISS_CHAR,NULL, NULL,description, p_desc),
824: active_flag = NVL(p_active_flag, active_flag),
825: inactive_date = DECODE(p_inactive_date, FND_API.G_MISS_DATE,NULL,
826: NULL,inactive_date, p_inactive_date),
827: object_version_number = object_version_number + 1,
821: information_only_flag = NVL(p_info_only, information_only_flag),
822: card_purpose = DECODE(p_purpose, FND_API.G_MISS_CHAR,NULL, NULL,card_purpose, p_purpose),
823: description = DECODE(p_desc, FND_API.G_MISS_CHAR,NULL, NULL,description, p_desc),
824: active_flag = NVL(p_active_flag, active_flag),
825: inactive_date = DECODE(p_inactive_date, FND_API.G_MISS_DATE,NULL,
826: NULL,inactive_date, p_inactive_date),
827: object_version_number = object_version_number + 1,
828: last_update_date = sysdate,
829: last_updated_by = fnd_global.user_id,
862: WHERE (instrid = p_instr_id);
863:
864: IF (SQL%NOTFOUND) THEN x_result_code := G_RC_INVALID_CARD_ID; END IF;
865:
866: IF FND_API.To_Boolean(p_commit) THEN
867: COMMIT;
868: END IF;
869: END Update_Card;
870:
1078: c_card_rec.expiry_sec_segment_id)
1079: );
1080: END LOOP;
1081:
1082: IF FND_API.to_Boolean( p_commit ) THEN
1083: COMMIT;
1084: END IF;
1085: END Decrypt_Instruments;
1086:
1137: l_cc_ciphertext :=
1138: HEXTORAW(IBY_SECURITY_PKG.Encode_Number(lx_compress_cc,TRUE));
1139:
1140: IBY_SECURITY_PKG.Create_Segment
1141: (FND_API.G_FALSE,l_cc_ciphertext,iby_security_pkg.G_ENCODING_NUMERIC,
1142: p_sys_key,l_segment_id);
1143: ELSE
1144: l_segment_id := -1;
1145: END IF;
1189: last_update_login = fnd_global.login_id
1190: WHERE (instrid = c_card_rec.instrid);
1191: END LOOP;
1192:
1193: IF FND_API.to_Boolean( p_commit ) THEN
1194: COMMIT;
1195: END IF;
1196:
1197: END Encrypt_Instruments;
1196:
1197: END Encrypt_Instruments;
1198:
1199: PROCEDURE Remask_Instruments
1200: (p_commit IN VARCHAR2 := FND_API.G_TRUE,
1201: p_sys_key IN iby_security_pkg.DES3_KEY_TYPE
1202: )
1203: IS
1204: l_cc_number iby_creditcard.ccnumber%TYPE;
1266: l_cc_ciphertext :=
1267: HEXTORAW(IBY_SECURITY_PKG.Encode_Number(lx_compress_cc,TRUE));
1268: IF (lx_segment_id IS NULL) THEN
1269: IBY_SECURITY_PKG.Create_Segment
1270: (FND_API.G_FALSE,l_cc_ciphertext,
1271: iby_security_pkg.G_ENCODING_NUMERIC,
1272: p_sys_key,lx_segment_id);
1273: ELSE
1274: IBY_SECURITY_PKG.Update_Segment
1271: iby_security_pkg.G_ENCODING_NUMERIC,
1272: p_sys_key,lx_segment_id);
1273: ELSE
1274: IBY_SECURITY_PKG.Update_Segment
1275: (FND_API.G_FALSE,lx_segment_id,l_cc_ciphertext,
1276: iby_security_pkg.G_ENCODING_NUMERIC,
1277: p_sys_key,c_card_rec.subkey_cipher_text);
1278: END IF;
1279: ELSE
1295: last_update_login = fnd_global.login_id
1296: WHERE (instrid = c_card_rec.instrid);
1297: END LOOP;
1298:
1299: IF FND_API.to_Boolean( p_commit ) THEN
1300: COMMIT;
1301: END IF;
1302: END Remask_Instruments;
1303:
1592:
1593: END Query_Card;
1594:
1595: PROCEDURE Encrypt_Card_Info
1596: (p_commit IN VARCHAR2 := FND_API.G_TRUE,
1597: p_sys_security_key IN iby_security_pkg.DES3_KEY_TYPE,
1598: p_expiry_date IN DATE,
1599: p_chname IN VARCHAR2,
1600: x_exp_segment_id OUT NOCOPY NUMBER,
1631: 'N'
1632: );
1633: END IF;
1634:
1635: IF FND_API.To_Boolean(p_commit) THEN
1636: COMMIT;
1637: END IF;
1638:
1639:
1639:
1640: END Encrypt_Card_Info;
1641:
1642: PROCEDURE Mark_Expired_Cards
1643: (p_commit IN VARCHAR2 := FND_API.G_TRUE,
1644: p_sys_sec_key IN iby_security_pkg.DES3_KEY_TYPE
1645: )
1646: IS
1647: l_expiry_date DATE;
1674: WHERE (instrid = c_card_rec.instrid);
1675:
1676: END LOOP;
1677:
1678: IF FND_API.to_Boolean( p_commit ) THEN
1679: COMMIT;
1680: END IF;
1681: END Mark_Expired_Cards;
1682: