1: PACKAGE BODY XX_BPEL_EBS11I10ATPCHECK AS
2: /* $Header: MSCATPJB.pls 120.0.12010000.1 2009/02/04 07:19:28 sbnaik noship $ */
3:
4: FUNCTION PL_TO_SQL1(aPlsqlItem MSC_ATP_BPEL.ATP_REC_SCALAR_TYP)
5: RETURN MSC_ATP_BPEL_ATP_REC_SCALAR_T IS
6: aSqlItem MSC_ATP_BPEL_ATP_REC_SCALAR_T;
7: BEGIN
8: -- initialize the object
1: PACKAGE BODY XX_BPEL_EBS11I10ATPCHECK AS
2: /* $Header: MSCATPJB.pls 120.0.12010000.1 2009/02/04 07:19:28 sbnaik noship $ */
3:
4: FUNCTION PL_TO_SQL1(aPlsqlItem MSC_ATP_BPEL.ATP_REC_SCALAR_TYP)
5: RETURN MSC_ATP_BPEL_ATP_REC_SCALAR_T IS
6: aSqlItem MSC_ATP_BPEL_ATP_REC_SCALAR_T;
7: BEGIN
8: -- initialize the object
9: aSqlItem := MSC_ATP_BPEL_ATP_REC_SCALAR_T(NULL, NULL, NULL, NULL, NULL,
2: /* $Header: MSCATPJB.pls 120.0.12010000.1 2009/02/04 07:19:28 sbnaik noship $ */
3:
4: FUNCTION PL_TO_SQL1(aPlsqlItem MSC_ATP_BPEL.ATP_REC_SCALAR_TYP)
5: RETURN MSC_ATP_BPEL_ATP_REC_SCALAR_T IS
6: aSqlItem MSC_ATP_BPEL_ATP_REC_SCALAR_T;
7: BEGIN
8: -- initialize the object
9: aSqlItem := MSC_ATP_BPEL_ATP_REC_SCALAR_T(NULL, NULL, NULL, NULL, NULL,
10: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
5: RETURN MSC_ATP_BPEL_ATP_REC_SCALAR_T IS
6: aSqlItem MSC_ATP_BPEL_ATP_REC_SCALAR_T;
7: BEGIN
8: -- initialize the object
9: aSqlItem := MSC_ATP_BPEL_ATP_REC_SCALAR_T(NULL, NULL, NULL, NULL, NULL,
10: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
11: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
12: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
13: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
171: aSqlItem.PARTY_SITE_ID := aPlsqlItem.PARTY_SITE_ID;
172: RETURN aSqlItem;
173: END PL_TO_SQL1;
174:
175: FUNCTION SQL_TO_PL1(aSqlItem MSC_ATP_BPEL_ATP_REC_SCALAR_T)
176: RETURN MSC_ATP_BPEL.ATP_REC_SCALAR_TYP IS
177: aPlsqlItem MSC_ATP_BPEL.ATP_REC_SCALAR_TYP;
178: BEGIN
179: aPlsqlItem.ROW_ID := aSqlItem.ROW_ID;
172: RETURN aSqlItem;
173: END PL_TO_SQL1;
174:
175: FUNCTION SQL_TO_PL1(aSqlItem MSC_ATP_BPEL_ATP_REC_SCALAR_T)
176: RETURN MSC_ATP_BPEL.ATP_REC_SCALAR_TYP IS
177: aPlsqlItem MSC_ATP_BPEL.ATP_REC_SCALAR_TYP;
178: BEGIN
179: aPlsqlItem.ROW_ID := aSqlItem.ROW_ID;
180: aPlsqlItem.INSTANCE_ID := aSqlItem.INSTANCE_ID;
173: END PL_TO_SQL1;
174:
175: FUNCTION SQL_TO_PL1(aSqlItem MSC_ATP_BPEL_ATP_REC_SCALAR_T)
176: RETURN MSC_ATP_BPEL.ATP_REC_SCALAR_TYP IS
177: aPlsqlItem MSC_ATP_BPEL.ATP_REC_SCALAR_TYP;
178: BEGIN
179: aPlsqlItem.ROW_ID := aSqlItem.ROW_ID;
180: aPlsqlItem.INSTANCE_ID := aSqlItem.INSTANCE_ID;
181: aPlsqlItem.INVENTORY_ITEM_ID := aSqlItem.INVENTORY_ITEM_ID;
326: aPlsqlItem.PARTY_SITE_ID := aSqlItem.PARTY_SITE_ID;
327: RETURN aPlsqlItem;
328: END SQL_TO_PL1;
329:
330: FUNCTION PL_TO_SQL0(aPlsqlItem MSC_ATP_BPEL.ATP_REC_TABLE_TYP)
331: RETURN MSC_ATP_BPEL_ATP_REC_TABLE_TY IS
332: aSqlItem MSC_ATP_BPEL_ATP_REC_TABLE_TY;
333: BEGIN
334: -- initialize the table
327: RETURN aPlsqlItem;
328: END SQL_TO_PL1;
329:
330: FUNCTION PL_TO_SQL0(aPlsqlItem MSC_ATP_BPEL.ATP_REC_TABLE_TYP)
331: RETURN MSC_ATP_BPEL_ATP_REC_TABLE_TY IS
332: aSqlItem MSC_ATP_BPEL_ATP_REC_TABLE_TY;
333: BEGIN
334: -- initialize the table
335: aSqlItem := MSC_ATP_BPEL_ATP_REC_TABLE_TY();
328: END SQL_TO_PL1;
329:
330: FUNCTION PL_TO_SQL0(aPlsqlItem MSC_ATP_BPEL.ATP_REC_TABLE_TYP)
331: RETURN MSC_ATP_BPEL_ATP_REC_TABLE_TY IS
332: aSqlItem MSC_ATP_BPEL_ATP_REC_TABLE_TY;
333: BEGIN
334: -- initialize the table
335: aSqlItem := MSC_ATP_BPEL_ATP_REC_TABLE_TY();
336: aSqlItem.EXTEND(aPlsqlItem.COUNT);
331: RETURN MSC_ATP_BPEL_ATP_REC_TABLE_TY IS
332: aSqlItem MSC_ATP_BPEL_ATP_REC_TABLE_TY;
333: BEGIN
334: -- initialize the table
335: aSqlItem := MSC_ATP_BPEL_ATP_REC_TABLE_TY();
336: aSqlItem.EXTEND(aPlsqlItem.COUNT);
337: FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
338: aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL1(aPlsqlItem(I));
339: END LOOP;
339: END LOOP;
340: RETURN aSqlItem;
341: END PL_TO_SQL0;
342:
343: FUNCTION SQL_TO_PL0(aSqlItem MSC_ATP_BPEL_ATP_REC_TABLE_TY)
344: RETURN MSC_ATP_BPEL.ATP_REC_TABLE_TYP IS
345: aPlsqlItem MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
346: BEGIN
347: FOR I IN 1..aSqlItem.COUNT LOOP
340: RETURN aSqlItem;
341: END PL_TO_SQL0;
342:
343: FUNCTION SQL_TO_PL0(aSqlItem MSC_ATP_BPEL_ATP_REC_TABLE_TY)
344: RETURN MSC_ATP_BPEL.ATP_REC_TABLE_TYP IS
345: aPlsqlItem MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
346: BEGIN
347: FOR I IN 1..aSqlItem.COUNT LOOP
348: aPlsqlItem(I) := SQL_TO_PL1(aSqlItem(I));
341: END PL_TO_SQL0;
342:
343: FUNCTION SQL_TO_PL0(aSqlItem MSC_ATP_BPEL_ATP_REC_TABLE_TY)
344: RETURN MSC_ATP_BPEL.ATP_REC_TABLE_TYP IS
345: aPlsqlItem MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
346: BEGIN
347: FOR I IN 1..aSqlItem.COUNT LOOP
348: aPlsqlItem(I) := SQL_TO_PL1(aSqlItem(I));
349: END LOOP;
349: END LOOP;
350: RETURN aPlsqlItem;
351: END SQL_TO_PL0;
352:
353: PROCEDURE MSC_ATP_BPEL$CALL_ATP_BPEL (P_SESSION_ID IN OUT NOCOPY NUMBER,P_ATP_TAB
354: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_ATP_TAB OUT NOCOPY
355: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_DATA OUT
356: NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER) IS
357: P_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
350: RETURN aPlsqlItem;
351: END SQL_TO_PL0;
352:
353: PROCEDURE MSC_ATP_BPEL$CALL_ATP_BPEL (P_SESSION_ID IN OUT NOCOPY NUMBER,P_ATP_TAB
354: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_ATP_TAB OUT NOCOPY
355: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_DATA OUT
356: NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER) IS
357: P_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
358: X_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
351: END SQL_TO_PL0;
352:
353: PROCEDURE MSC_ATP_BPEL$CALL_ATP_BPEL (P_SESSION_ID IN OUT NOCOPY NUMBER,P_ATP_TAB
354: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_ATP_TAB OUT NOCOPY
355: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_DATA OUT
356: NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER) IS
357: P_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
358: X_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
359: BEGIN
353: PROCEDURE MSC_ATP_BPEL$CALL_ATP_BPEL (P_SESSION_ID IN OUT NOCOPY NUMBER,P_ATP_TAB
354: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_ATP_TAB OUT NOCOPY
355: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_DATA OUT
356: NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER) IS
357: P_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
358: X_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
359: BEGIN
360: P_ATP_TAB_ := XX_BPEL_EBS11I10ATPCHECK.SQL_TO_PL0(P_ATP_TAB);
361:
354: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_ATP_TAB OUT NOCOPY
355: MSC_ATP_BPEL_ATP_REC_TABLE_TY,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_DATA OUT
356: NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER) IS
357: P_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
358: X_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
359: BEGIN
360: P_ATP_TAB_ := XX_BPEL_EBS11I10ATPCHECK.SQL_TO_PL0(P_ATP_TAB);
361:
362: APPS.MSC_ATP_BPEL.CALL_ATP_BPEL(P_SESSION_ID,P_ATP_TAB_,X_ATP_TAB_,X_RETURN_STATUS,X_MSG_DATA,X_MSG_COUNT);
358: X_ATP_TAB_ APPS.MSC_ATP_BPEL.ATP_REC_TABLE_TYP;
359: BEGIN
360: P_ATP_TAB_ := XX_BPEL_EBS11I10ATPCHECK.SQL_TO_PL0(P_ATP_TAB);
361:
362: APPS.MSC_ATP_BPEL.CALL_ATP_BPEL(P_SESSION_ID,P_ATP_TAB_,X_ATP_TAB_,X_RETURN_STATUS,X_MSG_DATA,X_MSG_COUNT);
363: X_ATP_TAB := XX_BPEL_EBS11I10ATPCHECK.PL_TO_SQL0(X_ATP_TAB_);
364: END MSC_ATP_BPEL$CALL_ATP_BPEL;
365:
366: END XX_BPEL_EBS11I10ATPCHECK;
360: P_ATP_TAB_ := XX_BPEL_EBS11I10ATPCHECK.SQL_TO_PL0(P_ATP_TAB);
361:
362: APPS.MSC_ATP_BPEL.CALL_ATP_BPEL(P_SESSION_ID,P_ATP_TAB_,X_ATP_TAB_,X_RETURN_STATUS,X_MSG_DATA,X_MSG_COUNT);
363: X_ATP_TAB := XX_BPEL_EBS11I10ATPCHECK.PL_TO_SQL0(X_ATP_TAB_);
364: END MSC_ATP_BPEL$CALL_ATP_BPEL;
365:
366: END XX_BPEL_EBS11I10ATPCHECK;