_news__c_db-news-set-approve (private)

 _news__c_db-news-set-approve

Defined in packages/news/tcl/test/news-db-test-init.tcl

Partial Call Graph (max 5 caller/called nodes):
%3 aa_export_vars aa_export_vars (public) db_exec_plsql db_exec_plsql (public) _news__c_db-news-set-approve _news__c_db-news-set-approve _news__c_db-news-set-approve->aa_export_vars _news__c_db-news-set-approve->db_exec_plsql

Testcases:
No testcase defined.
Source code:
    aa_export_vars {p_revision_id
        p_approve_p p_publish_date p_archive_date
        p_approval_user p_approval_date p_approval_ip
        p_live_revision_p}

    if {$p_approve_p == "f"} {
        db_exec_plsql set-approve-default {}
    } else {
        db_exec_plsql set-approve {}
    }
Generic XQL file:
packages/news/tcl/test/news-db-test-init.xql

PostgreSQL XQL file:
<fullquery name="_news__c_db-news-set-approve.set-approve-default">
    <querytext>
    select news__set_approve(:p_revision_id,
                             :p_approve_p,
                             null, null, null, null, null, null);
  </querytext>
</fullquery>

<fullquery name="_news__c_db-news-set-approve.set-approve">
    <querytext>
    select news__set_approve(:p_revision_id,
                             :p_approve_p,
                             :p_publish_date,
                             :p_archive_date,
                             :p_approval_user,
                             :p_approval_date,
                             :p_approval_ip,
                             :p_live_revision_p);
  </querytext>
</fullquery>
packages/news/tcl/test/news-db-test-init-postgresql.xql

Oracle XQL file:
<fullquery name="_news__c_db-news-set-approve.set-approve-default">
    <querytext>
      begin
        news.set_approve(revision_id =>     :p_revision_id,
                         approve_p =>       :p_approve_p);
      end;
  </querytext>
</fullquery>

<fullquery name="_news__c_db-news-set-approve.set-approve">
    <querytext>
      begin
        news.set_approve(revision_id =>     :p_revision_id,
                         approve_p =>       :p_approve_p,
                         publish_date =>    :p_publish_date,
                         archive_date =>    :p_archive_date,
                         approval_user =>   :p_approval_user,
                         approval_date =>   :p_approval_date,
                         approval_ip   =>   :p_approval_ip,
                         live_revision_p => :p_live_revision_p);
      end;
  </querytext>
</fullquery>
packages/news/tcl/test/news-db-test-init-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: