- 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 Mar 13, 2025@20:48:14 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
