- LRAPFTS ;AVAMC/REG - AP FREE TEXT SEARCH ; 11/12/88 09:24 ;
- ;;5.2;LAB SERVICE;;Sep 27, 1994
- D XR^LRU
- D B^LRU G:Y<0 END
- ;
- END D V^LRU Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRAPFTS 146 printed Feb 18, 2025@23:33:19 Page 2
- LRAPFTS ;AVAMC/REG - AP FREE TEXT SEARCH ; 11/12/88 09:24 ;
- +1 ;;5.2;LAB SERVICE;;Sep 27, 1994
- +2 DO XR^LRU
- +3 DO B^LRU
- if Y<0
- GOTO END
- +4 ;
- END DO V^LRU
- QUIT