794: END Get_Postable_Rows;
795:
796: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
797: --+Do Journal Post
798: --+need to set the status to 'S' in gl_je_batches, means selected to be posted
799: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
800: PROCEDURE Run_Journal_Post(
801: user_id IN number,
802: resp_id IN number,
833: l_batch_name varchar2(100);
834: v_ReturnCursor t_RefCur;
835: v_Ledger_Cursor t_RefCur;
836: v_ALC_Cursor t_RefCur;
837: v_Batches gl_je_batches%ROWTYPE;
838:
839: l_status varchar2(1);
840: l_request_id number(15);
841: dummy NUMBER(1);
845: rstatus VARCHAR2(80);
846: dphase VARCHAR2(30);
847: dstatus VARCHAR2(30);
848: message VARCHAR2(240);
849: l_batch_status GL_JE_BATCHES.STATUS%TYPE;
850: l_budgetary_status GL_JE_BATCHES.BUDGETARY_CONTROL_STATUS%TYPE;
851:
852: BEGIN
853: l_count := 1;
846: dphase VARCHAR2(30);
847: dstatus VARCHAR2(30);
848: message VARCHAR2(240);
849: l_batch_status GL_JE_BATCHES.STATUS%TYPE;
850: l_budgetary_status GL_JE_BATCHES.BUDGETARY_CONTROL_STATUS%TYPE;
851:
852: BEGIN
853: l_count := 1;
854: l_ok_to_post := TRUE;
865: --+or it is 'I' = UNDERWAY and concurrent request is RUNNING then don't post
866: --+if the status is 'P', don't post again, just exit
867: --+ lock this row too!
868: v_SelectSQL := 'select status, request_id, budgetary_control_status ' ||
869: 'from gl_je_batches ' ||
870: 'WHERE je_batch_id = :b_id ' ||
871: 'and default_period_name = :pd ' ||
872: -- 'and ledger_id = :ledger ' ||
873: 'and actual_flag = :flag ' ||
917: l_batch_status := 'S';
918: open get_new_id;
919: fetch get_new_id into post_run_id;
920: close get_new_id;
921: v_UpdateSQL := 'UPDATE gl_je_batches ' ||
922: 'SET posting_run_id = :post_run_id, ' ||
923: 'status = :bs ' ||
924: 'WHERE je_batch_id = :b_id ' ||
925: 'and default_period_name = :pd ' ||
926: -- 'and ledger_id = :ledger ' ||
927: 'and actual_flag = :flag';
928: EXECUTE IMMEDIATE v_UpdateSQL USING post_run_id,l_batch_status,
929: batch_id, pd_name, actual_flag;
930: v_SelectSQL := 'select name from gl_je_batches ' ||
931: 'WHERE je_batch_id = :b_id';
932: EXECUTE IMMEDIATE v_SelectSQL INTO l_batch_name USING batch_id;
933: --+dbms_output.put_line('get batch name');
934:
1027: END IF;
1028: --+dbms_output.put_line('after post submitted' || reqid);
1029:
1030: IF (reqid <> 0) THEN
1031: v_UpdateSQL := 'UPDATE gl_je_batches ' ||
1032: 'SET request_id = :request_id ' ||
1033: 'WHERE je_batch_id = :b_id ' ||
1034: 'and default_period_name = :pd ' ||
1035: -- 'and ledger_id = :ledger ' ||