source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LR274POA.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1LR274POA ;DALOI/FHS - LR*5.2*274 PATCH POST INSTALL ROUTINE CONTINUED
2 ;;5.2;LAB SERVICE;**274**;Sep 27,1994
3 Q
4ALERT ;
5 D BMES^XPDUTL($$CJ^XLFSTR("Sending installation message to G.LMI mail group",80))
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
16 . D BMES^XPDUTL($$CJ^XLFSTR("Building List Of Added WKLD CODEs",80))
17 . N LRN,LRIEN,LRSTR,LRCNT
18 . S LRCNT=0
19 . S LRN="^LAM(""B"")" S:'$G(LRLAST64) LRLAST64=3203
20 . F S LRN=$Q(@LRN) Q:$QS(LRN,1)'="B" I '@LRN D
21 . . S LRIEN=$QS(LRN,3)
22 . . I LRIEN>LRLAST64,LRIEN<99999,$D(^LAM(LRIEN,0))#2 S LRSTR=$P(^(0),U,1,2) D
23 . . . S LRCNT=$G(LRCNT)+1
24 . . . S LRSTR=LRCNT_"|"_$TR(LRSTR,"^","|")_"|IEN= "_LRIEN
25 . . . D SCR^LR274PO(LRSTR)
26 . D BMES^XPDUTL($$CJ^XLFSTR("List Of Added WKLD CODEs Complete",80))
27 K LRLAST64
28 I '$O(^XTMP("LRNLT",$J,1,3)) D
29 . I '$G(LRPRT) D
30 . . D SCR^LR274PO("No WKLD CODES Added to Database")
31 D BMES^XPDUTL($$CJ^XLFSTR("Sending message to LMI Mail Group.",80))
32 S XMSUB="ADDED WKLD CODE REPORT "_$$FMTE^XLFDT($$NOW^XLFDT,"1S")
33 S XMY("G.LMI")="",XMTEXT="^XTMP(""LRNLT"","_$J_",1,",XMDUZ=.5
34 D ^XMD
35CHK642 ;Looking for locally added suffix
36 K DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
37 N LRSC,LRCNT,LRNX,LRI
38 S LRSC="",LRCNT=0
39 F S LRCNT=$O(^XTMP("LRNLT642",1,LRCNT)) Q:LRCNT<1 K ^XTMP("LRNLT642",1,LRCNT,1)
40 S LRNX="^XTMP(""LRNLT642"",1,""C"")"
41 F S LRNX=$Q(@LRNX) Q:$QS(LRNX,3)'="C" D
42 . I $D(^LAB(64.2,"C",$QS(LRNX,4))) D Q
43 . . K ^XTMP("LRNLT642",1,$QS(LRNX,5))
44 . W:$G(LRDBUG) !,LRNX
45 F LRI="AC","B","C","D","E","F" K ^XTMP("LRNLT642",1,LRI)
46MES642 ;
47 I $O(^XTMP("LRNLT642",1,0)) D
48 . S XMSUB=$TR($P($$SITE^VASITE,U,1,2),U,"|")_" LR 274 - 64 2 "_DT
49 . S XMY("G.LMI@ISC-DALLAS")=""
50 . S XMTEXT="^XTMP(""LRNLT642"",1,",XMDUZ=.5
51 . D ^XMD
52 K ^XTMP("LRNLT642")
53MESLMI ; Notify LIM patch is installed.
54 D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to mail group G.LMI",80))
55 ;
56 S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
57 S XQA("G.LMI")=""
58 D SETUP^XQALERT
59 ;
60 S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
61 S XQA("G.LMI")=""
62 D SETUP^XQALERT
63 Q
Note: See TracBrowser for help on using the repository browser.