1 PACKAGE BODY CZ_OM_ATP_UTIL AS
2 /* $Header: czomatpb.pls 115.7 2002/11/27 17:07:26 askhacha ship $ */
3 -- Start of Comments
4 -- Package name: CZ_OM_ATP_UTIL
5 --
6 -- Function: Package contains all CZ ATP utilities to support
7 -- Order Management.
8 --
9 -- NOTES: 1. item quantities must always be provided in the item's
10 -- primary unit of measure
11 --
12 -- End Of Comments
13
14 -- Procedure insert_atp_request
15 -- Description:
16 -- Inserts item data into the PLSQL record set of MRP_ATP_PUB.ATP_Rec_Typ records for an -- ATP check
17 -- on an item. The insert_atp_request procedure should be called for
18 -- each item visible in the Configurator window.
19 --
20 -- The p_atp_group_id parameter should be unique if a new group ID should
21 -- be created. Subsequent calls to insert_atp_request can use the group
22 -- ID returned from this first call. Note that p_sequence_number must
23 -- be different for each call for a particular ATP group ID.
24
25 PROCEDURE insert_atp_request (p_inventory_item_id IN NUMBER,
26 p_organization_id IN NUMBER,
27 p_quantity IN NUMBER,
28 p_atp_group_id IN OUT NOCOPY NUMBER,
29 p_sequence_number IN NUMBER,
30 p_item_type_code IN NUMBER,
31 p_session_id IN NUMBER,
32 p_return_status OUT NOCOPY VARCHAR2,
33 p_error_message OUT NOCOPY VARCHAR2) IS
34 BEGIN
35 p_return_status := G_RET_STS_ERROR;
36 p_error_message := 'Stubbed procedure';
37 END insert_atp_request;
38
39 -- Procedure run_atp_check
40 -- Usage:
41 -- Called from configurator screen to check ATP for a group of items
42 -- Description:
43 -- Calls MRP_ATP_PUB.Call_ATP for items in PLSQL record set identified by ATP group ID .
44 -- Updates records with ATP results for each item
45
46 PROCEDURE run_atp_check (p_return_status OUT NOCOPY VARCHAR2,
47 p_error_message OUT NOCOPY VARCHAR2,
48 p_atp_group_id IN NUMBER,
49 p_session_id IN NUMBER) IS
50 BEGIN
51 p_return_status := G_RET_STS_ERROR;
52 p_error_message := 'Stubbed procedure';
53 END run_atp_check;
54
55 -- Procedure get_atp_result
56 -- Description:
57 -- Retrieves earliest ATP date result(ship_date) from PLSQL record set for the
58 -- item identified by ATP group ID sequence_number.
59
60 PROCEDURE get_atp_result (p_return_status OUT NOCOPY VARCHAR2,
61 p_error_message OUT NOCOPY VARCHAR2,
62 p_earliest_atp_date OUT NOCOPY DATE,
63 p_atp_group_id IN NUMBER,
64 p_session_id IN NUMBER,
65 p_sequence_number IN NUMBER DEFAULT 1) IS
66 BEGIN
67 p_return_status := G_RET_STS_ERROR;
68 p_error_message := 'Stubbed procedure';
69 END get_atp_result;
70
71
72 -- Procedure clear_atp_data
73 -- Description:
74 -- Clears local package variables which hold data for an ATP group.
75
76 PROCEDURE clear_atp_data (p_return_status OUT NOCOPY VARCHAR2,
77 p_error_message OUT NOCOPY VARCHAR2,
78 p_atp_group_id IN NUMBER,
79 p_session_id IN NUMBER) IS
80 BEGIN
81 p_return_status := G_RET_STS_ERROR;
82 p_error_message := 'Stubbed procedure';
83 END clear_atp_data;
84
85 END CZ_OM_ATP_UTIL;