667: -- Debashis. Added exists and removed rownum.
668: select 1 into x_result_code from dual where exists (
669: select substr(NVL(result_code,'X'),1,1)
670: -- into x_result_code
671: from gms_bc_packets
672: where packet_id = X_packet_id
673: and substr(NVL(result_code,'X'),1,1) = 'F' );
674: -- and rownum < 2 ;
675:
735:
736:
737: /* End changes for Bug 10353561 */
738:
739: insert into gms_bc_packets ( packet_id,
740: set_of_books_id,
741: je_source_name,
742: je_category_name,
743: actual_flag,
801: --tab_index,
802: 'N',
803: l_budget_version_id, ---bv.budget_version_id,
804: 'E',
805: gms_bc_packets_s.nextval
806: );
807:
808:
809: END loop;
840: else
841: X_return := GET_RESULT_CODE ;
842: end if;
843:
844: delete from gms_bc_packets
845: where packet_id = X_packet_id;
846:
847: return X_return ;
848: