- LR274POA ;DALOI/FHS - LR*5.2*274 PATCH POST INSTALL ROUTINE CONTINUED
- ;;5.2T9;LR;**1018**;Nov 17, 2004
- ;;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
- LR274POA ;DALOI/FHS - LR*5.2*274 PATCH POST INSTALL ROUTINE CONTINUED
- +1 ;;5.2T9;LR;**1018**;Nov 17, 2004
- +2 ;;5.2;LAB SERVICE;**274**;Sep 27,1994
- +3 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
