1: PACKAGE BODY PJM_MASS_TRANSFER_PUB AS
2: /* $Header: PJMMXFRB.pls 115.15 2004/01/07 22:36:04 alaw noship $ */
3:
4: --
5: -- Global Declarations
3:
4: --
5: -- Global Declarations
6: --
7: G_PKG_NAME VARCHAR2(30) := 'PJM_MASS_TRANSFER_PUB';
8: G_MODULE VARCHAR2(80) := 'pjm.plsql.pjm_mass_transfer_pub';
9:
10: --
11: -- Private Procedures
4: --
5: -- Global Declarations
6: --
7: G_PKG_NAME VARCHAR2(30) := 'PJM_MASS_TRANSFER_PUB';
8: G_MODULE VARCHAR2(80) := 'pjm.plsql.pjm_mass_transfer_pub';
9:
10: --
11: -- Private Procedures
12: --
918:
919: Txn_Count NUMBER;
920: Txn_Header_IN NUMBER;
921: Txn_Header_OUT NUMBER;
922: DFF PJM_MASS_TRANSFER_PUB.DFF_Rec_Type;
923:
924: BEGIN
925: --
926: -- Standard Start of API savepoint
985: --
986: -- If Transfer Mode is Signle Item, call the single item
987: -- transfer procedure directly
988: --
989: PJM_MASS_TRANSFER_PUB.Item_Transfer
990: ( P_api_version => 1.0
991: , P_init_msg_list => FND_API.G_FALSE
992: , P_commit => FND_API.G_FALSE
993: , X_Return_Status => X_Return_Status
1011: );
1012:
1013: ELSE
1014:
1015: PJM_MASS_TRANSFER_PUB.Transfer
1016: ( P_api_version => 1.0
1017: , P_init_msg_list => FND_API.G_FALSE
1018: , P_commit => FND_API.G_FALSE
1019: , X_Return_Status => X_Return_Status
1120: FND_MSG_PUB.Count_And_Get( p_count => X_Msg_Count
1121: , p_data => X_Msg_Data );
1122: END Mass_Transfer;
1123:
1124: END PJM_MASS_TRANSFER_PUB;