PACKAGE: APPS.RCV_DCP_PVT

Source

1 PACKAGE rcv_dcp_pvt AUTHID CURRENT_USER AS
2   /* $Header: INVRDCPS.pls 120.4 2006/08/21 14:31:33 amohamme 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_check_dcp NUMBER :=null;
9   g_debug_started              VARCHAR2(1)     := 'N';
10 
11   g_email_server               VARCHAR2(32767);
12   g_email_address              VARCHAR2(32767);
13   g_fnd_debug_enabled          VARCHAR2(240);
14   g_fnd_debug_level            VARCHAR2(240);
15   g_fnd_debug_module           VARCHAR2(240);
16   g_fnd_debug_mode             VARCHAR2(240);
17   g_po_en_sql_trace            VARCHAR2(240);
18   g_inv_debug_enabled 	       VARCHAR2(240);
19   g_inv_debug_file 	       VARCHAR2(240);
20   g_inv_debug_level 	       VARCHAR2(240);
21   g_rcv_debug_enabled 	       VARCHAR2(240);
22   g_file_name     	       VARCHAR2(240);
23 
24   TYPE g_dc_rec_type IS RECORD(
25     header_interface_id      NUMBER
26   , interface_transaction_id NUMBER
27   , dcp_script                 VARCHAR2(3)
28   , msg                        VARCHAR2(2000)
29   , shipment_header_id         NUMBER
30   , shipment_line_id           NUMBER
31   , rhi_receipt_header_id      NUMBER
32   , mmt_transaction_id         NUMBER
33   , rt_transaction_id          NUMBER
34   , oel_line_id                NUMBER
35   , moh_header_id              NUMBER
36   , mol_line_id                NUMBER
37   , msn_serial_number          VARCHAR(30)
38   , txn_type                   VARCHAR2(30)
39   , to_organization_code       VARCHAR2(200)
40   , from_organization_code     VARCHAR2(200)
41   , item_name                  VARCHAR2(2000)
42   , oel_flow_status_code       VARCHAR2(30)
43   , rhi_processing_status_code VARCHAR2(25)
44   , rhi_receipt_source_code    VARCHAR2(25)
45   , rhi_asn_type 	       VARCHAR2(25)
46   , rhi_creation_date 	       DATE
47   , rsh_asn_type               VARCHAR2(25)
48   , msn_last_update_date       DATE
49   , msn_current_status 	       NUMBER
50   , wlpn_lpn_context 	       NUMBER
51   );
52 
53   TYPE g_dc_tbl_type IS TABLE OF g_dc_rec_type
54     INDEX BY BINARY_INTEGER;
55 
56   g_dc_table                   g_dc_tbl_type;
57   --This is the exception raised by outer-level DCP procedures and is used
58   --by callers like RCV preprocessor and processor
59   data_inconsistency_exception EXCEPTION;
60   dcp_caught                   EXCEPTION;
61 
62   PROCEDURE send_mail(
63     sender     IN VARCHAR2 DEFAULT NULL
64   , recipient1 IN VARCHAR2 DEFAULT NULL
65   , recipient2 IN VARCHAR2 DEFAULT NULL
66   , recipient3 IN VARCHAR2 DEFAULT NULL
67   , recipient4 IN VARCHAR2 DEFAULT NULL
68   , MESSAGE    IN VARCHAR2
69   );
70 
71   PROCEDURE switch_debug(
72     p_action IN VARCHAR2
73   , p_file_name OUT NOCOPY VARCHAR2
74   );
75 
76   PROCEDURE validate_data(
77     p_dcp_event                IN            VARCHAR2
78 --  , p_header_interface_id    IN            NUMBER DEFAULT NULL
79   , p_request_id 	       IN  	     NUMBER DEFAULT NULL
80   , p_group_id 		       IN  	     NUMBER DEFAULT NULL
81   , p_interface_transaction_id IN            NUMBER DEFAULT NULL
82   , p_lpn_group_id 	       IN            NUMBER DEFAULT NULL
83   , p_raise_exception          IN            VARCHAR2 DEFAULT 'N'
84   , x_return_status            OUT NOCOPY    VARCHAR2
85   );
86 
87   PROCEDURE check_scripts(
88     p_action_code              IN VARCHAR2
89   , p_header_interface_id      IN NUMBER DEFAULT NULL
90   , p_interface_transaction_id IN NUMBER DEFAULT NULL
91   );
92 
93   PROCEDURE post_process(p_action_code IN VARCHAR2 DEFAULT NULL, p_raise_exception IN VARCHAR2 DEFAULT 'Y');
94 
95   FUNCTION is_dcp_enabled
96     RETURN NUMBER;
97 END rcv_dcp_pvt;