LR334POA.m

LR334POA ;VA/DALOI/FHS - LR*5.2*334 PATCH POST INSTALL ROUTINE CONTINUED;31-AUG-2001

 ;;5.2;LAB SERVICE;**1028**;NOV 01, 1997;Build 53

 ;;5.2;LAB SERVICE;**334**;Sep 27, 1994;Build 45

 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.MED.VA.GOV")=""

 . 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

LR334POA  ;VA/DALOI/FHS - LR*5.2*334 PATCH POST INSTALL ROUTINE CONTINUED;31-AUG-2001

 +1       ;;5.2;LAB SERVICE;**1028**;NOV 01, 1997;Build 53

 +2       ;;5.2;LAB SERVICE;**334**;Sep 27, 1994;Build 45

 +3        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.MED.VA.GOV")=""

 +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