<\/p>\n
\nOl\u00e1 Rafael, tudo bem?<\/span><\/div>\n
<\/span><\/div>\nJ\u00e1 fiz isso. O que exatamente voc\u00ea precisa?<\/span><\/div>\n
<\/span><\/div>\n
<\/span><\/div>\nAqui um exemplo do que foi feito nessa procedure.<\/span><\/div>\nO nome do programa na <\/span>p_programs_list precisar ser o short_name do concurrent.<\/div>\nQuando executar, vai inicializar uma concurrent para cada item na program_list.<\/div>\n<\/div>\nEspero ter ajudado, qualquer coisa pode me escrever.<\/div>\n<\/div>\nAbra\u00e7o,<\/div>\nHelder Costa Amaral<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n   –This procedure is the Concurrent Parent Program<\/div>\n   –which in turn submits other payment programs as<\/div>\n   –child requests.<\/div>\n   –Called from the procedure Submit of XXMV_AP_PAYMENT_PROCESSOR package.<\/div>\n
<\/div>\n   PROCEDURE submit_program(errbuf               OUT NOCOPY VARCHAR2<\/div>\n                           ,retcode              OUT NOCOPY NUMBER<\/div>\n                           ,p_progs_params_list1 IN VARCHAR2<\/div>\n                           ,p_progs_params_list2 IN VARCHAR2<\/div>\n                           ,p_progs_params_list3 IN VARCHAR2<\/div>\n                           ,p_progs_params_list4 IN VARCHAR2<\/div>\n                           ,p_progs_params_list5 IN VARCHAR2<\/div>\n                           ,p_progs_params_list6 IN VARCHAR2<\/div>\n                           ,p_progs_params_list7 IN VARCHAR2<\/div>\n                           ,p_progs_params_list8 IN VARCHAR2<\/div>\n                           ,p_progs_params_list9 IN VARCHAR2<\/div>\n                           ,p_payment_batch      IN VARCHAR2<\/div>\n                           ,p_programs_list      IN VARCHAR2<\/div>\n                           ,p_org_id             IN NUMBER<\/div>\n                           ,p_event              IN VARCHAR2<\/div>\n                           ,p_calling_sequence   IN VARCHAR2) IS<\/div>\n
<\/div>\n      l_current_calling_sequence VARCHAR2(2000);<\/div>\n      l_debug_info               VARCHAR2(100);<\/div>\n      l_req_data                 VARCHAR2(240); — Bug2828863 Changing length to 240.<\/div>\n      l_program_index            NUMBER;<\/div>\n      l_request_id               NUMBER;<\/div>\n      l_sqlerrm                  VARCHAR2(200);<\/div>\n      l_error_mesg               VARCHAR2(2000);<\/div>\n      no_of_parameters           NUMBER;<\/div>\n      p_progs_params_list        VARCHAR2(2000);<\/div>\n      TYPE programs_table IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;<\/div>\n      l_programs_list      programs_table;<\/div>\n      l_prev_program_index NUMBER;<\/div>\n      l_prev_request_id    NUMBER;<\/div>\n      dstatus              VARCHAR2(30) := ‘SUCCESS’;<\/div>\n      dphase               VARCHAR2(30);<\/div>\n      rstatus              VARCHAR2(80);<\/div>\n      rphase               VARCHAR2(80);<\/div>\n      message              VARCHAR2(240);<\/div>\n      l_call_status        BOOLEAN;<\/div>\n      –l_complete           BOOLEAN;<\/div>\n      l_debug_index        NUMBER := 1;<\/div>\n      l_length             NUMBER := 0;<\/div>\n      l_start              NUMBER := 0;<\/div>\n      l_program_name       VARCHAR2(80) := NULL;<\/div>\n   BEGIN<\/div>\n
<\/div>\n      — Update the calling sequence<\/div>\n      —<\/div>\n      l_current_calling_sequence := p_calling_sequence || ‘->’ || ‘XXMV_AP_PAYMENT_PROCESSOR.submit_program’;<\/div>\n
<\/div>\n      l_debug_info := ‘Building back the global list .’;<\/div>\n
<\/div>\n      ————————————————————————<\/div>\n      –Concatenate back the split progs_params_list into a single list again.<\/div>\n      ————————————————————————<\/div>\n      p_progs_params_list := p_progs_params_list1 || p_progs_params_list2 ||<\/div>\n                             p_progs_params_list3 || p_progs_params_list4 ||<\/div>\n                             p_progs_params_list5 || p_progs_params_list6 ||<\/div>\n                             p_progs_params_list7 || p_progs_params_list8 ||<\/div>\n                             p_progs_params_list9;<\/div>\n
<\/div>\n      ————————————————————<\/div>\n      — Programs defined in the order they should run<\/div>\n      ————————————————————<\/div>\n
<\/div>\n      l_debug_info := ‘Antes da atribui\u00e7\u00e3o do XXMVAUTOSELECT’;<\/div>\n
<\/div>\n      IF instr(p_programs_list, ‘XXMVAUTOSELECT’) <> 0 THEN<\/div>\n         l_programs_list(1) := ‘XXMVAUTOSELECT’; — Programa customizado para o Autoselect. –MV<\/div>\n      END IF;<\/div>\n
<\/div>\n      l_debug_info := ‘Depois da atribui\u00e7\u00e3o do XXMVAUTOSELECT’;<\/div>\n
<\/div>\n      l_programs_list(2) := ‘BUILD’;<\/div>\n      –Bug 2353651 Added for Calling Federal’s Report<\/div>\n      l_programs_list(3) := ‘CASH_POSITION’;<\/div>\n      l_programs_list(4) := ‘PRELIM_REGISTER’;<\/div>\n      –Bug:2637430  Added for Federal Financials<\/div>\n      l_programs_list(5) := ‘THIRD_PARTY_PAYMENT’;<\/div>\n      –Bug:2025932 Added for AP-AR Netting<\/div>\n      l_programs_list(6) := ‘NETTING’;<\/div>\n      l_programs_list(7) := ‘FORMAT’;<\/div>\n      l_programs_list(8) := ‘CONFIRM’;<\/div>\n      l_programs_list(9) := ‘ACCOUNT’;<\/div>\n      l_programs_list(10) := ‘POPAY’;<\/div>\n      l_programs_list(11) := ‘FINAL_REGISTER’;<\/div>\n      l_programs_list(12) := ‘REMITTANCE’;<\/div>\n      l_programs_list(13) := ‘CANCEL’;<\/div>\n      l_programs_list(14) := ‘ADDCONSOL’;<\/div>\n      l_programs_list(15) := ‘IMPORT’;<\/div>\n
<\/div>\n      ————————————————————<\/div>\n      –Print to Log file all the programs that will be submitted<\/div>\n      ————————————————————<\/div>\n      l_req_data := fnd_conc_global.request_data;<\/div>\n
<\/div>\n      IF (p_programs_list IS NOT NULL AND l_req_data IS NULL) THEN<\/div>\n
<\/div>\n         l_debug_info := ‘Payment Process Manager will submit ‘;<\/div>\n         fnd_file.put_line(fnd_file.log, l_debug_info);<\/div>\n
<\/div>\n         LOOP<\/div>\n            EXIT WHEN(l_debug_index > 15);<\/div>\n
<\/div>\n            l_start  := instr(p_programs_list<\/div>\n                             ,l_programs_list(l_debug_index));<\/div>\n            l_length := length(l_programs_list(l_debug_index));<\/div>\n
<\/div>\n            IF (l_start <> 0) THEN<\/div>\n               l_program_name := ‘……..’ ||<\/div>\n                                 substr(p_programs_list, l_start, l_length);<\/div>\n            ELSE<\/div>\n               l_program_name := NULL;<\/div>\n            END IF;<\/div>\n
<\/div>\n            IF (l_program_name IS NOT NULL) THEN<\/div>\n               fnd_file.put_line(fnd_file.log, l_program_name);<\/div>\n            END IF;<\/div>\n            l_debug_index := l_debug_index + 1;<\/div>\n
<\/div>\n         END LOOP;<\/div>\n
<\/div>\n      END IF;<\/div>\n
<\/div>\n      ————————————————————<\/div>\n      — Read the value from REQUEST_DATA.  If this is the<\/div>\n      — first run of the program, then this value will be null.<\/div>\n      — Otherwise, this will be the value that we passed to<\/div>\n      — SET_REQ_GLOBALS on the previous run.<\/div>\n      ————————————————————<\/div>\n
<\/div>\n      l_req_data := fnd_conc_global.request_data;<\/div>\n      IF (l_req_data IS NOT NULL) THEN<\/div>\n
<\/div>\n         l_prev_program_index := substr(l_req_data<\/div>\n                                       ,1<\/div>\n                                       ,instr(l_req_data, ‘:’) – 1);<\/div>\n         l_prev_request_id    := substr(l_req_data<\/div>\n                                       ,instr(l_req_data, ‘:’) + 1);<\/div>\n
<\/div>\n         IF (l_prev_request_id IS NOT NULL) THEN<\/div>\n            l_call_status := fnd_concurrent.get_request_status(l_prev_request_id<\/div>\n                                                              ,”<\/div>\n                                                              ,”<\/div>\n                                                              ,rphase<\/div>\n                                                              ,rstatus<\/div>\n                                                              ,dphase<\/div>\n                                                              ,dstatus<\/div>\n                                                              ,message);<\/div>\n         END IF;<\/div>\n
<\/div>\n      END IF;<\/div>\n
<\/div>\n      IF (dstatus <> ‘ERROR’) THEN<\/div>\n
<\/div>\n
<\/div>\n
<\/div>\n         ————————————————————<\/div>\n         — If this is the first run, we’ll set l_program_index 1.<\/div>\n         — Otherwise, we’ll set l_program_index request_data + 1.<\/div>\n         ————————————————————<\/div>\n         IF (l_req_data IS NOT NULL) THEN<\/div>\n
<\/div>\n            l_program_index := to_number(l_prev_program_index) + 1;<\/div>\n
<\/div>\n            l_debug_info := l_programs_list(l_prev_program_index) ||<\/div>\n                            ‘ completed successfully.’;<\/div>\n            fnd_file.put_line(fnd_file.log, l_debug_info);<\/div>\n
<\/div>\n            IF (l_program_index > 15) THEN<\/div>\n               errbuf  := ‘Successful Completion…’;<\/div>\n               retcode := 0;<\/div>\n               RETURN;<\/div>\n            END IF;<\/div>\n
<\/div>\n         ELSE<\/div>\n
<\/div>\n            l_program_index := 1;<\/div>\n
<\/div>\n         END IF;<\/div>\n
<\/div>\n         <<next_program>><\/div>\n      ————————————————————–<\/div>\n         — If the Programs List passed to the parent process includes<\/div>\n         — this program, then submit a request for it.<\/div>\n         ————————————————————–<\/div>\n
<\/div>\n         IF (l_program_index <= 15) THEN<\/div>\n
<\/div>\n            IF instr(p_programs_list, l_programs_list(l_program_index)) <> 0 THEN<\/div>\n
<\/div>\n               l_debug_info := ‘Get the parameters for the subprogram . ‘;<\/div>\n               get_parameters(l_programs_list(l_program_index)<\/div>\n                             ,p_progs_params_list<\/div>\n                             ,p_param_name_list<\/div>\n                             ,p_param_value_list<\/div>\n                             ,no_of_parameters);<\/div>\n
<\/div>\n
<\/div>\n               l_debug_info := ‘Submitting ‘ ||<\/div>\n                               l_programs_list(l_program_index) || ‘…’;<\/div>\n
<\/div>\n               fnd_file.put_line(fnd_file.log, l_debug_info);<\/div>\n
<\/div>\n               submit_sub_program(l_request_id<\/div>\n                                 ,l_programs_list(l_program_index)<\/div>\n                                 ,p_payment_batch<\/div>\n                                 ,p_param_name_list<\/div>\n                                 ,p_param_value_list<\/div>\n                                 ,no_of_parameters<\/div>\n                                 ,p_org_id<\/div>\n                                 ,p_event);<\/div>\n
<\/div>\n               IF l_request_id = 0 THEN<\/div>\n
<\/div>\n                  RAISE request_submission_failure;<\/div>\n
<\/div>\n               ELSE<\/div>\n
<\/div>\n                  — Here we set the globals to put the program into the<\/div>\n                  — PAUSED status on exit, and to save the state in<\/div>\n                  — request_data.<\/div>\n
<\/div>\n                  fnd_conc_global.set_req_globals(conc_status  => ‘PAUSED’<\/div>\n                                                 ,request_data => to_char(l_program_index) || ‘:’ ||<\/div>\n                                                                  to_char(l_request_id));<\/div>\n                  l_debug_info := l_programs_list(l_program_index) ||<\/div>\n                                  ‘ Submitted…Request id : ‘ ||<\/div>\n                                  to_char(l_request_id);<\/div>\n                  fnd_file.put_line(fnd_file.log, l_debug_info);<\/div>\n
<\/div>\n                  l_debug_info := ‘Wait for ‘ ||<\/div>\n                                  l_programs_list(l_program_index) ||<\/div>\n                                  ‘ to complete…’ ||<\/div>\n                                  ‘ enter Paused mode.’;<\/div>\n                  fnd_file.put_line(fnd_file.log, l_debug_info);<\/div>\n
<\/div>\n               END IF;<\/div>\n
<\/div>\n               RETURN;<\/div>\n
<\/div>\n            ELSE<\/div>\n
<\/div>\n               l_program_index := l_program_index + 1;<\/div>\n               GOTO next_program;<\/div>\n
<\/div>\n            END IF; –INSTR<\/div>\n
<\/div>\n         END IF; –l_program_index<\/div>\n
<\/div>\n
<\/div>\n         l_debug_info := ‘Payment Process Manager Completed Successfully .’;<\/div>\n         fnd_file.put_line(fnd_file.log, l_debug_info);<\/div>\n
<\/div>\n      ELSE<\/div>\n         RAISE request_failed;<\/div>\n      END IF; –dstatus<\/div>\n
<\/div>\n   EXCEPTION<\/div>\n
<\/div>\n      WHEN request_submission_failure THEN<\/div>\n         errbuf       := ‘Request Submission Failed’;<\/div>\n         retcode      := 2;<\/div>\n         l_error_mesg := fnd_message.get ||<\/div>\n                         ‘ occurred when trying to submit the payment batch ‘ ||<\/div>\n                         p_payment_batch || ‘ with the parameters ‘ ||<\/div>\n                         p_param_value_list(0) || ‘ ,’ ||<\/div>\n                         p_param_value_list(1) || ‘…’;<\/div>\n         fnd_file.put_line(fnd_file.log, l_error_mesg);<\/div>\n
<\/div>\n         RETURN;<\/div>\n
<\/div>\n      WHEN request_failed THEN<\/div>\n         l_error_mesg := l_programs_list(l_prev_program_index) ||<\/div>\n                         ‘ Failed.’ || ‘ Refer to the log file of request ‘ ||<\/div>\n                         to_char(l_prev_request_id) ||<\/div>\n                         ‘ for error information.’;<\/div>\n         fnd_file.put_line(fnd_file.log, l_error_mesg);<\/div>\n
<\/div>\n         l_error_mesg := ‘Payment Process Manager Aborted with error.’;<\/div>\n         fnd_file.put_line(fnd_file.log, l_error_mesg);<\/div>\n
<\/div>\n         –l_complete := fnd_concurrent.set_completion_status(‘ERROR’,’One of the child requests for this program’ ||’ has errored .’);<\/div>\n         RETURN;<\/div>\n
<\/div>\n
<\/div>\n      WHEN cannot_set_printer THEN<\/div>\n         errbuf  := ‘Cannot Set Printer’;<\/div>\n         retcode := 3;<\/div>\n         RETURN;<\/div>\n
<\/div>\n      WHEN no_data_found THEN<\/div>\n         NULL;<\/div>\n         –l_debug_info := SQLERRM;<\/div>\n
<\/div>\n      WHEN OTHERS THEN<\/div>\n         l_debug_info := SQLERRM;<\/div>\n         IF (SQLCODE <> -20001) THEN<\/div>\n
<\/div>\n            fnd_message.set_name(‘SQLAP’, ‘AP_DEBUG’);<\/div>\n            fnd_message.set_token(‘ERROR’, SQLERRM);<\/div>\n            fnd_message.set_token(‘CALLING_SEQUENCE’<\/div>\n                                 ,l_current_calling_sequence);<\/div>\n            fnd_message.set_token(‘PARAMETERS’<\/div>\n                                 ,’Program index = ‘ ||<\/div>\n                                  to_char(l_program_index));<\/div>\n            fnd_message.set_token(‘CALLING_SEQUENCE’<\/div>\n                                 ,l_current_calling_sequence);<\/div>\n            fnd_message.set_token(‘DEBUG_INFO’, l_debug_info);<\/div>\n
<\/div>\n            l_sqlerrm    := SQLERRM;<\/div>\n            l_error_mesg := ‘The following error has occurred : ‘ ||<\/div>\n                            l_sqlerrm || ‘while performing the ‘ ||<\/div>\n                            l_debug_info;<\/div>\n
<\/div>\n            fnd_file.put_line(fnd_file.log, l_error_mesg);<\/div>\n            RETURN;<\/div>\n
<\/div>\n
<\/div>\n         END IF;<\/div>\n         app_exception.raise_exception;<\/div>\n
<\/div>\n   END submit_program;<\/div>\n
<\/div>\n
<\/span><\/div>\n
<\/span><\/div>\n
<\/span><\/div>\n <\/p>\n
\n\n\n\n   De:<\/span><\/b> “Rafael Terzoni Tardelli tardellirafael@yahoo.com<\/a> ” <<\/a>>
 Para:<\/span><\/b>  <<\/a>> 
 Enviadas:<\/span><\/b> Quarta-feira, 11 de Novembro de 2015 17:25
 Assunto:<\/span><\/b>  Baixa autom\u00e1tica Lote do AP (CONFIRMA\u00c7\u00c3O)
 <\/font> <\/div>\nBoa tarde.<\/p>\nAlgu\u00e9m j\u00e1 precisou invocar a package \/ procedure por tras da a\u00e7\u00e3o de 
