[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_GETPODATA
Source
1 PACKAGE BODY DPP_BPEL_GETPODATA AS
2 /* $Header: dppvbufb.pls 120.4 2011/07/14 10:57:02 rvkondur ship $ */
3 FUNCTION PL_TO_SQL11(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_REC_TYPE)
4 RETURN DPP_PURCHASEPRICE_PVT_DPP_PO_ IS
5 aSqlItem DPP_PURCHASEPRICE_PVT_DPP_PO_;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_PURCHASEPRICE_PVT_DPP_PO_(NULL, NULL, NULL, NULL, NULL, NULL, NULL);
9 aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
10 aSqlItem.VENDOR_ID := aPlsqlItem.VENDOR_ID;
11 aSqlItem.VENDOR_SITE_ID := aPlsqlItem.VENDOR_SITE_ID;
12 aSqlItem.VENDOR_NUMBER := aPlsqlItem.VENDOR_NUMBER;
13 aSqlItem.VENDOR_NAME := aPlsqlItem.VENDOR_NAME;
14 aSqlItem.VENDOR_SITE_CODE := aPlsqlItem.VENDOR_SITE_CODE;
15 aSqlItem.OPERATING_UNIT := aPlsqlItem.OPERATING_UNIT;
16 RETURN aSqlItem;
17 END PL_TO_SQL11;
18 FUNCTION SQL_TO_PL11(aSqlItem DPP_PURCHASEPRICE_PVT_DPP_PO_)
19 RETURN DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_REC_TYPE IS
20 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_REC_TYPE;
21 BEGIN
22 aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
23 aPlsqlItem.VENDOR_ID := aSqlItem.VENDOR_ID;
24 aPlsqlItem.VENDOR_SITE_ID := aSqlItem.VENDOR_SITE_ID;
25 aPlsqlItem.VENDOR_NUMBER := aSqlItem.VENDOR_NUMBER;
26 aPlsqlItem.VENDOR_NAME := aSqlItem.VENDOR_NAME;
27 aPlsqlItem.VENDOR_SITE_CODE := aSqlItem.VENDOR_SITE_CODE;
28 aPlsqlItem.OPERATING_UNIT := aSqlItem.OPERATING_UNIT;
29 RETURN aPlsqlItem;
30 END SQL_TO_PL11;
31 FUNCTION PL_TO_SQL13(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_DETAILS_REC_TYPE)
32 RETURN DPP_PURCHASEPRICE_PVT_DPP_P13 IS
33 aSqlItem DPP_PURCHASEPRICE_PVT_DPP_P13;
34 BEGIN
35 -- initialize the object
36 aSqlItem := DPP_PURCHASEPRICE_PVT_DPP_P13(NULL, NULL, NULL, NULL);
37 aSqlItem.DOCUMENT_NUMBER := aPlsqlItem.DOCUMENT_NUMBER;
38 aSqlItem.DOCUMENT_TYPE := aPlsqlItem.DOCUMENT_TYPE;
39 aSqlItem.PO_LINE_NUMBER := aPlsqlItem.PO_LINE_NUMBER;
40 aSqlItem.AUTHORIZATION_STATUS := aPlsqlItem.AUTHORIZATION_STATUS;
41 RETURN aSqlItem;
42 END PL_TO_SQL13;
43 FUNCTION SQL_TO_PL13(aSqlItem DPP_PURCHASEPRICE_PVT_DPP_P13)
44 RETURN DPP_PURCHASEPRICE_PVT.DPP_PO_DETAILS_REC_TYPE IS
45 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_DETAILS_REC_TYPE;
46 BEGIN
47 aPlsqlItem.DOCUMENT_NUMBER := aSqlItem.DOCUMENT_NUMBER;
48 aPlsqlItem.DOCUMENT_TYPE := aSqlItem.DOCUMENT_TYPE;
49 aPlsqlItem.PO_LINE_NUMBER := aSqlItem.PO_LINE_NUMBER;
50 aPlsqlItem.AUTHORIZATION_STATUS := aSqlItem.AUTHORIZATION_STATUS;
51 RETURN aPlsqlItem;
52 END SQL_TO_PL13;
53 FUNCTION PL_TO_SQL14(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_DETAILS_TBL_TYPE)
54 RETURN DPPPURCHASEPRICEPVTDPPP11_DPP IS
55 aSqlItem DPPPURCHASEPRICEPVTDPPP11_DPP;
56 BEGIN
57 -- initialize the table
58 aSqlItem := DPPPURCHASEPRICEPVTDPPP11_DPP();
59 aSqlItem.EXTEND(aPlsqlItem.COUNT);
60 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
61 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL13(aPlsqlItem(I));
62 END LOOP;
63 RETURN aSqlItem;
64 END PL_TO_SQL14;
65 FUNCTION SQL_TO_PL14(aSqlItem DPPPURCHASEPRICEPVTDPPP11_DPP)
66 RETURN DPP_PURCHASEPRICE_PVT.DPP_PO_DETAILS_TBL_TYPE IS
67 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_DETAILS_TBL_TYPE;
68 BEGIN
69 FOR I IN 1..aSqlItem.COUNT LOOP
70 aPlsqlItem(I) := SQL_TO_PL13(aSqlItem(I));
71 END LOOP;
72 RETURN aPlsqlItem;
73 END SQL_TO_PL14;
74 FUNCTION PL_TO_SQL15(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_ITEM_REC_TYPE)
75 RETURN DPP_PURCHASEPRICE_PVT_DPP_P11 IS
76 aSqlItem DPP_PURCHASEPRICE_PVT_DPP_P11;
77 BEGIN
78 -- initialize the object
79 aSqlItem := DPP_PURCHASEPRICE_PVT_DPP_P11(NULL, NULL, NULL, NULL, NULL);
80 aSqlItem.INVENTORY_ITEM_ID := aPlsqlItem.INVENTORY_ITEM_ID;
81 aSqlItem.ITEM_NUMBER := aPlsqlItem.ITEM_NUMBER;
82 aSqlItem.NEW_PRICE := aPlsqlItem.NEW_PRICE;
83 aSqlItem.CURRENCY := aPlsqlItem.CURRENCY;
84 aSqlItem.PO_DETAILS_TBL := PL_TO_SQL14(aPlsqlItem.PO_DETAILS_TBL);
85 RETURN aSqlItem;
86 END PL_TO_SQL15;
87 FUNCTION SQL_TO_PL15(aSqlItem DPP_PURCHASEPRICE_PVT_DPP_P11)
88 RETURN DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_ITEM_REC_TYPE IS
89 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_ITEM_REC_TYPE;
90 BEGIN
91 aPlsqlItem.INVENTORY_ITEM_ID := aSqlItem.INVENTORY_ITEM_ID;
92 aPlsqlItem.ITEM_NUMBER := aSqlItem.ITEM_NUMBER;
93 aPlsqlItem.NEW_PRICE := aSqlItem.NEW_PRICE;
94 aPlsqlItem.CURRENCY := aSqlItem.CURRENCY;
95 aPlsqlItem.PO_DETAILS_TBL := SQL_TO_PL14(aSqlItem.PO_DETAILS_TBL);
96 RETURN aPlsqlItem;
97 END SQL_TO_PL15;
98 FUNCTION PL_TO_SQL12(aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_ITEM_TBL_TYPE)
99 RETURN DPP_PURCHASEPRICE_PVT_DPP_PO10 IS
100 aSqlItem DPP_PURCHASEPRICE_PVT_DPP_PO10;
101 BEGIN
102 -- initialize the table
103 aSqlItem := DPP_PURCHASEPRICE_PVT_DPP_PO10();
104 aSqlItem.EXTEND(aPlsqlItem.COUNT);
105 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
106 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL15(aPlsqlItem(I));
107 END LOOP;
108 RETURN aSqlItem;
109 END PL_TO_SQL12;
110 FUNCTION SQL_TO_PL12(aSqlItem DPP_PURCHASEPRICE_PVT_DPP_PO10)
111 RETURN DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_ITEM_TBL_TYPE IS
112 aPlsqlItem DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_ITEM_TBL_TYPE;
113 BEGIN
114 FOR I IN 1..aSqlItem.COUNT LOOP
115 aPlsqlItem(I) := SQL_TO_PL15(aSqlItem(I));
116 END LOOP;
117 RETURN aPlsqlItem;
118 END SQL_TO_PL12;
119
120 PROCEDURE DPP_PURCHASEPRICE_PVT$NOTIFY_ (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,
121 P_VALIDATION_LEVEL NUMBER,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,
122 X_MSG_DATA OUT NOCOPY VARCHAR2,P_PO_NOTIFY_HDR_REC IN OUT NOCOPY DPP_PURCHASEPRICE_PVT_DPP_PO_,
123 P_PO_NOTIFY_ITEM_TBL IN OUT NOCOPY DPP_PURCHASEPRICE_PVT_DPP_PO10) IS
124 P_PO_NOTIFY_HDR_REC_ DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_REC_TYPE;
125 P_PO_NOTIFY_ITEM_TBL_ DPP_PURCHASEPRICE_PVT.DPP_PO_NOTIFY_ITEM_TBL_TYPE;
126 BEGIN
127 P_PO_NOTIFY_HDR_REC_ := DPP_BPEL_GETPODATA.SQL_TO_PL11(P_PO_NOTIFY_HDR_REC);
128 P_PO_NOTIFY_ITEM_TBL_ := DPP_BPEL_GETPODATA.SQL_TO_PL12(P_PO_NOTIFY_ITEM_TBL);
129 DPP_PURCHASEPRICE_PVT.NOTIFY_PO(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,
130 X_MSG_COUNT,X_MSG_DATA,P_PO_NOTIFY_HDR_REC_,P_PO_NOTIFY_ITEM_TBL_);
131 P_PO_NOTIFY_HDR_REC := DPP_BPEL_GETPODATA.PL_TO_SQL11(P_PO_NOTIFY_HDR_REC_);
132 P_PO_NOTIFY_ITEM_TBL := DPP_BPEL_GETPODATA.PL_TO_SQL12(P_PO_NOTIFY_ITEM_TBL_);
133 END DPP_PURCHASEPRICE_PVT$NOTIFY_;
134
135 END DPP_BPEL_GETPODATA;