25: e_error EXCEPTION;
26:
27: l_rpr_rec fv_be_rpr_transactions%ROWTYPE;
28: l_trx_hdr_rec fv_be_trx_hdrs%ROWTYPE;
29: l_trx_dtl_rec fv_be_trx_dtls%ROWTYPE;
30: l_from_doc_number Fv_Be_Trx_Hdrs.doc_number%TYPE;
31: l_to_doc_number Fv_Be_Trx_Hdrs.doc_number%TYPE;
32: l_workflow_flag fv_budget_options.workflow_flag%TYPE;
33:
165: UPDATE fv_be_trx_hdrs
166: SET doc_status = 'IP'
167: WHERE doc_id IN (l_from_doc_id, l_to_doc_id);
168:
169: UPDATE fv_be_trx_dtls
170: SET transaction_status = 'IP'
171: WHERE doc_id IN (l_from_doc_id, l_to_doc_id);
172:
173: COMMIT;
494: p_trx_hdr_rec.segment27,
495: p_trx_hdr_rec.segment28,
496: p_trx_hdr_rec.segment29,
497: p_trx_hdr_rec.segment30
498: from fv_be_trx_dtls d , fv_be_trx_hdrs h
499: where d.budgeting_segments = p_rpr_rec.distribution_from
500: and h.doc_id = d.doc_id
501: and h.budget_level_id = p_rpr_rec.budget_level_id
502: and rownum = 1;
521: '.final_exception',g_errbuf);
522: END; --procedure set_hdr_fields
523:
524: PROCEDURE set_dtl_fields (p_count NUMBER,
525: p_trx_dtl_rec OUT NOCOPY fv_be_trx_dtls%ROWTYPE,
526: p_rpr_rec fv_be_rpr_transactions%ROWTYPE)
527: IS
528: l_module_name VARCHAR2(200);
529:
528: l_module_name VARCHAR2(200);
529:
530: BEGIN
531: l_module_name := g_module_name || 'set_dtl_fields';
532: SELECT fv_be_trx_dtls_s.NEXTVAL
533: INTO p_trx_dtl_rec.transaction_id
534: FROM dual;
535:
536: p_trx_dtl_rec.revision_num := 0;
778: '.final_exception',g_errbuf);
779:
780: END; --procedure insert_hdr_record
781:
782: PROCEDURE insert_dtl_record (p_trx_dtl_rec fv_be_trx_dtls%ROWTYPE) IS
783: l_module_name VARCHAR2(200);
784:
785: BEGIN
786: l_module_name := g_module_name || 'insert_dtl_record';
783: l_module_name VARCHAR2(200);
784:
785: BEGIN
786: l_module_name := g_module_name || 'insert_dtl_record';
787: INSERT INTO fv_be_trx_dtls
788: (transaction_id ,
789: doc_id ,
790: revision_num ,
791: transaction_status ,
914: SET doc_status = 'IN',
915: approved_by_user_id = NULL
916: WHERE doc_id IN (p_from_doc_id, p_to_doc_id);
917:
918: UPDATE fv_be_trx_dtls
919: SET transaction_status = 'IN'
920: WHERE doc_id IN (p_from_doc_id, p_to_doc_id);
921:
922: COMMIT;