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 ---[H[J[2J[HLAMIVTLE 847 printed Nov 22, 2024@16:53:47 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
