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_UPDATELISTPRICE

Source


1 PACKAGE BODY DPP_BPEL_UPDATELISTPRICE AS
2 /* $Header: dppvbulb.pls 120.2 2011/07/14 10:07:31 rvkondur ship $ */
3 	FUNCTION PL_TO_SQL22(aPlsqlItem DPP_LISTPRICE_PVT.DPP_TXN_HDR_REC_TYPE)
4  	RETURN DPP_LISTPRICE_PVT_DPP_TXN_H12 IS
5 	aSqlItem DPP_LISTPRICE_PVT_DPP_TXN_H12;
6 	BEGIN
7 		-- initialize the object
8 		aSqlItem := DPP_LISTPRICE_PVT_DPP_TXN_H12(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
9 		NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
10 		aSqlItem.TRANSACTION_HEADER_ID := aPlsqlItem.TRANSACTION_HEADER_ID;
11 		aSqlItem.TRANSACTION_NUMBER := aPlsqlItem.TRANSACTION_NUMBER;
12 		aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
13 		aSqlItem.VENDOR_ID := aPlsqlItem.VENDOR_ID;
14 		aSqlItem.EXECUTION_DETAIL_ID := aPlsqlItem.EXECUTION_DETAIL_ID;
15 		aSqlItem.PROVIDER_PROCESS_ID := aPlsqlItem.PROVIDER_PROCESS_ID;
16 		aSqlItem.PROVIDER_PROCESS_INSTANCE_ID := aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID;
17 		aSqlItem.LAST_UPDATED_BY := aPlsqlItem.LAST_UPDATED_BY;
18 		aSqlItem.ATTRIBUTE_CATEGORY := aPlsqlItem.ATTRIBUTE_CATEGORY;
19 		aSqlItem.ATTRIBUTE1 := aPlsqlItem.ATTRIBUTE1;
20 		aSqlItem.ATTRIBUTE2 := aPlsqlItem.ATTRIBUTE2;
21 		aSqlItem.ATTRIBUTE3 := aPlsqlItem.ATTRIBUTE3;
22 		aSqlItem.ATTRIBUTE4 := aPlsqlItem.ATTRIBUTE4;
23 		aSqlItem.ATTRIBUTE5 := aPlsqlItem.ATTRIBUTE5;
24 		aSqlItem.ATTRIBUTE6 := aPlsqlItem.ATTRIBUTE6;
25 		aSqlItem.ATTRIBUTE7 := aPlsqlItem.ATTRIBUTE7;
26 		aSqlItem.ATTRIBUTE8 := aPlsqlItem.ATTRIBUTE8;
27 		aSqlItem.ATTRIBUTE9 := aPlsqlItem.ATTRIBUTE9;
28 		aSqlItem.ATTRIBUTE10 := aPlsqlItem.ATTRIBUTE10;
29 		aSqlItem.ATTRIBUTE11 := aPlsqlItem.ATTRIBUTE11;
30 		aSqlItem.ATTRIBUTE12 := aPlsqlItem.ATTRIBUTE12;
31 		aSqlItem.ATTRIBUTE13 := aPlsqlItem.ATTRIBUTE13;
32 		aSqlItem.ATTRIBUTE14 := aPlsqlItem.ATTRIBUTE14;
33 		aSqlItem.ATTRIBUTE15 := aPlsqlItem.ATTRIBUTE15;
34 		RETURN aSqlItem;
35 	END PL_TO_SQL22;
36 	FUNCTION SQL_TO_PL22(aSqlItem DPP_LISTPRICE_PVT_DPP_TXN_H12)
37 	RETURN DPP_LISTPRICE_PVT.DPP_TXN_HDR_REC_TYPE IS
38 	aPlsqlItem DPP_LISTPRICE_PVT.DPP_TXN_HDR_REC_TYPE;
39 	BEGIN
40 		aPlsqlItem.TRANSACTION_HEADER_ID := aSqlItem.TRANSACTION_HEADER_ID;
41 		aPlsqlItem.TRANSACTION_NUMBER := aSqlItem.TRANSACTION_NUMBER;
42 		aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
43 		aPlsqlItem.VENDOR_ID := aSqlItem.VENDOR_ID;
44 		aPlsqlItem.EXECUTION_DETAIL_ID := aSqlItem.EXECUTION_DETAIL_ID;
45 		aPlsqlItem.PROVIDER_PROCESS_ID := aSqlItem.PROVIDER_PROCESS_ID;
46 		aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID := aSqlItem.PROVIDER_PROCESS_INSTANCE_ID;
47 		aPlsqlItem.LAST_UPDATED_BY := aSqlItem.LAST_UPDATED_BY;
48 		aPlsqlItem.ATTRIBUTE_CATEGORY := aSqlItem.ATTRIBUTE_CATEGORY;
49 		aPlsqlItem.ATTRIBUTE1 := aSqlItem.ATTRIBUTE1;
50 		aPlsqlItem.ATTRIBUTE2 := aSqlItem.ATTRIBUTE2;
51 		aPlsqlItem.ATTRIBUTE3 := aSqlItem.ATTRIBUTE3;
52 		aPlsqlItem.ATTRIBUTE4 := aSqlItem.ATTRIBUTE4;
53 		aPlsqlItem.ATTRIBUTE5 := aSqlItem.ATTRIBUTE5;
54 		aPlsqlItem.ATTRIBUTE6 := aSqlItem.ATTRIBUTE6;
55 		aPlsqlItem.ATTRIBUTE7 := aSqlItem.ATTRIBUTE7;
56 		aPlsqlItem.ATTRIBUTE8 := aSqlItem.ATTRIBUTE8;
57 		aPlsqlItem.ATTRIBUTE9 := aSqlItem.ATTRIBUTE9;
58 		aPlsqlItem.ATTRIBUTE10 := aSqlItem.ATTRIBUTE10;
59 		aPlsqlItem.ATTRIBUTE11 := aSqlItem.ATTRIBUTE11;
60 		aPlsqlItem.ATTRIBUTE12 := aSqlItem.ATTRIBUTE12;
61 		aPlsqlItem.ATTRIBUTE13 := aSqlItem.ATTRIBUTE13;
62 		aPlsqlItem.ATTRIBUTE14 := aSqlItem.ATTRIBUTE14;
63 		aPlsqlItem.ATTRIBUTE15 := aSqlItem.ATTRIBUTE15;
64 		RETURN aPlsqlItem;
65 	END SQL_TO_PL22;
66 	FUNCTION PL_TO_SQL23(aPlsqlItem DPP_LISTPRICE_PVT.DPP_TXN_LINE_REC_TYPE)
67  	RETURN DPP_LISTPRICE_PVT_DPP_TXN_L14 IS
68 	aSqlItem DPP_LISTPRICE_PVT_DPP_TXN_L14;
69 	BEGIN
70 		-- initialize the object
71 		aSqlItem := DPP_LISTPRICE_PVT_DPP_TXN_L14(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
72 		NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
73 		aSqlItem.TRANSACTION_LINE_ID := aPlsqlItem.TRANSACTION_LINE_ID;
74 		aSqlItem.INVENTORY_ITEM_ID := aPlsqlItem.INVENTORY_ITEM_ID;
75 		aSqlItem.ITEM_NUMBER := aPlsqlItem.ITEM_NUMBER;
76 		aSqlItem.NEW_PRICE := aPlsqlItem.NEW_PRICE;
77 		aSqlItem.CURRENCY := aPlsqlItem.CURRENCY;
78 		aSqlItem.UOM := aPlsqlItem.UOM;
79 		aSqlItem.ATTRIBUTE_CATEGORY := aPlsqlItem.ATTRIBUTE_CATEGORY;
80 		aSqlItem.ATTRIBUTE1 := aPlsqlItem.ATTRIBUTE1;
81 		aSqlItem.ATTRIBUTE2 := aPlsqlItem.ATTRIBUTE2;
82 		aSqlItem.ATTRIBUTE3 := aPlsqlItem.ATTRIBUTE3;
83 		aSqlItem.ATTRIBUTE4 := aPlsqlItem.ATTRIBUTE4;
84 		aSqlItem.ATTRIBUTE5 := aPlsqlItem.ATTRIBUTE5;
85 		aSqlItem.ATTRIBUTE6 := aPlsqlItem.ATTRIBUTE6;
86 		aSqlItem.ATTRIBUTE7 := aPlsqlItem.ATTRIBUTE7;
87 		aSqlItem.ATTRIBUTE8 := aPlsqlItem.ATTRIBUTE8;
88 		aSqlItem.ATTRIBUTE9 := aPlsqlItem.ATTRIBUTE9;
89 		aSqlItem.ATTRIBUTE10 := aPlsqlItem.ATTRIBUTE10;
90 		aSqlItem.ATTRIBUTE11 := aPlsqlItem.ATTRIBUTE11;
91 		aSqlItem.ATTRIBUTE12 := aPlsqlItem.ATTRIBUTE12;
92 		aSqlItem.ATTRIBUTE13 := aPlsqlItem.ATTRIBUTE13;
93 		aSqlItem.ATTRIBUTE14 := aPlsqlItem.ATTRIBUTE14;
94 		aSqlItem.ATTRIBUTE15 := aPlsqlItem.ATTRIBUTE15;
95 		aSqlItem.UPDATE_STATUS := aPlsqlItem.UPDATE_STATUS;
96 		aSqlItem.REASON_FOR_FAILURE := aPlsqlItem.REASON_FOR_FAILURE;
97 		RETURN aSqlItem;
98 	END PL_TO_SQL23;
99 	FUNCTION SQL_TO_PL24(aSqlItem DPP_LISTPRICE_PVT_DPP_TXN_L14)
100 	RETURN DPP_LISTPRICE_PVT.DPP_TXN_LINE_REC_TYPE IS
101 	aPlsqlItem DPP_LISTPRICE_PVT.DPP_TXN_LINE_REC_TYPE;
102 	BEGIN
103 		aPlsqlItem.TRANSACTION_LINE_ID := aSqlItem.TRANSACTION_LINE_ID;
104 		aPlsqlItem.INVENTORY_ITEM_ID := aSqlItem.INVENTORY_ITEM_ID;
105 		aPlsqlItem.ITEM_NUMBER := aSqlItem.ITEM_NUMBER;
106 		aPlsqlItem.NEW_PRICE := aSqlItem.NEW_PRICE;
107 		aPlsqlItem.CURRENCY := aSqlItem.CURRENCY;
108 		aPlsqlItem.UOM := aSqlItem.UOM;
109 		aPlsqlItem.ATTRIBUTE_CATEGORY := aSqlItem.ATTRIBUTE_CATEGORY;
110 		aPlsqlItem.ATTRIBUTE1 := aSqlItem.ATTRIBUTE1;
111 		aPlsqlItem.ATTRIBUTE2 := aSqlItem.ATTRIBUTE2;
112 		aPlsqlItem.ATTRIBUTE3 := aSqlItem.ATTRIBUTE3;
113 		aPlsqlItem.ATTRIBUTE4 := aSqlItem.ATTRIBUTE4;
114 		aPlsqlItem.ATTRIBUTE5 := aSqlItem.ATTRIBUTE5;
115 		aPlsqlItem.ATTRIBUTE6 := aSqlItem.ATTRIBUTE6;
116 		aPlsqlItem.ATTRIBUTE7 := aSqlItem.ATTRIBUTE7;
117 		aPlsqlItem.ATTRIBUTE8 := aSqlItem.ATTRIBUTE8;
118 		aPlsqlItem.ATTRIBUTE9 := aSqlItem.ATTRIBUTE9;
119 		aPlsqlItem.ATTRIBUTE10 := aSqlItem.ATTRIBUTE10;
120 		aPlsqlItem.ATTRIBUTE11 := aSqlItem.ATTRIBUTE11;
121 		aPlsqlItem.ATTRIBUTE12 := aSqlItem.ATTRIBUTE12;
122 		aPlsqlItem.ATTRIBUTE13 := aSqlItem.ATTRIBUTE13;
123 		aPlsqlItem.ATTRIBUTE14 := aSqlItem.ATTRIBUTE14;
124 		aPlsqlItem.ATTRIBUTE15 := aSqlItem.ATTRIBUTE15;
125 		aPlsqlItem.UPDATE_STATUS := aSqlItem.UPDATE_STATUS;
126 		aPlsqlItem.REASON_FOR_FAILURE := aSqlItem.REASON_FOR_FAILURE;
127 		RETURN aPlsqlItem;
128 	END SQL_TO_PL24;
129 	FUNCTION PL_TO_SQL24(aPlsqlItem DPP_LISTPRICE_PVT.DPP_TXN_LINE_TBL_TYPE)
130  	RETURN DPP_LISTPRICE_PVT_DPP_TXN_L13 IS
131 	aSqlItem DPP_LISTPRICE_PVT_DPP_TXN_L13;
132 	BEGIN
133 		-- initialize the table
134 		aSqlItem := DPP_LISTPRICE_PVT_DPP_TXN_L13();
135 		aSqlItem.EXTEND(aPlsqlItem.COUNT);
136 		FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
137 			aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL23(aPlsqlItem(I));
138 		END LOOP;
139 		RETURN aSqlItem;
140 	END PL_TO_SQL24;
141 	FUNCTION SQL_TO_PL23(aSqlItem DPP_LISTPRICE_PVT_DPP_TXN_L13)
142 	RETURN DPP_LISTPRICE_PVT.DPP_TXN_LINE_TBL_TYPE IS
143 	aPlsqlItem DPP_LISTPRICE_PVT.DPP_TXN_LINE_TBL_TYPE;
144 	BEGIN
145 		FOR I IN 1..aSqlItem.COUNT LOOP
146 			aPlsqlItem(I) := SQL_TO_PL24(aSqlItem(I));
147 		END LOOP;
148 		RETURN aPlsqlItem;
149 	END SQL_TO_PL23;
150 
151    PROCEDURE DPP_LISTPRICE_PVT$UPDATE_LIST (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,P_VALIDATION_LEVEL NUMBER,
152    X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,X_MSG_DATA OUT NOCOPY VARCHAR2,
153    P_TXN_HDR_REC DPP_LISTPRICE_PVT_DPP_TXN_H12,P_ITEM_COST_TBL DPP_LISTPRICE_PVT_DPP_TXN_L13) IS
154       P_TXN_HDR_REC_ DPP_LISTPRICE_PVT.DPP_TXN_HDR_REC_TYPE;
155       P_ITEM_COST_TBL_ DPP_LISTPRICE_PVT.DPP_TXN_LINE_TBL_TYPE;
156    BEGIN
157       P_TXN_HDR_REC_ := DPP_BPEL_UPDATELISTPRICE.SQL_TO_PL22(P_TXN_HDR_REC);
158       P_ITEM_COST_TBL_ := DPP_BPEL_UPDATELISTPRICE.SQL_TO_PL23(P_ITEM_COST_TBL);
159       DPP_LISTPRICE_PVT.UPDATE_LISTPRICE(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_TXN_HDR_REC_,P_ITEM_COST_TBL_);
160    END DPP_LISTPRICE_PVT$UPDATE_LIST;
161 
162 END DPP_BPEL_UPDATELISTPRICE;