[Home] [Help]
47: -- GLOBALS
48: --===================
49:
50: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_MGD_MVT_STATS_PVT';
51: g_final_excp_list INV_MGD_MVT_DATA_STR.excp_list ;
52: G_rpt_page_col CONSTANT INTEGER := 78 ;
53: G_format_space CONSTANT INTEGER := 2;
54: g_mvt_count NUMBER;
55: g_movement_id NUMBER;
81: PROCEDURE Create_Movement_Statistics
82: ( p_api_version_number IN NUMBER
83: , p_init_msg_list IN VARCHAR2
84: , x_movement_transaction IN OUT NOCOPY
85: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
86: , x_return_status OUT NOCOPY VARCHAR2
87: , x_msg_count OUT NOCOPY NUMBER
88: , x_msg_data OUT NOCOPY VARCHAR2
89: )
91: l_api_version_number CONSTANT NUMBER := 1.0;
92: l_api_name CONSTANT VARCHAR2(30) := 'Create_Movement_Statistics';
93: l_movement_id NUMBER;
94: l_parent_movement_id NUMBER := NULL;
95: l_movement_transaction INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
96: l_insert_flag VARCHAR2(1);
97: l_return_status1 VARCHAR2(1);
98: l_return_status2 VARCHAR2(1);
99:
601: -- Eg: statistical_procedure_code,creation_method etc.
602: --=======================================================================
603: PROCEDURE Init_Movement_Record
604: ( x_movement_transaction IN OUT NOCOPY
605: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
606: )
607: IS
608: l_api_name CONSTANT VARCHAR2(30) := 'Init_Movement_Record';
609: BEGIN
654: -- This opens the cursor for INV and returns the cursor.
655: --========================================================================
656:
657: PROCEDURE Get_Open_Mvmt_Stats_Txns (
658: val_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
659: , p_movement_statistics IN
660: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
661: , p_legal_entity_id IN NUMBER
662: , p_economic_zone_code IN VARCHAR2
656:
657: PROCEDURE Get_Open_Mvmt_Stats_Txns (
658: val_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
659: , p_movement_statistics IN
660: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
661: , p_legal_entity_id IN NUMBER
662: , p_economic_zone_code IN VARCHAR2
663: , p_usage_type IN VARCHAR2
664: , p_stat_type IN VARCHAR2
876: -- Updated : 09/Jul/1999
877: --=======================================================================--
878: PROCEDURE Update_Movement_Statistics (
879: p_movement_statistics IN
880: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
881: , x_return_status OUT NOCOPY VARCHAR2
882: , x_msg_count OUT NOCOPY NUMBER
883: , x_msg_data OUT NOCOPY VARCHAR2
884: )
884: )
885: IS
886: l_api_name CONSTANT VARCHAR2(30) := 'Update_Movement_Statistics';
887: l_api_version_number CONSTANT NUMBER := 1.0;
888: l_movement_transaction INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
889: l_return_status1 VARCHAR2(1);
890: l_return_status2 VARCHAR2(1);
891: BEGIN
892: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1207: -- UNIT_WEIGHT/TOTAL_WEIGHT and COMMODITY_CODE.
1208: --=======================================================================
1209: PROCEDURE Validate_Record
1210: ( p_movement_stat_usages_rec IN
1211: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1212: , x_movement_statistics IN OUT NOCOPY
1213: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1214: , x_return_status OUT NOCOPY VARCHAR2
1215: , x_record_status OUT NOCOPY VARCHAR2
1209: PROCEDURE Validate_Record
1210: ( p_movement_stat_usages_rec IN
1211: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1212: , x_movement_statistics IN OUT NOCOPY
1213: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1214: , x_return_status OUT NOCOPY VARCHAR2
1215: , x_record_status OUT NOCOPY VARCHAR2
1216: , x_updated_flag OUT NOCOPY VARCHAR2
1217: );
1259: -- CREATED : 10/20/1999
1260: --=============================================================================-
1261: PROCEDURE Validate_Movement_Statistics
1262: ( p_movement_statistics IN
1263: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1264: , p_movement_stat_usages_rec IN
1265: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1266: , x_excp_list OUT NOCOPY
1267: INV_MGD_MVT_DATA_STR.excp_list
1261: PROCEDURE Validate_Movement_Statistics
1262: ( p_movement_statistics IN
1263: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1264: , p_movement_stat_usages_rec IN
1265: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1266: , x_excp_list OUT NOCOPY
1267: INV_MGD_MVT_DATA_STR.excp_list
1268: , x_updated_flag OUT NOCOPY VARCHAR2
1269: , x_return_status OUT NOCOPY VARCHAR2
1263: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1264: , p_movement_stat_usages_rec IN
1265: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1266: , x_excp_list OUT NOCOPY
1267: INV_MGD_MVT_DATA_STR.excp_list
1268: , x_updated_flag OUT NOCOPY VARCHAR2
1269: , x_return_status OUT NOCOPY VARCHAR2
1270: , x_msg_count OUT NOCOPY NUMBER
1271: , x_msg_data OUT NOCOPY VARCHAR2
1269: , x_return_status OUT NOCOPY VARCHAR2
1270: , x_msg_count OUT NOCOPY NUMBER
1271: , x_msg_data OUT NOCOPY VARCHAR2
1272: , x_movement_statistics OUT NOCOPY
1273: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1274: )
1275: IS
1276: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_MOVEMENT_STATISTICS';
1277:
1276: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_MOVEMENT_STATISTICS';
1277:
1278: -- local variables
1279: l_orig_mvmt_transaction
1280: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1281: l_invoice_arrived VARCHAR2(1);
1282: -- removed the use of empty list to reset the list, use DELETE instead
1283: -- l_excp_list_empty INV_MGD_MVT_DATA_STR.excp_list;
1284: l_before_validate
1279: l_orig_mvmt_transaction
1280: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1281: l_invoice_arrived VARCHAR2(1);
1282: -- removed the use of empty list to reset the list, use DELETE instead
1283: -- l_excp_list_empty INV_MGD_MVT_DATA_STR.excp_list;
1284: l_before_validate
1285: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1286: l_new_movement_transaction
1287: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1281: l_invoice_arrived VARCHAR2(1);
1282: -- removed the use of empty list to reset the list, use DELETE instead
1283: -- l_excp_list_empty INV_MGD_MVT_DATA_STR.excp_list;
1284: l_before_validate
1285: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1286: l_new_movement_transaction
1287: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1288: --l_created_movement_transaction
1289: -- INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1283: -- l_excp_list_empty INV_MGD_MVT_DATA_STR.excp_list;
1284: l_before_validate
1285: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1286: l_new_movement_transaction
1287: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1288: --l_created_movement_transaction
1289: -- INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1290: l_transaction_type VARCHAR2(30);
1291: l_record_status VARCHAR2(1);
1285: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1286: l_new_movement_transaction
1287: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1288: --l_created_movement_transaction
1289: -- INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1290: l_transaction_type VARCHAR2(30);
1291: l_record_status VARCHAR2(1);
1292: l_uom_status VARCHAR2(1);
1293: l_return_status VARCHAR2(1);
1722: -- UNIT_WEIGHT/TOTAL_WEIGHT and COMMODITY_CODE.
1723: --=======================================================================
1724: PROCEDURE Validate_Record
1725: ( p_movement_stat_usages_rec IN
1726: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1727: , x_movement_statistics IN OUT NOCOPY
1728: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1729: , x_return_status OUT NOCOPY VARCHAR2
1730: , x_record_status OUT NOCOPY VARCHAR2
1724: PROCEDURE Validate_Record
1725: ( p_movement_stat_usages_rec IN
1726: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1727: , x_movement_statistics IN OUT NOCOPY
1728: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1729: , x_return_status OUT NOCOPY VARCHAR2
1730: , x_record_status OUT NOCOPY VARCHAR2
1731: , x_updated_flag OUT NOCOPY VARCHAR2
1732: )
1731: , x_updated_flag OUT NOCOPY VARCHAR2
1732: )
1733: IS
1734: l_orig_mvmt_transaction
1735: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1736: l_chk NUMBER;
1737: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Record';
1738: l_weight_precision NUMBER;
1739: l_total_weight NUMBER;
1940: ( p_col_name IN VARCHAR2
1941: , p_message_cd IN NUMBER
1942: )
1943: IS
1944: l_exception_rec INV_MGD_MVT_DATA_STR.Excp_Rec;
1945: BEGIN
1946:
1947: l_exception_rec.excp_col_name := p_col_name;
1948: l_exception_rec.excp_message_cd := p_message_cd;
1959: -- COMMENT : Called by the Form to delete a movement record
1960: --=======================================================================
1961: PROCEDURE Delete_Movement_Statistics
1962: ( p_movement_transaction IN
1963: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1964: , x_return_status OUT NOCOPY VARCHAR2
1965: )
1966: IS
1967:
2000: -- This procedure creates Partner VAT Number exception.
2001: --=======================================================================
2002: PROCEDURE Partner_vat_number
2003: ( p_mvt_transaction_rec IN
2004: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2005: , p_lookup_type IN VARCHAR2
2006: , p_attribute_code IN VARCHAR2
2007: , p_rule_field_value IN VARCHAR2
2008: , x_return_status OUT NOCOPY VARCHAR2
2010: IS
2011: l_count NUMBER;
2012: l_count1 NUMBER;
2013: l_form_vat_value VARCHAR2(50);
2014: l_mvt_transaction_rec INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
2015: l_api_name CONSTANT VARCHAR2(30) := 'Partner_vat_number';
2016:
2017: BEGIN
2018: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2184: -- COMMENT : Validate the transaction record based Validation Rules
2185: --=======================================================================
2186: PROCEDURE Validate_Rules
2187: ( p_movement_stat_usages_rec IN
2188: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
2189: , x_movement_transaction IN OUT NOCOPY
2190: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2191: , x_return_status OUT NOCOPY VARCHAR2
2192: , x_uom_status OUT NOCOPY VARCHAR2
2186: PROCEDURE Validate_Rules
2187: ( p_movement_stat_usages_rec IN
2188: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
2189: , x_movement_transaction IN OUT NOCOPY
2190: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2191: , x_return_status OUT NOCOPY VARCHAR2
2192: , x_uom_status OUT NOCOPY VARCHAR2
2193: , x_msg_count OUT NOCOPY NUMBER
2194: , x_msg_data OUT NOCOPY VARCHAR2
2194: , x_msg_data OUT NOCOPY VARCHAR2
2195: )
2196: IS
2197: l_orig_mvmt_transaction
2198: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
2199: l_chk NUMBER;
2200: Rule_field_Value VARCHAR2(240);
2201: correct_value VARCHAR2(240);
2202: valid_value VARCHAR2(1);
2479: -- COMMENT : Get the Open and Verified Invoice Transactions
2480: --========================================================================
2481:
2482: PROCEDURE Get_Invoice_Transactions (
2483: inv_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2484: , p_movement_transaction IN
2485: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2486: , p_start_date IN DATE
2487: , p_end_date IN DATE
2481:
2482: PROCEDURE Get_Invoice_Transactions (
2483: inv_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2484: , p_movement_transaction IN
2485: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2486: , p_start_date IN DATE
2487: , p_end_date IN DATE
2488: , p_transaction_type IN VARCHAR2
2489: , x_return_status OUT NOCOPY VARCHAR2
2691: -- correction
2692: --========================================================================
2693:
2694: PROCEDURE Get_PO_Trans_With_Correction
2695: ( inv_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2696: , p_legal_entity_id IN NUMBER
2697: , p_start_date IN DATE
2698: , p_end_date IN DATE
2699: , p_transaction_type IN VARCHAR2
2905: -- This opens the cursor for INV and returns the cursor.
2906: --========================================================================
2907:
2908: PROCEDURE Get_Pending_Txns (
2909: val_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2910: , p_movement_transaction IN
2911: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2912: , p_document_source_type IN VARCHAR2
2913: , x_return_status OUT NOCOPY VARCHAR2
2907:
2908: PROCEDURE Get_Pending_Txns (
2909: val_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2910: , p_movement_transaction IN
2911: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2912: , p_document_source_type IN VARCHAR2
2913: , x_return_status OUT NOCOPY VARCHAR2
2914: )
2915: IS