LAMIVTLE.m

LAMIVTLE ;IHS/DIR/FJE - LA*5.2*12 POST INSTALL ROUTINE KIDS INSTALL" ;

 ;;5.2;AUTOMATED LAB INSTRUMENTS;**1030**;NOV 01, 1997

 ;;5.2;AUTOMATED LAB INSTRUMENTS;**12**;Sep 27, 1994;Build 7

ADD ;

 S X=$$ADD^XPDMENU("LRMI","LA VITEK LITERAL")

 W !!,"Option [LA VITEK LITERAL] was "

 W $S(X:"added",1:"NOT ADDED")," to [MICROBILOLOGY] MENU",!!

 ;-----------------------------------------------------------

 S X=$$ADD^XPDMENU("LRMIP","LA PRINT ORGANISM")

 W !!,"Option [LA PRINT ORGANISM] was "

 W $S(X:"added",1:"NOT ADDED")," to [MICROBILOLOGY PRINT] MENU",!!

 ;-----------------------------------------------------------

 S X=$$ADD^XPDMENU("LRMIP","LA PRINT ANTIBIOTIC")

 W !!,"Option [LA PRINT ANTIBIOTIC] was "

 W $S(X:"added",1:"NOT ADDED")," to [MICROBILOLOGY PRINT] MENU",!!

 ;-----------------------------------------------------------

 W !!,$$CJ^XLFSTR("Post install completed",80),!!

 Q

LAMIVTLE  ;IHS/DIR/FJE - LA*5.2*12 POST INSTALL ROUTINE KIDS INSTALL" ;

 +1       ;;5.2;AUTOMATED LAB INSTRUMENTS;**1030**;NOV 01, 1997

 +2       ;;5.2;AUTOMATED LAB INSTRUMENTS;**12**;Sep 27, 1994;Build 7

ADD       ;

 +1        SET X=$$ADD^XPDMENU("LRMI","LA VITEK LITERAL")

 +2        WRITE !!,"Option [LA VITEK LITERAL] was "

 +3        WRITE $SELECT(X:"added",1:"NOT ADDED")," to [MICROBILOLOGY] MENU",!!

 +4       ;-----------------------------------------------------------

 +5        SET X=$$ADD^XPDMENU("LRMIP","LA PRINT ORGANISM")

 +6        WRITE !!,"Option [LA PRINT ORGANISM] was "

 +7        WRITE $SELECT(X:"added",1:"NOT ADDED")," to [MICROBILOLOGY PRINT] MENU",!!

 +8       ;-----------------------------------------------------------

 +9        SET X=$$ADD^XPDMENU("LRMIP","LA PRINT ANTIBIOTIC")

 +10       WRITE !!,"Option [LA PRINT ANTIBIOTIC] was "

 +11       WRITE $SELECT(X:"added",1:"NOT ADDED")," to [MICROBILOLOGY PRINT] MENU",!!

 +12      ;-----------------------------------------------------------

 +13       WRITE !!,$$CJ^XLFSTR("Post install completed",80),!!

 +14       QUIT