[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_UPDATEPO
Source
1 PACKAGE BODY DPP_BPEL_UPDATEPO AS
2 /* $Header: dppvbudb.pls 120.3 2007/12/18 13:18:00 assoni noship $ */
3 FUNCTION PL_TO_SQL14(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_TXN_HDR_REC_TYPE)
4 RETURN DPP_PURCHASEPRICE_PVT_DPP_TXN IS
5 aSqlItem DPP_PURCHASEPRICE_PVT_DPP_TXN;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_PURCHASEPRICE_PVT_DPP_TXN(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
9 aSqlItem.TRANSACTION_HEADER_ID := aPlsqlItem.TRANSACTION_HEADER_ID;
10 aSqlItem.TRANSACTION_NUMBER := aPlsqlItem.TRANSACTION_NUMBER;
11 aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
12 aSqlItem.VENDOR_ID := aPlsqlItem.VENDOR_ID;
13 aSqlItem.EXECUTION_DETAIL_ID := aPlsqlItem.EXECUTION_DETAIL_ID;
14 aSqlItem.PROVIDER_PROCESS_ID := aPlsqlItem.PROVIDER_PROCESS_ID;
15 aSqlItem.PROVIDER_PROCESS_INSTANCE_ID := aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID;
16 aSqlItem.LAST_UPDATED_BY := aPlsqlItem.LAST_UPDATED_BY;
17 aSqlItem.ATTRIBUTE_CATEGORY := aPlsqlItem.ATTRIBUTE_CATEGORY;
18 aSqlItem.ATTRIBUTE1 := aPlsqlItem.ATTRIBUTE1;
19 aSqlItem.ATTRIBUTE2 := aPlsqlItem.ATTRIBUTE2;
20 aSqlItem.ATTRIBUTE3 := aPlsqlItem.ATTRIBUTE3;
21 aSqlItem.ATTRIBUTE4 := aPlsqlItem.ATTRIBUTE4;
22 aSqlItem.ATTRIBUTE5 := aPlsqlItem.ATTRIBUTE5;
23 aSqlItem.ATTRIBUTE6 := aPlsqlItem.ATTRIBUTE6;
24 aSqlItem.ATTRIBUTE7 := aPlsqlItem.ATTRIBUTE7;
25 aSqlItem.ATTRIBUTE8 := aPlsqlItem.ATTRIBUTE8;
26 aSqlItem.ATTRIBUTE9 := aPlsqlItem.ATTRIBUTE9;
27 aSqlItem.ATTRIBUTE10 := aPlsqlItem.ATTRIBUTE10;
28 aSqlItem.ATTRIBUTE11 := aPlsqlItem.ATTRIBUTE11;
29 aSqlItem.ATTRIBUTE12 := aPlsqlItem.ATTRIBUTE12;
30 aSqlItem.ATTRIBUTE13 := aPlsqlItem.ATTRIBUTE13;
31 aSqlItem.ATTRIBUTE14 := aPlsqlItem.ATTRIBUTE14;
32 aSqlItem.ATTRIBUTE15 := aPlsqlItem.ATTRIBUTE15;
33 RETURN aSqlItem;
34 END PL_TO_SQL14;
35 FUNCTION SQL_TO_PL14(aSqlItem DPP_PURCHASEPRICE_PVT_DPP_TXN)
36 RETURN DPP_PURCHASEPRICE_PVT.DPP_TXN_HDR_REC_TYPE IS
37 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_TXN_HDR_REC_TYPE;
38 BEGIN
39 aPlsqlItem.TRANSACTION_HEADER_ID := aSqlItem.TRANSACTION_HEADER_ID;
40 aPlsqlItem.TRANSACTION_NUMBER := aSqlItem.TRANSACTION_NUMBER;
41 aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
42 aPlsqlItem.VENDOR_ID := aSqlItem.VENDOR_ID;
43 aPlsqlItem.EXECUTION_DETAIL_ID := aSqlItem.EXECUTION_DETAIL_ID;
44 aPlsqlItem.PROVIDER_PROCESS_ID := aSqlItem.PROVIDER_PROCESS_ID;
45 aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID := aSqlItem.PROVIDER_PROCESS_INSTANCE_ID;
46 aPlsqlItem.LAST_UPDATED_BY := aSqlItem.LAST_UPDATED_BY;
47 aPlsqlItem.ATTRIBUTE_CATEGORY := aSqlItem.ATTRIBUTE_CATEGORY;
48 aPlsqlItem.ATTRIBUTE1 := aSqlItem.ATTRIBUTE1;
49 aPlsqlItem.ATTRIBUTE2 := aSqlItem.ATTRIBUTE2;
50 aPlsqlItem.ATTRIBUTE3 := aSqlItem.ATTRIBUTE3;
51 aPlsqlItem.ATTRIBUTE4 := aSqlItem.ATTRIBUTE4;
52 aPlsqlItem.ATTRIBUTE5 := aSqlItem.ATTRIBUTE5;
53 aPlsqlItem.ATTRIBUTE6 := aSqlItem.ATTRIBUTE6;
54 aPlsqlItem.ATTRIBUTE7 := aSqlItem.ATTRIBUTE7;
55 aPlsqlItem.ATTRIBUTE8 := aSqlItem.ATTRIBUTE8;
56 aPlsqlItem.ATTRIBUTE9 := aSqlItem.ATTRIBUTE9;
57 aPlsqlItem.ATTRIBUTE10 := aSqlItem.ATTRIBUTE10;
58 aPlsqlItem.ATTRIBUTE11 := aSqlItem.ATTRIBUTE11;
59 aPlsqlItem.ATTRIBUTE12 := aSqlItem.ATTRIBUTE12;
60 aPlsqlItem.ATTRIBUTE13 := aSqlItem.ATTRIBUTE13;
61 aPlsqlItem.ATTRIBUTE14 := aSqlItem.ATTRIBUTE14;
62 aPlsqlItem.ATTRIBUTE15 := aSqlItem.ATTRIBUTE15;
63 RETURN aPlsqlItem;
64 END SQL_TO_PL14;
65 FUNCTION PL_TO_SQL15(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_LINE_REC_TYPE)
66 RETURN DPP_PURCHASEPRICE_PVT_DPP_P20 IS
67 aSqlItem DPP_PURCHASEPRICE_PVT_DPP_P20;
68 BEGIN
69 -- initialize the object
70 aSqlItem := DPP_PURCHASEPRICE_PVT_DPP_P20(NULL, NULL, NULL, NULL);
71 aSqlItem.DOCUMENT_NUMBER := aPlsqlItem.DOCUMENT_NUMBER;
72 aSqlItem.DOCUMENT_TYPE := aPlsqlItem.DOCUMENT_TYPE;
73 aSqlItem.LINE_NUMBER := aPlsqlItem.LINE_NUMBER;
74 aSqlItem.REASON_FOR_FAILURE := aPlsqlItem.REASON_FOR_FAILURE;
75 RETURN aSqlItem;
76 END PL_TO_SQL15;
77 FUNCTION SQL_TO_PL16(aSqlItem DPP_PURCHASEPRICE_PVT_DPP_P20)
78 RETURN DPP_PURCHASEPRICE_PVT.DPP_PO_LINE_REC_TYPE IS
79 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_LINE_REC_TYPE;
80 BEGIN
81 aPlsqlItem.DOCUMENT_NUMBER := aSqlItem.DOCUMENT_NUMBER;
82 aPlsqlItem.DOCUMENT_TYPE := aSqlItem.DOCUMENT_TYPE;
83 aPlsqlItem.LINE_NUMBER := aSqlItem.LINE_NUMBER;
84 aPlsqlItem.REASON_FOR_FAILURE := aSqlItem.REASON_FOR_FAILURE;
85 RETURN aPlsqlItem;
86 END SQL_TO_PL16;
87 FUNCTION PL_TO_SQL16(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_LINE_TBL_TYPE)
88 RETURN DPPPURCHASEPRICEPVTDPPIT9_DPP IS
89 aSqlItem DPPPURCHASEPRICEPVTDPPIT9_DPP;
90 BEGIN
91 -- initialize the table
92 aSqlItem := DPPPURCHASEPRICEPVTDPPIT9_DPP();
93 aSqlItem.EXTEND(aPlsqlItem.COUNT);
94 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
95 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL15(aPlsqlItem(I));
96 END LOOP;
97 RETURN aSqlItem;
98 END PL_TO_SQL16;
99 FUNCTION SQL_TO_PL17(aSqlItem DPPPURCHASEPRICEPVTDPPIT9_DPP)
100 RETURN DPP_PURCHASEPRICE_PVT.DPP_PO_LINE_TBL_TYPE IS
101 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_LINE_TBL_TYPE;
102 BEGIN
103 FOR I IN 1..aSqlItem.COUNT LOOP
104 aPlsqlItem(I) := SQL_TO_PL16(aSqlItem(I));
105 END LOOP;
106 RETURN aPlsqlItem;
107 END SQL_TO_PL17;
108 FUNCTION PL_TO_SQL17(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_ITEM_COST_REC_TYPE)
109 RETURN DPP_PURCHASEPRICE_PVT_DPP_IT9 IS
110 aSqlItem DPP_PURCHASEPRICE_PVT_DPP_IT9;
111 BEGIN
112 -- initialize the object
113 aSqlItem := DPP_PURCHASEPRICE_PVT_DPP_IT9(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
114 aSqlItem.TRANSACTION_LINE_ID := aPlsqlItem.TRANSACTION_LINE_ID;
115 aSqlItem.INVENTORY_ITEM_ID := aPlsqlItem.INVENTORY_ITEM_ID;
116 aSqlItem.ITEM_NUMBER := aPlsqlItem.ITEM_NUMBER;
117 aSqlItem.NEW_PRICE := aPlsqlItem.NEW_PRICE;
118 aSqlItem.CURRENCY := aPlsqlItem.CURRENCY;
119 aSqlItem.UOM := aPlsqlItem.UOM;
120 aSqlItem.PO_LINE_TBL := PL_TO_SQL16(aPlsqlItem.PO_LINE_TBL);
121 aSqlItem.ATTRIBUTE_CATEGORY := aPlsqlItem.ATTRIBUTE_CATEGORY;
122 aSqlItem.ATTRIBUTE1 := aPlsqlItem.ATTRIBUTE1;
123 aSqlItem.ATTRIBUTE2 := aPlsqlItem.ATTRIBUTE2;
124 aSqlItem.ATTRIBUTE3 := aPlsqlItem.ATTRIBUTE3;
125 aSqlItem.ATTRIBUTE4 := aPlsqlItem.ATTRIBUTE4;
126 aSqlItem.ATTRIBUTE5 := aPlsqlItem.ATTRIBUTE5;
127 aSqlItem.ATTRIBUTE6 := aPlsqlItem.ATTRIBUTE6;
128 aSqlItem.ATTRIBUTE7 := aPlsqlItem.ATTRIBUTE7;
129 aSqlItem.ATTRIBUTE8 := aPlsqlItem.ATTRIBUTE8;
130 aSqlItem.ATTRIBUTE9 := aPlsqlItem.ATTRIBUTE9;
131 aSqlItem.ATTRIBUTE10 := aPlsqlItem.ATTRIBUTE10;
132 aSqlItem.ATTRIBUTE11 := aPlsqlItem.ATTRIBUTE11;
133 aSqlItem.ATTRIBUTE12 := aPlsqlItem.ATTRIBUTE12;
134 aSqlItem.ATTRIBUTE13 := aPlsqlItem.ATTRIBUTE13;
135 aSqlItem.ATTRIBUTE14 := aPlsqlItem.ATTRIBUTE14;
136 aSqlItem.ATTRIBUTE15 := aPlsqlItem.ATTRIBUTE15;
137 aSqlItem.UPDATE_STATUS := aPlsqlItem.UPDATE_STATUS;
138 RETURN aSqlItem;
139 END PL_TO_SQL17;
140 FUNCTION SQL_TO_PL18(aSqlItem DPP_PURCHASEPRICE_PVT_DPP_IT9)
141 RETURN DPP_PURCHASEPRICE_PVT.DPP_ITEM_COST_REC_TYPE IS
142 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_ITEM_COST_REC_TYPE;
143 BEGIN
144 aPlsqlItem.TRANSACTION_LINE_ID := aSqlItem.TRANSACTION_LINE_ID;
145 aPlsqlItem.INVENTORY_ITEM_ID := aSqlItem.INVENTORY_ITEM_ID;
146 aPlsqlItem.ITEM_NUMBER := aSqlItem.ITEM_NUMBER;
147 aPlsqlItem.NEW_PRICE := aSqlItem.NEW_PRICE;
148 aPlsqlItem.CURRENCY := aSqlItem.CURRENCY;
149 aPlsqlItem.UOM := aSqlItem.UOM;
150 aPlsqlItem.PO_LINE_TBL := SQL_TO_PL17(aSqlItem.PO_LINE_TBL);
151 aPlsqlItem.ATTRIBUTE_CATEGORY := aSqlItem.ATTRIBUTE_CATEGORY;
152 aPlsqlItem.ATTRIBUTE1 := aSqlItem.ATTRIBUTE1;
153 aPlsqlItem.ATTRIBUTE2 := aSqlItem.ATTRIBUTE2;
154 aPlsqlItem.ATTRIBUTE3 := aSqlItem.ATTRIBUTE3;
155 aPlsqlItem.ATTRIBUTE4 := aSqlItem.ATTRIBUTE4;
156 aPlsqlItem.ATTRIBUTE5 := aSqlItem.ATTRIBUTE5;
157 aPlsqlItem.ATTRIBUTE6 := aSqlItem.ATTRIBUTE6;
158 aPlsqlItem.ATTRIBUTE7 := aSqlItem.ATTRIBUTE7;
159 aPlsqlItem.ATTRIBUTE8 := aSqlItem.ATTRIBUTE8;
160 aPlsqlItem.ATTRIBUTE9 := aSqlItem.ATTRIBUTE9;
161 aPlsqlItem.ATTRIBUTE10 := aSqlItem.ATTRIBUTE10;
162 aPlsqlItem.ATTRIBUTE11 := aSqlItem.ATTRIBUTE11;
163 aPlsqlItem.ATTRIBUTE12 := aSqlItem.ATTRIBUTE12;
164 aPlsqlItem.ATTRIBUTE13 := aSqlItem.ATTRIBUTE13;
165 aPlsqlItem.ATTRIBUTE14 := aSqlItem.ATTRIBUTE14;
166 aPlsqlItem.ATTRIBUTE15 := aSqlItem.ATTRIBUTE15;
167 aPlsqlItem.UPDATE_STATUS := aSqlItem.UPDATE_STATUS;
168 RETURN aPlsqlItem;
169 END SQL_TO_PL18;
170 FUNCTION PL_TO_SQL18(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_ITEM_COST_TBL_TYPE)
171 RETURN DPP_PURCHASEPRICE_PVT_DPP_ITE IS
172 aSqlItem DPP_PURCHASEPRICE_PVT_DPP_ITE;
173 BEGIN
174 -- initialize the table
175 aSqlItem := DPP_PURCHASEPRICE_PVT_DPP_ITE();
176 aSqlItem.EXTEND(aPlsqlItem.COUNT);
177 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
178 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL17(aPlsqlItem(I));
179 END LOOP;
180 RETURN aSqlItem;
181 END PL_TO_SQL18;
182 FUNCTION SQL_TO_PL15(aSqlItem DPP_PURCHASEPRICE_PVT_DPP_ITE)
183 RETURN DPP_PURCHASEPRICE_PVT.DPP_ITEM_COST_TBL_TYPE IS
184 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_ITEM_COST_TBL_TYPE;
185 BEGIN
186 FOR I IN 1..aSqlItem.COUNT LOOP
187 aPlsqlItem(I) := SQL_TO_PL18(aSqlItem(I));
188 END LOOP;
189 RETURN aPlsqlItem;
190 END SQL_TO_PL15;
191
192 PROCEDURE DPP_PURCHASEPRICE_PVT$UPDATE_ (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,
193 P_VALIDATION_LEVEL NUMBER,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,
194 X_MSG_DATA OUT NOCOPY VARCHAR2,P_ITEM_PRICE_REC DPP_PURCHASEPRICE_PVT_DPP_TXN,P_ITEM_COST_TBL DPP_PURCHASEPRICE_PVT_DPP_ITE) IS
195 P_ITEM_PRICE_REC_ DPP_PURCHASEPRICE_PVT.DPP_TXN_HDR_REC_TYPE;
196 P_ITEM_COST_TBL_ DPP_PURCHASEPRICE_PVT.DPP_ITEM_COST_TBL_TYPE;
197 BEGIN
198 P_ITEM_PRICE_REC_ := DPP_BPEL_UPDATEPO.SQL_TO_PL14(P_ITEM_PRICE_REC);
199 P_ITEM_COST_TBL_ := DPP_BPEL_UPDATEPO.SQL_TO_PL15(P_ITEM_COST_TBL);
200 DPP_PURCHASEPRICE_PVT.UPDATE_PURCHASEPRICE(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_ITEM_PRICE_REC_,P_ITEM_COST_TBL_);
201 END DPP_PURCHASEPRICE_PVT$UPDATE_;
202
203 END DPP_BPEL_UPDATEPO;