eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
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;