LRHYPOST ;DALOI/HOAK - UNIVERSAL EDITOR 12/01/1999 ;12/13/10 11:24am
;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93
;
PROX ;
; This block sets the Howdy Bot user in the New Person file.
D CREATE^XUSAP("HOWDY,BOT","l","LRHY HOWDY BOT","LRHY HOWDY BOT")
;
POST ; KIDS Post install for LR*5.2*405
;
N XQA,XQAMSG,MSG
S XQAMSG="Installation of patch LR*5.2*405"
S XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($H)
S XQA("G.LMI")=""
D SETUP^XQALERT
;
S MSG="Sending install completion alert to mail group G.LMI"
D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
;
;
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRHYPOST 591 printed Dec 13, 2024@02:15:26 Page 2
LRHYPOST ;DALOI/HOAK - UNIVERSAL EDITOR 12/01/1999 ;12/13/10 11:24am
+1 ;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93
+2 ;
PROX ;
+1 ; This block sets the Howdy Bot user in the New Person file.
+2 DO CREATE^XUSAP("HOWDY,BOT","l","LRHY HOWDY BOT","LRHY HOWDY BOT")
+3 ;
POST ; KIDS Post install for LR*5.2*405
+1 ;
+2 NEW XQA,XQAMSG,MSG
+3 SET XQAMSG="Installation of patch LR*5.2*405"
+4 SET XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($HOROLOG)
+5 SET XQA("G.LMI")=""
+6 DO SETUP^XQALERT
+7 ;
+8 SET MSG="Sending install completion alert to mail group G.LMI"
+9 DO BMES^XPDUTL($$CJ^XLFSTR(MSG,80))
KILL MSG
+10 ;
+11 ;
+12 QUIT
