1 PACKAGE BODY POS_VALIDATE_ASN AS
2 /* $Header: POSASNVB.pls 115.3 2002/11/26 02:13:36 mji ship $*/
3
4 PROCEDURE shipment_num(
5 P_SHIPMENT_NUM IN VARCHAR2,
6 P_VENDOR_ID IN NUMBER,
7 P_VENDOR_SITE_ID IN NUMBER,
8 P_COUNT OUT NOCOPY NUMBER) is
9
10 v_temp NUMBER;
11 BEGIN
12
13 select count(*)
14 into v_temp
15 from rcv_headers_interface
16 where shipment_num = P_SHIPMENT_NUM
17 and vendor_id = P_VENDOR_ID
18 and nvl(vendor_site_id, -99) = nvl(P_VENDOR_SITE_ID, -99);
19 /* and shipped_date >= add_months(sysdate,-12) */
20
21 select count(*)
22 into p_count
23 from rcv_shipment_headers
24 where shipment_num = P_SHIPMENT_NUM
25 and vendor_id = P_VENDOR_ID
26 and nvl(vendor_site_id, -99) = nvl(P_VENDOR_SITE_ID, -99);
27 /* and shipped_date >= add_months(sysdate,-12) */
28
29 p_count := p_count + v_temp;
30
31
32 END shipment_num;
33
34
35
36
37 PROCEDURE freight_terms (P_DESCRIPTION IN VARCHAR2,
38 P_LOOKUP_CODE IN OUT NOCOPY VARCHAR2,
39 P_COUNT IN OUT NOCOPY NUMBER) IS
40
41 BEGIN
42
43 select count(*)
44 into P_COUNT
45 from po_lookup_codes
46 where lookup_type = 'FREIGHT TERMS'
47 and description = P_DESCRIPTION
48 and sysdate < nvl(inactive_date, sysdate + 1);
49
50 if (P_COUNT = 1) then
51 select lookup_code
52 into P_LOOKUP_CODE
53 from po_lookup_codes
54 where lookup_type = 'FREIGHT TERMS'
55 and description = P_DESCRIPTION
56 and sysdate < nvl(inactive_date, sysdate + 1);
57 end if;
58
59 END freight_terms;
60
61
62 PROCEDURE freight_carrier (P_DESCRIPTION IN VARCHAR2,
63 P_ORGANIZATION_ID IN NUMBER,
64 P_FREIGHT_CARRIER_CODE IN OUT NOCOPY VARCHAR2,
65 P_COUNT IN OUT NOCOPY NUMBER) IS
66
67 BEGIN
68
69 SELECT count(*)
70 INTO P_COUNT
71 FROM org_freight ofg
72 WHERE ofg.description = P_DESCRIPTION and
73 -- ofg.organization_id = P_ORGANIZATION_ID and
74 nvl(ofg.disable_date, sysdate) <= sysdate;
75
76 IF (P_COUNT = 1) THEN
77 SELECT FREIGHT_CODE
78 INTO P_FREIGHT_CARRIER_CODE
79 FROM org_freight ofg
80 WHERE ofg.description = P_DESCRIPTION and
81 -- ofg.organization_id = P_ORGANIZATION_ID and
82 nvl(ofg.disable_date, sysdate) <= sysdate;
83 END IF;
84
85
86 END freight_carrier;
87
88
89 PROCEDURE payment_terms (P_NAME IN VARCHAR2,
90 P_TERM_ID IN OUT NOCOPY NUMBER,
91 P_COUNT IN OUT NOCOPY NUMBER) IS
92
93 BEGIN
94 SELECT COUNT(*)
95 INTO P_COUNT
96 FROM ap_terms_val_v
97 WHERE NAME = P_NAME;
98
99
100 IF (P_COUNT = 1) THEN
101 SELECT TERM_ID
102 INTO P_TERM_ID
103 FROM ap_terms_val_v
104 WHERE NAME = P_NAME;
105 END IF;
106 END payment_terms;
107
108
109 PROCEDURE country_of_origin(P_TERRITORY_SHORT_NAME IN VARCHAR,
110 P_TERRITORY_CODE IN OUT NOCOPY VARCHAR,
111 P_COUNT IN OUT NOCOPY NUMBER) IS
112
113 BEGIN
114
115 SELECT COUNT(*)
116 INTO P_COUNT
117 FROM fnd_territories_vl
118 WHERE territory_short_name = P_TERRITORY_SHORT_NAME;
119
120 IF (P_COUNT = 1) THEN
121 SELECT territory_code
122 INTO P_TERRITORY_CODE
123 FROM fnd_territories_vl
124 WHERE territory_short_name = P_TERRITORY_SHORT_NAME;
125 END IF;
126
127 END country_of_origin;
128
129
130 END POS_VALIDATE_ASN;
131