All pastes #732170 Raw Edit

MUMPS code fragment

public text v1 · immutable
·published 2007-10-10 18:44 UTC
rendered paste body
        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