
  PROCEDURE [INLINE] dfp$load_application_procedure
    (    procedure_name: pmt$program_name;
         library_lfn: amt$local_file_name;
     VAR loaded_address: pmt$loaded_address;
     VAR status: ost$status);

    VAR
      caller_id: ost$caller_identifier,
      call_bracket_ring: ost$valid_ring,
      loaded_ring: ost$valid_ring,
      reference_ring: ost$valid_ring;

    #CALLER_ID (caller_id);
    reference_ring := caller_id.ring; {?????

    pmp$load_module_from_library (procedure_name, reference_ring, pmc$procedure_address, library_lfn,
          loaded_ring, call_bracket_ring, loaded_address, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

  PROCEND dfp$load_application_procedure;

?? PUSH (LISTEXT := ON) ??
*copyc amt$local_file_name
*copyc dft$rpc_procedure_address_list
*copyc osd$virtual_address
*copyc ost$caller_identifier
*copyc pmp$load_module_from_library
*copyc pmt$loaded_address
*copyc pmt$program_name
?? POP ??
