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

XU8P672E.m

Go to the documentation of this file. 
  1. XU8P672E ;SFISC/RSD - Environment Check ;06/24/2008
  1.  ;;8.0;KERNEL;**672**;Jul 10, 1995;Build 28
  1.  ;Per VHA Directive 2004-038, this routine should not be modified.
  1.  ;during load, XPDENV=0
  1.  N XFILE
  1.  S XFILE=$$CHK() Q:'XPDENV
  1.  ;during install
  1.  N CNT,DIR,DIU,I,X,XLET,Y
  1.  I XFILE]"" D
  1.  . S DIR(0)="Y",DIR("A")="Do you want me to delete the "_XFILE_ " file, #1.5",DIR("B")="NO"
  1.  . D ^DIR I Y'=1 S XPDQUIT=1 Q  ;don't want to delete, abort install and delete Transport Global
  1.  . K ^TMP($J) S CNT=0
  1.  . ;check for LetterMan in ALTERNATE EDITOR file #1.2
  1.  . D BMES^XPDUTL("Ok, we will delete file 1.5, first need to check if your site is using LetterMan...")
  1.  . S XLET=0 F  S XLET=$O(^DIST(1.2,XLET)) Q:'XLET  I $G(^(XLET,0))["LETTERMAN" Q
  1.  . D:XLET
  1.  .. ;check NEW PERSON file #200, check PREFERRED EDITOR #31.3 for LetterMan
  1.  .. S I=0 F  S I=$O(^VA(200,I)) Q:'I  S X=$G(^VA(200,I,1)) D:$P(X,U,5)=XLET
  1.  ... S CNT=CNT+1,^TMP($J,CNT)=I_"^"_$P($G(^VA(200,I,0)),U)
  1.  ... D REMOV(I,200,31.3) Q
  1.  .. D REMOV(XLET,1.2,.01) ;remove LetterMan from ALTERNATE EDITOR file.
  1.  .. Q
  1.  . S DIU=1.5,DIU(0)="ET" D EN^DIU2,BMES^XPDUTL("File 1.5 deleted")
  1.  . D MAIL
  1.  K ^TMP($J)
  1.  Q
  1.  ;
  1. CHK() ;check file 1.5  Returns: file name or null if ENTITY.
  1.  N X,Y
  1.  S Y=""
  1.  I $D(^DIC(1.5,0))#2 S Y=$P(^(0),"^"),Y=$S(Y'="ENTITY":Y,1:"") D:Y]""
  1.  . S X(1)=" Your site has the CLASS III "_Y_" file, #1.5."
  1.  . S X(2)="In order to install this patch the file will be deleted during install."
  1.  . D MES^XPDUTL(.X)
  1.  Q Y
  1.  ;
  1. REMOV(DA,XFIL,XFLD) ;remove value from XFIL(file) and XFLD(field) for record DA
  1.  N CNT,I,X,XFILE,XLET,XUDATA,Y
  1.  S XUDATA(XFIL,DA_",",XFLD)="@"
  1.  D FILE^DIE("","XUDATA")
  1.  Q
  1.  ;
  1. MAIL ;create mail message to send to Forum
  1.  N I,XMY,XUTEXT,XMTEXT,XMDUZ,XMSUB,XMZ,XMMG
  1.  S XMY("G.PATCH TRACKING XU_8_672@DOMAIN.EXT")=""
  1.  ;Message for server
  1.  S XUTEXT(1,0)="XU*8*672"
  1.  S XUTEXT(2,0)="SITE: "_$G(^XMB("NETNAME"))
  1.  S XUTEXT(3,0)="DATE: "_$$FMTE^XLFDT(DT)
  1.  S XUTEXT(4,0)="Installed by: "_$P($G(^VA(200,+$G(DUZ),0)),U)
  1.  S XUTEXT(5,0)="Install Name: "_$G(XPDNM)
  1.  S XUTEXT(6,0)=" File "_XFILE_" #1.5 removed"
  1.  S XUTEXT(7,0)=" The following Users had their PREFERRED EDITOR field #31.3 removed:"
  1.  F I=1:1 Q:$G(^TMP($J,I))=""  S XUTEXT(I+7,0)=^(I)
  1.  S XMDUZ=$G(DUZ),XMTEXT="XUTEXT(",XMSUB="Patch XU*8*672 Installation"
  1.  D ^XMD
  1.  Q