  PROCEDURE [XREF] nfp$add_to_wait_lists
    (    activity: nft$wait_activity;
     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 ??
