LRMIS.m

LRMIS ; IHS/DIR/FJE - DELETE MICROBIOLOGY AUDITS 14:38 ; 

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

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

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

 ;

END D V^LRU Q

LRMIS     ; IHS/DIR/FJE - DELETE MICROBIOLOGY AUDITS 14:38 ; 

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

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

 +4        SET X="MICROBIOLOGY"

           DO ^LRUTL

           IF Y=-1

               GOTO END

           GOTO EN1^LRUDIT

 +5       ;

END        DO V^LRU

           QUIT