source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LR334POA.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
RevLine 
[613]1LR334POA ;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
4ALERT ;
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
12MAIL ;Send message to G.LMI local mail group of added 64 codes
13 N DIFROM,XMSUB,XMDUZ,XMTEXT,XMY,LRIEN,LRN
14NEWLST ;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")
27CHK642 ;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)
39MES642 ;
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
47MESLMI ; 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
Note: See TracBrowser for help on using the repository browser.