LR274POA ;DALOI/FHS - LR*5.2*274 PATCH POST INSTALL ROUTINE CONTINUED
;;5.2;LAB SERVICE;**274**;Sep 27,1994
Q
ALERT ;
D BMES^XPDUTL($$CJ^XLFSTR("Sending installation message to G.LMI mail group",80))
N XQA,XQAMSG
S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown Patch")_" complete "_$$HTE^XLFDT($H)
S XQA("G.LMI")=""
D SETUP^XQALERT
L -^LAM
Q
MAIL ;Send message to G.LMI local mail group of added 64 codes
N DIFROM,XMSUB,XMDUZ,XMTEXT,XMY,LRIEN,LRN
NEWLST ;Build list of added WKLD CODES
D
. D BMES^XPDUTL($$CJ^XLFSTR("Building List Of Added WKLD CODEs",80))
. N LRN,LRIEN,LRSTR,LRCNT
. S LRCNT=0
. S LRN="^LAM(""B"")" S:'$G(LRLAST64) LRLAST64=3203
. F S LRN=$Q(@LRN) Q:$QS(LRN,1)'="B" I '@LRN D
. . S LRIEN=$QS(LRN,3)
. . I LRIEN>LRLAST64,LRIEN<99999,$D(^LAM(LRIEN,0))#2 S LRSTR=$P(^(0),U,1,2) D
. . . S LRCNT=$G(LRCNT)+1
. . . S LRSTR=LRCNT_"|"_$TR(LRSTR,"^","|")_"|IEN= "_LRIEN
. . . D SCR^LR274PO(LRSTR)
. D BMES^XPDUTL($$CJ^XLFSTR("List Of Added WKLD CODEs Complete",80))
K LRLAST64
I '$O(^XTMP("LRNLT",$J,1,3)) D
. I '$G(LRPRT) D
. . D SCR^LR274PO("No WKLD CODES Added to Database")
D BMES^XPDUTL($$CJ^XLFSTR("Sending message to LMI Mail Group.",80))
S XMSUB="ADDED WKLD CODE REPORT "_$$FMTE^XLFDT($$NOW^XLFDT,"1S")
S XMY("G.LMI")="",XMTEXT="^XTMP(""LRNLT"","_$J_",1,",XMDUZ=.5
D ^XMD
CHK642 ;Looking for locally added suffix
K DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
N LRSC,LRCNT,LRNX,LRI
S LRSC="",LRCNT=0
F S LRCNT=$O(^XTMP("LRNLT642",1,LRCNT)) Q:LRCNT<1 K ^XTMP("LRNLT642",1,LRCNT,1)
S LRNX="^XTMP(""LRNLT642"",1,""C"")"
F S LRNX=$Q(@LRNX) Q:$QS(LRNX,3)'="C" D
. I $D(^LAB(64.2,"C",$QS(LRNX,4))) D Q
. . K ^XTMP("LRNLT642",1,$QS(LRNX,5))
. W:$G(LRDBUG) !,LRNX
F LRI="AC","B","C","D","E","F" K ^XTMP("LRNLT642",1,LRI)
MES642 ;
I $O(^XTMP("LRNLT642",1,0)) D
. S XMSUB=$TR($P($$SITE^VASITE,U,1,2),U,"|")_" LR 274 - 64 2 "_DT
. S XMY("G.LMI@ISC-DALLAS")=""
. S XMTEXT="^XTMP(""LRNLT642"",1,",XMDUZ=.5
. D ^XMD
K ^XTMP("LRNLT642")
MESLMI ; Notify LIM patch is installed.
D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to mail group G.LMI",80))
;
S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
S XQA("G.LMI")=""
D SETUP^XQALERT
;
S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
S XQA("G.LMI")=""
D SETUP^XQALERT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR274POA 2452 printed Apr 09, 2024@21:14:22 Page 2
LR274POA ;DALOI/FHS - LR*5.2*274 PATCH POST INSTALL ROUTINE CONTINUED
+1 ;;5.2;LAB SERVICE;**274**;Sep 27,1994
+2 QUIT
ALERT ;
+1 DO BMES^XPDUTL($$CJ^XLFSTR("Sending installation message to G.LMI mail group",80))
+2 NEW XQA,XQAMSG
+3 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown Patch")_" complete "_$$HTE^XLFDT($HOROLOG)
+4 SET XQA("G.LMI")=""
+5 DO SETUP^XQALERT
+6 LOCK -^LAM
+7 QUIT
MAIL ;Send message to G.LMI local mail group of added 64 codes
+1 NEW DIFROM,XMSUB,XMDUZ,XMTEXT,XMY,LRIEN,LRN
NEWLST ;Build list of added WKLD CODES
+1 Begin DoDot:1
+2 DO BMES^XPDUTL($$CJ^XLFSTR("Building List Of Added WKLD CODEs",80))
+3 NEW LRN,LRIEN,LRSTR,LRCNT
+4 SET LRCNT=0
+5 SET LRN="^LAM(""B"")"
if '$GET(LRLAST64)
SET LRLAST64=3203
+6 FOR
SET LRN=$QUERY(@LRN)
if $QSUBSCRIPT(LRN,1)'="B"
QUIT
IF '@LRN
Begin DoDot:2
+7 SET LRIEN=$QSUBSCRIPT(LRN,3)
+8 IF LRIEN>LRLAST64
IF LRIEN<99999
IF $DATA(^LAM(LRIEN,0))#2
SET LRSTR=$PIECE(^(0),U,1,2)
Begin DoDot:3
+9 SET LRCNT=$GET(LRCNT)+1
+10 SET LRSTR=LRCNT_"|"_$TRANSLATE(LRSTR,"^","|")_"|IEN= "_LRIEN
+11 DO SCR^LR274PO(LRSTR)
End DoDot:3
End DoDot:2
+12 DO BMES^XPDUTL($$CJ^XLFSTR("List Of Added WKLD CODEs Complete",80))
End DoDot:1
+13 KILL LRLAST64
+14 IF '$ORDER(^XTMP("LRNLT",$JOB,1,3))
Begin DoDot:1
+15 IF '$GET(LRPRT)
Begin DoDot:2
+16 DO SCR^LR274PO("No WKLD CODES Added to Database")
End DoDot:2
End DoDot:1
+17 DO BMES^XPDUTL($$CJ^XLFSTR("Sending message to LMI Mail Group.",80))
+18 SET XMSUB="ADDED WKLD CODE REPORT "_$$FMTE^XLFDT($$NOW^XLFDT,"1S")
+19 SET XMY("G.LMI")=""
SET XMTEXT="^XTMP(""LRNLT"","_$JOB_",1,"
SET XMDUZ=.5
+20 DO ^XMD
CHK642 ;Looking for locally added suffix
+1 KILL DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
+2 NEW LRSC,LRCNT,LRNX,LRI
+3 SET LRSC=""
SET LRCNT=0
+4 FOR
SET LRCNT=$ORDER(^XTMP("LRNLT642",1,LRCNT))
if LRCNT<1
QUIT
KILL ^XTMP("LRNLT642",1,LRCNT,1)
+5 SET LRNX="^XTMP(""LRNLT642"",1,""C"")"
+6 FOR
SET LRNX=$QUERY(@LRNX)
if $QSUBSCRIPT(LRNX,3)'="C"
QUIT
Begin DoDot:1
+7 IF $DATA(^LAB(64.2,"C",$QSUBSCRIPT(LRNX,4)))
Begin DoDot:2
+8 KILL ^XTMP("LRNLT642",1,$QSUBSCRIPT(LRNX,5))
End DoDot:2
QUIT
+9 if $GET(LRDBUG)
WRITE !,LRNX
End DoDot:1
+10 FOR LRI="AC","B","C","D","E","F"
KILL ^XTMP("LRNLT642",1,LRI)
MES642 ;
+1 IF $ORDER(^XTMP("LRNLT642",1,0))
Begin DoDot:1
+2 SET XMSUB=$TRANSLATE($PIECE($$SITE^VASITE,U,1,2),U,"|")_" LR 274 - 64 2 "_DT
+3 SET XMY("G.LMI@ISC-DALLAS")=""
+4 SET XMTEXT="^XTMP(""LRNLT642"",1,"
SET XMDUZ=.5
+5 DO ^XMD
End DoDot:1
+6 KILL ^XTMP("LRNLT642")
MESLMI ; Notify LIM patch is installed.
+1 DO BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to mail group G.LMI",80))
+2 ;
+3 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($HOROLOG)
+4 SET XQA("G.LMI")=""
+5 DO SETUP^XQALERT
+6 ;
+7 SET XQAMSG="LIM: Review description for "_$GET(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
+8 SET XQA("G.LMI")=""
+9 DO SETUP^XQALERT
+10 QUIT
