- 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 Feb 18, 2025@23:41:19 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