PACKAGE BODY: APPS.PO_DOCS_INTERFACE_SV5

Source

1 PACKAGE BODY PO_DOCS_INTERFACE_SV5 AS
2 /* $Header: POXPIDIB.pls 120.3 2005/12/16 17:18:54 bao noship $ */
3 
4 
5 d_pkg_name CONSTANT VARCHAR2(50) :=
6   PO_LOG.get_package_base('PO_DOCS_INTERFACE_SV5');
7 
8 /*================================================================
9 
10   PROCEDURE NAME:   process_po_headers_interface()
11 
12 ==================================================================*/
13 PROCEDURE process_po_headers_interface(
14                         X_selected_batch_id            IN  NUMBER,
15                         X_buyer_id                  IN  NUMBER,
16                         X_document_type               IN	VARCHAR2,
17                         X_document_subtype            IN    VARCHAR2,
18                         X_create_items                IN  VARCHAR2,
19                         X_create_sourcing_rules_flag  IN  VARCHAR2,
20                         X_rel_gen_method            IN   VARCHAR2,
21                         X_approved_status            IN  VARCHAR2,
22                         X_commit_interval            IN  NUMBER,
23                         X_process_code              IN  VARCHAR2, -- can be 'PENDING' or 'NOTIFIED'
24                         X_interface_header_id         IN    NUMBER ,
25                         X_org_id_param                IN    NUMBER ,
26                         X_ga_flag                     IN    VARCHAR2,
27 ----<LOCAL SR/ASL PROJECT 11i11 START>
28                         p_sourcing_level          IN    VARCHAR2 DEFAULT NULL,
29                         p_inv_org_id               IN    PO_HEADERS_INTERFACE.org_id%type DEFAULT NULL
30 ----<LOCAL SR/ASL PROJECT 11i11 END>
31                         )   -- FPI GA
32 
33 IS
34 
35 d_api_name CONSTANT VARCHAR2(30) := 'process_po_headers_interface';
36 d_module CONSTANT VARCHAR2(255) := d_pkg_name || d_api_name || '.';
37 d_position NUMBER;
38 
39 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
40 
41 BEGIN
42   d_position := 0;
43 
44   IF (PO_LOG.d_proc) THEN
45     PO_LOG.proc_end(d_module);
46   END IF;
47 
48   -- <PO PDOI Rewrite R12>
49   -- Removed original content of this procedure. This is now served as a wrapper
50   -- to the new PDOI.
51   PO_PDOI_GRP.start_process
52   ( p_api_version => 1.0,
53     p_init_msg_list => FND_API.G_TRUE,
54     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
55     p_commit => FND_API.G_TRUE,
56     x_return_status => l_return_status,
57     p_gather_intf_tbl_stat => FND_API.G_FALSE,
58     p_calling_module => PO_PDOI_CONSTANTS.g_CALL_MOD_UNKNOWN,
59     p_selected_batch_id => x_selected_batch_id,
60     p_batch_size => PO_PDOI_CONSTANTS.g_DEF_BATCH_SIZE,
61     p_buyer_id => x_buyer_id,
62     p_document_type => x_document_type,
63     p_document_subtype => x_document_subtype,
64     p_create_items => x_create_items,
65     p_create_sourcing_rules_flag => x_create_sourcing_rules_flag,
66     p_rel_gen_method => x_rel_gen_method,
67     p_sourcing_level => p_sourcing_level,
68     p_sourcing_inv_org_id => p_inv_org_id,
69     p_approved_status => x_approved_status,
70     p_process_code => x_process_code,
71     p_interface_header_id => x_interface_header_id,
72     p_org_id => x_org_id_param,
73     p_ga_flag => x_ga_flag
74   );
75 
76   d_position := 10;
77 
78   IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
79     RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80   END IF;
81 
82   IF (PO_LOG.d_proc) THEN
83     PO_LOG.proc_end(d_module, 'l_return_status', l_return_status);
84   END IF;
85 
86 EXCEPTION
87 WHEN OTHERS THEN
88   PO_MESSAGE_S.add_exc_msg
89   ( p_pkg_name => d_pkg_name,
90     p_procedure_name => d_api_name || '.' || d_position
91   );
92   RAISE;
93 END process_po_headers_interface;
94 
95 END PO_DOCS_INTERFACE_SV5;