source: FOIAVistA/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A5CST.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1A5CST ;SLC/STAFF-SITE TRACKING SEND UPDATE TO SERVER ;3/15/93 08:53
2 ;;1.0;Site Tracking Update;;Mar 12, 1993
3 ;
4PAC(PKG,VER) ; from package init (A5CSTBUL installs code to call this routine)
5 ; Compatable with Fileman Version 18 or greater
6 ; PKG = $T(IXF) of the INIT routine.
7 ; VER is an array that is contained in DIFROM from the INIT routine
8 ;
9 ; This routine is called using the following code in the INIT routine:
10 ; <tab>I DIFROM S X="A5CST" X ^%ZOSF("TEST") D:$T PAC^A5CST($T(IXF),.DIFROM)
11 ; The code preceeds the line containing: =DIFROM G Q^DIFROM
12 ; ** and make sure that you send this routine out with the package **
13 ;
14 N DATE,DIFROM,DOMAIN,NOW,PACKAGE,RUN,SERVER,SITE,START,XMDUZ,XMSUB,XMTEXT,XMY,Y K ^TMP("A5CSTS",$J)
15 ;
16 ; Site tracking updates only occur if run in a VA production primary domain
17 ; account and having a domain for FORUM
18 I $G(^XMB("NAME"))'[".VA.GOV" Q
19 X ^%ZOSF("UCI") I Y'=^%ZOSF("PROD") Q
20 I $L($G(^XMB("NAME")),".")>3 Q
21 S DOMAIN=$O(^DIC(4.2,"B","FORUM")) I DOMAIN'["FORUM." Q
22 ;
23 S SERVER="S.A5CSTS@"_DOMAIN
24 S PACKAGE=$P($P(PKG,";",3),U)
25 S SITE=$G(^XMB("NAME"))
26 S START=$P($G(^DIC(9.4,VER(0),"PRE")),U,2) I '$L(START) S START="Unknown"
27 S NOW=$$HTFM^XLFDT($H)
28 S RUN="Unknown" I START S RUN=$$FMDIFF^XLFDT(NOW,START,3)
29 S START=$$FMTE^XLFDT(START)
30 S DATE=NOW\1
31 S NOW=$$FMTE^XLFDT(NOW)
32 ;
33 ; Message for server
34 S ^TMP("A5CSTS",$J,1,0)="PACKAGE INSTALL"
35 S ^TMP("A5CSTS",$J,2,0)="SITE: "_SITE
36 S ^TMP("A5CSTS",$J,3,0)="PACKAGE: "_PACKAGE
37 S ^TMP("A5CSTS",$J,4,0)="VERSION: "_VER
38 S ^TMP("A5CSTS",$J,5,0)="Start time: "_START
39 S ^TMP("A5CSTS",$J,6,0)="Completion time: "_NOW
40 S ^TMP("A5CSTS",$J,7,0)="Run time: "_RUN
41 S ^TMP("A5CSTS",$J,8,0)="DATE: "_DATE
42 ;
43 ; Data is sent to server on ISC-SLC - S.A5CSTS
44 S XMY(SERVER)="",XMDUZ=.5,XMTEXT="^TMP(""A5CSTS"",$J,",XMSUB=PACKAGE_" VERSION "_VER_" INSTALLATION"
45 D ^XMD
46 K ^TMP("A5CSTS",$J)
47 Q
Note: See TracBrowser for help on using the repository browser.