N PRTED S PRTED=0 S N=0 F  S N=$O(^KRPT(PID,"RES",N)) Q:N=""  S U=^(N) I '$D(^KU(U,"FD")) D
        . Q:^KU(U,"TYP")="V"
        . I CNT=2 D RESH
        . S Lines=Lines+1 D UDISP
        S CNT=1  Q