Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LR334POA

LR334POA.m

Go to the documentation of this file.
  1. LR334POA ;DALOI/FHS - LR*5.2*334 PATCH POST INSTALL ROUTINE CONTINUED;31-AUG-2001
  1. ;;5.2;LAB SERVICE;**334**;Sep 27, 1994;Build 12
  1. Q
  1. ALERT ;
  1. D BMES^LR334("Sending installation message to G.LMI mail group")
  1. N XQA,XQAMSG
  1. S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown Patch")_" complete "_$$HTE^XLFDT($H)
  1. S XQA("G.LMI")=""
  1. D SETUP^XQALERT
  1. L -^LAM
  1. Q
  1. MAIL ;Send message to G.LMI local mail group of added 64 codes
  1. N DIFROM,XMSUB,XMDUZ,XMTEXT,XMY,LRIEN,LRN
  1. NEWLST ;Build list of added WKLD CODES
  1. D BMES^LR334("Building List Of Added NLT CODEs")
  1. K LRLAST64
  1. I '$O(^XTMP("LRNLT","LR334",1,3)) D
  1. . I '$G(LRPRT) D
  1. . . D SCR^LR334PO("No WKLD CODES Added to Database")
  1. D BMES^LR334("Sending message to LMI Mail Group.")
  1. D
  1. . NEW XMSUB,XMY,XMTEST,XMDUZ
  1. . S XMSUB="ADDED WKLD CODE REPORT "_$$FMTE^XLFDT($$NOW^XLFDT,"1S")
  1. . S XMY("G.LMI")="",XMTEXT="^XTMP(""LRNLT"",""LR334"",1,",XMDUZ=.5
  1. . D ^XMD
  1. . D BMES^LR334("List Of Added WKLD CODEs Complete")
  1. CHK642 ;Looking for locally added suffix
  1. K DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
  1. N LRSC,LRCNT,LRNX,LRI
  1. S LRSC="",LRCNT=0
  1. M ^XTMP("LRNLT642SAVE")=^XTMP("LRNLT642") ;Backup copy of 64.2
  1. F S LRCNT=$O(^XTMP("LRNLT642",1,LRCNT)) Q:LRCNT<1 K ^XTMP("LRNLT642",1,LRCNT,1)
  1. S LRNX="^XTMP(""LRNLT642"",1,""C"")"
  1. F S LRNX=$Q(@LRNX) Q:$QS(LRNX,3)'="C" D
  1. . I $D(^LAB(64.2,"C",$QS(LRNX,4))) D Q
  1. . . K ^XTMP("LRNLT642",1,$QS(LRNX,5))
  1. . W:$G(LRDBUG) !,LRNX
  1. F LRI="AC","B","C","D","E","F" K ^XTMP("LRNLT642",1,LRI)
  1. MES642 ;
  1. I $O(^XTMP("LRNLT642",1,0)) D
  1. . N XMSUB,XMY,XMTEXT,XMDUZ
  1. . S XMSUB=$TR($P($$SITE^VASITE,U,1,2),U,"|")_" LR 334 - 64 2 "_DT
  1. . S XMY("STALLING.FRANK@FS.ISC-ALBANY.DOMAIN.EXT")=""
  1. . S XMY("G.LMI")=""
  1. . S XMTEXT="^XTMP(""LRNLT642"",1,",XMDUZ=.5
  1. . D ^XMD
  1. MESLMI ; Notify LIM patch is installed.
  1. D
  1. . NEW XQA,XQAMSG
  1. . S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
  1. . S XQA("G.LMI")=""
  1. . D SETUP^XQALERT
  1. Q