interface Hospital{ … };

class Hospital_i : public POA_Hospital { ... };

// Create a servant for the callback Object 
Catcher_i* my_catcher_i = new Catcher_i();    

// Get root POA reference and activate the POA
1   CORBA::Object_var oref =
              orb->resolve_initial_references("RootPOA");
2   PortableServer::POA_var root_poa =
              PortableServer::POA::_narrow(oref);
3   root_poa -> the_POAManager() -> activate();
4   PortableServer::objectId_var temp_Oid =
              root_poa ->activate_object ( my_catcher_i );
5   oref = root_poa->create_reference_with_id(
                                  temp_Oid, _tc_Catcher->id() );
6   Catcher_var my_catcher_ref = Catcher::_narrow( oref );

    Catcher_i* my_catcher_i = new Catcher_i();
    const char* oid_str = "783";
1   PortableServer::objectId_var oid =
             PortableServer::string_to_objectId(oid_str);
// Find root POA 
2   CORBA::Object_var oref =
             orb->resolve_initial_references("RootPOA");
3   PortableServer::POA_var root_poa =
             PortableServer::POA::_narrow(oref);
// Create and activate a Persistent/UserId POA
4   CORBA::PolicyList policies(2); 
5   policies.length(2);
6   policies[0] = root_poa->create_lifespan_policy(
                                    PortableServer::PERSISTENT);
7   policies[1] = root_poa->create_id_assignment_policy(
                                     PortableServer::USER_ID );
8   PortableServer::POA_var my_poa_ref =
             root_poa->create_POA(
                   "my_poa_ref", root_poa->the_POAManager(), policies);
9   root_poa->the_POAmanager()->activate();
// Create object reference for callback Object
10 oref =  my_poa_ref -> create_reference_with_id( 
                                           oid, _tc_Catcher->id());
11 Catcher_var my_catcher_ref = Catcher::_narrow( oref );
// activate object
12 my_poa_ref -> activate_object_with_id( oid, my_catcher_i );
// Make the call passing the callback ref
    foo -> register_callback ( my_catcher_ref );

// File: BEAWrapper
#ifndef _BEA_WRAPPER _IDL_
#define _BEA_WRAPPER _IDL_
#include <orb.idl>
#include <PortableServer.idll>

#pragma prefix “beasys.com”

module BEAWrapper {
   interface Callbacks 
   {
       exception ServantAlreadyActive{ };
       exception ObjectAlreadyActive { };
       exception NotInRequest{ };

       // set up transient callback Object 
       // -- prepare POA, activate object, return objref
          Object start_transient( 
                        in PortableServer::Servant      Servant, 
                        in CORBA::RepositoryId          rep_id)
           raises (ServantAlreadyActive);

       // set up persistent/systemid callback Object 
       Object start_persistent_systemid( 
               in PortableServer::Servant      servant, 
               in CORBA::Repository            rep_id,
               out string                      stroid) 
          raises (ServantAlreadyActive);

       // reinstate set up for persistent/systemid 
       // callback object 
       Object restart_persistent_systemid( 
               in PortableServer::Servant     servant, 
               in CORBA::RepositoryId         rep_id,
               in string                      stroid)
          raises (ServantAlreadyActive, ObjectAlreadyActive);

       // set up persistent/userid callback Object
       Object start_persistent_userid( 
                in PortableServer::Servant        servant,    
                in CORBA::RepositoryId            rep_id,
                in string                       stroid)
          raises (ServantAlreadyActive, ObjectAlreadyActive);

       // stop servicing a particular callback Object
       // with the given servant
       void stop_object( in PortableServer::Servant servant);

       //Stop all callback Object processing
       void stop_all_objects();

      // get oid string for the current request
      string get_string_oid() raises (NotInRequest); 
   };
}
#endif /* _BEA_WRAPPER _IDL_ */

#ifndef _BEAWRAPPER_H_
#define _BEAWRAPPER_H_

#include <PortableServer.h>
class BEAWrapper{
class Callbacks{
      public:
            Callbacks (CORBA::ORB_ptr init_orb);

            CORBA::Object_ptr start_transient ( 
                        PortableServer::Servant servant,
                         const char *     rep_id);

            CORBA::Object_ptr start_persistent_systemid (
                          PortableServer::Servant servant,
                          const char *     rep_id,
                           char * & stroid);

            CORBA::Object_ptr restart_persistent_systemid (
                           PortableServer::Servant servant,
                           const char *     rep_id,
                            const char *     stroid);

            CORBA::Object_ptr start_persistent_userid (
                           PortableServer::Servant servant,
                           const char *     rep_id,
                            const char *     stroid);

              void stop_object(PortableServer::Servant servant);

              char* get_string_oid ();

              void stop_all_objects();

             ~Callbacks();
        private:

              static CORBA::ORB_var orb_ptr;

              static PortableServer::POA_var root_poa;
              static PortableServer::POA_var trasys_poa;
              static PortableServer::POA_var persys_poa;
              static PortableServer::POA_var peruser_poa;
     };
};
#endif // _BEAWRAPPER_H_

BEAWrapper::Callbacks( CORBA::ORB_ptr init_orb);

Object start_transient( in PortableServer::Servant   servant, 
                        in CORBA::RepositoryId       rep_id) 
          raises ( ServantAlreadyActive );

CORBA::Object_ptr start_transient( 
                    PortableServer::Servant         servant, 
                    const char*                     rep_id);

Object start_persistent_systemid( 
                      in PortableServer::Servant      servant, 
                      in CORBA::RepositoryId          rep_id,
                      out string                      stroid) 
    raises ( ServantAlreadyActive );

CORBA::Object_ptr start_persistent_systemid(
                       PortableServer::Servant          servant,
                       const char*                      rep_id,
                       char*&                            stroid);
 

Object restart_persistent_systemid( 
                in PortableServer::Servant   servant, 
                in CORBA::RepositoryId       rep_id,
                in string                    stroid) 
    raises (ServantAlreadyActive, ObjectAlreadyActive);

CORBA::Object_ptr restart_persistent_systemid(
                PortableServer::Servant   servant,
                const char*               rep_id
                const char*               stroid);
 

Object start_persistent_userid(
              portableServer::Servant     a_servant,
              in CORBA::RepositoryId      rep_id,
              in string                   stroid) 
    raises ( ServantAlreadyActive, ObjectAlreadyActive );

CORBA::Object_ptr start_persistent_userid (
               PortableServer::Servant    servant, 
               const char*                rep_id,
               const char*                stroid); 

void stop_object( in PortableServer::Servant servant);

void stop_object(PortableServer::Servant servant);

void stop_all_objects ();

void stop_all_objects ();

string get_string_oid() raises (NotInRequest); 

char* get_string_oid(); 

BEAWrapper::~Callbacks( );