APPS.XTR_ORACLE_FIN_INTERFACES_P dependencies on XTR_ORACLE_FIN_INTERFACES_P

Line 1: PACKAGE BODY XTR_ORACLE_FIN_INTERFACES_P as

1: PACKAGE BODY XTR_ORACLE_FIN_INTERFACES_P as
2: /* $Header: xtrdistb.pls 120.4.12010000.3 2008/08/23 14:27:22 srsampat ship $ */
3:
4: ------------------------------------------------------------------------------------------------------
5: PROCEDURE UPDATE_DR(in_company_code IN VARCHAR2,

Line 528: l_bal_flag := XTR_ORACLE_FIN_INTERFACES_P.Get_Unbalance_Param(p_company_code);

524:
525: -- Obtain unbalanced journal batches transfer handling from company params.
526: -- If no parameter is found, then any unbalanced batches will NOT be transferred.
527:
528: l_bal_flag := XTR_ORACLE_FIN_INTERFACES_P.Get_Unbalance_Param(p_company_code);
529: If (l_bal_flag is null) then
530: FND_MESSAGE.Set_Name ('XTR','XTR_NO_UNBAL_JRNL_PARAM');
531: FND_MESSAGE.Set_Token ('COMPANY_CODE', p_company_code);
532: FND_MESSAGE.Set_Token ('BID', in_batch_id);

Line 543: If (XTR_ORACLE_FIN_INTERFACES_P.Balance_Batch(in_batch_id)) then

539: -- Y = Yes, allow transfer.
540: -- N = No, do not allow transfer.
541:
542: If (nvl(l_bal_flag, 'N') = 'N') then
543: If (XTR_ORACLE_FIN_INTERFACES_P.Balance_Batch(in_batch_id)) then
544: l_ok_to_xfer := TRUE;
545: Else
546: FND_MESSAGE.Set_Name ('XTR','XTR_UNBAL_JRNL_ERROR');
547: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);

Line 795: end XTR_ORACLE_FIN_INTERFACES_P;

791: retcode := 2;
792: END TRANSFER_JNLS;
793: --------------------------------------------------------------------------------------------------------------
794:
795: end XTR_ORACLE_FIN_INTERFACES_P;