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

DIPKINIS.m

Go to the documentation of this file.
  1. DIPKINIS ; ; 30-MAR-1999
  1. ;;22.0;VA FileMan;;Mar 30, 1999;Build 1
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. PAC(PKG,VER) ; called from package init (DIFROM7 created this routine)
  1. ; PKG = $T(IXF) of the INIT routine.
  1. ; VER is an array that is contained in DIFROM from the INIT routine
  1. ;
  1. N %,%I,%H,DATE,DIFROM,NOW,PACKAGE,RUN,SERVER,SITE,START,X,XMDUZ,XMSUB,XMTEXT,XMY,Y K ^TMP("DIPKINIS",$J)
  1. ;
  1. ; Site tracking updates only occur if run in a VA production primary domain
  1. ; account.
  1. I $G(^XMB("NETNAME"))'[".DOMAIN.EXT" Q
  1. Q:'$D(^%ZOSF("UCI")) Q:'$D(^%ZOSF("PROD"))
  1. X ^%ZOSF("UCI") I Y'=^%ZOSF("PROD") Q
  1. ;
  1. S SERVER="S.A5CSTS@DOMAIN.EXT"
  1. S PACKAGE=$P($P(PKG,";",3),U)
  1. S SITE=$G(^XMB("NETNAME"))
  1. S START=$P($G(^DIC(9.4,VER(0),"PRE")),U,2) I '$L(START) S START="Unknown"
  1. D ; check if ok to use kernel functions
  1. .S X="XLFDT" X ^%ZOSF("TEST") I $T D Q
  1. ..S NOW=$$HTFM^XLFDT($H)
  1. ..S RUN="Unknown" I START S RUN=$$FMDIFF^XLFDT(NOW,START,3)
  1. ..S START=$$FMTE^XLFDT(START)
  1. ..S DATE=NOW\1
  1. ..S NOW=$$FMTE^XLFDT(NOW)
  1. .D NOW^%DTC S NOW=%,DATE=X
  1. .S RUN="" ; don't bother to compute
  1. .S Y=START D DD^%DT S START=Y
  1. .S Y=NOW D DD^%DT S NOW=Y
  1. ;
  1. ; Message for server
  1. S ^TMP("DIPKINIS",$J,1,0)="PACKAGE INSTALL"
  1. S ^TMP("DIPKINIS",$J,2,0)="SITE: "_SITE
  1. S ^TMP("DIPKINIS",$J,3,0)="PACKAGE: "_PACKAGE
  1. S ^TMP("DIPKINIS",$J,4,0)="VERSION: "_VER
  1. S ^TMP("DIPKINIS",$J,5,0)="Start time: "_START
  1. S ^TMP("DIPKINIS",$J,6,0)="Completion time: "_NOW
  1. S ^TMP("DIPKINIS",$J,7,0)="Run time: "_RUN
  1. S ^TMP("DIPKINIS",$J,8,0)="DATE: "_DATE
  1. ;
  1. ; Data is sent to server on FORUM - S.A5CSTS
  1. S XMY(SERVER)="",XMDUZ=.5,XMTEXT="^TMP(""DIPKINIS"",$J,",XMSUB=PACKAGE_" VERSION "_VER_" INSTALLATION"
  1. D ^XMD
  1. K ^TMP("DIPKINIS",$J)
  1. Q