PACKAGE BODY: APPS.INV_EBI_CZ_PUB

Source

1 PACKAGE BODY INV_EBI_CZ_PUB AS
2 /* $Header: INVEIPCZB.pls 120.0.12010000.3 2009/08/21 09:25:22 smukka noship $ */
3 
4 PROCEDURE process_init_msg(
5    p_profile_name        IN           VARCHAR2
6   ,p_inventory_item_id   IN           NUMBER
7   ,p_organization_id     IN           NUMBER
8   ,x_profile_value       OUT NOCOPY   VARCHAR2
9   ,x_database_id         OUT NOCOPY   VARCHAR2
10   ,x_system_id           OUT NOCOPY   VARCHAR2
11   ,x_return_status       OUT NOCOPY   VARCHAR2
12   ,x_msg_count           OUT NOCOPY   NUMBER
13   ,x_msg_data            OUT NOCOPY   VARCHAR2
14 
15  ) AS
16 
17    l_bom_item_type_code     mtl_system_items_b.bom_item_type%TYPE;
18    l_item_number            mtl_system_items_kfv.concatenated_segments%TYPE;
19 
20   BEGIN
21 
22     FND_MSG_PUB.initialize;
23     x_return_status  := FND_API.G_RET_STS_SUCCESS;
24 
25     IF( p_inventory_item_id IS NOT NULL AND
26         p_inventory_item_id <> fnd_api.g_miss_num AND
27         p_organization_id IS NOT NULL AND
28         p_organization_id <> fnd_api.g_miss_num) THEN
29 
30       SELECT bom_item_type ,concatenated_segments
31       INTO l_bom_item_type_code ,l_item_number
32       FROM mtl_system_items_kfv
33       WHERE
34         inventory_item_id = p_inventory_item_id AND
35         organization_id   = p_organization_id;
36 
37     END IF;
38 
39     IF(NVL(l_bom_item_type_code,4) <> 1) THEN
40 
41       FND_MESSAGE.set_name('INV','INV_EBI_CONFIG_NOT_A_MODEL');
42       FND_MESSAGE.set_token('ITEM', l_item_number);
43       FND_MSG_PUB.add;
44       RAISE  FND_API.g_exc_error;
45 
46     END IF;
47 
48     IF(p_profile_name IS NOT NULL AND p_profile_name <> fnd_api.g_miss_char) THEN
49 
50       SELECT fpov.PROFILE_OPTION_VALUE  INTO x_profile_value
51       FROM FND_PROFILE_OPTION_VALUES fpov,FND_PROFILE_OPTIONS fpo
52       WHERE fpov.PROFILE_OPTION_ID = fpo.PROFILE_OPTION_ID
53         AND fpo.PROFILE_OPTION_NAME = p_profile_name;
54 
55     END IF;
56 
57     x_database_id := FND_WEB_CONFIG.database_id;
58 
59     select instance_name INTO x_system_id from v$instance;
60 
61 
62 EXCEPTION
63   WHEN FND_API.g_exc_error THEN
64 
65      x_return_status :=  FND_API.g_ret_sts_error;
66 
67      IF(x_msg_data IS NULL) THEN
68        FND_MSG_PUB.count_and_get(
69          p_encoded => FND_API.g_false
70         ,p_count   => x_msg_count
71         ,p_data    => x_msg_data
72        );
73      END IF;
74 
75   WHEN OTHERS THEN
76      x_return_status := FND_API.g_ret_sts_unexp_error;
77 
78      IF (x_msg_data IS NOT NULL) THEN
79        x_msg_data      :=  x_msg_data||' -> INV_EBI_CZ_PUB.process_cz_init_msg ';
80      ELSE
81        x_msg_data      :=  SQLERRM||' INV_EBI_CZ_PUB.process_cz_init_msg ';
82       END IF;
83 
84 END process_init_msg;
85 
86 END INV_EBI_CZ_PUB;