?? NEWTITLE := 'NOS/VE : Basic Access Methods : get phn via file id' ??
MODULE bam$get_phn_via_file_id;
?? RIGHT := 110 ??

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc ame$improper_file_id
*copyc amt$file_identifier
*copyc amt$local_file_name
*copyc ost$status
?? POP ??
*copyc baf$task_file_entry_p
*copyc osp$set_status_abnormal
?? OLDTITLE ??
?? NEWTITLE := '[xdcl, #gate] BAP$GET_PHN_VIA_FILE_ID' ??

  PROCEDURE [XDCL, #GATE] bap$get_phn_via_file_id
    (    file_id: amt$file_identifier;
     VAR local_file_name: amt$local_file_name;
     VAR status: ost$status);

    VAR
      file_instance_p: ^bat$task_file_entry;

    status.normal := TRUE;
    file_instance_p := baf$task_file_entry_p (file_id);
    IF file_instance_p <> NIL THEN
      local_file_name := file_instance_p^.local_file_name;
    ELSE
      osp$set_status_abnormal (amc$access_method_id, ame$improper_file_id, 'bap$get_phn_via_file_id ',
            status);
    IFEND;

  PROCEND bap$get_phn_via_file_id;
?? OLDTITLE ??
MODEND bam$get_phn_via_file_id;

