1 PACKAGE INV_DCP_PVT AUTHID CURRENT_USER as
2 /* $Header: INVDCPPS.pls 120.5 2006/07/05 19:08:23 anverma noship $ */
3
4
5 --Whenever DCP code starts debugger, this global is set.
6 --Value of Y means debug is started
7 --Value of R means debug is reset.
8 G_DEBUG_STARTED VARCHAR2(1):= 'N';
9
10 G_CHECK_DCP NUMBER :=null;
11
12 G_EMAIL_SERVER VARCHAR2(32767);
13 G_EMAIL_ADDRESS VARCHAR2(32767);
14
15 TYPE g_dc_rec_type IS RECORD(
16 trx_hdr_id VARCHAR2(100),
17 dcp_script varchar2(2),
18 msg varchar2(2000),
19 trx_temp_id NUMBER,
20 trx_type VARCHAR2(200),
21 source_type VARCHAR2(200),
22 Action_code VARCHAR2(200),
23 Organization_code VARCHAR2(200),
24 xfer_org_code VARCHAR2(200),
25 item_name VARCHAR2(2000));
26
27 TYPE g_dc_tbl_type IS TABLE OF g_dc_rec_type INDEX BY BINARY_INTEGER;
28
29 g_dc_table g_dc_tbl_type;
30
31 --Table for Action/Serial Status
32 TYPE g_ser_action_rec IS RECORD(serial_status NUMBER);
33 TYPE g_ser_status_type IS TABLE OF g_ser_action_rec INDEX BY BINARY_INTEGER;
34 g_ser_check_tab g_ser_status_type;
35
36 --This is the exception raised by outer-level DCP procedures and is used
37 --by callers like delivery-detail and delivery group APIs, ITS code etc.
38 data_inconsistency_exception EXCEPTION;
39
40 dcp_caught EXCEPTION;
41
42 Procedure Send_Mail(sender IN VARCHAR2 DEFAULT NULL,
43 recipient1 IN VARCHAR2 DEFAULT NULL,
44 recipient2 IN VARCHAR2 DEFAULT NULL,
45 recipient3 IN VARCHAR2 DEFAULT NULL,
46 recipient4 IN VARCHAR2 DEFAULT NULL,
47 message IN VARCHAR2);
48
49 Procedure Validate_data(p_dcp_event IN VARCHAR2,
50 p_trx_hdr_id IN VARCHAR2,
51 p_temp_id IN NUMBER,
52 p_batch_id IN NUMBER,
53 p_raise_exception IN VARCHAR2 DEFAULT 'N',
54 x_return_status OUT NOCOPY VARCHAR2);
55
56 Procedure Check_Scripts(p_action_code IN VARCHAR2 ,
57 p_trx_hdr_id IN NUMBER DEFAULT NULL,
58 p_trx_temp_id IN NUMBER DEFAULT NULL,
59 p_batch_id IN NUMBER DEFAULT NULL);
60
61 PROCEDURE Post_Process(p_action_code IN VARCHAR2 DEFAULT NULL,
62 p_raise_exception IN VARCHAR2 DEFAULT 'Y');
63
64 FUNCTION Is_dcp_enabled RETURN NUMBER;
65
66 FUNCTION add_serial_data(trx_qty IN NUMBER,
67 serial_control_code IN NUMBER,
68 xfer_org NUMBER,
69 inv_item_id NUMBER
70 ) RETURN BOOLEAN;
71
72 Procedure dump_mmtt;
73
74 END INV_DCP_PVT;
[Home] [Help]