LRHYPOST.m

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 ---LRHYPOST   591     printed  Apr 09, 2024@21:17:02                                                                                                                                                                                                     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