- LR334POA ;DALOI/FHS - LR*5.2*334 PATCH POST INSTALL ROUTINE CONTINUED;31-AUG-2001
- ;;5.2;LAB SERVICE;**334**;Sep 27, 1994;Build 12
- Q
- ALERT ;
- D BMES^LR334("Sending installation message to G.LMI mail group")
- 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 BMES^LR334("Building List Of Added NLT CODEs")
- K LRLAST64
- I '$O(^XTMP("LRNLT","LR334",1,3)) D
- . I '$G(LRPRT) D
- . . D SCR^LR334PO("No WKLD CODES Added to Database")
- D BMES^LR334("Sending message to LMI Mail Group.")
- D
- . NEW XMSUB,XMY,XMTEST,XMDUZ
- . S XMSUB="ADDED WKLD CODE REPORT "_$$FMTE^XLFDT($$NOW^XLFDT,"1S")
- . S XMY("G.LMI")="",XMTEXT="^XTMP(""LRNLT"",""LR334"",1,",XMDUZ=.5
- . D ^XMD
- . D BMES^LR334("List Of Added WKLD CODEs Complete")
- CHK642 ;Looking for locally added suffix
- K DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
- N LRSC,LRCNT,LRNX,LRI
- S LRSC="",LRCNT=0
- M ^XTMP("LRNLT642SAVE")=^XTMP("LRNLT642") ;Backup copy of 64.2
- 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
- . N XMSUB,XMY,XMTEXT,XMDUZ
- . S XMSUB=$TR($P($$SITE^VASITE,U,1,2),U,"|")_" LR 334 - 64 2 "_DT
- . S XMY("STALLING.FRANK@FS.ISC-ALBANY.DOMAIN.EXT")=""
- . S XMY("G.LMI")=""
- . S XMTEXT="^XTMP(""LRNLT642"",1,",XMDUZ=.5
- . D ^XMD
- MESLMI ; Notify LIM patch is installed.
- D
- . NEW XQA,XQAMSG
- . 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[HLR334POA 1996 printed Feb 18, 2025@23:29:45 Page 2
- LR334POA ;DALOI/FHS - LR*5.2*334 PATCH POST INSTALL ROUTINE CONTINUED;31-AUG-2001
- +1 ;;5.2;LAB SERVICE;**334**;Sep 27, 1994;Build 12
- +2 QUIT
- ALERT ;
- +1 DO BMES^LR334("Sending installation message to G.LMI mail group")
- +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 DO BMES^LR334("Building List Of Added NLT CODEs")
- +2 KILL LRLAST64
- +3 IF '$ORDER(^XTMP("LRNLT","LR334",1,3))
- Begin DoDot:1
- +4 IF '$GET(LRPRT)
- Begin DoDot:2
- +5 DO SCR^LR334PO("No WKLD CODES Added to Database")
- End DoDot:2
- End DoDot:1
- +6 DO BMES^LR334("Sending message to LMI Mail Group.")
- +7 Begin DoDot:1
- +8 NEW XMSUB,XMY,XMTEST,XMDUZ
- +9 SET XMSUB="ADDED WKLD CODE REPORT "_$$FMTE^XLFDT($$NOW^XLFDT,"1S")
- +10 SET XMY("G.LMI")=""
- SET XMTEXT="^XTMP(""LRNLT"",""LR334"",1,"
- SET XMDUZ=.5
- +11 DO ^XMD
- +12 DO BMES^LR334("List Of Added WKLD CODEs Complete")
- End DoDot:1
- 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 ;Backup copy of 64.2
- MERGE ^XTMP("LRNLT642SAVE")=^XTMP("LRNLT642")
- +5 FOR
- SET LRCNT=$ORDER(^XTMP("LRNLT642",1,LRCNT))
- if LRCNT<1
- QUIT
- KILL ^XTMP("LRNLT642",1,LRCNT,1)
- +6 SET LRNX="^XTMP(""LRNLT642"",1,""C"")"
- +7 FOR
- SET LRNX=$QUERY(@LRNX)
- if $QSUBSCRIPT(LRNX,3)'="C"
- QUIT
- Begin DoDot:1
- +8 IF $DATA(^LAB(64.2,"C",$QSUBSCRIPT(LRNX,4)))
- Begin DoDot:2
- +9 KILL ^XTMP("LRNLT642",1,$QSUBSCRIPT(LRNX,5))
- End DoDot:2
- QUIT
- +10 if $GET(LRDBUG)
- WRITE !,LRNX
- End DoDot:1
- +11 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 NEW XMSUB,XMY,XMTEXT,XMDUZ
- +3 SET XMSUB=$TRANSLATE($PIECE($$SITE^VASITE,U,1,2),U,"|")_" LR 334 - 64 2 "_DT
- +4 SET XMY("STALLING.FRANK@FS.ISC-ALBANY.DOMAIN.EXT")=""
- +5 SET XMY("G.LMI")=""
- +6 SET XMTEXT="^XTMP(""LRNLT642"",1,"
- SET XMDUZ=.5
- +7 DO ^XMD
- End DoDot:1
- MESLMI ; Notify LIM patch is installed.
- +1 Begin DoDot:1
- +2 NEW XQA,XQAMSG
- +3 SET XQAMSG="LIM: Review description for "_$GET(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
- +4 SET XQA("G.LMI")=""
- +5 DO SETUP^XQALERT
- End DoDot:1
- +6 QUIT