[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_GETIPL
Source
1 PACKAGE BODY DPP_BPEL_GETIPL AS
2 /* $Header: dppvbipb.pls 120.1 2007/12/12 06:00:10 sdasan noship $ */
3 FUNCTION PL_TO_SQL0(aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_REC_TYPE)
4 RETURN DPP_PRICING_PVT_DPP_PL_NOTIFY IS
5 aSqlItem DPP_PRICING_PVT_DPP_PL_NOTIFY;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_PRICING_PVT_DPP_PL_NOTIFY(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
9 aSqlItem.PP_TRANSACTION_NO := aPlsqlItem.PP_TRANSACTION_NO;
10 aSqlItem.EFFECTIVITY_DATE := aPlsqlItem.EFFECTIVITY_DATE;
11 aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
12 aSqlItem.VENDOR_ID := aPlsqlItem.VENDOR_ID;
13 aSqlItem.VENDOR_SITE_ID := aPlsqlItem.VENDOR_SITE_ID;
14 aSqlItem.VENDOR_NUMBER := aPlsqlItem.VENDOR_NUMBER;
15 aSqlItem.VENDOR_NAME := aPlsqlItem.VENDOR_NAME;
16 aSqlItem.VENDOR_SITE_CODE := aPlsqlItem.VENDOR_SITE_CODE;
17 aSqlItem.OPERATING_UNIT := aPlsqlItem.OPERATING_UNIT;
18 RETURN aSqlItem;
19 END PL_TO_SQL0;
20 FUNCTION SQL_TO_PL0(aSqlItem DPP_PRICING_PVT_DPP_PL_NOTIFY)
21 RETURN DPP_PRICING_PVT.DPP_PL_NOTIFY_REC_TYPE IS
22 aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_REC_TYPE;
23 BEGIN
24 aPlsqlItem.PP_TRANSACTION_NO := aSqlItem.PP_TRANSACTION_NO;
25 aPlsqlItem.EFFECTIVITY_DATE := aSqlItem.EFFECTIVITY_DATE;
26 aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
27 aPlsqlItem.VENDOR_ID := aSqlItem.VENDOR_ID;
28 aPlsqlItem.VENDOR_SITE_ID := aSqlItem.VENDOR_SITE_ID;
29 aPlsqlItem.VENDOR_NUMBER := aSqlItem.VENDOR_NUMBER;
30 aPlsqlItem.VENDOR_NAME := aSqlItem.VENDOR_NAME;
31 aPlsqlItem.VENDOR_SITE_CODE := aSqlItem.VENDOR_SITE_CODE;
32 aPlsqlItem.OPERATING_UNIT := aSqlItem.OPERATING_UNIT;
33 RETURN aPlsqlItem;
34 END SQL_TO_PL0;
35 FUNCTION PL_TO_SQL2(aPlsqlItem DPP_PRICING_PVT.DPP_OBJECT_NAME_TBL_TYPE)
36 RETURN DPPPRICINGPVTDPPPLNOTIF2_DPP_ IS
37 aSqlItem DPPPRICINGPVTDPPPLNOTIF2_DPP_;
38 BEGIN
39 -- initialize the table
40 aSqlItem := DPPPRICINGPVTDPPPLNOTIF2_DPP_();
41 aSqlItem.EXTEND(aPlsqlItem.COUNT);
42 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
43 aSqlItem(I + 1 - aPlsqlItem.FIRST) := aPlsqlItem(I);
44 END LOOP;
45 RETURN aSqlItem;
46 END PL_TO_SQL2;
47 FUNCTION SQL_TO_PL2(aSqlItem DPPPRICINGPVTDPPPLNOTIF2_DPP_)
48 RETURN DPP_PRICING_PVT.DPP_OBJECT_NAME_TBL_TYPE IS
49 aPlsqlItem DPP_PRICING_PVT.DPP_OBJECT_NAME_TBL_TYPE;
50 BEGIN
51 FOR I IN 1..aSqlItem.COUNT LOOP
52 aPlsqlItem(I) := aSqlItem(I);
53 END LOOP;
54 RETURN aPlsqlItem;
55 END SQL_TO_PL2;
56 FUNCTION PL_TO_SQL3(aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_REC_TYPE)
57 RETURN DPP_PRICING_PVT_DPP_PL_NOTIF2 IS
58 aSqlItem DPP_PRICING_PVT_DPP_PL_NOTIF2;
59 BEGIN
60 -- initialize the object
61 aSqlItem := DPP_PRICING_PVT_DPP_PL_NOTIF2(NULL, NULL, NULL, NULL, NULL);
62 aSqlItem.INVENTORY_ITEM_ID := aPlsqlItem.INVENTORY_ITEM_ID;
63 aSqlItem.ITEM_NUMBER := aPlsqlItem.ITEM_NUMBER;
64 aSqlItem.OBJECT_NAME_TBL := PL_TO_SQL2(aPlsqlItem.OBJECT_NAME_TBL);
65 aSqlItem.NEW_PRICE := aPlsqlItem.NEW_PRICE;
66 aSqlItem.CURRENCY_CODE := aPlsqlItem.CURRENCY_CODE;
67 RETURN aSqlItem;
68 END PL_TO_SQL3;
69 FUNCTION SQL_TO_PL3(aSqlItem DPP_PRICING_PVT_DPP_PL_NOTIF2)
70 RETURN DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_REC_TYPE IS
71 aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_REC_TYPE;
72 BEGIN
73 aPlsqlItem.INVENTORY_ITEM_ID := aSqlItem.INVENTORY_ITEM_ID;
74 aPlsqlItem.ITEM_NUMBER := aSqlItem.ITEM_NUMBER;
75 aPlsqlItem.OBJECT_NAME_TBL := SQL_TO_PL2(aSqlItem.OBJECT_NAME_TBL);
76 aPlsqlItem.NEW_PRICE := aSqlItem.NEW_PRICE;
77 aPlsqlItem.CURRENCY_CODE := aSqlItem.CURRENCY_CODE;
78 RETURN aPlsqlItem;
79 END SQL_TO_PL3;
80 FUNCTION PL_TO_SQL1(aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_TBL_TYPE)
81 RETURN DPP_PRICING_PVT_DPP_PL_NOTIF1 IS
82 aSqlItem DPP_PRICING_PVT_DPP_PL_NOTIF1;
83 BEGIN
84 -- initialize the table
85 aSqlItem := DPP_PRICING_PVT_DPP_PL_NOTIF1();
86 aSqlItem.EXTEND(aPlsqlItem.COUNT);
87 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
88 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL3(aPlsqlItem(I));
89 END LOOP;
90 RETURN aSqlItem;
91 END PL_TO_SQL1;
92 FUNCTION SQL_TO_PL1(aSqlItem DPP_PRICING_PVT_DPP_PL_NOTIF1)
93 RETURN DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_TBL_TYPE IS
94 aPlsqlItem DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_TBL_TYPE;
95 BEGIN
96 FOR I IN 1..aSqlItem.COUNT LOOP
97 aPlsqlItem(I) := SQL_TO_PL3(aSqlItem(I));
98 END LOOP;
99 RETURN aPlsqlItem;
100 END SQL_TO_PL1;
101
102 PROCEDURE DPP_PRICING_PVT$NOTIFY_INBOUN (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,P_VALIDATION_LEVEL NUMBER,
103 X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,X_MSG_DATA OUT NOCOPY VARCHAR2,
104 P_PL_NOTIFY_HDR_REC IN OUT NOCOPY DPP_PRICING_PVT_DPP_PL_NOTIFY,P_PL_NOTIFY_LINE_TBL IN OUT NOCOPY DPP_PRICING_PVT_DPP_PL_NOTIF1) IS
105 P_PL_NOTIFY_HDR_REC_ APPS.DPP_PRICING_PVT.DPP_PL_NOTIFY_REC_TYPE;
106 P_PL_NOTIFY_LINE_TBL_ APPS.DPP_PRICING_PVT.DPP_PL_NOTIFY_LINE_TBL_TYPE;
107 BEGIN
108 P_PL_NOTIFY_HDR_REC_ := DPP_BPEL_GETIPL.SQL_TO_PL0(P_PL_NOTIFY_HDR_REC);
109 P_PL_NOTIFY_LINE_TBL_ := DPP_BPEL_GETIPL.SQL_TO_PL1(P_PL_NOTIFY_LINE_TBL);
110 APPS.DPP_PRICING_PVT.NOTIFY_INBOUNDPRICELISTS(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_PL_NOTIFY_HDR_REC_,P_PL_NOTIFY_LINE_TBL_);
111 P_PL_NOTIFY_HDR_REC := DPP_BPEL_GETIPL.PL_TO_SQL0(P_PL_NOTIFY_HDR_REC_);
112 P_PL_NOTIFY_LINE_TBL := DPP_BPEL_GETIPL.PL_TO_SQL1(P_PL_NOTIFY_LINE_TBL_);
113 END DPP_PRICING_PVT$NOTIFY_INBOUN;
114
115 END DPP_BPEL_GETIPL;