1: PACKAGE BODY DPP_BPEL_POPCUSTCLAIM AS
2: /* $Header: dppvbpcb.pls 120.2 2008/02/12 09:52:58 vdewan noship $ */
3: FUNCTION PL_TO_SQL10(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUST_HDR_REC_TYPE)
4: RETURN DPP_CUSTOMERCLAIMS_PVT_DPP_C10 IS
5: aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_C10;
125: P_CUSTOMER_TBL DPP_CUSTOMERCLAIMS_PVT_DPP_11) IS
126: P_CUST_HDR_REC_ DPP_CUSTOMERCLAIMS_PVT.DPP_CUST_HDR_REC_TYPE;
127: P_CUSTOMER_TBL_ DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_TBL_TYPE;
128: BEGIN
129: P_CUST_HDR_REC_ := DPP_BPEL_POPCUSTCLAIM.SQL_TO_PL10(P_CUST_HDR_REC);
130: P_CUSTOMER_TBL_ := DPP_BPEL_POPCUSTCLAIM.SQL_TO_PL11(P_CUSTOMER_TBL);
131: DPP_CUSTOMERCLAIMS_PVT.POPULATE_CUSTOMERPRICE(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_CUST_HDR_REC_,P_CUSTOMER_TBL_);
132: END DPP_CUSTOMERCLAIMS_PVT$POPULA;
133:
126: P_CUST_HDR_REC_ DPP_CUSTOMERCLAIMS_PVT.DPP_CUST_HDR_REC_TYPE;
127: P_CUSTOMER_TBL_ DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_TBL_TYPE;
128: BEGIN
129: P_CUST_HDR_REC_ := DPP_BPEL_POPCUSTCLAIM.SQL_TO_PL10(P_CUST_HDR_REC);
130: P_CUSTOMER_TBL_ := DPP_BPEL_POPCUSTCLAIM.SQL_TO_PL11(P_CUSTOMER_TBL);
131: DPP_CUSTOMERCLAIMS_PVT.POPULATE_CUSTOMERPRICE(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_CUST_HDR_REC_,P_CUSTOMER_TBL_);
132: END DPP_CUSTOMERCLAIMS_PVT$POPULA;
133:
134: END DPP_BPEL_POPCUSTCLAIM;
130: P_CUSTOMER_TBL_ := DPP_BPEL_POPCUSTCLAIM.SQL_TO_PL11(P_CUSTOMER_TBL);
131: DPP_CUSTOMERCLAIMS_PVT.POPULATE_CUSTOMERPRICE(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_CUST_HDR_REC_,P_CUSTOMER_TBL_);
132: END DPP_CUSTOMERCLAIMS_PVT$POPULA;
133:
134: END DPP_BPEL_POPCUSTCLAIM;