  PROCEDURE [XREF] nfp$remove_from_wait_lists
    (    index: integer;
     VAR wait_list {input, output} : ^ost$i_wait_list;
     VAR wait_activity_list {input, output}: ^nft$wait_activity_list;
     VAR wait_list_sequence {input, output} : ^SEQ(*);
     VAR wait_activity_list_sequence {input, output} : ^SEQ(*));

?? PUSH (LISTEXT := ON) ??
*copyc nft$wait_activity_list
*copyc ost$i_wait
?? POP ??