CONFIRMA\u00c7\u00c3O do Lote de Pagamento do AP?<\/p>\n
\u00c9 a package AP_PAYMENT_PROCESSOR.submit_program.<\/p>\n
Procurei algum exemplo de chamada na net e no metalink mas n\u00e3o encontrei 
nada.<\/p>\n
Obrigado.
Abra\u00e7o.
Rafael<\/p>\n
————————————<\/p>\n
————————————<\/p>\n
————————————<\/p>\n
Yahoo Groups Links<\/p>\n
<*> To visit your group on the web, go to:
    <\/a>http:\/\/groups.yahoo.com\/group\/\/<\/a><\/p>\n
<*> Your email settings:
    Individual Email | Traditional<\/p>\n
<*> To change settings online go to:
    <\/a>http:\/\/groups.yahoo.com\/group\/\/join<\/a>
    (Yahoo! ID required)<\/p>\n
<*> To change settings via email:
    <\/a>-digest<\/a> 
    <\/a>-fullfeatured<\/a><\/p>\n
<*> To unsubscribe from this group, send an email to:
    <\/a>-unsubscribe<\/a><\/p>\n
<*> Your use of Yahoo Groups is subject to:
    <\/a>https:\/\/info.yahoo.com\/legal\/us\/yahoo\/utos\/terms\/<\/a><\/p>\n<\/div><\/div>\n<\/p><\/div>\n<\/blockquote><\/div>\n<\/p><\/div>\n
               <\/HTML><\/HTML><\/p>\n","protected":false},"excerpt":{"rendered":"
  Ol\u00e1 Rafael, tudo bem? J\u00e1 fiz isso. O que exatamente voc\u00ea precisa? Aqui um exemplo do que foi feito nessa procedure. O nome do… <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[56],"tags":[77,99,105,76,103,104,97,98,107,102,108,72,100,85,87,59,89,101,106,46,84],"class_list":["post-9601","post","type-post","status-publish","format-standard","hentry","category-oracle","tag-adf","tag-applications","tag-atg-financials","tag-banco-de-dados","tag-dadabase","tag-dba","tag-duvidas-e-repostas-oracle-vagas","tag-ebs","tag-etl","tag-fusion","tag-hyperion","tag-java","tag-odi","tag-oracle-apex","tag-oracle-forms","tag-oracle-oportunidades","tag-oracle-reports","tag-people-soft","tag-plsql-bi","tag-soa","tag-supply-chain"],"_links":{"self":[{"href":"https:\/\/orabr.virttus.com\/index.php?rest_route=\/wp\/v2\/posts\/9601","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/orabr.virttus.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/orabr.virttus.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/orabr.virttus.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/orabr.virttus.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=9601"}],"version-history":[{"count":0,"href":"https:\/\/orabr.virttus.com\/index.php?rest_route=\/wp\/v2\/posts\/9601\/revisions"}],"wp:attachment":[{"href":"https:\/\/orabr.virttus.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=9601"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/orabr.virttus.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=9601"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/orabr.virttus.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=9601"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}