[Home] [Help]
1: PACKAGE BODY PO_VENDORS_SV as
2: /* $Header: POXVDVEB.pls 120.4.12020000.3 2013/02/10 15:34:12 vegajula ship $*/
3:
4: -- Read the profile option that enables/disables the debug log
5: g_asn_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_RVCTP_ENABLE_TRACE'),'N');
21: /* Check if the given Supplier is active */
22:
23: SELECT vendor_id
24: INTO X_vendor_id_v
25: FROM po_vendors
26: WHERE sysdate between nvl(start_date_active, sysdate -1)
27: AND nvl(end_date_active, sysdate + 1)
28: AND enabled_flag = 'Y'
29: AND vendor_id = X_vendor_id;
61: X_vat_registration_num IN OUT NOCOPY varchar2,
62: X_inspection_required_flag IN OUT NOCOPY varchar2 ) is
63:
64: X_progress varchar2(3) := '';
65: /* Bug 4421065:TCA Impact: Removed the obsolete column vat_code in po_vendors table */
66: -- Bug# 4546121:All columns that referred to the obsolete columns in po_vendors have
67: -- been nulled out.
68:
69: cursor C is select v.type_1099,
62: X_inspection_required_flag IN OUT NOCOPY varchar2 ) is
63:
64: X_progress varchar2(3) := '';
65: /* Bug 4421065:TCA Impact: Removed the obsolete column vat_code in po_vendors table */
66: -- Bug# 4546121:All columns that referred to the obsolete columns in po_vendors have
67: -- been nulled out.
68:
69: cursor C is select v.type_1099,
70: v.hold_flag,
78: v.receipt_required_flag,
79: v.num_1099,
80: v.vat_registration_num,
81: v.inspection_required_flag
82: from po_vendors v
83: where v.vendor_id = X_vendor_id;
84:
85: begin
86: if (X_vendor_id is not null) then
885: */
886:
887: CURSOR C is
888: SELECT POV.vendor_name
889: FROM PO_VENDORS POV
890: WHERE POV.vendor_id = X_vendor_id;
891:
892: BEGIN
893:
921: ==============================================================================*/
922:
923: PROCEDURE test_get_vendor (X_vendor_id IN NUMBER) IS
924:
925: X_vendor_namea PO_VENDORS.VENDOR_NAME%TYPE; -- Bug 2823775
926:
927: BEGIN
928:
929: po_vendors_sv.get_vendor_name(X_vendor_id, X_vendor_namea);
925: X_vendor_namea PO_VENDORS.VENDOR_NAME%TYPE; -- Bug 2823775
926:
927: BEGIN
928:
929: po_vendors_sv.get_vendor_name(X_vendor_id, X_vendor_namea);
930:
931: END test_get_vendor;
932:
933:
940: FUNCTION get_vendor_name_func (X_vendor_id IN number)
941:
942: RETURN VARCHAR2
943: IS
944: X_vendor_name PO_VENDORS.VENDOR_NAME%TYPE := ''; -- Bug 2823775
945: X_progress varchar2(3) := '';
946:
947: BEGIN
948:
954: X_progress := '010';
955:
956: SELECT pov.vendor_name
957: INTO X_vendor_name
958: FROM po_vendors pov
959: WHERE pov.vendor_id = X_vendor_id;
960:
961: RETURN X_vendor_name;
962:
989: BEGIN
990:
991: x_progress := '010';
992:
993: po_vendors_sv.get_vendor_name (x_vendor_id, x_vendor_name);
994:
995: x_progress := '020';
996:
997: po_vendor_sites_sv.get_vendor_site_name (x_vendor_site_id,
1028: vendor_num_null BOOLEAN := TRUE;
1029:
1030: BEGIN
1031:
1032: sql_str := 'select pov.vendor_name, pov.vendor_id, pov.segment1 from po_vendors pov where ';
1033:
1034: IF p_vendor_record.vendor_name IS NULL and
1035: p_vendor_record.vendor_id IS NULL and
1036: p_vendor_record.vendor_num IS NULL THEN
1080:
1081: dbms_sql.parse(cid, sql_str , dbms_sql.native);
1082:
1083: /* Bug 4885978: Changed the length of vendor_name, vendor_num
1084: as specified in PO_VENDORS table */
1085:
1086: dbms_sql.define_column(cid,1,p_vendor_record.vendor_name,240);
1087: dbms_sql.define_column(cid,2,p_vendor_record.vendor_id);
1088: dbms_sql.define_column(cid,3,p_vendor_record.vendor_num,30);
1162: rcv_shipment_header_sv.VendorRecType) IS
1163:
1164: X_cid integer;
1165: X_rows_processed integer;
1166: X_sql_str varchar2(2000) := 'SELECT pov.start_date_active, pov.end_date_active, pov.enabled_flag, pov.hold_flag FROM po_vendors pov where ';
1167:
1168: X_vendor_name_null boolean := TRUE;
1169: X_vendor_id_null boolean := TRUE;
1170: X_vendor_num_null boolean := TRUE;
1322: -- raise;
1323:
1324: END validate_vendor_info;
1325:
1326: END PO_VENDORS_SV;