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