3:
4: /************************************************************************
5: * Package variables *
6: ************************************************************************/
7: G_DEBUG BOOLEAN := (FND_PROFILE.VALUE('MRP_DEBUG') = 'Y');
8:
9: /************************************************************************
10: * Private Procedures and Functions *
11: ************************************************************************/
650: INSERT into MTL_KANBAN_CARD_PRINT_TEMP( REPORT_ID,KANBAN_CARD_ID)
651: VALUES (l_report_id,p_Kanban_Card_Ids(l_card_count));
652: END LOOP; -- end of for loop
653:
654: IF NVL(FND_PROFILE.VALUE('FLM_EKB_OPS_FLAG'),0) = 1 THEN
655: l_conc_prog := 'INVKBCPR_XML';
656: BEGIN
657: SELECT LOWER(FL.iso_language),ISO_TERRITORY
658: INTO l_language,l_territory
856: END IF;
857:
858: /* To convert the completion date entered by the user in the concurrent program to the
859: Server timezone */
860: l_client_tz_id := to_number(fnd_profile.value_specific('CLIENT_TIMEZONE_ID'));
861: l_server_tz_id := to_number(fnd_profile.value_specific('SERVER_TIMEZONE_ID'));
862:
863: HZ_TIMEZONE_PUB.Get_Time(
864: p_api_version => 1.0,
857:
858: /* To convert the completion date entered by the user in the concurrent program to the
859: Server timezone */
860: l_client_tz_id := to_number(fnd_profile.value_specific('CLIENT_TIMEZONE_ID'));
861: l_server_tz_id := to_number(fnd_profile.value_specific('SERVER_TIMEZONE_ID'));
862:
863: HZ_TIMEZONE_PUB.Get_Time(
864: p_api_version => 1.0,
865: p_init_msg_list => 'F',
979: l_usage:=l_comp_table(l_comp_count).qty_per_lot;
980: end if;
981:
982:
983: IF NVL(FND_PROFILE.VALUE('FLM_EKB_OPS_FLAG'),0) = 1 THEN
984:
985: -- In eKanban Create temporary Cards for 1 cycle, rather than NRK
986:
987: SELECT INVENTORY_ITEM_ID,ORGANIZATION_ID,SUBINVENTORY_NAME,SOURCE_TYPE,LOCATOR_ID,SOURCE_ORGANIZATION_ID,