- DIPKINIS ; ; 30-MAR-1999
- ;;22.0;VA FileMan;;Mar 30, 1999;Build 1
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- PAC(PKG,VER) ; called from package init (DIFROM7 created this routine)
- ; PKG = $T(IXF) of the INIT routine.
- ; VER is an array that is contained in DIFROM from the INIT routine
- ;
- N %,%I,%H,DATE,DIFROM,NOW,PACKAGE,RUN,SERVER,SITE,START,X,XMDUZ,XMSUB,XMTEXT,XMY,Y K ^TMP("DIPKINIS",$J)
- ;
- ; Site tracking updates only occur if run in a VA production primary domain
- ; account.
- I $G(^XMB("NETNAME"))'[".DOMAIN.EXT" Q
- Q:'$D(^%ZOSF("UCI")) Q:'$D(^%ZOSF("PROD"))
- X ^%ZOSF("UCI") I Y'=^%ZOSF("PROD") Q
- ;
- S SERVER="S.A5CSTS@DOMAIN.EXT"
- S PACKAGE=$P($P(PKG,";",3),U)
- S SITE=$G(^XMB("NETNAME"))
- S START=$P($G(^DIC(9.4,VER(0),"PRE")),U,2) I '$L(START) S START="Unknown"
- D ; check if ok to use kernel functions
- .S X="XLFDT" X ^%ZOSF("TEST") I $T D Q
- ..S NOW=$$HTFM^XLFDT($H)
- ..S RUN="Unknown" I START S RUN=$$FMDIFF^XLFDT(NOW,START,3)
- ..S START=$$FMTE^XLFDT(START)
- ..S DATE=NOW\1
- ..S NOW=$$FMTE^XLFDT(NOW)
- .D NOW^%DTC S NOW=%,DATE=X
- .S RUN="" ; don't bother to compute
- .S Y=START D DD^%DT S START=Y
- .S Y=NOW D DD^%DT S NOW=Y
- ;
- ; Message for server
- S ^TMP("DIPKINIS",$J,1,0)="PACKAGE INSTALL"
- S ^TMP("DIPKINIS",$J,2,0)="SITE: "_SITE
- S ^TMP("DIPKINIS",$J,3,0)="PACKAGE: "_PACKAGE
- S ^TMP("DIPKINIS",$J,4,0)="VERSION: "_VER
- S ^TMP("DIPKINIS",$J,5,0)="Start time: "_START
- S ^TMP("DIPKINIS",$J,6,0)="Completion time: "_NOW
- S ^TMP("DIPKINIS",$J,7,0)="Run time: "_RUN
- S ^TMP("DIPKINIS",$J,8,0)="DATE: "_DATE
- ;
- ; Data is sent to server on FORUM - S.A5CSTS
- S XMY(SERVER)="",XMDUZ=.5,XMTEXT="^TMP(""DIPKINIS"",$J,",XMSUB=PACKAGE_" VERSION "_VER_" INSTALLATION"
- D ^XMD
- K ^TMP("DIPKINIS",$J)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPKINIS 1791 printed Feb 19, 2025@00:19:19 Page 2
- DIPKINIS ; ; 30-MAR-1999
- +1 ;;22.0;VA FileMan;;Mar 30, 1999;Build 1
- +2 ;Per VHA Directive 10-93-142, this routine should not be modified.
- PAC(PKG,VER) ; called from package init (DIFROM7 created this routine)
- +1 ; PKG = $T(IXF) of the INIT routine.
- +2 ; VER is an array that is contained in DIFROM from the INIT routine
- +3 ;
- +4 NEW %,%I,%H,DATE,DIFROM,NOW,PACKAGE,RUN,SERVER,SITE,START,X,XMDUZ,XMSUB,XMTEXT,XMY,Y
- KILL ^TMP("DIPKINIS",$JOB)
- +5 ;
- +6 ; Site tracking updates only occur if run in a VA production primary domain
- +7 ; account.
- +8 IF $GET(^XMB("NETNAME"))'[".DOMAIN.EXT"
- QUIT
- +9 if '$DATA(^%ZOSF("UCI"))
- QUIT
- if '$DATA(^%ZOSF("PROD"))
- QUIT
- +10 XECUTE ^%ZOSF("UCI")
- IF Y'=^%ZOSF("PROD")
- QUIT
- +11 ;
- +12 SET SERVER="S.A5CSTS@DOMAIN.EXT"
- +13 SET PACKAGE=$PIECE($PIECE(PKG,";",3),U)
- +14 SET SITE=$GET(^XMB("NETNAME"))
- +15 SET START=$PIECE($GET(^DIC(9.4,VER(0),"PRE")),U,2)
- IF '$LENGTH(START)
- SET START="Unknown"
- +16 ; check if ok to use kernel functions
- Begin DoDot:1
- +17 SET X="XLFDT"
- XECUTE ^%ZOSF("TEST")
- IF $TEST
- Begin DoDot:2
- +18 SET NOW=$$HTFM^XLFDT($HOROLOG)
- +19 SET RUN="Unknown"
- IF START
- SET RUN=$$FMDIFF^XLFDT(NOW,START,3)
- +20 SET START=$$FMTE^XLFDT(START)
- +21 SET DATE=NOW\1
- +22 SET NOW=$$FMTE^XLFDT(NOW)
- End DoDot:2
- QUIT
- +23 DO NOW^%DTC
- SET NOW=%
- SET DATE=X
- +24 ; don't bother to compute
- SET RUN=""
- +25 SET Y=START
- DO DD^%DT
- SET START=Y
- +26 SET Y=NOW
- DO DD^%DT
- SET NOW=Y
- End DoDot:1
- +27 ;
- +28 ; Message for server
- +29 SET ^TMP("DIPKINIS",$JOB,1,0)="PACKAGE INSTALL"
- +30 SET ^TMP("DIPKINIS",$JOB,2,0)="SITE: "_SITE
- +31 SET ^TMP("DIPKINIS",$JOB,3,0)="PACKAGE: "_PACKAGE
- +32 SET ^TMP("DIPKINIS",$JOB,4,0)="VERSION: "_VER
- +33 SET ^TMP("DIPKINIS",$JOB,5,0)="Start time: "_START
- +34 SET ^TMP("DIPKINIS",$JOB,6,0)="Completion time: "_NOW
- +35 SET ^TMP("DIPKINIS",$JOB,7,0)="Run time: "_RUN
- +36 SET ^TMP("DIPKINIS",$JOB,8,0)="DATE: "_DATE
- +37 ;
- +38 ; Data is sent to server on FORUM - S.A5CSTS
- +39 SET XMY(SERVER)=""
- SET XMDUZ=.5
- SET XMTEXT="^TMP(""DIPKINIS"",$J,"
- SET XMSUB=PACKAGE_" VERSION "_VER_" INSTALLATION"
- +40 DO ^XMD
- +41 KILL ^TMP("DIPKINIS",$JOB)
- +42 QUIT