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.13 2007/05/30 12:17:28 anmurali ship $ */
3:
4: g_max_segment number := NULL;
5: g_totalsegs number := NULL;

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

729:
730: If (no_of_masterorgs > 1) then
731: BEGIN /* PLSQL Block1 */
732: IF l_inv_debug_level IN(101, 102) THEN
733: INVPUTLI.info('INVPVHDR: stmt0 latest');
734: END IF;
735:
736: DSQL_statement1 := 'select distinct msi.inventory_item_id
737: from mtl_system_items msi,

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

767:
768: for n in 1..totalsegs loop
769: BEGIN
770: IF l_inv_debug_level IN(101, 102) THEN
771: INVPUTLI.info('INVPVHDR: BIND values ' ||
772: bindvars1(n)||' gets '|| bindvals1(n));
773: END IF;
774:
775: dbms_sql.bind_variable(DSQL_c1, bindvars1(n), bindvals1(n) );

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

839:
840: else /*The cursor DSQL_c1 fetched no rows at all*/
841: dbms_sql.close_cursor(DSQL_c1);
842: IF l_inv_debug_level IN(101, 102) THEN
843: INVPUTLI.info('INVPVHDR: entering DSQL2 ');
844: END IF;
845:
846: /* This else clause simulates the earlier
847: ** exception when NO_DATA_FOUND then

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

882:
883: for n in 1..totalsegs loop
884: BEGIN
885: IF l_inv_debug_level IN(101, 102) THEN
886: INVPUTLI.info('INVPVHDR: BIND2 values ' ||
887: bindvars1(n)||' gets '|| bindvals1(n));
888: END IF;
889:
890: dbms_sql.bind_variable(DSQL_c2, bindvars1(n), bindvals1(n) );

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

918: ** clause because
919: ** the TWO_PASS design ensures that item WILL be
920: ** found in masterorg in MSI*/
921: IF l_inv_debug_level IN(101, 102) THEN
922: INVPUTLI.info('INVPVHDR: Same item being added to MULTIPLE masters ');
923: INVPUTLI.info('INVPVHDR: So now updating inv_item_id in MSII, MIRI ');
924: END IF;
925: update mtl_system_items_interface
926: set inventory_item_id = l_item_id

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

919: ** the TWO_PASS design ensures that item WILL be
920: ** found in masterorg in MSI*/
921: IF l_inv_debug_level IN(101, 102) THEN
922: INVPUTLI.info('INVPVHDR: Same item being added to MULTIPLE masters ');
923: INVPUTLI.info('INVPVHDR: So now updating inv_item_id in MSII, MIRI ');
924: END IF;
925: update mtl_system_items_interface
926: set inventory_item_id = l_item_id
927: where transaction_id = DSQL2_transaction_id

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

1010: */
1011: stmt := 1;
1012:
1013: IF l_inv_debug_level IN(101, 102) THEN
1014: INVPUTLI.info('INVPVHDR: check 3-1');
1015: END IF;
1016:
1017: select count(*)
1018: into ext_flag

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

1020: where inventory_item_id = l_item_id
1021: and organization_id = cr.organization_id
1022: and cr.transaction_type = 'CREATE';
1023: IF l_inv_debug_level IN(101, 102) THEN
1024: INVPUTLI.info('INVPVHDR: check 3-1');
1025: END IF;
1026:
1027: stmt := 2;
1028: if ext_flag > 0 then

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

1063: and organization_id = cr.organization_id
1064: and process_flag = 2
1065: and set_process_id = xset_id;
1066: IF l_inv_debug_level IN(101, 102) THEN
1067: INVPUTLI.info('INVPVHDR: check 4-1');
1068: END IF;
1069:
1070: if ext_flag > 1 then
1071: stmt := 5;

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

1112: ** and organization id
1113: */
1114: stmt := 6;
1115: IF l_inv_debug_level IN(101, 102) THEN
1116: INVPUTLI.info('INVPVHDR: stmt6');
1117: END IF;
1118: BEGIN /* PLSQL Block 2*/
1119:
1120: DSQL_statement3 := 'select count(*)

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

1182:
1183: stmt := 7;
1184:
1185: IF l_inv_debug_level IN(101, 102) THEN
1186: INVPUTLI.info('INVPVHDR: stmt7');
1187: END IF;
1188: IF ext_flag > 0 AND status=0 THEN /* Crucial If:*/ --Bug:5208039
1189:
1190: /*

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

1374:
1375: /*
1376: ** Check for integrity rules/restrictions for item attributes
1377: */
1378: /*INVPUTLI.info('INVPVHDR: Validating flags'); */
1379:
1380: -- validate that UOM values exist
1381: /*NP 28DEC94 New validation
1382: ** if both PRIMARY_UOM_CODE and PRIMARY_UNIT_OF_MEASURE null

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

2445: end if;
2446: status := 1;
2447: end if;
2448:
2449: /* R12 C Unit Weight can now be updated for Pending items. Moving the below set of validations to INVPVHDR */
2450: IF cr.WEIGHT_UOM_CODE IS NOT NULL THEN
2451: BEGIN
2452: SELECT 'x' INTO temp
2453: FROM MTL_UNITS_OF_MEASURE

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

2521: */
2522:
2523:
2524: /* NP26DEC94 : New code to update process_flag.
2525: ** This modified/new code necessiated due to the breaking up INVPVHDR into
2526: ** 6 smaller packages to overcome PL/SQL limitations with code size.
2527: ** Let's update the process flag for the record
2528: ** Give it value 41 if all okay and 31 if some validation failed in this procedure
2529: ** The process flag values that are possible at this time are

Line 2572: end INVPVHDR;

2568:
2569: end validate_item_header;
2570:
2571:
2572: end INVPVHDR;