LR519 ;HPS/DSK - LR*5.2*519 PATCH POST INSTALL ROUTINE ;Apr 03, 2019@12:00
;;5.2;LAB SERVICE;**519**;Sep 27, 1994;Build 16
;
; Reference to ^DD(63.04 supported by DBIA #7053
; $$FMADD^XLFDT supported by DBIA #10103
; $$SENDMSG^XMXAPI supported by IA #2729
;
Q
;
EN ;
N LRDUZ
S ZTRTN="START^LR519"
S ZTDESC="LR*5.2*519 Post-Install Routine"
S ZTIO="",ZTDTH=$H
S LRDUZ=DUZ
S ZTSAVE("LRDUZ")=""
D ^%ZTLOAD
W !!,"LR*5.2*519 Post-Install Routine has been tasked - TASK NUMBER: ",$G(ZTSK)
W !!,"You as well as members of the LMI MailMan Group will receive"
W !,"a MailMan message when the search completes.",!
Q
;
START ;
N LRA,LRB,LRNAME,LRNUM,LRCOUNT
K ^TMP("LR519",$J)
S (LRA,LRB)="",LRNUM=0
F S LRA=$O(^DD(63.04,"B",LRA)) Q:LRA="" D
. S LRCOUNT=0
. F S LRB=$O(^DD(63.04,"B",LRA,LRB)) Q:LRB="" D
. . S LRCOUNT=LRCOUNT+1
. . I LRCOUNT>1 M ^TMP("LR519",$J,LRA)=^DD(63.04,"B",LRA)
D XTMP,MAIL
S:$D(ZTQUEUED) ZTREQ="@"
Q
;
XTMP ;Generate MailMan message and keep in ^XTMP for 60 days
N LRSPACE,LRDASH,LRSTR,LRHIT
S LRSPACE=" "
S LRDASH="------------------------------------------------------------"
S LRNUM=1
S ^XTMP("LR 519 POST INSTALL",0)=$$FMADD^XLFDT(DT,60)_"^"_DT_"^LR*5.2*519 POST INSTALL"
I $O(^TMP("LR519",$J,""))="" D Q
. S ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
. S LRNUM=LRNUM+1
. S ^XTMP("LR 519 POST INSTALL",LRNUM)="No issues found."
;
;Issues were found
S ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)="The following issue(s) were found in ^DD(63.04."
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)="Please submit a ServiceNow ticket with the assignment group"
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)="of NTL SUP CLIN2 for assistance with correcting the issue(s)."
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)="NOTE: Names such as ""not in use"", etc. which do not appear to"
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)=" pertain to active tests do not warrant correction."
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)="Name(s) With Multiple IENs"
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)="Name IEN"
S LRNUM=LRNUM+1
S ^XTMP("LR 519 POST INSTALL",LRNUM)=LRDASH
S LRNUM=LRNUM+1
S (LRA,LRB)=""
F S LRA=$O(^TMP("LR519",$J,LRA)) Q:LRA="" D
. S LRNUM=LRNUM+1
. S ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
. S LRB=$O(^TMP("LR519",$J,LRA,"")) D
. . S LRNUM=LRNUM+1
. . S ^XTMP("LR 519 POST INSTALL",LRNUM)=$E(LRA,1,23)_$E(LRSPACE,1,25-$L(LRA))_LRB
. F S LRB=$O(^TMP("LR519",$J,LRA,LRB)) Q:LRB="" D
. . S LRNUM=LRNUM+1
. . S ^XTMP("LR 519 POST INSTALL",LRNUM)=$E(LRSPACE,1,25)_LRB
Q
;
MAIL ;
N LRMY,LRMSUB,LRMTEXT,LRMFROM,LRMIN
S LRMIN("FROM")="LR*5.2*519 Post-Install"
S LRMY(LRDUZ)=""
S LRMY("G.LMI")=""
S LRMSUB="LR*5.2*519 Check of ^DD(63.04"
S LRMTEXT="^XTMP(""LR 519 POST INSTALL"")"
D SENDMSG^XMXAPI(DUZ,LRMSUB,LRMTEXT,.LRMY,.LRMIN,"","")
K ^TMP("LR519",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR519 3281 printed Nov 22, 2024@17:14:23 Page 2
LR519 ;HPS/DSK - LR*5.2*519 PATCH POST INSTALL ROUTINE ;Apr 03, 2019@12:00
+1 ;;5.2;LAB SERVICE;**519**;Sep 27, 1994;Build 16
+2 ;
+3 ; Reference to ^DD(63.04 supported by DBIA #7053
+4 ; $$FMADD^XLFDT supported by DBIA #10103
+5 ; $$SENDMSG^XMXAPI supported by IA #2729
+6 ;
+7 QUIT
+8 ;
EN ;
+1 NEW LRDUZ
+2 SET ZTRTN="START^LR519"
+3 SET ZTDESC="LR*5.2*519 Post-Install Routine"
+4 SET ZTIO=""
SET ZTDTH=$HOROLOG
+5 SET LRDUZ=DUZ
+6 SET ZTSAVE("LRDUZ")=""
+7 DO ^%ZTLOAD
+8 WRITE !!,"LR*5.2*519 Post-Install Routine has been tasked - TASK NUMBER: ",$GET(ZTSK)
+9 WRITE !!,"You as well as members of the LMI MailMan Group will receive"
+10 WRITE !,"a MailMan message when the search completes.",!
+11 QUIT
+12 ;
START ;
+1 NEW LRA,LRB,LRNAME,LRNUM,LRCOUNT
+2 KILL ^TMP("LR519",$JOB)
+3 SET (LRA,LRB)=""
SET LRNUM=0
+4 FOR
SET LRA=$ORDER(^DD(63.04,"B",LRA))
if LRA=""
QUIT
Begin DoDot:1
+5 SET LRCOUNT=0
+6 FOR
SET LRB=$ORDER(^DD(63.04,"B",LRA,LRB))
if LRB=""
QUIT
Begin DoDot:2
+7 SET LRCOUNT=LRCOUNT+1
+8 IF LRCOUNT>1
MERGE ^TMP("LR519",$JOB,LRA)=^DD(63.04,"B",LRA)
End DoDot:2
End DoDot:1
+9 DO XTMP
DO MAIL
+10 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+11 QUIT
+12 ;
XTMP ;Generate MailMan message and keep in ^XTMP for 60 days
+1 NEW LRSPACE,LRDASH,LRSTR,LRHIT
+2 SET LRSPACE=" "
+3 SET LRDASH="------------------------------------------------------------"
+4 SET LRNUM=1
+5 SET ^XTMP("LR 519 POST INSTALL",0)=$$FMADD^XLFDT(DT,60)_"^"_DT_"^LR*5.2*519 POST INSTALL"
+6 IF $ORDER(^TMP("LR519",$JOB,""))=""
Begin DoDot:1
+7 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
+8 SET LRNUM=LRNUM+1
+9 SET ^XTMP("LR 519 POST INSTALL",LRNUM)="No issues found."
End DoDot:1
QUIT
+10 ;
+11 ;Issues were found
+12 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
+13 SET LRNUM=LRNUM+1
+14 SET ^XTMP("LR 519 POST INSTALL",LRNUM)="The following issue(s) were found in ^DD(63.04."
+15 SET LRNUM=LRNUM+1
+16 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
+17 SET LRNUM=LRNUM+1
+18 SET ^XTMP("LR 519 POST INSTALL",LRNUM)="Please submit a ServiceNow ticket with the assignment group"
+19 SET LRNUM=LRNUM+1
+20 SET ^XTMP("LR 519 POST INSTALL",LRNUM)="of NTL SUP CLIN2 for assistance with correcting the issue(s)."
+21 SET LRNUM=LRNUM+1
+22 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
+23 SET LRNUM=LRNUM+1
+24 SET ^XTMP("LR 519 POST INSTALL",LRNUM)="NOTE: Names such as ""not in use"", etc. which do not appear to"
+25 SET LRNUM=LRNUM+1
+26 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=" pertain to active tests do not warrant correction."
+27 SET LRNUM=LRNUM+1
+28 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
+29 SET LRNUM=LRNUM+1
+30 SET ^XTMP("LR 519 POST INSTALL",LRNUM)="Name(s) With Multiple IENs"
+31 SET LRNUM=LRNUM+1
+32 SET ^XTMP("LR 519 POST INSTALL",LRNUM)="Name IEN"
+33 SET LRNUM=LRNUM+1
+34 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=LRDASH
+35 SET LRNUM=LRNUM+1
+36 SET (LRA,LRB)=""
+37 FOR
SET LRA=$ORDER(^TMP("LR519",$JOB,LRA))
if LRA=""
QUIT
Begin DoDot:1
+38 SET LRNUM=LRNUM+1
+39 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=" "
+40 SET LRB=$ORDER(^TMP("LR519",$JOB,LRA,""))
Begin DoDot:2
+41 SET LRNUM=LRNUM+1
+42 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=$EXTRACT(LRA,1,23)_$EXTRACT(LRSPACE,1,25-$LENGTH(LRA))_LRB
End DoDot:2
+43 FOR
SET LRB=$ORDER(^TMP("LR519",$JOB,LRA,LRB))
if LRB=""
QUIT
Begin DoDot:2
+44 SET LRNUM=LRNUM+1
+45 SET ^XTMP("LR 519 POST INSTALL",LRNUM)=$EXTRACT(LRSPACE,1,25)_LRB
End DoDot:2
End DoDot:1
+46 QUIT
+47 ;
MAIL ;
+1 NEW LRMY,LRMSUB,LRMTEXT,LRMFROM,LRMIN
+2 SET LRMIN("FROM")="LR*5.2*519 Post-Install"
+3 SET LRMY(LRDUZ)=""
+4 SET LRMY("G.LMI")=""
+5 SET LRMSUB="LR*5.2*519 Check of ^DD(63.04"
+6 SET LRMTEXT="^XTMP(""LR 519 POST INSTALL"")"
+7 DO SENDMSG^XMXAPI(DUZ,LRMSUB,LRMTEXT,.LRMY,.LRMIN,"","")
+8 KILL ^TMP("LR519",$JOB)
+9 QUIT
