Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: LRAPFTS

LRAPFTS.m

Go to the documentation of this file.

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  Oct 16, 2024@18:08:12                                                                                                                                                                                                      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