[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:
581: -- Eg: statistical_procedure_code,creation_method etc.
582: --=======================================================================
583: PROCEDURE Init_Movement_Record
584: ( x_movement_transaction IN OUT NOCOPY
585: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
586: )
587: IS
588: l_api_name CONSTANT VARCHAR2(30) := 'Init_Movement_Record';
589: BEGIN
634: -- This opens the cursor for INV and returns the cursor.
635: --========================================================================
636:
637: PROCEDURE Get_Open_Mvmt_Stats_Txns (
638: val_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
639: , p_movement_statistics IN
640: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
641: , p_legal_entity_id IN NUMBER
642: , p_economic_zone_code IN VARCHAR2
636:
637: PROCEDURE Get_Open_Mvmt_Stats_Txns (
638: val_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
639: , p_movement_statistics IN
640: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
641: , p_legal_entity_id IN NUMBER
642: , p_economic_zone_code IN VARCHAR2
643: , p_usage_type IN VARCHAR2
644: , p_stat_type IN VARCHAR2
856: -- Updated : 09/Jul/1999
857: --=======================================================================--
858: PROCEDURE Update_Movement_Statistics (
859: p_movement_statistics IN
860: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
861: , x_return_status OUT NOCOPY VARCHAR2
862: , x_msg_count OUT NOCOPY NUMBER
863: , x_msg_data OUT NOCOPY VARCHAR2
864: )
864: )
865: IS
866: l_api_name CONSTANT VARCHAR2(30) := 'Update_Movement_Statistics';
867: l_api_version_number CONSTANT NUMBER := 1.0;
868: l_movement_transaction INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
869: l_return_status1 VARCHAR2(1);
870: l_return_status2 VARCHAR2(1);
871: BEGIN
872: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1167: -- UNIT_WEIGHT/TOTAL_WEIGHT and COMMODITY_CODE.
1168: --=======================================================================
1169: PROCEDURE Validate_Record
1170: ( p_movement_stat_usages_rec IN
1171: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1172: , x_movement_statistics IN OUT NOCOPY
1173: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1174: , x_return_status OUT NOCOPY VARCHAR2
1175: , x_record_status OUT NOCOPY VARCHAR2
1169: PROCEDURE Validate_Record
1170: ( p_movement_stat_usages_rec IN
1171: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1172: , x_movement_statistics IN OUT NOCOPY
1173: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1174: , x_return_status OUT NOCOPY VARCHAR2
1175: , x_record_status OUT NOCOPY VARCHAR2
1176: , x_updated_flag OUT NOCOPY VARCHAR2
1177: );
1219: -- CREATED : 10/20/1999
1220: --=============================================================================-
1221: PROCEDURE Validate_Movement_Statistics
1222: ( p_movement_statistics IN
1223: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1224: , p_movement_stat_usages_rec IN
1225: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1226: , x_excp_list OUT NOCOPY
1227: INV_MGD_MVT_DATA_STR.excp_list
1221: PROCEDURE Validate_Movement_Statistics
1222: ( p_movement_statistics IN
1223: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1224: , p_movement_stat_usages_rec IN
1225: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1226: , x_excp_list OUT NOCOPY
1227: INV_MGD_MVT_DATA_STR.excp_list
1228: , x_updated_flag OUT NOCOPY VARCHAR2
1229: , x_return_status OUT NOCOPY VARCHAR2
1223: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1224: , p_movement_stat_usages_rec IN
1225: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1226: , x_excp_list OUT NOCOPY
1227: INV_MGD_MVT_DATA_STR.excp_list
1228: , x_updated_flag OUT NOCOPY VARCHAR2
1229: , x_return_status OUT NOCOPY VARCHAR2
1230: , x_msg_count OUT NOCOPY NUMBER
1231: , x_msg_data OUT NOCOPY VARCHAR2
1229: , x_return_status OUT NOCOPY VARCHAR2
1230: , x_msg_count OUT NOCOPY NUMBER
1231: , x_msg_data OUT NOCOPY VARCHAR2
1232: , x_movement_statistics OUT NOCOPY
1233: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1234: )
1235: IS
1236: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_MOVEMENT_STATISTICS';
1237:
1236: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_MOVEMENT_STATISTICS';
1237:
1238: -- local variables
1239: l_orig_mvmt_transaction
1240: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1241: l_invoice_arrived VARCHAR2(1);
1242: -- removed the use of empty list to reset the list, use DELETE instead
1243: -- l_excp_list_empty INV_MGD_MVT_DATA_STR.excp_list;
1244: l_before_validate
1239: l_orig_mvmt_transaction
1240: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1241: l_invoice_arrived VARCHAR2(1);
1242: -- removed the use of empty list to reset the list, use DELETE instead
1243: -- l_excp_list_empty INV_MGD_MVT_DATA_STR.excp_list;
1244: l_before_validate
1245: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1246: l_new_movement_transaction
1247: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1241: l_invoice_arrived VARCHAR2(1);
1242: -- removed the use of empty list to reset the list, use DELETE instead
1243: -- l_excp_list_empty INV_MGD_MVT_DATA_STR.excp_list;
1244: l_before_validate
1245: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1246: l_new_movement_transaction
1247: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1248: --l_created_movement_transaction
1249: -- INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1243: -- l_excp_list_empty INV_MGD_MVT_DATA_STR.excp_list;
1244: l_before_validate
1245: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1246: l_new_movement_transaction
1247: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1248: --l_created_movement_transaction
1249: -- INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1250: l_transaction_type VARCHAR2(30);
1251: l_record_status VARCHAR2(1);
1245: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1246: l_new_movement_transaction
1247: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1248: --l_created_movement_transaction
1249: -- INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1250: l_transaction_type VARCHAR2(30);
1251: l_record_status VARCHAR2(1);
1252: l_uom_status VARCHAR2(1);
1253: l_return_status VARCHAR2(1);
1682: -- UNIT_WEIGHT/TOTAL_WEIGHT and COMMODITY_CODE.
1683: --=======================================================================
1684: PROCEDURE Validate_Record
1685: ( p_movement_stat_usages_rec IN
1686: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1687: , x_movement_statistics IN OUT NOCOPY
1688: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1689: , x_return_status OUT NOCOPY VARCHAR2
1690: , x_record_status OUT NOCOPY VARCHAR2
1684: PROCEDURE Validate_Record
1685: ( p_movement_stat_usages_rec IN
1686: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
1687: , x_movement_statistics IN OUT NOCOPY
1688: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1689: , x_return_status OUT NOCOPY VARCHAR2
1690: , x_record_status OUT NOCOPY VARCHAR2
1691: , x_updated_flag OUT NOCOPY VARCHAR2
1692: )
1691: , x_updated_flag OUT NOCOPY VARCHAR2
1692: )
1693: IS
1694: l_orig_mvmt_transaction
1695: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1696: l_chk NUMBER;
1697: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Record';
1698: l_weight_precision NUMBER;
1699: l_total_weight NUMBER;
1900: ( p_col_name IN VARCHAR2
1901: , p_message_cd IN NUMBER
1902: )
1903: IS
1904: l_exception_rec INV_MGD_MVT_DATA_STR.Excp_Rec;
1905: BEGIN
1906:
1907: l_exception_rec.excp_col_name := p_col_name;
1908: l_exception_rec.excp_message_cd := p_message_cd;
1919: -- COMMENT : Called by the Form to delete a movement record
1920: --=======================================================================
1921: PROCEDURE Delete_Movement_Statistics
1922: ( p_movement_transaction IN
1923: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1924: , x_return_status OUT NOCOPY VARCHAR2
1925: )
1926: IS
1927:
1960: -- This procedure creates Partner VAT Number exception.
1961: --=======================================================================
1962: PROCEDURE Partner_vat_number
1963: ( p_mvt_transaction_rec IN
1964: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
1965: , p_lookup_type IN VARCHAR2
1966: , p_attribute_code IN VARCHAR2
1967: , p_rule_field_value IN VARCHAR2
1968: , x_return_status OUT NOCOPY VARCHAR2
1970: IS
1971: l_count NUMBER;
1972: l_count1 NUMBER;
1973: l_form_vat_value VARCHAR2(50);
1974: l_mvt_transaction_rec INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
1975: l_api_name CONSTANT VARCHAR2(30) := 'Partner_vat_number';
1976:
1977: BEGIN
1978: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2144: -- COMMENT : Validate the transaction record based Validation Rules
2145: --=======================================================================
2146: PROCEDURE Validate_Rules
2147: ( p_movement_stat_usages_rec IN
2148: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
2149: , x_movement_transaction IN OUT NOCOPY
2150: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2151: , x_return_status OUT NOCOPY VARCHAR2
2152: , x_uom_status OUT NOCOPY VARCHAR2
2146: PROCEDURE Validate_Rules
2147: ( p_movement_stat_usages_rec IN
2148: INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type
2149: , x_movement_transaction IN OUT NOCOPY
2150: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2151: , x_return_status OUT NOCOPY VARCHAR2
2152: , x_uom_status OUT NOCOPY VARCHAR2
2153: , x_msg_count OUT NOCOPY NUMBER
2154: , x_msg_data OUT NOCOPY VARCHAR2
2154: , x_msg_data OUT NOCOPY VARCHAR2
2155: )
2156: IS
2157: l_orig_mvmt_transaction
2158: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type;
2159: l_chk NUMBER;
2160: Rule_field_Value VARCHAR2(240);
2161: correct_value VARCHAR2(240);
2162: valid_value VARCHAR2(1);
2439: -- COMMENT : Get the Open and Verified Invoice Transactions
2440: --========================================================================
2441:
2442: PROCEDURE Get_Invoice_Transactions (
2443: inv_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2444: , p_movement_transaction IN
2445: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2446: , p_start_date IN DATE
2447: , p_end_date IN DATE
2441:
2442: PROCEDURE Get_Invoice_Transactions (
2443: inv_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2444: , p_movement_transaction IN
2445: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2446: , p_start_date IN DATE
2447: , p_end_date IN DATE
2448: , p_transaction_type IN VARCHAR2
2449: , x_return_status OUT NOCOPY VARCHAR2
2651: -- correction
2652: --========================================================================
2653:
2654: PROCEDURE Get_PO_Trans_With_Correction
2655: ( inv_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2656: , p_legal_entity_id IN NUMBER
2657: , p_start_date IN DATE
2658: , p_end_date IN DATE
2659: , p_transaction_type IN VARCHAR2
2865: -- This opens the cursor for INV and returns the cursor.
2866: --========================================================================
2867:
2868: PROCEDURE Get_Pending_Txns (
2869: val_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2870: , p_movement_transaction IN
2871: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2872: , p_document_source_type IN VARCHAR2
2873: , x_return_status OUT NOCOPY VARCHAR2
2867:
2868: PROCEDURE Get_Pending_Txns (
2869: val_crsr IN OUT NOCOPY INV_MGD_MVT_DATA_STR.valCurTyp
2870: , p_movement_transaction IN
2871: INV_MGD_MVT_DATA_STR.Movement_Transaction_Rec_Type
2872: , p_document_source_type IN VARCHAR2
2873: , x_return_status OUT NOCOPY VARCHAR2
2874: )
2875: IS