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

LRMIS.m

Go to the documentation of this file.

LRMIS ;AVAMC/REG - DELETE MICROBIOLOGY AUDITS ;4/26/89  14:38

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 S X="MICROBIOLOGY" D ^LRUTL G:Y=-1 END G EN1^LRUDIT

END D V^LRU Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRMIS   170     printed  Dec 13, 2024@02:17:17                                                                                                                                                                                                        Page 2

LRMIS     ;AVAMC/REG - DELETE MICROBIOLOGY AUDITS ;4/26/89  14:38

 +1       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +2        SET X="MICROBIOLOGY"

           DO ^LRUTL

           if Y=-1

               GOTO END

           GOTO EN1^LRUDIT

 +3       ;

END        DO V^LRU

           QUIT