| 1 | LR334POA ;DALOI/FHS - LR*5.2*334 PATCH POST INSTALL ROUTINE CONTINUED;31-AUG-2001
|
|---|
| 2 | ;;5.2;LAB SERVICE;**334**;Sep 27, 1994;Build 12
|
|---|
| 3 | Q
|
|---|
| 4 | ALERT ;
|
|---|
| 5 | D BMES^LR334("Sending installation message to G.LMI mail group")
|
|---|
| 6 | N XQA,XQAMSG
|
|---|
| 7 | S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown Patch")_" complete "_$$HTE^XLFDT($H)
|
|---|
| 8 | S XQA("G.LMI")=""
|
|---|
| 9 | D SETUP^XQALERT
|
|---|
| 10 | L -^LAM
|
|---|
| 11 | Q
|
|---|
| 12 | MAIL ;Send message to G.LMI local mail group of added 64 codes
|
|---|
| 13 | N DIFROM,XMSUB,XMDUZ,XMTEXT,XMY,LRIEN,LRN
|
|---|
| 14 | NEWLST ;Build list of added WKLD CODES
|
|---|
| 15 | D BMES^LR334("Building List Of Added NLT CODEs")
|
|---|
| 16 | K LRLAST64
|
|---|
| 17 | I '$O(^XTMP("LRNLT","LR334",1,3)) D
|
|---|
| 18 | . I '$G(LRPRT) D
|
|---|
| 19 | . . D SCR^LR334PO("No WKLD CODES Added to Database")
|
|---|
| 20 | D BMES^LR334("Sending message to LMI Mail Group.")
|
|---|
| 21 | D
|
|---|
| 22 | . NEW XMSUB,XMY,XMTEST,XMDUZ
|
|---|
| 23 | . S XMSUB="ADDED WKLD CODE REPORT "_$$FMTE^XLFDT($$NOW^XLFDT,"1S")
|
|---|
| 24 | . S XMY("G.LMI")="",XMTEXT="^XTMP(""LRNLT"",""LR334"",1,",XMDUZ=.5
|
|---|
| 25 | . D ^XMD
|
|---|
| 26 | . D BMES^LR334("List Of Added WKLD CODEs Complete")
|
|---|
| 27 | CHK642 ;Looking for locally added suffix
|
|---|
| 28 | K DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
|
|---|
| 29 | N LRSC,LRCNT,LRNX,LRI
|
|---|
| 30 | S LRSC="",LRCNT=0
|
|---|
| 31 | M ^XTMP("LRNLT642SAVE")=^XTMP("LRNLT642") ;Backup copy of 64.2
|
|---|
| 32 | F S LRCNT=$O(^XTMP("LRNLT642",1,LRCNT)) Q:LRCNT<1 K ^XTMP("LRNLT642",1,LRCNT,1)
|
|---|
| 33 | S LRNX="^XTMP(""LRNLT642"",1,""C"")"
|
|---|
| 34 | F S LRNX=$Q(@LRNX) Q:$QS(LRNX,3)'="C" D
|
|---|
| 35 | . I $D(^LAB(64.2,"C",$QS(LRNX,4))) D Q
|
|---|
| 36 | . . K ^XTMP("LRNLT642",1,$QS(LRNX,5))
|
|---|
| 37 | . W:$G(LRDBUG) !,LRNX
|
|---|
| 38 | F LRI="AC","B","C","D","E","F" K ^XTMP("LRNLT642",1,LRI)
|
|---|
| 39 | MES642 ;
|
|---|
| 40 | I $O(^XTMP("LRNLT642",1,0)) D
|
|---|
| 41 | . N XMSUB,XMY,XMTEXT,XMDUZ
|
|---|
| 42 | . S XMSUB=$TR($P($$SITE^VASITE,U,1,2),U,"|")_" LR 334 - 64 2 "_DT
|
|---|
| 43 | . S XMY("STALLING.FRANK@FS.ISC-ALBANY.MED.VA.GOV")=""
|
|---|
| 44 | . S XMY("G.LMI")=""
|
|---|
| 45 | . S XMTEXT="^XTMP(""LRNLT642"",1,",XMDUZ=.5
|
|---|
| 46 | . D ^XMD
|
|---|
| 47 | MESLMI ; Notify LIM patch is installed.
|
|---|
| 48 | D
|
|---|
| 49 | . NEW XQA,XQAMSG
|
|---|
| 50 | . S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
|
|---|
| 51 | . S XQA("G.LMI")=""
|
|---|
| 52 | . D SETUP^XQALERT
|
|---|
| 53 | Q
|
|---|
