69: /* Select the Currency Code the given PO is in */
70:
71: select currency_code
72: into X_currency_code
73: from po_headers_all -- FPI GA
74: where po_header_id = X_po_header_id;
75:
76:
77: return(X_currency_code);
110: -- EXCEPTIONS : -
111: --=============================================================================
112: PROCEDURE get_currency_info
113: (
114: p_po_header_id IN PO_HEADERS_ALL.po_header_id%TYPE ,
115: x_currency_code OUT NOCOPY PO_HEADERS_ALL.currency_code%TYPE ,
116: x_rate_type OUT NOCOPY PO_HEADERS_ALL.rate_type%TYPE,
117: x_rate_date OUT NOCOPY PO_HEADERS_ALL.rate_date%TYPE,
118: x_rate OUT NOCOPY PO_HEADERS_ALL.rate%TYPE
111: --=============================================================================
112: PROCEDURE get_currency_info
113: (
114: p_po_header_id IN PO_HEADERS_ALL.po_header_id%TYPE ,
115: x_currency_code OUT NOCOPY PO_HEADERS_ALL.currency_code%TYPE ,
116: x_rate_type OUT NOCOPY PO_HEADERS_ALL.rate_type%TYPE,
117: x_rate_date OUT NOCOPY PO_HEADERS_ALL.rate_date%TYPE,
118: x_rate OUT NOCOPY PO_HEADERS_ALL.rate%TYPE
119: )
112: PROCEDURE get_currency_info
113: (
114: p_po_header_id IN PO_HEADERS_ALL.po_header_id%TYPE ,
115: x_currency_code OUT NOCOPY PO_HEADERS_ALL.currency_code%TYPE ,
116: x_rate_type OUT NOCOPY PO_HEADERS_ALL.rate_type%TYPE,
117: x_rate_date OUT NOCOPY PO_HEADERS_ALL.rate_date%TYPE,
118: x_rate OUT NOCOPY PO_HEADERS_ALL.rate%TYPE
119: )
120: IS
113: (
114: p_po_header_id IN PO_HEADERS_ALL.po_header_id%TYPE ,
115: x_currency_code OUT NOCOPY PO_HEADERS_ALL.currency_code%TYPE ,
116: x_rate_type OUT NOCOPY PO_HEADERS_ALL.rate_type%TYPE,
117: x_rate_date OUT NOCOPY PO_HEADERS_ALL.rate_date%TYPE,
118: x_rate OUT NOCOPY PO_HEADERS_ALL.rate%TYPE
119: )
120: IS
121: BEGIN
114: p_po_header_id IN PO_HEADERS_ALL.po_header_id%TYPE ,
115: x_currency_code OUT NOCOPY PO_HEADERS_ALL.currency_code%TYPE ,
116: x_rate_type OUT NOCOPY PO_HEADERS_ALL.rate_type%TYPE,
117: x_rate_date OUT NOCOPY PO_HEADERS_ALL.rate_date%TYPE,
118: x_rate OUT NOCOPY PO_HEADERS_ALL.rate%TYPE
119: )
120: IS
121: BEGIN
122:
127: INTO x_currency_code,
128: x_rate_type,
129: x_rate_date,
130: x_rate
131: FROM po_headers_all
132: WHERE po_header_id = p_po_header_id;
133:
134: EXCEPTION
135:
158: x_progress := '010';
159:
160: SELECT segment1
161: INTO x_doc_num
162: FROM po_headers_all -- FPI GA
163: WHERE po_header_id = x_header_id;
164:
165: EXCEPTION
166: WHEN NO_DATA_FOUND THEN
228: x_delimiter VARCHAR2(2) := ', ';
229:
230: X_progress VARCHAR2(3) := '';
231:
232: X_type_lookup_code PO_HEADERS_ALL.TYPE_LOOKUP_CODE%TYPE; --
234:
235: --
236: l_doc_type PO_DOCUMENT_TYPES.document_type_code%TYPE;
229:
230: X_progress VARCHAR2(3) := '';
231:
232: X_type_lookup_code PO_HEADERS_ALL.TYPE_LOOKUP_CODE%TYPE; --
233: l_org_id PO_HEADERS_ALL.org_id%TYPE; -- Bug 3208853
234:
235: --
236: l_doc_type PO_DOCUMENT_TYPES.document_type_code%TYPE;
237:
272: po_lookup_codes plc_can,
273: po_lookup_codes plc_clo,
274: po_lookup_codes plc_fro,
275: po_lookup_codes plc_hld,
276: po_headers_all poh -- Bug 3208853
277: where plc_sta.lookup_code =
278: decode(poh.approved_flag,
279: 'R', poh.approved_flag,
280: nvl(poh.authorization_status,'INCOMPLETE'))