[Home] [Help]
85:
86: END Get_Field_Size;
87:
88: -------------------------------------------------------------------------------
89: --This procedure writes detail records for valid PO distributions to the output file.
90: -------------------------------------------------------------------------------
91:
92: PROCEDURE Write_Detail_Record (
93: i_po_id IN NUMBER,
284: END Write_Detail_Record;
285:
286:
287: -------------------------------------------------------------------------------
288: --This procedure writes header records for valid PO distributions to the output file.
289: -------------------------------------------------------------------------------
290:
291: PROCEDURE Write_Header_Record IS
292:
1054: END Get_Header_Amounts;
1055:
1056:
1057: -------------------------------------------------------------------------------
1058: --This procedure populates the por_feed_records table with valid PO distributions
1059: --using bulk binding.
1060: -------------------------------------------------------------------------------
1061:
1062: PROCEDURE Get_PO_Distributions IS
1058: --This procedure populates the por_feed_records table with valid PO distributions
1059: --using bulk binding.
1060: -------------------------------------------------------------------------------
1061:
1062: PROCEDURE Get_PO_Distributions IS
1063:
1064: TYPE tab_po_num IS TABLE OF po_headers.segment1%TYPE;
1065: TYPE tab_rel_num IS TABLE OF po_releases.release_num%TYPE;
1066: TYPE tab_po_header_id IS TABLE OF po_headers.po_header_id%TYPE;
1079: TYPE tab_local_curr IS TABLE OF po_headers.currency_code%TYPE;
1080: TYPE tab_uom IS TABLE OF po_lines.unit_meas_lookup_code%TYPE;
1081: TYPE tab_item_num IS TABLE OF mtl_system_items_kfv.concatenated_segments%TYPE;
1082: TYPE tab_item_desc IS TABLE OF po_lines.item_description%TYPE;
1083: TYPE tab_qty IS TABLE OF po_distributions.quantity_ordered%TYPE;
1084: TYPE tab_unit_price IS TABLE OF po_lines.unit_price%TYPE;
1085: TYPE tab_amount IS TABLE OF NUMBER;
1086: TYPE tab_acct_id IS TABLE OF gl_sets_of_books.chart_of_accounts_id%TYPE;
1087: TYPE tab_acct_code IS TABLE OF gl_code_combinations_kfv.concatenated_segments%TYPE;
1172:
1173: PO_HEADERS PH,
1174: PO_LINES PL,
1175: PO_LINE_LOCATIONS PLL,
1176: PO_DISTRIBUTIONS PD,
1177: PO_VENDORS PV,
1178: PO_VENDOR_SITES PVS,
1179: AP_CARDS AC,
1180: AP_CARD_PROGRAMS ACP,
1248: FROM
1249: PO_HEADERS PH,
1250: PO_LINES PL,
1251: PO_LINE_LOCATIONS PLL,
1252: PO_DISTRIBUTIONS PD,
1253: PO_VENDORS PV,
1254: PO_VENDOR_SITES PVS,
1255: AP_CARDS AC,
1256: AP_CARD_PROGRAMS ACP,
1322: PO_HEADERS PH,
1323: PO_RELEASES PR,
1324: PO_LINES PL,
1325: PO_LINE_LOCATIONS PLL,
1326: PO_DISTRIBUTIONS PD,
1327: PO_VENDORS PV,
1328: PO_VENDOR_SITES PVS,
1329: AP_CARDS AC,
1330: AP_CARD_PROGRAMS ACP,
1398: PO_HEADERS PH,
1399: PO_RELEASES PR,
1400: PO_LINES PL,
1401: PO_LINE_LOCATIONS PLL,
1402: PO_DISTRIBUTIONS PD,
1403: PO_VENDORS PV,
1404: PO_VENDOR_SITES PVS,
1405: AP_CARDS AC,
1406: AP_CARD_PROGRAMS ACP,
1610:
1611: l_progress := '010';
1612:
1613: IF (G_LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1614: FND_LOG.STRING(G_LEVEL_EXCEPTION, G_MODULE_NAME||'Get_PO_Distributions', '# of PO Records = ' || cur_PO_records%ROWCOUNT);
1615: END IF;
1616:
1617: FORALL i in 1 .. cur_PO_records%ROWCOUNT
1618:
1729:
1730: l_progress := '030';
1731:
1732: IF (G_LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1733: FND_LOG.STRING(G_LEVEL_EXCEPTION, G_MODULE_NAME||'Get_PO_Distributions', '# of Cancelled POs = ' || cur_canceled_POs%ROWCOUNT);
1734: END IF;
1735:
1736: FORALL i in 1 .. cur_canceled_POs%ROWCOUNT
1737:
1795: EXCEPTION
1796:
1797: WHEN OTHERS THEN
1798: IF (G_LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1799: l_log_msg := 'Error in Get_PO_Distributions : SQLERRM= ' ||
1800: SQLERRM || ' : Progress= ' || l_progress;
1801: FND_LOG.STRING(G_LEVEL_EXCEPTION, G_MODULE_NAME||'Get_PO_Distributions', l_log_msg);
1802: END IF;
1803:
1797: WHEN OTHERS THEN
1798: IF (G_LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1799: l_log_msg := 'Error in Get_PO_Distributions : SQLERRM= ' ||
1800: SQLERRM || ' : Progress= ' || l_progress;
1801: FND_LOG.STRING(G_LEVEL_EXCEPTION, G_MODULE_NAME||'Get_PO_Distributions', l_log_msg);
1802: END IF;
1803:
1804: RAISE;
1805:
1802: END IF;
1803:
1804: RAISE;
1805:
1806: END Get_PO_Distributions;
1807:
1808: ---------------------------------------------------------------------------------------
1809: -- Parameters are passed to the Main Program in order to specify the set of PO records
1810: -- to retrieve. All the visible parameters are mandatory and are defaulted or user-
1931: l_progress := '500';
1932:
1933: COMMIT;
1934:
1935: Get_PO_Distributions;
1936:
1937: l_progress := '600';
1938:
1939: Get_Header_Amounts;