1 PACKAGE PV_ORDER_MGMT_PVT AUTHID CURRENT_USER as
2 /* $Header: pvxvpoms.pls 120.9 2005/12/14 12:23:09 dgottlie ship $ */
3
4 -- Start of Comments
5 -- Package name
6 -- PV_ORDER_MGMT_PVT
7 -- Purpose
8 --
9 -- History
10 -- 07-JUL-2005 kvattiku Added instr_assignment_id and instrument_security_code columns
11 -- in Payment_method_Rec_type record (for R12)
12 -- 14-JUL-2005 kvattiku Modified the signatures of set_enrq_payment_info and set_payment_info
13 -- procedures. p_payment_method_rec and p_enrl_req_id (in set_enrq_payment_info)
14 -- are only IN and not IN OUT. p_payment_method_rec and p_order_header_id
15 -- (in set_payment_info) are only IN and not IN OUT.
16 -- NOTE
17 --
18 -- End of Comments
19 -- ===============================================================
20
21
22
23 TYPE Payment_method_Rec_type IS RECORD
24 (
25 payment_type_code VARCHAR2(30)
26 ,check_number VARCHAR2(50)
27 ,credit_card_code VARCHAR2(80)
28 ,credit_card_holder_name VARCHAR2(80)
29 ,credit_card_number VARCHAR2(80)
30 ,credit_card_exp_month NUMBER -- dgottlie: new in R12
31 ,credit_card_exp_year NUMBER -- dgottlie: new in R12
32 ,cust_po_number VARCHAR2(50)
33 ,instr_assignment_id NUMBER -- kvattiku: new in R12
34 ,instrument_security_code VARCHAR2(10) -- kvattiku: new in R12
35 ,cc_stmt_party_site_id NUMBER -- dgottlie: new in R12
36 );
37
38 TYPE payment_info_rec_type IS RECORD
39 (
40 enrl_req_id NUMBER
41 ,order_header_id NUMBER
42 ,trxn_extension_id NUMBER -- dgottlie: new in R12
43 ,invite_header_id NUMBER -- dgottlie: new in R12
44 ,object_version_number NUMBER -- dgottlie: new in R12
45 ,payment_amount NUMBER -- dgottlie: new in R12
46 ,currency VARCHAR2(15) -- dgottlie: new in R12
47 );
48
49 TYPE Payment_info_Tbl_type IS TABLE OF payment_info_rec_type INDEX BY BINARY_INTEGER;
50
51 TYPE Order_Rec_type IS RECORD
52 (
53 inventory_item_id NUMBER
54 ,order_header_id NUMBER
55 ,enrl_request_id NUMBER
56 ,invite_header_id NUMBER
57 );
58
59 TYPE Order_Tbl_type IS TABLE OF Order_Rec_type INDEX BY BINARY_INTEGER;
60
61
62 PROCEDURE set_enrq_payment_info(
63 p_api_version_number IN NUMBER
64 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
65 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
66 ,p_contact_party_id IN NUMBER
67 ,p_payment_method_rec IN Payment_method_Rec_type
68 ,P_enrl_req_id IN Payment_info_Tbl_type
69 ,x_return_status OUT NOCOPY VARCHAR2
70 ,x_msg_count OUT NOCOPY NUMBER
71 ,x_msg_data OUT NOCOPY VARCHAR2
72 ,x_is_authorized OUT NOCOPY VARCHAR2
73 );
74
75 PROCEDURE set_vad_payment_info(
76 p_api_version_number IN NUMBER
77 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
78 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
79 ,p_contact_party_id IN NUMBER
80 ,p_payment_method_rec IN Payment_method_Rec_type
81 ,P_order_header_id IN Payment_info_Tbl_type
82 ,x_return_status OUT NOCOPY VARCHAR2
83 ,x_msg_count OUT NOCOPY NUMBER
84 ,x_msg_data OUT NOCOPY VARCHAR2
85 );
86
87 /* R12 Changes Removed set_payment_info method here because it will be a
88 private procedure call
89 */
90
91 /* R12 Changes
92 * New function that will return 'Y' or 'N' for whether
93 * certain credit card attributes are required
94 * If p_attribute = CCV2, then it will look at CCV2 code
95 * if p_attribute = STMT, then it will look at card statement address
96 */
97 FUNCTION get_cc_requirements(
98 p_attribute IN VARCHAR2
99 ) RETURN VARCHAR2;
100
101 PROCEDURE process_order(
102 p_api_version_number IN NUMBER
103 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
104 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
105 ,p_party_site_id IN NUMBER
106 ,p_partner_party_id IN NUMBER
107 ,p_currency_code IN VARCHAR2
108 ,p_contact_party_id IN NUMBER
109 ,p_partner_account_id IN NUMBER
110 ,p_program_id IN NUMBER
111 ,p_invite_header_id IN NUMBER
112 ,x_order_header_id OUT NOCOPY NUMBER
113 ,x_return_status OUT NOCOPY VARCHAR2
114 ,x_msg_count OUT NOCOPY NUMBER
115 ,x_msg_data OUT NOCOPY VARCHAR2
116 );
117
118 PROCEDURE process_order(
119 p_api_version_number IN NUMBER
120 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
121 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
122 ,p_party_site_id IN NUMBER
123 ,p_partner_party_id IN NUMBER
124 ,p_currency_code IN VARCHAR2
125 ,p_contact_party_id IN NUMBER
126 ,p_partner_account_id IN NUMBER
127 ,p_enrl_req_id IN JTF_NUMBER_TABLE
128 ,x_return_status OUT NOCOPY VARCHAR2
129 ,x_msg_count OUT NOCOPY NUMBER
130 ,x_msg_data OUT NOCOPY VARCHAR2
131 );
132
133
134 PROCEDURE cancel_order(
135 p_api_version_number IN NUMBER
136 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
137 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
138 ,p_order_header_id IN NUMBER
139 ,p_set_moac_context IN VARCHAR2 := 'Y'
140 ,x_return_status OUT NOCOPY VARCHAR2
141 ,x_msg_count OUT NOCOPY NUMBER
142 ,x_msg_data OUT NOCOPY VARCHAR2
143 );
144
145
146 PROCEDURE cancel_order(
147 p_api_version_number IN NUMBER
148 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
149 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
150 ,p_enrl_req_id IN JTF_NUMBER_TABLE
151 ,x_return_status OUT NOCOPY VARCHAR2
152 ,x_msg_count OUT NOCOPY NUMBER
153 ,x_msg_data OUT NOCOPY VARCHAR2
154 );
155
156
157 PROCEDURE book_order(
158 p_api_version_number IN NUMBER
159 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
160 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
161 ,p_order_header_id IN NUMBER
162 ,x_return_status OUT NOCOPY VARCHAR2
163 ,x_msg_count OUT NOCOPY NUMBER
164 ,x_msg_data OUT NOCOPY VARCHAR2
165 );
166
167 PROCEDURE Order_Debug_On;
168
169
170
171
172 END PV_ORDER_MGMT_PVT;