Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRHYPOST

LRHYPOST.m

Go to the documentation of this file.
  1. LRHYPOST ;DALOI/HOAK - UNIVERSAL EDITOR 12/01/1999 ;12/13/10 11:24am
  1. ;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93
  1. ;
  1. PROX ;
  1. ; This block sets the Howdy Bot user in the New Person file.
  1. D CREATE^XUSAP("HOWDY,BOT","l","LRHY HOWDY BOT","LRHY HOWDY BOT")
  1. ;
  1. POST ; KIDS Post install for LR*5.2*405
  1. ;
  1. N XQA,XQAMSG,MSG
  1. S XQAMSG="Installation of patch LR*5.2*405"
  1. S XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($H)
  1. S XQA("G.LMI")=""
  1. D SETUP^XQALERT
  1. ;
  1. S MSG="Sending install completion alert to mail group G.LMI"
  1. D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
  1. ;
  1. ;
  1. QUIT