127: /*---------------------------------------------------------------------------*
128: | PRIVATE PROCEDURE |
129: | CreateInterface |
130: | DESCRIPTION |
131: | Insert record into gl_interface |
132: | PARAMETERS |
133: | |
134: | EXCEPTIONS RAISED |
135: | |
141: | |
142: | HISTORY |
143: | 13-JUL-2004 Hiroshi Yoshihara bug3692482 Created |
144: *---------------------------------------------------------------------------*/
145: PROCEDURE CreateInterface( p_interface_rec IN gl_interface%ROWTYPE) IS
146: BEGIN
147: INSERT INTO gl_interface
148: (
149: created_by,
143: | 13-JUL-2004 Hiroshi Yoshihara bug3692482 Created |
144: *---------------------------------------------------------------------------*/
145: PROCEDURE CreateInterface( p_interface_rec IN gl_interface%ROWTYPE) IS
146: BEGIN
147: INSERT INTO gl_interface
148: (
149: created_by,
150: date_created,
151: status,
626: | PRIVATE PROCEDURE |
627: | CreateDistribution |
628: | DESCRIPTION |
629: | Creates a distribution by inserting a record into |
630: | ar_cash_basis_distributions, and a record into gl_interface |
631: | PARAMETERS |
632: | |
633: | EXCEPTIONS RAISED |
634: | |
653: p_Ccid IN NUMBER,
654: p_AccntClass IN VARCHAR2,
655: p_AmountAppFrom IN NUMBER ) IS
656: CashBasisDistributionId ar_cash_basis_distributions.cash_basis_distribution_id%TYPE;
657: l_gl_interface gl_interface%ROWTYPE;
658: l_gl_interface_null gl_interface%ROWTYPE;
659: BEGIN
660: IF p_Amount = 0 AND p_AcctdAmount = 0 THEN
661: RETURN;
654: p_AccntClass IN VARCHAR2,
655: p_AmountAppFrom IN NUMBER ) IS
656: CashBasisDistributionId ar_cash_basis_distributions.cash_basis_distribution_id%TYPE;
657: l_gl_interface gl_interface%ROWTYPE;
658: l_gl_interface_null gl_interface%ROWTYPE;
659: BEGIN
660: IF p_Amount = 0 AND p_AcctdAmount = 0 THEN
661: RETURN;
662: END IF;
780: THEN
781:
782: BEGIN
783: /* bug3692482 replace insert stmt with CreateInterface procedure */
784: l_gl_interface := l_gl_interface_null;
785:
786: l_gl_interface.created_by := p_Post.CreatedBy;
787: l_gl_interface.date_created := TRUNC( SYSDATE );
788: l_gl_interface.status := 'NEW';
782: BEGIN
783: /* bug3692482 replace insert stmt with CreateInterface procedure */
784: l_gl_interface := l_gl_interface_null;
785:
786: l_gl_interface.created_by := p_Post.CreatedBy;
787: l_gl_interface.date_created := TRUNC( SYSDATE );
788: l_gl_interface.status := 'NEW';
789: l_gl_interface.actual_flag := 'A';
790: l_gl_interface.group_id := p_Post.PostingControlId;
783: /* bug3692482 replace insert stmt with CreateInterface procedure */
784: l_gl_interface := l_gl_interface_null;
785:
786: l_gl_interface.created_by := p_Post.CreatedBy;
787: l_gl_interface.date_created := TRUNC( SYSDATE );
788: l_gl_interface.status := 'NEW';
789: l_gl_interface.actual_flag := 'A';
790: l_gl_interface.group_id := p_Post.PostingControlId;
791: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
784: l_gl_interface := l_gl_interface_null;
785:
786: l_gl_interface.created_by := p_Post.CreatedBy;
787: l_gl_interface.date_created := TRUNC( SYSDATE );
788: l_gl_interface.status := 'NEW';
789: l_gl_interface.actual_flag := 'A';
790: l_gl_interface.group_id := p_Post.PostingControlId;
791: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
792: l_gl_interface.user_je_source_name := p_Post.UserSource;
785:
786: l_gl_interface.created_by := p_Post.CreatedBy;
787: l_gl_interface.date_created := TRUNC( SYSDATE );
788: l_gl_interface.status := 'NEW';
789: l_gl_interface.actual_flag := 'A';
790: l_gl_interface.group_id := p_Post.PostingControlId;
791: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
792: l_gl_interface.user_je_source_name := p_Post.UserSource;
793:
786: l_gl_interface.created_by := p_Post.CreatedBy;
787: l_gl_interface.date_created := TRUNC( SYSDATE );
788: l_gl_interface.status := 'NEW';
789: l_gl_interface.actual_flag := 'A';
790: l_gl_interface.group_id := p_Post.PostingControlId;
791: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
792: l_gl_interface.user_je_source_name := p_Post.UserSource;
793:
794: IF p_AmountAppFrom IS NULL
787: l_gl_interface.date_created := TRUNC( SYSDATE );
788: l_gl_interface.status := 'NEW';
789: l_gl_interface.actual_flag := 'A';
790: l_gl_interface.group_id := p_Post.PostingControlId;
791: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
792: l_gl_interface.user_je_source_name := p_Post.UserSource;
793:
794: IF p_AmountAppFrom IS NULL
795: THEN
788: l_gl_interface.status := 'NEW';
789: l_gl_interface.actual_flag := 'A';
790: l_gl_interface.group_id := p_Post.PostingControlId;
791: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
792: l_gl_interface.user_je_source_name := p_Post.UserSource;
793:
794: IF p_AmountAppFrom IS NULL
795: THEN
796: l_gl_interface.user_je_category_name := p_Post.UserTrade ;
792: l_gl_interface.user_je_source_name := p_Post.UserSource;
793:
794: IF p_AmountAppFrom IS NULL
795: THEN
796: l_gl_interface.user_je_category_name := p_Post.UserTrade ;
797: ELSE
798: l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
799: END IF;
800:
794: IF p_AmountAppFrom IS NULL
795: THEN
796: l_gl_interface.user_je_category_name := p_Post.UserTrade ;
797: ELSE
798: l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
799: END IF;
800:
801: l_gl_interface.accounting_date := p_App.GlDate;
802: l_gl_interface.subledger_doc_sequence_id := p_Receipt.DocSequenceId;
797: ELSE
798: l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
799: END IF;
800:
801: l_gl_interface.accounting_date := p_App.GlDate;
802: l_gl_interface.subledger_doc_sequence_id := p_Receipt.DocSequenceId;
803: l_gl_interface.subledger_doc_sequence_value := p_Receipt.DocSequenceValue;
804: l_gl_interface.ussgl_transaction_code := p_App.UssglTransactionCode;
805: l_gl_interface.currency_code := p_Receipt.CurrencyCode;
798: l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
799: END IF;
800:
801: l_gl_interface.accounting_date := p_App.GlDate;
802: l_gl_interface.subledger_doc_sequence_id := p_Receipt.DocSequenceId;
803: l_gl_interface.subledger_doc_sequence_value := p_Receipt.DocSequenceValue;
804: l_gl_interface.ussgl_transaction_code := p_App.UssglTransactionCode;
805: l_gl_interface.currency_code := p_Receipt.CurrencyCode;
806: l_gl_interface.code_combination_id := p_Ccid;
799: END IF;
800:
801: l_gl_interface.accounting_date := p_App.GlDate;
802: l_gl_interface.subledger_doc_sequence_id := p_Receipt.DocSequenceId;
803: l_gl_interface.subledger_doc_sequence_value := p_Receipt.DocSequenceValue;
804: l_gl_interface.ussgl_transaction_code := p_App.UssglTransactionCode;
805: l_gl_interface.currency_code := p_Receipt.CurrencyCode;
806: l_gl_interface.code_combination_id := p_Ccid;
807:
800:
801: l_gl_interface.accounting_date := p_App.GlDate;
802: l_gl_interface.subledger_doc_sequence_id := p_Receipt.DocSequenceId;
803: l_gl_interface.subledger_doc_sequence_value := p_Receipt.DocSequenceValue;
804: l_gl_interface.ussgl_transaction_code := p_App.UssglTransactionCode;
805: l_gl_interface.currency_code := p_Receipt.CurrencyCode;
806: l_gl_interface.code_combination_id := p_Ccid;
807:
808: IF p_Amount < 0
801: l_gl_interface.accounting_date := p_App.GlDate;
802: l_gl_interface.subledger_doc_sequence_id := p_Receipt.DocSequenceId;
803: l_gl_interface.subledger_doc_sequence_value := p_Receipt.DocSequenceValue;
804: l_gl_interface.ussgl_transaction_code := p_App.UssglTransactionCode;
805: l_gl_interface.currency_code := p_Receipt.CurrencyCode;
806: l_gl_interface.code_combination_id := p_Ccid;
807:
808: IF p_Amount < 0
809: THEN
802: l_gl_interface.subledger_doc_sequence_id := p_Receipt.DocSequenceId;
803: l_gl_interface.subledger_doc_sequence_value := p_Receipt.DocSequenceValue;
804: l_gl_interface.ussgl_transaction_code := p_App.UssglTransactionCode;
805: l_gl_interface.currency_code := p_Receipt.CurrencyCode;
806: l_gl_interface.code_combination_id := p_Ccid;
807:
808: IF p_Amount < 0
809: THEN
810: l_gl_interface.entered_dr := -p_Amount;
806: l_gl_interface.code_combination_id := p_Ccid;
807:
808: IF p_Amount < 0
809: THEN
810: l_gl_interface.entered_dr := -p_Amount;
811: ELSE
812: l_gl_interface.entered_cr := p_Amount;
813: END IF;
814:
808: IF p_Amount < 0
809: THEN
810: l_gl_interface.entered_dr := -p_Amount;
811: ELSE
812: l_gl_interface.entered_cr := p_Amount;
813: END IF;
814:
815: IF p_AcctdAmount < 0
816: THEN
813: END IF;
814:
815: IF p_AcctdAmount < 0
816: THEN
817: l_gl_interface.accounted_dr := -p_AcctdAmount;
818: ELSE
819: l_gl_interface.accounted_cr := p_AcctdAmount;
820: END IF;
821:
815: IF p_AcctdAmount < 0
816: THEN
817: l_gl_interface.accounted_dr := -p_AcctdAmount;
818: ELSE
819: l_gl_interface.accounted_cr := p_AcctdAmount;
820: END IF;
821:
822: l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
823:
818: ELSE
819: l_gl_interface.accounted_cr := p_AcctdAmount;
820: END IF;
821:
822: l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
823:
824: IF p_Post.SummaryFlag = 'Y'
825: THEN
826: l_gl_interface.reference10 := NULL;
822: l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
823:
824: IF p_Post.SummaryFlag = 'Y'
825: THEN
826: l_gl_interface.reference10 := NULL;
827: ELSE
828: IF P_App.AppType = 'CM'
829: THEN
830: l_gl_interface.reference10 := 'CM '||p_Receipt.ReceiptNumber||p_Post.NlsAppApplied||' '||p_Trx.Class|| ' '||p_trx.TrxNumber;
826: l_gl_interface.reference10 := NULL;
827: ELSE
828: IF P_App.AppType = 'CM'
829: THEN
830: l_gl_interface.reference10 := 'CM '||p_Receipt.ReceiptNumber||p_Post.NlsAppApplied||' '||p_Trx.Class|| ' '||p_trx.TrxNumber;
831: ELSE
832: l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||p_Receipt.ReceiptNumber||p_Post.NlsAppApplied||' '||p_Trx.Class||' '||p_trx.TrxNumber||p_Post.NlsPostTradeApp;
833: END IF;
834: END IF;
828: IF P_App.AppType = 'CM'
829: THEN
830: l_gl_interface.reference10 := 'CM '||p_Receipt.ReceiptNumber||p_Post.NlsAppApplied||' '||p_Trx.Class|| ' '||p_trx.TrxNumber;
831: ELSE
832: l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||p_Receipt.ReceiptNumber||p_Post.NlsAppApplied||' '||p_Trx.Class||' '||p_trx.TrxNumber||p_Post.NlsPostTradeApp;
833: END IF;
834: END IF;
835:
836: l_gl_interface.reference21 := p_Post.PostingControlId;
832: l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||p_Receipt.ReceiptNumber||p_Post.NlsAppApplied||' '||p_Trx.Class||' '||p_trx.TrxNumber||p_Post.NlsPostTradeApp;
833: END IF;
834: END IF;
835:
836: l_gl_interface.reference21 := p_Post.PostingControlId;
837: l_gl_interface.reference22 := p_Receipt.CashReceiptId;
838: l_gl_interface.reference23 := CashBasisDistributionId;
839: l_gl_interface.reference24 := p_Receipt.ReceiptNumber;
840: l_gl_interface.reference25 := p_Trx.TrxNumber;
833: END IF;
834: END IF;
835:
836: l_gl_interface.reference21 := p_Post.PostingControlId;
837: l_gl_interface.reference22 := p_Receipt.CashReceiptId;
838: l_gl_interface.reference23 := CashBasisDistributionId;
839: l_gl_interface.reference24 := p_Receipt.ReceiptNumber;
840: l_gl_interface.reference25 := p_Trx.TrxNumber;
841: l_gl_interface.reference26 := p_Trx.Class;
834: END IF;
835:
836: l_gl_interface.reference21 := p_Post.PostingControlId;
837: l_gl_interface.reference22 := p_Receipt.CashReceiptId;
838: l_gl_interface.reference23 := CashBasisDistributionId;
839: l_gl_interface.reference24 := p_Receipt.ReceiptNumber;
840: l_gl_interface.reference25 := p_Trx.TrxNumber;
841: l_gl_interface.reference26 := p_Trx.Class;
842: l_gl_interface.reference27 := p_Receipt.PayFromCustomer;
835:
836: l_gl_interface.reference21 := p_Post.PostingControlId;
837: l_gl_interface.reference22 := p_Receipt.CashReceiptId;
838: l_gl_interface.reference23 := CashBasisDistributionId;
839: l_gl_interface.reference24 := p_Receipt.ReceiptNumber;
840: l_gl_interface.reference25 := p_Trx.TrxNumber;
841: l_gl_interface.reference26 := p_Trx.Class;
842: l_gl_interface.reference27 := p_Receipt.PayFromCustomer;
843:
836: l_gl_interface.reference21 := p_Post.PostingControlId;
837: l_gl_interface.reference22 := p_Receipt.CashReceiptId;
838: l_gl_interface.reference23 := CashBasisDistributionId;
839: l_gl_interface.reference24 := p_Receipt.ReceiptNumber;
840: l_gl_interface.reference25 := p_Trx.TrxNumber;
841: l_gl_interface.reference26 := p_Trx.Class;
842: l_gl_interface.reference27 := p_Receipt.PayFromCustomer;
843:
844: IF P_App.AppType = 'CM'
837: l_gl_interface.reference22 := p_Receipt.CashReceiptId;
838: l_gl_interface.reference23 := CashBasisDistributionId;
839: l_gl_interface.reference24 := p_Receipt.ReceiptNumber;
840: l_gl_interface.reference25 := p_Trx.TrxNumber;
841: l_gl_interface.reference26 := p_Trx.Class;
842: l_gl_interface.reference27 := p_Receipt.PayFromCustomer;
843:
844: IF P_App.AppType = 'CM'
845: THEN
838: l_gl_interface.reference23 := CashBasisDistributionId;
839: l_gl_interface.reference24 := p_Receipt.ReceiptNumber;
840: l_gl_interface.reference25 := p_Trx.TrxNumber;
841: l_gl_interface.reference26 := p_Trx.Class;
842: l_gl_interface.reference27 := p_Receipt.PayFromCustomer;
843:
844: IF P_App.AppType = 'CM'
845: THEN
846: l_gl_interface.reference28 := 'CMAPP';
842: l_gl_interface.reference27 := p_Receipt.PayFromCustomer;
843:
844: IF P_App.AppType = 'CM'
845: THEN
846: l_gl_interface.reference28 := 'CMAPP';
847: ELSIF P_App.AppType = 'CASH'
848: THEN
849: IF p_AmountAppFrom IS NULL
850: THEN
847: ELSIF P_App.AppType = 'CASH'
848: THEN
849: IF p_AmountAppFrom IS NULL
850: THEN
851: l_gl_interface.reference28 := 'TRADE';
852: ELSE
853: l_gl_interface.reference28 := 'CCURR';
854: END IF;
855: END IF;
849: IF p_AmountAppFrom IS NULL
850: THEN
851: l_gl_interface.reference28 := 'TRADE';
852: ELSE
853: l_gl_interface.reference28 := 'CCURR';
854: END IF;
855: END IF;
856:
857: IF P_App.AppType = 'CASH'
857: IF P_App.AppType = 'CASH'
858: THEN
859: IF p_AmountAppFrom IS NULL
860: THEN
861: l_gl_interface.reference29 := 'TRADE_APP_'||p_Trx.Class||'_'||p_Source||'_'||p_Type;
862: ELSE
863: l_gl_interface.reference29 := 'CCURR_APP_'||p_Trx.Class||'_'||p_Source||'_'||p_Type;
864: END IF;
865: ELSIF P_App.AppType = 'CM'
859: IF p_AmountAppFrom IS NULL
860: THEN
861: l_gl_interface.reference29 := 'TRADE_APP_'||p_Trx.Class||'_'||p_Source||'_'||p_Type;
862: ELSE
863: l_gl_interface.reference29 := 'CCURR_APP_'||p_Trx.Class||'_'||p_Source||'_'||p_Type;
864: END IF;
865: ELSIF P_App.AppType = 'CM'
866: THEN
867: IF p_Trx.CmPsIdFlag = 'Y'
865: ELSIF P_App.AppType = 'CM'
866: THEN
867: IF p_Trx.CmPsIdFlag = 'Y'
868: THEN
869: l_gl_interface.reference29 := 'CMAPP_REC_CM_'||p_Source||'_'||p_Type;
870: ELSE
871: l_gl_interface.reference29 := 'CMAPP_APP_'||p_Trx.Class||'_'||p_Source||'_'||p_Type;
872: END IF;
873: END IF;
867: IF p_Trx.CmPsIdFlag = 'Y'
868: THEN
869: l_gl_interface.reference29 := 'CMAPP_REC_CM_'||p_Source||'_'||p_Type;
870: ELSE
871: l_gl_interface.reference29 := 'CMAPP_APP_'||p_Trx.Class||'_'||p_Source||'_'||p_Type;
872: END IF;
873: END IF;
874:
875: l_gl_interface.reference30 := 'AR_CASH_BASIS_DISTRIBUTIONS';
871: l_gl_interface.reference29 := 'CMAPP_APP_'||p_Trx.Class||'_'||p_Source||'_'||p_Type;
872: END IF;
873: END IF;
874:
875: l_gl_interface.reference30 := 'AR_CASH_BASIS_DISTRIBUTIONS';
876:
877: CreateInterface( l_gl_interface );
878:
879: EXCEPTION
873: END IF;
874:
875: l_gl_interface.reference30 := 'AR_CASH_BASIS_DISTRIBUTIONS';
876:
877: CreateInterface( l_gl_interface );
878:
879: EXCEPTION
880: WHEN OTHERS THEN
881: arp_standard.debug( 'Exception:CreateDistribution.InsertGl:' );
1304: */
1305:
1306: l_Count NUMBER :=0;
1307:
1308: l_gl_interface gl_interface%ROWTYPE;
1309: l_gl_interface_null gl_interface%ROWTYPE;
1310: BEGIN
1311: arp_standard.debug( ' ' );
1312: arp_standard.debug( ' AR_RECEIVABLE_APPLICATIONS (non-app)...' );
1305:
1306: l_Count NUMBER :=0;
1307:
1308: l_gl_interface gl_interface%ROWTYPE;
1309: l_gl_interface_null gl_interface%ROWTYPE;
1310: BEGIN
1311: arp_standard.debug( ' ' );
1312: arp_standard.debug( ' AR_RECEIVABLE_APPLICATIONS (non-app)...' );
1313:
1320: FOR RRa IN CRa
1321: LOOP
1322: BEGIN
1323: /* bug3692482 replace insert stmt with CreateInterface procedure */
1324: l_gl_interface := l_gl_interface_null ;
1325:
1326: l_gl_interface.created_by := p_Post.CreatedBy;
1327: l_gl_interface.date_created := TRUNC( SYSDATE );
1328: l_gl_interface.status := 'NEW';
1322: BEGIN
1323: /* bug3692482 replace insert stmt with CreateInterface procedure */
1324: l_gl_interface := l_gl_interface_null ;
1325:
1326: l_gl_interface.created_by := p_Post.CreatedBy;
1327: l_gl_interface.date_created := TRUNC( SYSDATE );
1328: l_gl_interface.status := 'NEW';
1329: l_gl_interface.actual_flag := 'A';
1330: l_gl_interface.group_id := p_Post.PostingControlId;
1323: /* bug3692482 replace insert stmt with CreateInterface procedure */
1324: l_gl_interface := l_gl_interface_null ;
1325:
1326: l_gl_interface.created_by := p_Post.CreatedBy;
1327: l_gl_interface.date_created := TRUNC( SYSDATE );
1328: l_gl_interface.status := 'NEW';
1329: l_gl_interface.actual_flag := 'A';
1330: l_gl_interface.group_id := p_Post.PostingControlId;
1331: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1324: l_gl_interface := l_gl_interface_null ;
1325:
1326: l_gl_interface.created_by := p_Post.CreatedBy;
1327: l_gl_interface.date_created := TRUNC( SYSDATE );
1328: l_gl_interface.status := 'NEW';
1329: l_gl_interface.actual_flag := 'A';
1330: l_gl_interface.group_id := p_Post.PostingControlId;
1331: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1332: l_gl_interface.user_je_source_name := p_Post.UserSource;
1325:
1326: l_gl_interface.created_by := p_Post.CreatedBy;
1327: l_gl_interface.date_created := TRUNC( SYSDATE );
1328: l_gl_interface.status := 'NEW';
1329: l_gl_interface.actual_flag := 'A';
1330: l_gl_interface.group_id := p_Post.PostingControlId;
1331: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1332: l_gl_interface.user_je_source_name := p_Post.UserSource;
1333:
1326: l_gl_interface.created_by := p_Post.CreatedBy;
1327: l_gl_interface.date_created := TRUNC( SYSDATE );
1328: l_gl_interface.status := 'NEW';
1329: l_gl_interface.actual_flag := 'A';
1330: l_gl_interface.group_id := p_Post.PostingControlId;
1331: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1332: l_gl_interface.user_je_source_name := p_Post.UserSource;
1333:
1334: IF RRa.AmountAppFrom IS NULL
1327: l_gl_interface.date_created := TRUNC( SYSDATE );
1328: l_gl_interface.status := 'NEW';
1329: l_gl_interface.actual_flag := 'A';
1330: l_gl_interface.group_id := p_Post.PostingControlId;
1331: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1332: l_gl_interface.user_je_source_name := p_Post.UserSource;
1333:
1334: IF RRa.AmountAppFrom IS NULL
1335: THEN
1328: l_gl_interface.status := 'NEW';
1329: l_gl_interface.actual_flag := 'A';
1330: l_gl_interface.group_id := p_Post.PostingControlId;
1331: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1332: l_gl_interface.user_je_source_name := p_Post.UserSource;
1333:
1334: IF RRa.AmountAppFrom IS NULL
1335: THEN
1336: l_gl_interface.user_je_category_name := p_Post.UserTrade ;
1332: l_gl_interface.user_je_source_name := p_Post.UserSource;
1333:
1334: IF RRa.AmountAppFrom IS NULL
1335: THEN
1336: l_gl_interface.user_je_category_name := p_Post.UserTrade ;
1337: ELSE
1338: l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
1339: END IF;
1340:
1334: IF RRa.AmountAppFrom IS NULL
1335: THEN
1336: l_gl_interface.user_je_category_name := p_Post.UserTrade ;
1337: ELSE
1338: l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
1339: END IF;
1340:
1341: l_gl_interface.accounting_date := RRa.GlDate;
1342: l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1337: ELSE
1338: l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
1339: END IF;
1340:
1341: l_gl_interface.accounting_date := RRa.GlDate;
1342: l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1343: l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1344: l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1345: l_gl_interface.Currency_code := RRa.CurrencyCode;
1338: l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
1339: END IF;
1340:
1341: l_gl_interface.accounting_date := RRa.GlDate;
1342: l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1343: l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1344: l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1345: l_gl_interface.Currency_code := RRa.CurrencyCode;
1346: l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1339: END IF;
1340:
1341: l_gl_interface.accounting_date := RRa.GlDate;
1342: l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1343: l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1344: l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1345: l_gl_interface.Currency_code := RRa.CurrencyCode;
1346: l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1347:
1340:
1341: l_gl_interface.accounting_date := RRa.GlDate;
1342: l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1343: l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1344: l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1345: l_gl_interface.Currency_code := RRa.CurrencyCode;
1346: l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1347:
1348: IF RRa.amount < 0
1341: l_gl_interface.accounting_date := RRa.GlDate;
1342: l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1343: l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1344: l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1345: l_gl_interface.Currency_code := RRa.CurrencyCode;
1346: l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1347:
1348: IF RRa.amount < 0
1349: THEN
1342: l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1343: l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1344: l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1345: l_gl_interface.Currency_code := RRa.CurrencyCode;
1346: l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1347:
1348: IF RRa.amount < 0
1349: THEN
1350: l_gl_interface.entered_dr := -RRa.amount;
1346: l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1347:
1348: IF RRa.amount < 0
1349: THEN
1350: l_gl_interface.entered_dr := -RRa.amount;
1351: ELSE
1352: l_gl_interface.entered_cr := RRa.amount;
1353: END IF;
1354:
1348: IF RRa.amount < 0
1349: THEN
1350: l_gl_interface.entered_dr := -RRa.amount;
1351: ELSE
1352: l_gl_interface.entered_cr := RRa.amount;
1353: END IF;
1354:
1355: IF RRa.AcctdAmount < 0
1356: THEN
1353: END IF;
1354:
1355: IF RRa.AcctdAmount < 0
1356: THEN
1357: l_gl_interface.accounted_dr := -RRa.AcctdAmount;
1358: ELSE
1359: l_gl_interface.accounted_cr := RRa.AcctdAmount;
1360: END IF;
1361:
1355: IF RRa.AcctdAmount < 0
1356: THEN
1357: l_gl_interface.accounted_dr := -RRa.AcctdAmount;
1358: ELSE
1359: l_gl_interface.accounted_cr := RRa.AcctdAmount;
1360: END IF;
1361:
1362: l_gl_interface.reference1 :=
1363: 'AR '||to_char(p_Post.PostingControlId);
1358: ELSE
1359: l_gl_interface.accounted_cr := RRa.AcctdAmount;
1360: END IF;
1361:
1362: l_gl_interface.reference1 :=
1363: 'AR '||to_char(p_Post.PostingControlId);
1364:
1365: IF p_Post.SummaryFlag = 'Y'
1366: THEN
1363: 'AR '||to_char(p_Post.PostingControlId);
1364:
1365: IF p_Post.SummaryFlag = 'Y'
1366: THEN
1367: l_gl_interface.reference10 := NULL;
1368: ELSE
1369: l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||RRa.ReceiptNumber;
1370: IF RRa.Status = 'ACC'
1371: THEN
1365: IF p_Post.SummaryFlag = 'Y'
1366: THEN
1367: l_gl_interface.reference10 := NULL;
1368: ELSE
1369: l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||RRa.ReceiptNumber;
1370: IF RRa.Status = 'ACC'
1371: THEN
1372: l_gl_interface.reference10 :=
1373: l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1368: ELSE
1369: l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||RRa.ReceiptNumber;
1370: IF RRa.Status = 'ACC'
1371: THEN
1372: l_gl_interface.reference10 :=
1373: l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1374: ELSIF RRa.Status = 'OTHER ACC'
1375: THEN
1376: l_gl_interface.reference10 :=
1369: l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||RRa.ReceiptNumber;
1370: IF RRa.Status = 'ACC'
1371: THEN
1372: l_gl_interface.reference10 :=
1373: l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1374: ELSIF RRa.Status = 'OTHER ACC'
1375: THEN
1376: l_gl_interface.reference10 :=
1377: l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1372: l_gl_interface.reference10 :=
1373: l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1374: ELSIF RRa.Status = 'OTHER ACC'
1375: THEN
1376: l_gl_interface.reference10 :=
1377: l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1378: ELSIF RRa.Status = 'UNAPP'
1379: THEN
1380: l_gl_interface.reference10 :=
1373: l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1374: ELSIF RRa.Status = 'OTHER ACC'
1375: THEN
1376: l_gl_interface.reference10 :=
1377: l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1378: ELSIF RRa.Status = 'UNAPP'
1379: THEN
1380: l_gl_interface.reference10 :=
1381: l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1376: l_gl_interface.reference10 :=
1377: l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1378: ELSIF RRa.Status = 'UNAPP'
1379: THEN
1380: l_gl_interface.reference10 :=
1381: l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1382: ELSIF RRa.Status = 'UNID'
1383: THEN
1384: l_gl_interface.reference10 :=
1377: l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1378: ELSIF RRa.Status = 'UNAPP'
1379: THEN
1380: l_gl_interface.reference10 :=
1381: l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1382: ELSIF RRa.Status = 'UNID'
1383: THEN
1384: l_gl_interface.reference10 :=
1385: l_gl_interface.reference10 || p_Post.NlsAppUnid;
1380: l_gl_interface.reference10 :=
1381: l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1382: ELSIF RRa.Status = 'UNID'
1383: THEN
1384: l_gl_interface.reference10 :=
1385: l_gl_interface.reference10 || p_Post.NlsAppUnid;
1386: ELSIF RRa.Status = 'ACTIVITY'
1387: THEN
1388: l_gl_interface.reference10 :=
1381: l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1382: ELSIF RRa.Status = 'UNID'
1383: THEN
1384: l_gl_interface.reference10 :=
1385: l_gl_interface.reference10 || p_Post.NlsAppUnid;
1386: ELSIF RRa.Status = 'ACTIVITY'
1387: THEN
1388: l_gl_interface.reference10 :=
1389: l_gl_interface.reference10 || p_Post.NlsAppActivity;
1384: l_gl_interface.reference10 :=
1385: l_gl_interface.reference10 || p_Post.NlsAppUnid;
1386: ELSIF RRa.Status = 'ACTIVITY'
1387: THEN
1388: l_gl_interface.reference10 :=
1389: l_gl_interface.reference10 || p_Post.NlsAppActivity;
1390: END IF;
1391:
1392: l_gl_interface.reference10 :=
1385: l_gl_interface.reference10 || p_Post.NlsAppUnid;
1386: ELSIF RRa.Status = 'ACTIVITY'
1387: THEN
1388: l_gl_interface.reference10 :=
1389: l_gl_interface.reference10 || p_Post.NlsAppActivity;
1390: END IF;
1391:
1392: l_gl_interface.reference10 :=
1393: l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1388: l_gl_interface.reference10 :=
1389: l_gl_interface.reference10 || p_Post.NlsAppActivity;
1390: END IF;
1391:
1392: l_gl_interface.reference10 :=
1393: l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1394: END IF;
1395:
1396: l_gl_interface.reference21 := p_Post.PostingControlId;
1389: l_gl_interface.reference10 || p_Post.NlsAppActivity;
1390: END IF;
1391:
1392: l_gl_interface.reference10 :=
1393: l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1394: END IF;
1395:
1396: l_gl_interface.reference21 := p_Post.PostingControlId;
1397: l_gl_interface.reference22 := RRa.CashReceiptId;
1392: l_gl_interface.reference10 :=
1393: l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1394: END IF;
1395:
1396: l_gl_interface.reference21 := p_Post.PostingControlId;
1397: l_gl_interface.reference22 := RRa.CashReceiptId;
1398: l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1399: l_gl_interface.reference24 := RRa.ReceiptNumber;
1400: l_gl_interface.reference25 := NULL;
1393: l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1394: END IF;
1395:
1396: l_gl_interface.reference21 := p_Post.PostingControlId;
1397: l_gl_interface.reference22 := RRa.CashReceiptId;
1398: l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1399: l_gl_interface.reference24 := RRa.ReceiptNumber;
1400: l_gl_interface.reference25 := NULL;
1401: l_gl_interface.reference26 := NULL;
1394: END IF;
1395:
1396: l_gl_interface.reference21 := p_Post.PostingControlId;
1397: l_gl_interface.reference22 := RRa.CashReceiptId;
1398: l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1399: l_gl_interface.reference24 := RRa.ReceiptNumber;
1400: l_gl_interface.reference25 := NULL;
1401: l_gl_interface.reference26 := NULL;
1402: l_gl_interface.reference27 := RRa.PayFromCustomer;
1395:
1396: l_gl_interface.reference21 := p_Post.PostingControlId;
1397: l_gl_interface.reference22 := RRa.CashReceiptId;
1398: l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1399: l_gl_interface.reference24 := RRa.ReceiptNumber;
1400: l_gl_interface.reference25 := NULL;
1401: l_gl_interface.reference26 := NULL;
1402: l_gl_interface.reference27 := RRa.PayFromCustomer;
1403:
1396: l_gl_interface.reference21 := p_Post.PostingControlId;
1397: l_gl_interface.reference22 := RRa.CashReceiptId;
1398: l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1399: l_gl_interface.reference24 := RRa.ReceiptNumber;
1400: l_gl_interface.reference25 := NULL;
1401: l_gl_interface.reference26 := NULL;
1402: l_gl_interface.reference27 := RRa.PayFromCustomer;
1403:
1404: IF RRa.AmountAppFrom IS NULL
1397: l_gl_interface.reference22 := RRa.CashReceiptId;
1398: l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1399: l_gl_interface.reference24 := RRa.ReceiptNumber;
1400: l_gl_interface.reference25 := NULL;
1401: l_gl_interface.reference26 := NULL;
1402: l_gl_interface.reference27 := RRa.PayFromCustomer;
1403:
1404: IF RRa.AmountAppFrom IS NULL
1405: THEN
1398: l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1399: l_gl_interface.reference24 := RRa.ReceiptNumber;
1400: l_gl_interface.reference25 := NULL;
1401: l_gl_interface.reference26 := NULL;
1402: l_gl_interface.reference27 := RRa.PayFromCustomer;
1403:
1404: IF RRa.AmountAppFrom IS NULL
1405: THEN
1406: l_gl_interface.reference28 := 'TRADE';
1402: l_gl_interface.reference27 := RRa.PayFromCustomer;
1403:
1404: IF RRa.AmountAppFrom IS NULL
1405: THEN
1406: l_gl_interface.reference28 := 'TRADE';
1407: l_gl_interface.reference29 := 'TRADE_APP';
1408: ELSE
1409: l_gl_interface.reference28 := 'CCURR';
1410: l_gl_interface.reference29 := 'CCURR_APP';
1403:
1404: IF RRa.AmountAppFrom IS NULL
1405: THEN
1406: l_gl_interface.reference28 := 'TRADE';
1407: l_gl_interface.reference29 := 'TRADE_APP';
1408: ELSE
1409: l_gl_interface.reference28 := 'CCURR';
1410: l_gl_interface.reference29 := 'CCURR_APP';
1411: END IF;
1405: THEN
1406: l_gl_interface.reference28 := 'TRADE';
1407: l_gl_interface.reference29 := 'TRADE_APP';
1408: ELSE
1409: l_gl_interface.reference28 := 'CCURR';
1410: l_gl_interface.reference29 := 'CCURR_APP';
1411: END IF;
1412: l_gl_interface.reference30 := 'AR_RECEIVABLE_APPLICATIONS' ;
1413:
1406: l_gl_interface.reference28 := 'TRADE';
1407: l_gl_interface.reference29 := 'TRADE_APP';
1408: ELSE
1409: l_gl_interface.reference28 := 'CCURR';
1410: l_gl_interface.reference29 := 'CCURR_APP';
1411: END IF;
1412: l_gl_interface.reference30 := 'AR_RECEIVABLE_APPLICATIONS' ;
1413:
1414: CreateInterface(l_gl_interface) ;
1408: ELSE
1409: l_gl_interface.reference28 := 'CCURR';
1410: l_gl_interface.reference29 := 'CCURR_APP';
1411: END IF;
1412: l_gl_interface.reference30 := 'AR_RECEIVABLE_APPLICATIONS' ;
1413:
1414: CreateInterface(l_gl_interface) ;
1415:
1416: EXCEPTION
1410: l_gl_interface.reference29 := 'CCURR_APP';
1411: END IF;
1412: l_gl_interface.reference30 := 'AR_RECEIVABLE_APPLICATIONS' ;
1413:
1414: CreateInterface(l_gl_interface) ;
1415:
1416: EXCEPTION
1417: WHEN OTHERS THEN
1418: arp_standard.debug( 'Exception:PostNonDistApplications.INSERT:' );
1448: -- FOR RRa IN CRa_mrc
1449: -- LOOP
1450: -- BEGIN
1451: /* bug3692482 replace insert stmt with CreateInterface procedure */
1452: -- l_gl_interface := l_gl_interface_null ;
1453:
1454: -- l_gl_interface.created_by := p_Post.CreatedBy;
1455: -- l_gl_interface.date_created := TRUNC( SYSDATE );
1456: -- l_gl_interface.status := 'NEW';
1450: -- BEGIN
1451: /* bug3692482 replace insert stmt with CreateInterface procedure */
1452: -- l_gl_interface := l_gl_interface_null ;
1453:
1454: -- l_gl_interface.created_by := p_Post.CreatedBy;
1455: -- l_gl_interface.date_created := TRUNC( SYSDATE );
1456: -- l_gl_interface.status := 'NEW';
1457: -- l_gl_interface.actual_flag := 'A';
1458: -- l_gl_interface.group_id := p_Post.PostingControlId;
1451: /* bug3692482 replace insert stmt with CreateInterface procedure */
1452: -- l_gl_interface := l_gl_interface_null ;
1453:
1454: -- l_gl_interface.created_by := p_Post.CreatedBy;
1455: -- l_gl_interface.date_created := TRUNC( SYSDATE );
1456: -- l_gl_interface.status := 'NEW';
1457: -- l_gl_interface.actual_flag := 'A';
1458: -- l_gl_interface.group_id := p_Post.PostingControlId;
1459: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1452: -- l_gl_interface := l_gl_interface_null ;
1453:
1454: -- l_gl_interface.created_by := p_Post.CreatedBy;
1455: -- l_gl_interface.date_created := TRUNC( SYSDATE );
1456: -- l_gl_interface.status := 'NEW';
1457: -- l_gl_interface.actual_flag := 'A';
1458: -- l_gl_interface.group_id := p_Post.PostingControlId;
1459: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1460: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
1453:
1454: -- l_gl_interface.created_by := p_Post.CreatedBy;
1455: -- l_gl_interface.date_created := TRUNC( SYSDATE );
1456: -- l_gl_interface.status := 'NEW';
1457: -- l_gl_interface.actual_flag := 'A';
1458: -- l_gl_interface.group_id := p_Post.PostingControlId;
1459: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1460: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
1461:
1454: -- l_gl_interface.created_by := p_Post.CreatedBy;
1455: -- l_gl_interface.date_created := TRUNC( SYSDATE );
1456: -- l_gl_interface.status := 'NEW';
1457: -- l_gl_interface.actual_flag := 'A';
1458: -- l_gl_interface.group_id := p_Post.PostingControlId;
1459: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1460: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
1461:
1462: -- IF RRa.AmountAppFrom IS NULL
1455: -- l_gl_interface.date_created := TRUNC( SYSDATE );
1456: -- l_gl_interface.status := 'NEW';
1457: -- l_gl_interface.actual_flag := 'A';
1458: -- l_gl_interface.group_id := p_Post.PostingControlId;
1459: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1460: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
1461:
1462: -- IF RRa.AmountAppFrom IS NULL
1463: -- THEN
1456: -- l_gl_interface.status := 'NEW';
1457: -- l_gl_interface.actual_flag := 'A';
1458: -- l_gl_interface.group_id := p_Post.PostingControlId;
1459: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
1460: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
1461:
1462: -- IF RRa.AmountAppFrom IS NULL
1463: -- THEN
1464: -- l_gl_interface.user_je_category_name := p_Post.UserTrade ;
1460: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
1461:
1462: -- IF RRa.AmountAppFrom IS NULL
1463: -- THEN
1464: -- l_gl_interface.user_je_category_name := p_Post.UserTrade ;
1465: -- ELSE
1466: -- l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
1467: -- END IF;
1468:
1462: -- IF RRa.AmountAppFrom IS NULL
1463: -- THEN
1464: -- l_gl_interface.user_je_category_name := p_Post.UserTrade ;
1465: -- ELSE
1466: -- l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
1467: -- END IF;
1468:
1469: -- l_gl_interface.accounting_date := RRa.GlDate;
1470: -- l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1465: -- ELSE
1466: -- l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
1467: -- END IF;
1468:
1469: -- l_gl_interface.accounting_date := RRa.GlDate;
1470: -- l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1471: -- l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1472: -- l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1473: -- l_gl_interface.Currency_code := RRa.CurrencyCode;
1466: -- l_gl_interface.user_je_category_name := p_Post.UserCcurr ;
1467: -- END IF;
1468:
1469: -- l_gl_interface.accounting_date := RRa.GlDate;
1470: -- l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1471: -- l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1472: -- l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1473: -- l_gl_interface.Currency_code := RRa.CurrencyCode;
1474: -- l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1467: -- END IF;
1468:
1469: -- l_gl_interface.accounting_date := RRa.GlDate;
1470: -- l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1471: -- l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1472: -- l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1473: -- l_gl_interface.Currency_code := RRa.CurrencyCode;
1474: -- l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1475:
1468:
1469: -- l_gl_interface.accounting_date := RRa.GlDate;
1470: -- l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1471: -- l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1472: -- l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1473: -- l_gl_interface.Currency_code := RRa.CurrencyCode;
1474: -- l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1475:
1476: -- IF RRa.amount < 0
1469: -- l_gl_interface.accounting_date := RRa.GlDate;
1470: -- l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1471: -- l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1472: -- l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1473: -- l_gl_interface.Currency_code := RRa.CurrencyCode;
1474: -- l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1475:
1476: -- IF RRa.amount < 0
1477: -- THEN
1470: -- l_gl_interface.subledger_doc_sequence_id := RRA.CrDocSequenceId;
1471: -- l_gl_interface.subledger_doc_sequence_value := RRa.CrDocSequenceValue;
1472: -- l_gl_interface.ussgl_transaction_code := RRa.UssglTransactionCode;
1473: -- l_gl_interface.Currency_code := RRa.CurrencyCode;
1474: -- l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1475:
1476: -- IF RRa.amount < 0
1477: -- THEN
1478: -- l_gl_interface.entered_dr := -RRa.amount;
1474: -- l_gl_interface.code_combination_id := RRa.CodeCombinationId;
1475:
1476: -- IF RRa.amount < 0
1477: -- THEN
1478: -- l_gl_interface.entered_dr := -RRa.amount;
1479: -- ELSE
1480: -- l_gl_interface.entered_cr := RRa.amount;
1481: -- END IF;
1482:
1476: -- IF RRa.amount < 0
1477: -- THEN
1478: -- l_gl_interface.entered_dr := -RRa.amount;
1479: -- ELSE
1480: -- l_gl_interface.entered_cr := RRa.amount;
1481: -- END IF;
1482:
1483: -- IF RRa.AcctdAmount < 0
1484: -- THEN
1481: -- END IF;
1482:
1483: -- IF RRa.AcctdAmount < 0
1484: -- THEN
1485: -- l_gl_interface.accounted_dr := -RRa.AcctdAmount;
1486: -- ELSE
1487: -- l_gl_interface.accounted_cr := RRa.AcctdAmount;
1488: -- END IF;
1489:
1483: -- IF RRa.AcctdAmount < 0
1484: -- THEN
1485: -- l_gl_interface.accounted_dr := -RRa.AcctdAmount;
1486: -- ELSE
1487: -- l_gl_interface.accounted_cr := RRa.AcctdAmount;
1488: -- END IF;
1489:
1490: -- l_gl_interface.reference1 :=
1491: -- 'AR '||to_char(p_Post.PostingControlId);
1486: -- ELSE
1487: -- l_gl_interface.accounted_cr := RRa.AcctdAmount;
1488: -- END IF;
1489:
1490: -- l_gl_interface.reference1 :=
1491: -- 'AR '||to_char(p_Post.PostingControlId);
1492:
1493: -- IF p_Post.SummaryFlag = 'Y'
1494: -- THEN
1491: -- 'AR '||to_char(p_Post.PostingControlId);
1492:
1493: -- IF p_Post.SummaryFlag = 'Y'
1494: -- THEN
1495: -- l_gl_interface.reference10 := NULL;
1496: -- ELSE
1497: -- l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||RRa.ReceiptNumber;
1498: -- IF RRa.Status = 'ACC'
1499: -- THEN
1493: -- IF p_Post.SummaryFlag = 'Y'
1494: -- THEN
1495: -- l_gl_interface.reference10 := NULL;
1496: -- ELSE
1497: -- l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||RRa.ReceiptNumber;
1498: -- IF RRa.Status = 'ACC'
1499: -- THEN
1500: -- l_gl_interface.reference10 :=
1501: -- l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1496: -- ELSE
1497: -- l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||RRa.ReceiptNumber;
1498: -- IF RRa.Status = 'ACC'
1499: -- THEN
1500: -- l_gl_interface.reference10 :=
1501: -- l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1502: -- ELSIF RRa.Status = 'OTHER ACC'
1503: -- THEN
1504: -- l_gl_interface.reference10 :=
1497: -- l_gl_interface.reference10 := p_Post.NlsPreTradeApp||' '||RRa.ReceiptNumber;
1498: -- IF RRa.Status = 'ACC'
1499: -- THEN
1500: -- l_gl_interface.reference10 :=
1501: -- l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1502: -- ELSIF RRa.Status = 'OTHER ACC'
1503: -- THEN
1504: -- l_gl_interface.reference10 :=
1505: -- l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1500: -- l_gl_interface.reference10 :=
1501: -- l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1502: -- ELSIF RRa.Status = 'OTHER ACC'
1503: -- THEN
1504: -- l_gl_interface.reference10 :=
1505: -- l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1506: -- ELSIF RRa.Status = 'UNAPP'
1507: -- THEN
1508: -- l_gl_interface.reference10 :=
1501: -- l_gl_interface.reference10 || p_Post.NlsAppOnAcc;
1502: -- ELSIF RRa.Status = 'OTHER ACC'
1503: -- THEN
1504: -- l_gl_interface.reference10 :=
1505: -- l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1506: -- ELSIF RRa.Status = 'UNAPP'
1507: -- THEN
1508: -- l_gl_interface.reference10 :=
1509: -- l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1504: -- l_gl_interface.reference10 :=
1505: -- l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1506: -- ELSIF RRa.Status = 'UNAPP'
1507: -- THEN
1508: -- l_gl_interface.reference10 :=
1509: -- l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1510: -- ELSIF RRa.Status = 'UNID'
1511: -- THEN
1512: -- l_gl_interface.reference10 :=
1505: -- l_gl_interface.reference10 || p_Post.NlsAppOtherAcc;
1506: -- ELSIF RRa.Status = 'UNAPP'
1507: -- THEN
1508: -- l_gl_interface.reference10 :=
1509: -- l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1510: -- ELSIF RRa.Status = 'UNID'
1511: -- THEN
1512: -- l_gl_interface.reference10 :=
1513: -- l_gl_interface.reference10 || p_Post.NlsAppUnid;
1508: -- l_gl_interface.reference10 :=
1509: -- l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1510: -- ELSIF RRa.Status = 'UNID'
1511: -- THEN
1512: -- l_gl_interface.reference10 :=
1513: -- l_gl_interface.reference10 || p_Post.NlsAppUnid;
1514: -- ELSIF RRa.Status = 'ACTIVITY'
1515: -- THEN
1516: -- l_gl_interface.reference10 :=
1509: -- l_gl_interface.reference10 || p_Post.NlsAppUnapp;
1510: -- ELSIF RRa.Status = 'UNID'
1511: -- THEN
1512: -- l_gl_interface.reference10 :=
1513: -- l_gl_interface.reference10 || p_Post.NlsAppUnid;
1514: -- ELSIF RRa.Status = 'ACTIVITY'
1515: -- THEN
1516: -- l_gl_interface.reference10 :=
1517: -- l_gl_interface.reference10 || p_Post.NlsAppActivity;
1512: -- l_gl_interface.reference10 :=
1513: -- l_gl_interface.reference10 || p_Post.NlsAppUnid;
1514: -- ELSIF RRa.Status = 'ACTIVITY'
1515: -- THEN
1516: -- l_gl_interface.reference10 :=
1517: -- l_gl_interface.reference10 || p_Post.NlsAppActivity;
1518: -- END IF;
1519:
1520: -- l_gl_interface.reference10 :=
1513: -- l_gl_interface.reference10 || p_Post.NlsAppUnid;
1514: -- ELSIF RRa.Status = 'ACTIVITY'
1515: -- THEN
1516: -- l_gl_interface.reference10 :=
1517: -- l_gl_interface.reference10 || p_Post.NlsAppActivity;
1518: -- END IF;
1519:
1520: -- l_gl_interface.reference10 :=
1521: -- l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1516: -- l_gl_interface.reference10 :=
1517: -- l_gl_interface.reference10 || p_Post.NlsAppActivity;
1518: -- END IF;
1519:
1520: -- l_gl_interface.reference10 :=
1521: -- l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1522: -- END IF;
1523:
1524: -- l_gl_interface.reference21 := p_Post.PostingControlId;
1517: -- l_gl_interface.reference10 || p_Post.NlsAppActivity;
1518: -- END IF;
1519:
1520: -- l_gl_interface.reference10 :=
1521: -- l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1522: -- END IF;
1523:
1524: -- l_gl_interface.reference21 := p_Post.PostingControlId;
1525: -- l_gl_interface.reference22 := RRa.CashReceiptId;
1520: -- l_gl_interface.reference10 :=
1521: -- l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1522: -- END IF;
1523:
1524: -- l_gl_interface.reference21 := p_Post.PostingControlId;
1525: -- l_gl_interface.reference22 := RRa.CashReceiptId;
1526: -- l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1527: -- l_gl_interface.reference24 := RRa.ReceiptNumber;
1528: -- l_gl_interface.reference25 := NULL;
1521: -- l_gl_interface.reference10 || p_Post.NlsPostTradeApp;
1522: -- END IF;
1523:
1524: -- l_gl_interface.reference21 := p_Post.PostingControlId;
1525: -- l_gl_interface.reference22 := RRa.CashReceiptId;
1526: -- l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1527: -- l_gl_interface.reference24 := RRa.ReceiptNumber;
1528: -- l_gl_interface.reference25 := NULL;
1529: -- l_gl_interface.reference26 := NULL;
1522: -- END IF;
1523:
1524: -- l_gl_interface.reference21 := p_Post.PostingControlId;
1525: -- l_gl_interface.reference22 := RRa.CashReceiptId;
1526: -- l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1527: -- l_gl_interface.reference24 := RRa.ReceiptNumber;
1528: -- l_gl_interface.reference25 := NULL;
1529: -- l_gl_interface.reference26 := NULL;
1530: -- l_gl_interface.reference27 := RRa.PayFromCustomer;
1523:
1524: -- l_gl_interface.reference21 := p_Post.PostingControlId;
1525: -- l_gl_interface.reference22 := RRa.CashReceiptId;
1526: -- l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1527: -- l_gl_interface.reference24 := RRa.ReceiptNumber;
1528: -- l_gl_interface.reference25 := NULL;
1529: -- l_gl_interface.reference26 := NULL;
1530: -- l_gl_interface.reference27 := RRa.PayFromCustomer;
1531:
1524: -- l_gl_interface.reference21 := p_Post.PostingControlId;
1525: -- l_gl_interface.reference22 := RRa.CashReceiptId;
1526: -- l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1527: -- l_gl_interface.reference24 := RRa.ReceiptNumber;
1528: -- l_gl_interface.reference25 := NULL;
1529: -- l_gl_interface.reference26 := NULL;
1530: -- l_gl_interface.reference27 := RRa.PayFromCustomer;
1531:
1532:
1525: -- l_gl_interface.reference22 := RRa.CashReceiptId;
1526: -- l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1527: -- l_gl_interface.reference24 := RRa.ReceiptNumber;
1528: -- l_gl_interface.reference25 := NULL;
1529: -- l_gl_interface.reference26 := NULL;
1530: -- l_gl_interface.reference27 := RRa.PayFromCustomer;
1531:
1532:
1533: -- IF RRa.AmountAppFrom IS NULL
1526: -- l_gl_interface.reference23 := RRa.ReceivableApplicationId;
1527: -- l_gl_interface.reference24 := RRa.ReceiptNumber;
1528: -- l_gl_interface.reference25 := NULL;
1529: -- l_gl_interface.reference26 := NULL;
1530: -- l_gl_interface.reference27 := RRa.PayFromCustomer;
1531:
1532:
1533: -- IF RRa.AmountAppFrom IS NULL
1534: -- THEN
1531:
1532:
1533: -- IF RRa.AmountAppFrom IS NULL
1534: -- THEN
1535: -- l_gl_interface.reference28 := 'TRADE';
1536: -- l_gl_interface.reference29 := 'TRADE_APP';
1537: -- ELSE
1538: -- l_gl_interface.reference28 := 'CCURR';
1539: -- l_gl_interface.reference29 := 'CCURR_APP';
1532:
1533: -- IF RRa.AmountAppFrom IS NULL
1534: -- THEN
1535: -- l_gl_interface.reference28 := 'TRADE';
1536: -- l_gl_interface.reference29 := 'TRADE_APP';
1537: -- ELSE
1538: -- l_gl_interface.reference28 := 'CCURR';
1539: -- l_gl_interface.reference29 := 'CCURR_APP';
1540: -- END IF;
1534: -- THEN
1535: -- l_gl_interface.reference28 := 'TRADE';
1536: -- l_gl_interface.reference29 := 'TRADE_APP';
1537: -- ELSE
1538: -- l_gl_interface.reference28 := 'CCURR';
1539: -- l_gl_interface.reference29 := 'CCURR_APP';
1540: -- END IF;
1541:
1542: -- l_gl_interface.reference30 := 'AR_RECEIVABLE_APPLICATIONS' ;
1535: -- l_gl_interface.reference28 := 'TRADE';
1536: -- l_gl_interface.reference29 := 'TRADE_APP';
1537: -- ELSE
1538: -- l_gl_interface.reference28 := 'CCURR';
1539: -- l_gl_interface.reference29 := 'CCURR_APP';
1540: -- END IF;
1541:
1542: -- l_gl_interface.reference30 := 'AR_RECEIVABLE_APPLICATIONS' ;
1543:
1538: -- l_gl_interface.reference28 := 'CCURR';
1539: -- l_gl_interface.reference29 := 'CCURR_APP';
1540: -- END IF;
1541:
1542: -- l_gl_interface.reference30 := 'AR_RECEIVABLE_APPLICATIONS' ;
1543:
1544: -- CreateInterface(l_gl_interface) ;
1545:
1546: -- EXCEPTION
1540: -- END IF;
1541:
1542: -- l_gl_interface.reference30 := 'AR_RECEIVABLE_APPLICATIONS' ;
1543:
1544: -- CreateInterface(l_gl_interface) ;
1545:
1546: -- EXCEPTION
1547: -- WHEN OTHERS THEN
1548: -- arp_standard.debug( 'Exception:PostNonDistApplications.INSERT:' );
2105: RCrh CCrh%ROWTYPE;
2106: l_Count NUMBER :=0;
2107:
2108: PROCEDURE InsertIntoGl( RCrh IN CCrh%ROWTYPE ) IS
2109: l_gl_interface gl_interface%ROWTYPE ;
2110: l_gl_interface_null gl_interface%ROWTYPE ;
2111: BEGIN
2112: /* bug3692482 replace insert stmt with CreateInterface procedure */
2113: l_gl_interface := l_gl_interface_null;
2106: l_Count NUMBER :=0;
2107:
2108: PROCEDURE InsertIntoGl( RCrh IN CCrh%ROWTYPE ) IS
2109: l_gl_interface gl_interface%ROWTYPE ;
2110: l_gl_interface_null gl_interface%ROWTYPE ;
2111: BEGIN
2112: /* bug3692482 replace insert stmt with CreateInterface procedure */
2113: l_gl_interface := l_gl_interface_null;
2114:
2109: l_gl_interface gl_interface%ROWTYPE ;
2110: l_gl_interface_null gl_interface%ROWTYPE ;
2111: BEGIN
2112: /* bug3692482 replace insert stmt with CreateInterface procedure */
2113: l_gl_interface := l_gl_interface_null;
2114:
2115: l_gl_interface.created_by := p_Post.CreatedBy;
2116: l_gl_interface.date_created := TRUNC( SYSDATE );
2117: l_gl_interface.status := 'NEW';
2111: BEGIN
2112: /* bug3692482 replace insert stmt with CreateInterface procedure */
2113: l_gl_interface := l_gl_interface_null;
2114:
2115: l_gl_interface.created_by := p_Post.CreatedBy;
2116: l_gl_interface.date_created := TRUNC( SYSDATE );
2117: l_gl_interface.status := 'NEW';
2118: l_gl_interface.actual_flag := 'A';
2119: l_gl_interface.group_id := p_Post.PostingControlId;
2112: /* bug3692482 replace insert stmt with CreateInterface procedure */
2113: l_gl_interface := l_gl_interface_null;
2114:
2115: l_gl_interface.created_by := p_Post.CreatedBy;
2116: l_gl_interface.date_created := TRUNC( SYSDATE );
2117: l_gl_interface.status := 'NEW';
2118: l_gl_interface.actual_flag := 'A';
2119: l_gl_interface.group_id := p_Post.PostingControlId;
2120: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2113: l_gl_interface := l_gl_interface_null;
2114:
2115: l_gl_interface.created_by := p_Post.CreatedBy;
2116: l_gl_interface.date_created := TRUNC( SYSDATE );
2117: l_gl_interface.status := 'NEW';
2118: l_gl_interface.actual_flag := 'A';
2119: l_gl_interface.group_id := p_Post.PostingControlId;
2120: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2121: l_gl_interface.user_je_source_name := p_Post.UserSource;
2114:
2115: l_gl_interface.created_by := p_Post.CreatedBy;
2116: l_gl_interface.date_created := TRUNC( SYSDATE );
2117: l_gl_interface.status := 'NEW';
2118: l_gl_interface.actual_flag := 'A';
2119: l_gl_interface.group_id := p_Post.PostingControlId;
2120: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2121: l_gl_interface.user_je_source_name := p_Post.UserSource;
2122: l_gl_interface.user_je_category_name := RCrh.Category;
2115: l_gl_interface.created_by := p_Post.CreatedBy;
2116: l_gl_interface.date_created := TRUNC( SYSDATE );
2117: l_gl_interface.status := 'NEW';
2118: l_gl_interface.actual_flag := 'A';
2119: l_gl_interface.group_id := p_Post.PostingControlId;
2120: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2121: l_gl_interface.user_je_source_name := p_Post.UserSource;
2122: l_gl_interface.user_je_category_name := RCrh.Category;
2123: l_gl_interface.accounting_date := RCrh.GlDate;
2116: l_gl_interface.date_created := TRUNC( SYSDATE );
2117: l_gl_interface.status := 'NEW';
2118: l_gl_interface.actual_flag := 'A';
2119: l_gl_interface.group_id := p_Post.PostingControlId;
2120: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2121: l_gl_interface.user_je_source_name := p_Post.UserSource;
2122: l_gl_interface.user_je_category_name := RCrh.Category;
2123: l_gl_interface.accounting_date := RCrh.GlDate;
2124: l_gl_interface.subledger_doc_sequence_id := RCrh.DocSequenceId;
2117: l_gl_interface.status := 'NEW';
2118: l_gl_interface.actual_flag := 'A';
2119: l_gl_interface.group_id := p_Post.PostingControlId;
2120: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2121: l_gl_interface.user_je_source_name := p_Post.UserSource;
2122: l_gl_interface.user_je_category_name := RCrh.Category;
2123: l_gl_interface.accounting_date := RCrh.GlDate;
2124: l_gl_interface.subledger_doc_sequence_id := RCrh.DocSequenceId;
2125: l_gl_interface.subledger_doc_sequence_value := RCrh.DocSequenceValue;
2118: l_gl_interface.actual_flag := 'A';
2119: l_gl_interface.group_id := p_Post.PostingControlId;
2120: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2121: l_gl_interface.user_je_source_name := p_Post.UserSource;
2122: l_gl_interface.user_je_category_name := RCrh.Category;
2123: l_gl_interface.accounting_date := RCrh.GlDate;
2124: l_gl_interface.subledger_doc_sequence_id := RCrh.DocSequenceId;
2125: l_gl_interface.subledger_doc_sequence_value := RCrh.DocSequenceValue;
2126: l_gl_interface.ussgl_transaction_code := RCrh.UssglTransactionCode;
2119: l_gl_interface.group_id := p_Post.PostingControlId;
2120: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2121: l_gl_interface.user_je_source_name := p_Post.UserSource;
2122: l_gl_interface.user_je_category_name := RCrh.Category;
2123: l_gl_interface.accounting_date := RCrh.GlDate;
2124: l_gl_interface.subledger_doc_sequence_id := RCrh.DocSequenceId;
2125: l_gl_interface.subledger_doc_sequence_value := RCrh.DocSequenceValue;
2126: l_gl_interface.ussgl_transaction_code := RCrh.UssglTransactionCode;
2127: l_gl_interface.Currency_code := RCrh.CurrencyCode;
2120: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2121: l_gl_interface.user_je_source_name := p_Post.UserSource;
2122: l_gl_interface.user_je_category_name := RCrh.Category;
2123: l_gl_interface.accounting_date := RCrh.GlDate;
2124: l_gl_interface.subledger_doc_sequence_id := RCrh.DocSequenceId;
2125: l_gl_interface.subledger_doc_sequence_value := RCrh.DocSequenceValue;
2126: l_gl_interface.ussgl_transaction_code := RCrh.UssglTransactionCode;
2127: l_gl_interface.Currency_code := RCrh.CurrencyCode;
2128: l_gl_interface.code_combination_id := RCrh.AccountCodeCombinationId;
2121: l_gl_interface.user_je_source_name := p_Post.UserSource;
2122: l_gl_interface.user_je_category_name := RCrh.Category;
2123: l_gl_interface.accounting_date := RCrh.GlDate;
2124: l_gl_interface.subledger_doc_sequence_id := RCrh.DocSequenceId;
2125: l_gl_interface.subledger_doc_sequence_value := RCrh.DocSequenceValue;
2126: l_gl_interface.ussgl_transaction_code := RCrh.UssglTransactionCode;
2127: l_gl_interface.Currency_code := RCrh.CurrencyCode;
2128: l_gl_interface.code_combination_id := RCrh.AccountCodeCombinationId;
2129:
2122: l_gl_interface.user_je_category_name := RCrh.Category;
2123: l_gl_interface.accounting_date := RCrh.GlDate;
2124: l_gl_interface.subledger_doc_sequence_id := RCrh.DocSequenceId;
2125: l_gl_interface.subledger_doc_sequence_value := RCrh.DocSequenceValue;
2126: l_gl_interface.ussgl_transaction_code := RCrh.UssglTransactionCode;
2127: l_gl_interface.Currency_code := RCrh.CurrencyCode;
2128: l_gl_interface.code_combination_id := RCrh.AccountCodeCombinationId;
2129:
2130: IF RCrh.amount < 0
2123: l_gl_interface.accounting_date := RCrh.GlDate;
2124: l_gl_interface.subledger_doc_sequence_id := RCrh.DocSequenceId;
2125: l_gl_interface.subledger_doc_sequence_value := RCrh.DocSequenceValue;
2126: l_gl_interface.ussgl_transaction_code := RCrh.UssglTransactionCode;
2127: l_gl_interface.Currency_code := RCrh.CurrencyCode;
2128: l_gl_interface.code_combination_id := RCrh.AccountCodeCombinationId;
2129:
2130: IF RCrh.amount < 0
2131: THEN
2124: l_gl_interface.subledger_doc_sequence_id := RCrh.DocSequenceId;
2125: l_gl_interface.subledger_doc_sequence_value := RCrh.DocSequenceValue;
2126: l_gl_interface.ussgl_transaction_code := RCrh.UssglTransactionCode;
2127: l_gl_interface.Currency_code := RCrh.CurrencyCode;
2128: l_gl_interface.code_combination_id := RCrh.AccountCodeCombinationId;
2129:
2130: IF RCrh.amount < 0
2131: THEN
2132: l_gl_interface.entered_cr := -RCrh.amount;
2128: l_gl_interface.code_combination_id := RCrh.AccountCodeCombinationId;
2129:
2130: IF RCrh.amount < 0
2131: THEN
2132: l_gl_interface.entered_cr := -RCrh.amount;
2133: ELSE
2134: l_gl_interface.entered_dr := RCrh.amount;
2135: END IF;
2136:
2130: IF RCrh.amount < 0
2131: THEN
2132: l_gl_interface.entered_cr := -RCrh.amount;
2133: ELSE
2134: l_gl_interface.entered_dr := RCrh.amount;
2135: END IF;
2136:
2137: IF RCrh.AcctdAmount < 0
2138: THEN
2135: END IF;
2136:
2137: IF RCrh.AcctdAmount < 0
2138: THEN
2139: l_gl_interface.accounted_cr := -RCrh.AcctdAmount;
2140: ELSE
2141: l_gl_interface.accounted_dr := RCrh.AcctdAmount;
2142: END IF;
2143:
2137: IF RCrh.AcctdAmount < 0
2138: THEN
2139: l_gl_interface.accounted_cr := -RCrh.AcctdAmount;
2140: ELSE
2141: l_gl_interface.accounted_dr := RCrh.AcctdAmount;
2142: END IF;
2143:
2144: l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
2145:
2140: ELSE
2141: l_gl_interface.accounted_dr := RCrh.AcctdAmount;
2142: END IF;
2143:
2144: l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
2145:
2146: IF p_Post.SummaryFlag = 'Y'
2147: THEN
2148: l_gl_interface.reference10 := NULL;
2144: l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
2145:
2146: IF p_Post.SummaryFlag = 'Y'
2147: THEN
2148: l_gl_interface.reference10 := NULL;
2149: ELSE
2150: l_gl_interface.reference10 := p_Post.NlsPreReceipt||' '||RCrh.ReceiptNumber||' '||p_Post.NlsPostReceipt ;
2151: END IF;
2152:
2146: IF p_Post.SummaryFlag = 'Y'
2147: THEN
2148: l_gl_interface.reference10 := NULL;
2149: ELSE
2150: l_gl_interface.reference10 := p_Post.NlsPreReceipt||' '||RCrh.ReceiptNumber||' '||p_Post.NlsPostReceipt ;
2151: END IF;
2152:
2153: l_gl_interface.reference21 := p_Post.PostingControlId;
2154: l_gl_interface.reference22 := RCrh.CashReceiptId;
2149: ELSE
2150: l_gl_interface.reference10 := p_Post.NlsPreReceipt||' '||RCrh.ReceiptNumber||' '||p_Post.NlsPostReceipt ;
2151: END IF;
2152:
2153: l_gl_interface.reference21 := p_Post.PostingControlId;
2154: l_gl_interface.reference22 := RCrh.CashReceiptId;
2155: l_gl_interface.reference23 := RCrh.CashReceiptHistoryId;
2156: l_gl_interface.reference24 := RCrh.ReceiptNumber;
2157: l_gl_interface.reference27 := RCrh.PayFromCustomer;
2150: l_gl_interface.reference10 := p_Post.NlsPreReceipt||' '||RCrh.ReceiptNumber||' '||p_Post.NlsPostReceipt ;
2151: END IF;
2152:
2153: l_gl_interface.reference21 := p_Post.PostingControlId;
2154: l_gl_interface.reference22 := RCrh.CashReceiptId;
2155: l_gl_interface.reference23 := RCrh.CashReceiptHistoryId;
2156: l_gl_interface.reference24 := RCrh.ReceiptNumber;
2157: l_gl_interface.reference27 := RCrh.PayFromCustomer;
2158: l_gl_interface.reference28 := RCrh.ModifiedType;
2151: END IF;
2152:
2153: l_gl_interface.reference21 := p_Post.PostingControlId;
2154: l_gl_interface.reference22 := RCrh.CashReceiptId;
2155: l_gl_interface.reference23 := RCrh.CashReceiptHistoryId;
2156: l_gl_interface.reference24 := RCrh.ReceiptNumber;
2157: l_gl_interface.reference27 := RCrh.PayFromCustomer;
2158: l_gl_interface.reference28 := RCrh.ModifiedType;
2159: l_gl_interface.reference29 := RCrh.ModifiedType||'_'||RCrh.SourceType;
2152:
2153: l_gl_interface.reference21 := p_Post.PostingControlId;
2154: l_gl_interface.reference22 := RCrh.CashReceiptId;
2155: l_gl_interface.reference23 := RCrh.CashReceiptHistoryId;
2156: l_gl_interface.reference24 := RCrh.ReceiptNumber;
2157: l_gl_interface.reference27 := RCrh.PayFromCustomer;
2158: l_gl_interface.reference28 := RCrh.ModifiedType;
2159: l_gl_interface.reference29 := RCrh.ModifiedType||'_'||RCrh.SourceType;
2160: l_gl_interface.reference30 := 'AR_CASH_RECEIPT_HISTORY' ;
2153: l_gl_interface.reference21 := p_Post.PostingControlId;
2154: l_gl_interface.reference22 := RCrh.CashReceiptId;
2155: l_gl_interface.reference23 := RCrh.CashReceiptHistoryId;
2156: l_gl_interface.reference24 := RCrh.ReceiptNumber;
2157: l_gl_interface.reference27 := RCrh.PayFromCustomer;
2158: l_gl_interface.reference28 := RCrh.ModifiedType;
2159: l_gl_interface.reference29 := RCrh.ModifiedType||'_'||RCrh.SourceType;
2160: l_gl_interface.reference30 := 'AR_CASH_RECEIPT_HISTORY' ;
2161:
2154: l_gl_interface.reference22 := RCrh.CashReceiptId;
2155: l_gl_interface.reference23 := RCrh.CashReceiptHistoryId;
2156: l_gl_interface.reference24 := RCrh.ReceiptNumber;
2157: l_gl_interface.reference27 := RCrh.PayFromCustomer;
2158: l_gl_interface.reference28 := RCrh.ModifiedType;
2159: l_gl_interface.reference29 := RCrh.ModifiedType||'_'||RCrh.SourceType;
2160: l_gl_interface.reference30 := 'AR_CASH_RECEIPT_HISTORY' ;
2161:
2162: CreateInterface( l_gl_interface );
2155: l_gl_interface.reference23 := RCrh.CashReceiptHistoryId;
2156: l_gl_interface.reference24 := RCrh.ReceiptNumber;
2157: l_gl_interface.reference27 := RCrh.PayFromCustomer;
2158: l_gl_interface.reference28 := RCrh.ModifiedType;
2159: l_gl_interface.reference29 := RCrh.ModifiedType||'_'||RCrh.SourceType;
2160: l_gl_interface.reference30 := 'AR_CASH_RECEIPT_HISTORY' ;
2161:
2162: CreateInterface( l_gl_interface );
2163:
2156: l_gl_interface.reference24 := RCrh.ReceiptNumber;
2157: l_gl_interface.reference27 := RCrh.PayFromCustomer;
2158: l_gl_interface.reference28 := RCrh.ModifiedType;
2159: l_gl_interface.reference29 := RCrh.ModifiedType||'_'||RCrh.SourceType;
2160: l_gl_interface.reference30 := 'AR_CASH_RECEIPT_HISTORY' ;
2161:
2162: CreateInterface( l_gl_interface );
2163:
2164: EXCEPTION
2158: l_gl_interface.reference28 := RCrh.ModifiedType;
2159: l_gl_interface.reference29 := RCrh.ModifiedType||'_'||RCrh.SourceType;
2160: l_gl_interface.reference30 := 'AR_CASH_RECEIPT_HISTORY' ;
2161:
2162: CreateInterface( l_gl_interface );
2163:
2164: EXCEPTION
2165: WHEN OTHERS THEN
2166: arp_standard.debug( 'InsertIntoGl:' );
2293: */
2294:
2295: l_Count NUMBER :=0;
2296:
2297: l_gl_interface gl_interface%ROWTYPE;
2298: l_gl_interface_null gl_interface%ROWTYPE;
2299:
2300: BEGIN
2301: arp_standard.debug( ' ' );
2294:
2295: l_Count NUMBER :=0;
2296:
2297: l_gl_interface gl_interface%ROWTYPE;
2298: l_gl_interface_null gl_interface%ROWTYPE;
2299:
2300: BEGIN
2301: arp_standard.debug( ' ' );
2302: arp_standard.debug( ' AR_MISC_CASH_DISTRIBUTIONS...' );
2307: arp_standard.debug(' Primary sob');
2308: FOR RMcd IN CMcd
2309: LOOP
2310: /* bug3692482 replace insert stmt with CreateInterface procedure */
2311: l_gl_interface := l_gl_interface_null;
2312:
2313: /* first create the debit in gl_interface to the
2314: account_code_combination_id */
2315: l_gl_interface.created_by := p_Post.CreatedBy;
2309: LOOP
2310: /* bug3692482 replace insert stmt with CreateInterface procedure */
2311: l_gl_interface := l_gl_interface_null;
2312:
2313: /* first create the debit in gl_interface to the
2314: account_code_combination_id */
2315: l_gl_interface.created_by := p_Post.CreatedBy;
2316: l_gl_interface.date_created := TRUNC( SYSDATE );
2317: l_gl_interface.status := 'NEW';
2311: l_gl_interface := l_gl_interface_null;
2312:
2313: /* first create the debit in gl_interface to the
2314: account_code_combination_id */
2315: l_gl_interface.created_by := p_Post.CreatedBy;
2316: l_gl_interface.date_created := TRUNC( SYSDATE );
2317: l_gl_interface.status := 'NEW';
2318: l_gl_interface.actual_flag := 'A';
2319: l_gl_interface.group_id := p_Post.PostingControlId;
2312:
2313: /* first create the debit in gl_interface to the
2314: account_code_combination_id */
2315: l_gl_interface.created_by := p_Post.CreatedBy;
2316: l_gl_interface.date_created := TRUNC( SYSDATE );
2317: l_gl_interface.status := 'NEW';
2318: l_gl_interface.actual_flag := 'A';
2319: l_gl_interface.group_id := p_Post.PostingControlId;
2320: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2313: /* first create the debit in gl_interface to the
2314: account_code_combination_id */
2315: l_gl_interface.created_by := p_Post.CreatedBy;
2316: l_gl_interface.date_created := TRUNC( SYSDATE );
2317: l_gl_interface.status := 'NEW';
2318: l_gl_interface.actual_flag := 'A';
2319: l_gl_interface.group_id := p_Post.PostingControlId;
2320: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2321: l_gl_interface.user_je_source_name := p_Post.UserSource;
2314: account_code_combination_id */
2315: l_gl_interface.created_by := p_Post.CreatedBy;
2316: l_gl_interface.date_created := TRUNC( SYSDATE );
2317: l_gl_interface.status := 'NEW';
2318: l_gl_interface.actual_flag := 'A';
2319: l_gl_interface.group_id := p_Post.PostingControlId;
2320: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2321: l_gl_interface.user_je_source_name := p_Post.UserSource;
2322: l_gl_interface.user_je_category_name := RMcd.category;
2315: l_gl_interface.created_by := p_Post.CreatedBy;
2316: l_gl_interface.date_created := TRUNC( SYSDATE );
2317: l_gl_interface.status := 'NEW';
2318: l_gl_interface.actual_flag := 'A';
2319: l_gl_interface.group_id := p_Post.PostingControlId;
2320: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2321: l_gl_interface.user_je_source_name := p_Post.UserSource;
2322: l_gl_interface.user_je_category_name := RMcd.category;
2323: l_gl_interface.accounting_date := RMcd.gl_date;
2316: l_gl_interface.date_created := TRUNC( SYSDATE );
2317: l_gl_interface.status := 'NEW';
2318: l_gl_interface.actual_flag := 'A';
2319: l_gl_interface.group_id := p_Post.PostingControlId;
2320: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2321: l_gl_interface.user_je_source_name := p_Post.UserSource;
2322: l_gl_interface.user_je_category_name := RMcd.category;
2323: l_gl_interface.accounting_date := RMcd.gl_date;
2324: l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2317: l_gl_interface.status := 'NEW';
2318: l_gl_interface.actual_flag := 'A';
2319: l_gl_interface.group_id := p_Post.PostingControlId;
2320: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2321: l_gl_interface.user_je_source_name := p_Post.UserSource;
2322: l_gl_interface.user_je_category_name := RMcd.category;
2323: l_gl_interface.accounting_date := RMcd.gl_date;
2324: l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2325: l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2318: l_gl_interface.actual_flag := 'A';
2319: l_gl_interface.group_id := p_Post.PostingControlId;
2320: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2321: l_gl_interface.user_je_source_name := p_Post.UserSource;
2322: l_gl_interface.user_je_category_name := RMcd.category;
2323: l_gl_interface.accounting_date := RMcd.gl_date;
2324: l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2325: l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2326: l_gl_interface.ussgl_transaction_code :=
2319: l_gl_interface.group_id := p_Post.PostingControlId;
2320: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2321: l_gl_interface.user_je_source_name := p_Post.UserSource;
2322: l_gl_interface.user_je_category_name := RMcd.category;
2323: l_gl_interface.accounting_date := RMcd.gl_date;
2324: l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2325: l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2326: l_gl_interface.ussgl_transaction_code :=
2327: RMcd.ussgl_transaction_code;
2320: l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2321: l_gl_interface.user_je_source_name := p_Post.UserSource;
2322: l_gl_interface.user_je_category_name := RMcd.category;
2323: l_gl_interface.accounting_date := RMcd.gl_date;
2324: l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2325: l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2326: l_gl_interface.ussgl_transaction_code :=
2327: RMcd.ussgl_transaction_code;
2328: l_gl_interface.currency_code := RMcd.currency_code;
2321: l_gl_interface.user_je_source_name := p_Post.UserSource;
2322: l_gl_interface.user_je_category_name := RMcd.category;
2323: l_gl_interface.accounting_date := RMcd.gl_date;
2324: l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2325: l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2326: l_gl_interface.ussgl_transaction_code :=
2327: RMcd.ussgl_transaction_code;
2328: l_gl_interface.currency_code := RMcd.currency_code;
2329: l_gl_interface.code_combination_id := RMcd.code_combination_id;
2322: l_gl_interface.user_je_category_name := RMcd.category;
2323: l_gl_interface.accounting_date := RMcd.gl_date;
2324: l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2325: l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2326: l_gl_interface.ussgl_transaction_code :=
2327: RMcd.ussgl_transaction_code;
2328: l_gl_interface.currency_code := RMcd.currency_code;
2329: l_gl_interface.code_combination_id := RMcd.code_combination_id;
2330:
2324: l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2325: l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2326: l_gl_interface.ussgl_transaction_code :=
2327: RMcd.ussgl_transaction_code;
2328: l_gl_interface.currency_code := RMcd.currency_code;
2329: l_gl_interface.code_combination_id := RMcd.code_combination_id;
2330:
2331: IF RMcd.amount < 0
2332: THEN
2325: l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2326: l_gl_interface.ussgl_transaction_code :=
2327: RMcd.ussgl_transaction_code;
2328: l_gl_interface.currency_code := RMcd.currency_code;
2329: l_gl_interface.code_combination_id := RMcd.code_combination_id;
2330:
2331: IF RMcd.amount < 0
2332: THEN
2333: l_gl_interface.entered_dr := -RMcd.amount;
2329: l_gl_interface.code_combination_id := RMcd.code_combination_id;
2330:
2331: IF RMcd.amount < 0
2332: THEN
2333: l_gl_interface.entered_dr := -RMcd.amount;
2334: ELSE
2335: l_gl_interface.entered_cr := RMcd.amount;
2336: END IF;
2337:
2331: IF RMcd.amount < 0
2332: THEN
2333: l_gl_interface.entered_dr := -RMcd.amount;
2334: ELSE
2335: l_gl_interface.entered_cr := RMcd.amount;
2336: END IF;
2337:
2338: IF RMcd.Acctd_Amount < 0
2339: THEN
2336: END IF;
2337:
2338: IF RMcd.Acctd_Amount < 0
2339: THEN
2340: l_gl_interface.accounted_dr := -RMcd.acctd_amount;
2341: ELSE
2342: l_gl_interface.accounted_cr := RMcd.acctd_amount;
2343: END IF;
2344:
2338: IF RMcd.Acctd_Amount < 0
2339: THEN
2340: l_gl_interface.accounted_dr := -RMcd.acctd_amount;
2341: ELSE
2342: l_gl_interface.accounted_cr := RMcd.acctd_amount;
2343: END IF;
2344:
2345: l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
2346:
2341: ELSE
2342: l_gl_interface.accounted_cr := RMcd.acctd_amount;
2343: END IF;
2344:
2345: l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
2346:
2347: IF p_Post.SummaryFlag = 'Y'
2348: THEN
2349: l_gl_interface.reference10 := NULL;
2345: l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
2346:
2347: IF p_Post.SummaryFlag = 'Y'
2348: THEN
2349: l_gl_interface.reference10 := NULL;
2350: ELSE
2351: l_gl_interface.reference10 := p_Post.NlsPreMiscDist||' '||RMcd.ReceiptNumber||p_Post.NlsPostMiscDist;
2352: END IF;
2353:
2347: IF p_Post.SummaryFlag = 'Y'
2348: THEN
2349: l_gl_interface.reference10 := NULL;
2350: ELSE
2351: l_gl_interface.reference10 := p_Post.NlsPreMiscDist||' '||RMcd.ReceiptNumber||p_Post.NlsPostMiscDist;
2352: END IF;
2353:
2354: l_gl_interface.reference21 := p_Post.PostingControlId;
2355: l_gl_interface.reference22 := RMcd.CashReceiptId;
2350: ELSE
2351: l_gl_interface.reference10 := p_Post.NlsPreMiscDist||' '||RMcd.ReceiptNumber||p_Post.NlsPostMiscDist;
2352: END IF;
2353:
2354: l_gl_interface.reference21 := p_Post.PostingControlId;
2355: l_gl_interface.reference22 := RMcd.CashReceiptId;
2356: l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2357: l_gl_interface.reference24 := RMcd.ReceiptNumber;
2358: l_gl_interface.reference28 := 'MISC';
2351: l_gl_interface.reference10 := p_Post.NlsPreMiscDist||' '||RMcd.ReceiptNumber||p_Post.NlsPostMiscDist;
2352: END IF;
2353:
2354: l_gl_interface.reference21 := p_Post.PostingControlId;
2355: l_gl_interface.reference22 := RMcd.CashReceiptId;
2356: l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2357: l_gl_interface.reference24 := RMcd.ReceiptNumber;
2358: l_gl_interface.reference28 := 'MISC';
2359: l_gl_interface.reference29 := 'MISC_MISC';
2352: END IF;
2353:
2354: l_gl_interface.reference21 := p_Post.PostingControlId;
2355: l_gl_interface.reference22 := RMcd.CashReceiptId;
2356: l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2357: l_gl_interface.reference24 := RMcd.ReceiptNumber;
2358: l_gl_interface.reference28 := 'MISC';
2359: l_gl_interface.reference29 := 'MISC_MISC';
2360: l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2353:
2354: l_gl_interface.reference21 := p_Post.PostingControlId;
2355: l_gl_interface.reference22 := RMcd.CashReceiptId;
2356: l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2357: l_gl_interface.reference24 := RMcd.ReceiptNumber;
2358: l_gl_interface.reference28 := 'MISC';
2359: l_gl_interface.reference29 := 'MISC_MISC';
2360: l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2361:
2354: l_gl_interface.reference21 := p_Post.PostingControlId;
2355: l_gl_interface.reference22 := RMcd.CashReceiptId;
2356: l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2357: l_gl_interface.reference24 := RMcd.ReceiptNumber;
2358: l_gl_interface.reference28 := 'MISC';
2359: l_gl_interface.reference29 := 'MISC_MISC';
2360: l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2361:
2362: CreateInterface( l_gl_interface );
2355: l_gl_interface.reference22 := RMcd.CashReceiptId;
2356: l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2357: l_gl_interface.reference24 := RMcd.ReceiptNumber;
2358: l_gl_interface.reference28 := 'MISC';
2359: l_gl_interface.reference29 := 'MISC_MISC';
2360: l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2361:
2362: CreateInterface( l_gl_interface );
2363:
2356: l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2357: l_gl_interface.reference24 := RMcd.ReceiptNumber;
2358: l_gl_interface.reference28 := 'MISC';
2359: l_gl_interface.reference29 := 'MISC_MISC';
2360: l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2361:
2362: CreateInterface( l_gl_interface );
2363:
2364: --
2358: l_gl_interface.reference28 := 'MISC';
2359: l_gl_interface.reference29 := 'MISC_MISC';
2360: l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2361:
2362: CreateInterface( l_gl_interface );
2363:
2364: --
2365: UPDATE ar_misc_cash_distributions
2366: SET posting_control_id = p_Post.PostingControlId,
2377: -- arp_standard.debug(' Reporting sob');
2378: -- FOR RMcd IN CMcd_mrc
2379: -- LOOP
2380: /* bug3692482 replace insert stmt with CreateInterface procedure */
2381: l_gl_interface := l_gl_interface_null ;
2382:
2383: /* first create the debit in gl_interface to the
2384: account_code_combination_id */
2385:
2379: -- LOOP
2380: /* bug3692482 replace insert stmt with CreateInterface procedure */
2381: l_gl_interface := l_gl_interface_null ;
2382:
2383: /* first create the debit in gl_interface to the
2384: account_code_combination_id */
2385:
2386: -- l_gl_interface.created_by := p_Post.CreatedBy;
2387: -- l_gl_interface.date_created := TRUNC( SYSDATE );
2382:
2383: /* first create the debit in gl_interface to the
2384: account_code_combination_id */
2385:
2386: -- l_gl_interface.created_by := p_Post.CreatedBy;
2387: -- l_gl_interface.date_created := TRUNC( SYSDATE );
2388: -- l_gl_interface.status := 'NEW';
2389: -- l_gl_interface.actual_flag := 'A';
2390: -- l_gl_interface.group_id := p_Post.PostingControlId;
2383: /* first create the debit in gl_interface to the
2384: account_code_combination_id */
2385:
2386: -- l_gl_interface.created_by := p_Post.CreatedBy;
2387: -- l_gl_interface.date_created := TRUNC( SYSDATE );
2388: -- l_gl_interface.status := 'NEW';
2389: -- l_gl_interface.actual_flag := 'A';
2390: -- l_gl_interface.group_id := p_Post.PostingControlId;
2391: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2384: account_code_combination_id */
2385:
2386: -- l_gl_interface.created_by := p_Post.CreatedBy;
2387: -- l_gl_interface.date_created := TRUNC( SYSDATE );
2388: -- l_gl_interface.status := 'NEW';
2389: -- l_gl_interface.actual_flag := 'A';
2390: -- l_gl_interface.group_id := p_Post.PostingControlId;
2391: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2392: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
2385:
2386: -- l_gl_interface.created_by := p_Post.CreatedBy;
2387: -- l_gl_interface.date_created := TRUNC( SYSDATE );
2388: -- l_gl_interface.status := 'NEW';
2389: -- l_gl_interface.actual_flag := 'A';
2390: -- l_gl_interface.group_id := p_Post.PostingControlId;
2391: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2392: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
2393: -- l_gl_interface.user_je_category_name := RMcd.category;
2386: -- l_gl_interface.created_by := p_Post.CreatedBy;
2387: -- l_gl_interface.date_created := TRUNC( SYSDATE );
2388: -- l_gl_interface.status := 'NEW';
2389: -- l_gl_interface.actual_flag := 'A';
2390: -- l_gl_interface.group_id := p_Post.PostingControlId;
2391: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2392: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
2393: -- l_gl_interface.user_je_category_name := RMcd.category;
2394: -- l_gl_interface.accounting_date := RMcd.gl_date;
2387: -- l_gl_interface.date_created := TRUNC( SYSDATE );
2388: -- l_gl_interface.status := 'NEW';
2389: -- l_gl_interface.actual_flag := 'A';
2390: -- l_gl_interface.group_id := p_Post.PostingControlId;
2391: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2392: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
2393: -- l_gl_interface.user_je_category_name := RMcd.category;
2394: -- l_gl_interface.accounting_date := RMcd.gl_date;
2395: -- l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2388: -- l_gl_interface.status := 'NEW';
2389: -- l_gl_interface.actual_flag := 'A';
2390: -- l_gl_interface.group_id := p_Post.PostingControlId;
2391: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2392: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
2393: -- l_gl_interface.user_je_category_name := RMcd.category;
2394: -- l_gl_interface.accounting_date := RMcd.gl_date;
2395: -- l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2396: -- l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2389: -- l_gl_interface.actual_flag := 'A';
2390: -- l_gl_interface.group_id := p_Post.PostingControlId;
2391: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2392: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
2393: -- l_gl_interface.user_je_category_name := RMcd.category;
2394: -- l_gl_interface.accounting_date := RMcd.gl_date;
2395: -- l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2396: -- l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2397: -- l_gl_interface.ussgl_transaction_code :=
2390: -- l_gl_interface.group_id := p_Post.PostingControlId;
2391: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2392: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
2393: -- l_gl_interface.user_je_category_name := RMcd.category;
2394: -- l_gl_interface.accounting_date := RMcd.gl_date;
2395: -- l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2396: -- l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2397: -- l_gl_interface.ussgl_transaction_code :=
2398: --RMcd.ussgl_transaction_code;
2391: -- l_gl_interface.set_of_books_id := p_Post.SetOfBooksId;
2392: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
2393: -- l_gl_interface.user_je_category_name := RMcd.category;
2394: -- l_gl_interface.accounting_date := RMcd.gl_date;
2395: -- l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2396: -- l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2397: -- l_gl_interface.ussgl_transaction_code :=
2398: --RMcd.ussgl_transaction_code;
2399: -- l_gl_interface.currency_code := RMcd.currency_code;
2392: -- l_gl_interface.user_je_source_name := p_Post.UserSource;
2393: -- l_gl_interface.user_je_category_name := RMcd.category;
2394: -- l_gl_interface.accounting_date := RMcd.gl_date;
2395: -- l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2396: -- l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2397: -- l_gl_interface.ussgl_transaction_code :=
2398: --RMcd.ussgl_transaction_code;
2399: -- l_gl_interface.currency_code := RMcd.currency_code;
2400: -- l_gl_interface.code_combination_id := RMcd.code_combination_id;
2393: -- l_gl_interface.user_je_category_name := RMcd.category;
2394: -- l_gl_interface.accounting_date := RMcd.gl_date;
2395: -- l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2396: -- l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2397: -- l_gl_interface.ussgl_transaction_code :=
2398: --RMcd.ussgl_transaction_code;
2399: -- l_gl_interface.currency_code := RMcd.currency_code;
2400: -- l_gl_interface.code_combination_id := RMcd.code_combination_id;
2401:
2395: -- l_gl_interface.subledger_doc_sequence_id := RMcd.doc_sequence_id;
2396: -- l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2397: -- l_gl_interface.ussgl_transaction_code :=
2398: --RMcd.ussgl_transaction_code;
2399: -- l_gl_interface.currency_code := RMcd.currency_code;
2400: -- l_gl_interface.code_combination_id := RMcd.code_combination_id;
2401:
2402: -- IF RMcd.amount < 0
2403: -- THEN
2396: -- l_gl_interface.subledger_doc_sequence_value := RMcd.doc_sequence_value;
2397: -- l_gl_interface.ussgl_transaction_code :=
2398: --RMcd.ussgl_transaction_code;
2399: -- l_gl_interface.currency_code := RMcd.currency_code;
2400: -- l_gl_interface.code_combination_id := RMcd.code_combination_id;
2401:
2402: -- IF RMcd.amount < 0
2403: -- THEN
2404: -- l_gl_interface.entered_dr := -RMcd.amount;
2400: -- l_gl_interface.code_combination_id := RMcd.code_combination_id;
2401:
2402: -- IF RMcd.amount < 0
2403: -- THEN
2404: -- l_gl_interface.entered_dr := -RMcd.amount;
2405: -- ELSE
2406: -- l_gl_interface.entered_cr := RMcd.amount;
2407: -- END IF;
2408:
2402: -- IF RMcd.amount < 0
2403: -- THEN
2404: -- l_gl_interface.entered_dr := -RMcd.amount;
2405: -- ELSE
2406: -- l_gl_interface.entered_cr := RMcd.amount;
2407: -- END IF;
2408:
2409: -- IF RMcd.Acctd_Amount < 0
2410: -- THEN
2407: -- END IF;
2408:
2409: -- IF RMcd.Acctd_Amount < 0
2410: -- THEN
2411: -- l_gl_interface.accounted_dr := -RMcd.acctd_amount;
2412: -- ELSE
2413: -- l_gl_interface.accounted_cr := RMcd.acctd_amount;
2414: -- END IF;
2415:
2409: -- IF RMcd.Acctd_Amount < 0
2410: -- THEN
2411: -- l_gl_interface.accounted_dr := -RMcd.acctd_amount;
2412: -- ELSE
2413: -- l_gl_interface.accounted_cr := RMcd.acctd_amount;
2414: -- END IF;
2415:
2416: -- l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
2417:
2412: -- ELSE
2413: -- l_gl_interface.accounted_cr := RMcd.acctd_amount;
2414: -- END IF;
2415:
2416: -- l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
2417:
2418: -- IF p_Post.SummaryFlag = 'Y'
2419: -- THEN
2420: -- l_gl_interface.reference10 := NULL;
2416: -- l_gl_interface.reference1 := 'AR '||p_Post.PostingControlId;
2417:
2418: -- IF p_Post.SummaryFlag = 'Y'
2419: -- THEN
2420: -- l_gl_interface.reference10 := NULL;
2421: -- ELSE
2422: -- l_gl_interface.reference10 := p_Post.NlsPreMiscDist||' '||RMcd.ReceiptNumber||p_Post.NlsPostMiscDist;
2423: -- END IF;
2424:
2418: -- IF p_Post.SummaryFlag = 'Y'
2419: -- THEN
2420: -- l_gl_interface.reference10 := NULL;
2421: -- ELSE
2422: -- l_gl_interface.reference10 := p_Post.NlsPreMiscDist||' '||RMcd.ReceiptNumber||p_Post.NlsPostMiscDist;
2423: -- END IF;
2424:
2425: -- l_gl_interface.reference21 := p_Post.PostingControlId;
2426: -- l_gl_interface.reference22 := RMcd.CashReceiptId;
2421: -- ELSE
2422: -- l_gl_interface.reference10 := p_Post.NlsPreMiscDist||' '||RMcd.ReceiptNumber||p_Post.NlsPostMiscDist;
2423: -- END IF;
2424:
2425: -- l_gl_interface.reference21 := p_Post.PostingControlId;
2426: -- l_gl_interface.reference22 := RMcd.CashReceiptId;
2427: -- l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2428: -- l_gl_interface.reference24 := RMcd.ReceiptNumber;
2429: -- l_gl_interface.reference28 := 'MISC';
2422: -- l_gl_interface.reference10 := p_Post.NlsPreMiscDist||' '||RMcd.ReceiptNumber||p_Post.NlsPostMiscDist;
2423: -- END IF;
2424:
2425: -- l_gl_interface.reference21 := p_Post.PostingControlId;
2426: -- l_gl_interface.reference22 := RMcd.CashReceiptId;
2427: -- l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2428: -- l_gl_interface.reference24 := RMcd.ReceiptNumber;
2429: -- l_gl_interface.reference28 := 'MISC';
2430: -- l_gl_interface.reference29 := 'MISC_MISC';
2423: -- END IF;
2424:
2425: -- l_gl_interface.reference21 := p_Post.PostingControlId;
2426: -- l_gl_interface.reference22 := RMcd.CashReceiptId;
2427: -- l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2428: -- l_gl_interface.reference24 := RMcd.ReceiptNumber;
2429: -- l_gl_interface.reference28 := 'MISC';
2430: -- l_gl_interface.reference29 := 'MISC_MISC';
2431: -- l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2424:
2425: -- l_gl_interface.reference21 := p_Post.PostingControlId;
2426: -- l_gl_interface.reference22 := RMcd.CashReceiptId;
2427: -- l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2428: -- l_gl_interface.reference24 := RMcd.ReceiptNumber;
2429: -- l_gl_interface.reference28 := 'MISC';
2430: -- l_gl_interface.reference29 := 'MISC_MISC';
2431: -- l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2432:
2425: -- l_gl_interface.reference21 := p_Post.PostingControlId;
2426: -- l_gl_interface.reference22 := RMcd.CashReceiptId;
2427: -- l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2428: -- l_gl_interface.reference24 := RMcd.ReceiptNumber;
2429: -- l_gl_interface.reference28 := 'MISC';
2430: -- l_gl_interface.reference29 := 'MISC_MISC';
2431: -- l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2432:
2433: -- CreateInterface( l_gl_interface ) ;
2426: -- l_gl_interface.reference22 := RMcd.CashReceiptId;
2427: -- l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2428: -- l_gl_interface.reference24 := RMcd.ReceiptNumber;
2429: -- l_gl_interface.reference28 := 'MISC';
2430: -- l_gl_interface.reference29 := 'MISC_MISC';
2431: -- l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2432:
2433: -- CreateInterface( l_gl_interface ) ;
2434:
2427: -- l_gl_interface.reference23 := RMcd.MiscCashDistributionId;
2428: -- l_gl_interface.reference24 := RMcd.ReceiptNumber;
2429: -- l_gl_interface.reference28 := 'MISC';
2430: -- l_gl_interface.reference29 := 'MISC_MISC';
2431: -- l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2432:
2433: -- CreateInterface( l_gl_interface ) ;
2434:
2435: --
2429: -- l_gl_interface.reference28 := 'MISC';
2430: -- l_gl_interface.reference29 := 'MISC_MISC';
2431: -- l_gl_interface.reference30 := 'AR_MISC_CASH_DISTRIBUTIONS';
2432:
2433: -- CreateInterface( l_gl_interface ) ;
2434:
2435: --
2436: -- UPDATE ar_mc_misc_cash_dists
2437: -- SET posting_control_id = p_Post.PostingControlId,
2561:
2562: DELETE FROM ar_cash_basis_distributions
2563: WHERE cash_basis_distribution_id IN (
2564: SELECT reference23
2565: FROM gl_interface
2566: WHERE reference22 = p_BalanceId
2567: AND reference28 = p_CategoryCode
2568: AND set_of_books_id = p_Post.SetOfBooksId
2569: AND group_id = p_Post.PostingControlId
2597: DELETE FROM ar_mc_cash_basis_dists_all
2598: WHERE set_of_books_id = p_Post.SetOfBooksId
2599: AND cash_basis_distribution_id IN (
2600: SELECT reference23
2601: FROM gl_interface
2602: WHERE reference22 = p_BalanceId
2603: AND reference28 = p_CategoryCode
2604: AND set_of_books_id = p_Post.SetOfBooksId
2605: AND group_id = p_Post.PostingControlId
2609: */
2610: END IF;
2611: END IF;
2612:
2613: DELETE FROM gl_interface
2614: WHERE reference22 = p_BalanceId
2615: AND reference28 = p_CategoryCode
2616: AND set_of_books_id = p_Post.SetOfBooksId
2617: AND group_id = p_Post.PostingControlId
2633: /*---------------------------------------------------------------------------*
2634: | PRIVATE PROCEDURE |
2635: | CheckBalance |
2636: | DESCRIPTION |
2637: | Checks that the records inserted into gl_interface balance for each |
2638: | BalanceId (reference22). |
2639: | Any BalanceId that fails to balance will be reported on |
2640: | (via arp_standard.debug), and will be deleted with ClearOOB |
2641: | PARAMETERS |
2659: SUM(nvl(i.entered_dr,0)) SumEnteredDr,
2660: SUM(nvl(i.entered_cr,0)) SumEnteredCr,
2661: SUM(nvl(i.accounted_dr,0)) SumAccountedDr,
2662: SUM(nvl(i.accounted_cr,0)) SumAccountedCr
2663: FROM gl_interface i
2664: WHERE i.group_id = p_Post.PostingControlId
2665: AND i.user_je_source_name = p_Post.UserSource
2666: AND i.set_of_books_id = p_Post.SetOfBooksId
2667: AND i.accounting_date BETWEEN p_Post.GlDateFrom
2679: i.accounted_dr AccountedDr,
2680: i.accounted_cr AccountedCr,
2681: i.reference30 TableName,
2682: i.reference23 Id
2683: FROM gl_interface i
2684: WHERE i.group_id = p_Post.PostingControlId
2685: AND i.user_je_source_name = p_Post.UserSource
2686: AND set_of_books_id = p_Post.SetOfBooksId
2687: AND i.reference22 = p_BalanceId