LAMIVTLE.m

LAMIVTLE ;DALISC/FHS/DRH - LA*5.2*12 POST INSTALL ROUTINE KIDS INSTALL"

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

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LAMIVTLE   847     printed  Apr 09, 2024@20:44:45                                                                                                                                                                                                     Page 2

LAMIVTLE  ;DALISC/FHS/DRH - LA*5.2*12 POST INSTALL ROUTINE KIDS INSTALL"

 +1       ;;5.2;AUTOMATED LAB INSTRUMENTS;**12**;Sep 27, 1994

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