[Home] [Help]
171: Begin
172:
173: SELECT fun_interface_controls_s.nextval
174: INTO l_group_id
175: FROM dual;
176:
177: If p_insert_flag = 'Y' Then
178: Insert Into Fun_Interface_Batches(
179: source,
643: Where batch_number = cp_batch_number;
644:
645: Cursor C_Batch_Id Is
646: Select Fun_Trx_Batches_S.nextval batch_id
647: From Dual;
648:
649: -- Bug No: 6134848. 2 more condetions added to validate Party_usage_code.
650:
651: Cursor C_Party(cp_party_name In Fun_Interface_Batches.initiator_name%type) Is
682: And trx_number = cp_trx_number;
683:
684: Cursor C_Trx_Id Is
685: Select Fun_Trx_Headers_S.nextval trx_id
686: From Dual;
687:
688: Cursor C_Dupl_Reci_In_Batch(
689: cp_batch_id In Fun_Interface_Headers.batch_id%type,
690: cp_trx_number In Fun_Interface_Headers.trx_number%type,
710: And dist_number=cp_dist_number;
711:
712: Cursor C_Dist_Id Is
713: Select Fun_Dist_Lines_S.nextval dist_id
714: From dual;
715:
716: Cursor C_Ccid(cp_party_name In Fun_Interface_Batches.initiator_name%type) Is
717: Select chart_of_accounts_id
718: From Hz_Parties hzp,
790:
791:
792: Begin
793: l_count := 1;
794: select length(p_batch_number) into l_length from dual; --6846666
795: IF(l_length>20) Then --6846666
796: Raise Batch_Num_Invalid_Excpt;
797: End IF;
798: l_batch_rec.batch_number := p_batch_number;