IBDEINIS.m

IBDEINIS ; ; 01-AUG-2022

 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022

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("IBDEINIS",$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("IBDEINIS",$J,1,0)="PACKAGE INSTALL"

 S ^TMP("IBDEINIS",$J,2,0)="SITE: "_SITE

 S ^TMP("IBDEINIS",$J,3,0)="PACKAGE: "_PACKAGE

 S ^TMP("IBDEINIS",$J,4,0)="VERSION: "_VER

 S ^TMP("IBDEINIS",$J,5,0)="Start time: "_START

 S ^TMP("IBDEINIS",$J,6,0)="Completion time: "_NOW

 S ^TMP("IBDEINIS",$J,7,0)="Run time: "_RUN

 S ^TMP("IBDEINIS",$J,8,0)="DATE: "_DATE

 ;

 ; Data is sent to server on FORUM - S.A5CSTS

 S XMY(SERVER)="",XMDUZ=.5,XMTEXT="^TMP(""IBDEINIS"",$J,",XMSUB=PACKAGE_" VERSION "_VER_" INSTALLATION"

 D ^XMD

 K ^TMP("IBDEINIS",$J)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDEINIS   1728     printed  Apr 09, 2024@20:57:04                                                                                                                                                                                                    Page 2

IBDEINIS  ; ; 01-AUG-2022

 +1       ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022

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("IBDEINIS",$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("IBDEINIS",$JOB,1,0)="PACKAGE INSTALL"

 +30       SET ^TMP("IBDEINIS",$JOB,2,0)="SITE: "_SITE

 +31       SET ^TMP("IBDEINIS",$JOB,3,0)="PACKAGE: "_PACKAGE

 +32       SET ^TMP("IBDEINIS",$JOB,4,0)="VERSION: "_VER

 +33       SET ^TMP("IBDEINIS",$JOB,5,0)="Start time: "_START

 +34       SET ^TMP("IBDEINIS",$JOB,6,0)="Completion time: "_NOW

 +35       SET ^TMP("IBDEINIS",$JOB,7,0)="Run time: "_RUN

 +36       SET ^TMP("IBDEINIS",$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(""IBDEINIS"",$J,"

           SET XMSUB=PACKAGE_" VERSION "_VER_" INSTALLATION"

 +40       DO ^XMD

 +41       KILL ^TMP("IBDEINIS",$JOB)

 +42       QUIT