1 package ibu_order_capture
2 /* $Header: ibuordrs.pls 115.19.1159.1 2003/05/23 22:21:52 appldev ship $ */
3 AUTHID CURRENT_USER as
4
5 TYPE HEADER_REC_TYPE IS RECORD (
6 QUOTE_HEADER_ID NUMBER := FND_API.G_MISS_NUM,
7 ORG_ID NUMBER := FND_API.G_MISS_NUM,
8 QUOTE_SOURCE_CODE VARCHAR2(240) := FND_API.G_MISS_CHAR,
9 PARTY_ID NUMBER := FND_API.G_MISS_NUM, --pass in
10 CUST_ACCOUNT_ID NUMBER := FND_API.G_MISS_NUM, --pass in
11 ORG_CONTACT_ID NUMBER := FND_API.G_MISS_NUM, --pass in
12 INVOICE_TO_PARTY_SITE_ID NUMBER := FND_API.G_MISS_NUM, --pass in
13 ORDER_TYPE_ID NUMBER := FND_API.G_MISS_NUM,
14 QUOTE_CATEGORY_CODE VARCHAR2(240) := FND_API.G_MISS_CHAR,
15 ORDERED_DATE DATE := FND_API.G_MISS_DATE,
16 EMPLOYEE_PERSON_ID NUMBER := FND_API.G_MISS_NUM,
17 PRICE_LIST_ID NUMBER := FND_API.G_MISS_NUM,
18 CURRENCY_CODE VARCHAR2(15) := FND_API.G_MISS_CHAR
19 );
20
21 TYPE HEADER_TBL_TYPE IS TABLE OF HEADER_REC_TYPE
22 INDEX BY BINARY_INTEGER;
23
24 TYPE HEADER_SHIPMENT_REC_TYPE IS RECORD (
25 SCHEDULE_SHIP_DATE DATE := FND_API.G_MISS_DATE, --pass in
26 REQUEST_DATE DATE := FND_API.G_MISS_DATE,
27 SHIP_TO_PARTY_SITE_ID NUMBER := FND_API.G_MISS_NUM, --pass in
28 SHIP_TO_PARTY_ID NUMBER := FND_API.G_MISS_NUM,
29 FREIGHT_CARRIER_CODE VARCHAR2(30) := FND_API.G_MISS_CHAR, --pass in
30 QUANTITY NUMBER := FND_API.G_MISS_NUM
31 );
32
33 TYPE LINE_REC_TYPE IS RECORD (
34 LINE_ID NUMBER, --pass in
35 OPERATION_CODE VARCHAR2(30) := FND_API.G_MISS_CHAR,
36 ORG_ID NUMBER := FND_API.G_MISS_NUM,
37 LINE_CATEGORY_CODE VARCHAR2(30) := FND_API.G_MISS_CHAR,
38 ORDER_LINE_TYPE_ID NUMBER := FND_API.G_MISS_NUM,
39 INVOICE_TO_PARTY_SITE_ID NUMBER := FND_API.G_MISS_NUM, --pass in
40 INVOICE_TO_PARTY_ID NUMBER := FND_API.G_MISS_NUM,
41 ORGANIZATION_ID NUMBER := FND_API.G_MISS_NUM,
42 INVENTORY_ITEM_ID NUMBER := FND_API.G_MISS_NUM,
43 QUANTITY NUMBER := FND_API.G_MISS_NUM, --pass in
44 UOM_CODE VARCHAR2(3) := FND_API.G_MISS_CHAR,
45 PRICE_LIST_ID NUMBER := FND_API.G_MISS_NUM,
46 CURRENCY_CODE VARCHAR2(15) := FND_API.G_MISS_CHAR,
47 LINE_LIST_PRICE NUMBER := FND_API.G_MISS_NUM,
48 LINE_QUOTE_PRICE NUMBER := FND_API.G_MISS_NUM
49 );
50
51 TYPE LINE_TBL_TYPE IS TABLE OF LINE_REC_TYPE
52 INDEX BY BINARY_INTEGER;
53
54
55 TYPE LINE_DTL_REC_TYPE is RECORD (
56 OPERATION_CODE VARCHAR2(30) := FND_API.G_MISS_CHAR,
57 QTE_LINE_INDEX NUMBER := FND_API.G_MISS_NUM,
58
59 RETURN_REF_TYPE VARCHAR2(30) := FND_API.G_MISS_CHAR,
60 RETURN_REF_HEADER_ID NUMBER := FND_API.G_MISS_NUM, --not used by om currently
61 RETURN_REF_LINE_ID NUMBER := FND_API.G_MISS_NUM, --not used by om currently
62
63
64 RETURN_ATTRIBUTE1 VARCHAR2(240) := FND_API.G_MISS_CHAR,
65 RETURN_ATTRIBUTE2 VARCHAR2(240) := FND_API.G_MISS_CHAR,
66 RETURN_ATTRIBUTE3 VARCHAR2(240) := FND_API.G_MISS_CHAR,
67 RETURN_ATTRIBUTE4 VARCHAR2(240) := FND_API.G_MISS_CHAR,
68 RETURN_REASON_CODE VARCHAR2(30) := FND_API.G_MISS_CHAR --pass in
69 );
70
71 TYPE LINE_DTL_TBL_TYPE IS TABLE OF LINE_DTL_REC_TYPE
72 INDEX BY BINARY_INTEGER;
73
74 TYPE LINE_SHIPMENT_REC_TYPE is RECORD (
75 OPERATION_CODE VARCHAR2(30) := FND_API.G_MISS_CHAR,
76 QTE_LINE_INDEX NUMBER := FND_API.G_MISS_NUM,
77 SCHEDULE_SHIP_DATE DATE := FND_API.G_MISS_DATE, --pass in
78 REQUEST_DATE DATE := FND_API.G_MISS_DATE,
79 SHIP_TO_PARTY_SITE_ID NUMBER := FND_API.G_MISS_NUM, --pass in
80 SHIP_TO_PARTY_ID NUMBER := FND_API.G_MISS_NUM,
81 FREIGHT_CARRIER_CODE VARCHAR2(30) := FND_API.G_MISS_CHAR, --pass in
82 QUANTITY NUMBER := FND_API.G_MISS_NUM --pass in
83
84 );
85
86
87 TYPE LINE_SHIPMENT_TBL_TYPE IS TABLE OF LINE_SHIPMENT_REC_TYPE
88 INDEX BY BINARY_INTEGER;
89 TYPE RETURN_HEADER_REC_TYPE IS RECORD (
90 ORDER_NUMBER NUMBER := FND_API.G_MISS_NUM,
91 ORDER_HEADER_ID NUMBER := FND_API.G_MISS_NUM,
92 STATUS VARCHAR2(150) := FND_API.G_MISS_CHAR
93 );
94
95 TYPE RETURN_LINE_REC_TYPE IS RECORD (
96 ORDER_LINE_ID NUMBER := FND_API.G_MISS_NUM,
97 ORDER_HEADER_ID NUMBER := FND_API.G_MISS_NUM,
98 STATUS VARCHAR2(150) := FND_API.G_MISS_CHAR
99 );
100
101 TYPE RETURN_LINE_TBL_TYPE IS TABLE OF RETURN_LINE_REC_TYPE
102 INDEX BY BINARY_INTEGER;
103
104 PROCEDURE CREATE_RETURN (
105 p_api_version_number IN NUMBER,
106 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
107 p_commit IN VARCHAR := FND_API.G_FALSE,
108 p_header_id IN NUMBER,
109 HEADER_REC IN HEADER_REC_TYPE,
110 HEADER_SHIPMENT_REC IN HEADER_SHIPMENT_REC_TYPE,
111 LINE_TBL IN LINE_TBL_TYPE,
112 LINE_DTL_TBL IN LINE_DTL_TBL_TYPE,
113 LINE_SHIPMENT_TBL IN LINE_SHIPMENT_TBL_TYPE,
114 X_MSG_COUNT OUT NOCOPY NUMBER,
115 X_MSG_DATA OUT NOCOPY VARCHAR2,
116 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
117 X_RETURN_HEADER_REC OUT NOCOPY RETURN_HEADER_REC_TYPE,
118 X_RETURN_LINE_TBL OUT NOCOPY RETURN_LINE_TBL_TYPE
119 );
120
121 PROCEDURE Get_Messages (p_message_count IN NUMBER,
122 x_msgs OUT NOCOPY VARCHAR2);
123
124 FUNCTION GET_RETURN_LINES_TOTAL(
125 P_HEADER_ID IN NUMBER)
126 RETURN NUMBER;
127
128 end ibu_order_capture;