DBA Data[Home] [Help]

APPS.INVPVHDR dependencies on INVPVHDR

Line 1: package body INVPVHDR as

1: package body INVPVHDR as
2: /* $Header: INVPVD1B.pls 120.22.12020000.3 2013/01/23 08:33:16 lmai ship $ */
3:
4: g_max_segment number := NULL;
5: g_totalsegs number := NULL;

Line 749: INVPUTLI.info('INVPVHDR: stmt0 latest');

745:
746: If (no_of_masterorgs > 1) then
747: BEGIN /* PLSQL Block1 */
748: IF l_inv_debug_level IN(101, 102) THEN
749: INVPUTLI.info('INVPVHDR: stmt0 latest');
750: END IF;
751:
752: /* removed + 0 from where condition
753: and clause of organization_id to fix bug 7459820 with base bug 7003119 */

Line 789: INVPUTLI.info('INVPVHDR: BIND values ' ||

785:
786: for n in 1..totalsegs loop
787: BEGIN
788: IF l_inv_debug_level IN(101, 102) THEN
789: INVPUTLI.info('INVPVHDR: BIND values ' ||
790: bindvars1(n)||' gets '|| bindvals1(n));
791: END IF;
792:
793: dbms_sql.bind_variable(DSQL_c1, bindvars1(n), bindvals1(n) );

Line 861: INVPUTLI.info('INVPVHDR: entering DSQL2 ');

857:
858: else /*The cursor DSQL_c1 fetched no rows at all*/
859: dbms_sql.close_cursor(DSQL_c1);
860: IF l_inv_debug_level IN(101, 102) THEN
861: INVPUTLI.info('INVPVHDR: entering DSQL2 ');
862: END IF;
863:
864: /* This else clause simulates the earlier
865: ** exception when NO_DATA_FOUND then

Line 906: INVPUTLI.info('INVPVHDR: BIND2 values ' ||

902:
903: for n in 1..totalsegs loop
904: BEGIN
905: IF l_inv_debug_level IN(101, 102) THEN
906: INVPUTLI.info('INVPVHDR: BIND2 values ' ||
907: bindvars1(n)||' gets '|| bindvals1(n));
908: END IF;
909:
910: dbms_sql.bind_variable(DSQL_c2, bindvars1(n), bindvals1(n) );

Line 942: INVPUTLI.info('INVPVHDR: Same item being added to MULTIPLE masters ');

938: ** clause because
939: ** the TWO_PASS design ensures that item WILL be
940: ** found in masterorg in MSI*/
941: IF l_inv_debug_level IN(101, 102) THEN
942: INVPUTLI.info('INVPVHDR: Same item being added to MULTIPLE masters ');
943: INVPUTLI.info('INVPVHDR: So now updating inv_item_id in MSII, MIRI ');
944: END IF;
945: update mtl_system_items_interface
946: set inventory_item_id = l_item_id

Line 943: INVPUTLI.info('INVPVHDR: So now updating inv_item_id in MSII, MIRI ');

939: ** the TWO_PASS design ensures that item WILL be
940: ** found in masterorg in MSI*/
941: IF l_inv_debug_level IN(101, 102) THEN
942: INVPUTLI.info('INVPVHDR: Same item being added to MULTIPLE masters ');
943: INVPUTLI.info('INVPVHDR: So now updating inv_item_id in MSII, MIRI ');
944: END IF;
945: update mtl_system_items_interface
946: set inventory_item_id = l_item_id
947: where transaction_id = DSQL2_transaction_id

Line 1035: INVPUTLI.info('INVPVHDR: check 3-1');

1031: */
1032: stmt := 1;
1033:
1034: IF l_inv_debug_level IN(101, 102) THEN
1035: INVPUTLI.info('INVPVHDR: check 3-1');
1036: END IF;
1037:
1038: select count(*)
1039: into ext_flag

Line 1045: INVPUTLI.info('INVPVHDR: check 3-1');

1041: where inventory_item_id = l_item_id
1042: and organization_id = cr.organization_id
1043: and cr.transaction_type = 'CREATE';
1044: IF l_inv_debug_level IN(101, 102) THEN
1045: INVPUTLI.info('INVPVHDR: check 3-1');
1046: END IF;
1047:
1048: stmt := 2;
1049: if ext_flag > 0 then

Line 1088: INVPUTLI.info('INVPVHDR: check 4-1');

1084: and organization_id = cr.organization_id
1085: and process_flag = 2
1086: and set_process_id = xset_id;
1087: IF l_inv_debug_level IN(101, 102) THEN
1088: INVPUTLI.info('INVPVHDR: check 4-1');
1089: END IF;
1090:
1091: if ext_flag > 1 then
1092: stmt := 5;

Line 1137: INVPUTLI.info('INVPVHDR: stmt6');

1133: ** and organization id
1134: */
1135: stmt := 6;
1136: IF l_inv_debug_level IN(101, 102) THEN
1137: INVPUTLI.info('INVPVHDR: stmt6');
1138: END IF;
1139: BEGIN /* PLSQL Block 2*/
1140:
1141: DSQL_statement3 := 'select count(*)

Line 1207: INVPUTLI.info('INVPVHDR: stmt7');

1203:
1204: stmt := 7;
1205:
1206: IF l_inv_debug_level IN(101, 102) THEN
1207: INVPUTLI.info('INVPVHDR: stmt7');
1208: END IF;
1209: IF ext_flag > 0 AND status=0 THEN /* Crucial If:*/ --Bug:5208039
1210:
1211: /*

Line 1431: /*INVPUTLI.info('INVPVHDR: Validating flags'); */

1427:
1428: /*
1429: ** Check for integrity rules/restrictions for item attributes
1430: */
1431: /*INVPUTLI.info('INVPVHDR: Validating flags'); */
1432:
1433: -- validate that UOM values exist
1434: /*NP 28DEC94 New validation
1435: ** if both PRIMARY_UOM_CODE and PRIMARY_UNIT_OF_MEASURE null

Line 2502: /* R12 C Unit Weight can now be updated for Pending items. Moving the below set of validations to INVPVHDR */

2498: end if;
2499: status := 1;
2500: end if;
2501:
2502: /* R12 C Unit Weight can now be updated for Pending items. Moving the below set of validations to INVPVHDR */
2503: IF cr.WEIGHT_UOM_CODE IS NOT NULL THEN
2504: BEGIN
2505: SELECT 'x' INTO temp
2506: FROM MTL_UNITS_OF_MEASURE

Line 2578: ** This modified/new code necessiated due to the breaking up INVPVHDR into

2574: */
2575:
2576:
2577: /* NP26DEC94 : New code to update process_flag.
2578: ** This modified/new code necessiated due to the breaking up INVPVHDR into
2579: ** 6 smaller packages to overcome PL/SQL limitations with code size.
2580: ** Let's update the process flag for the record
2581: ** Give it value 41 if all okay and 31 if some validation failed in this procedure
2582: ** The process flag values that are possible at this time are

Line 2625: end INVPVHDR;

2621:
2622: end validate_item_header;
2623:
2624:
2625: end INVPVHDR;