Routine: XTVNUM

XTVNUM ;SF-ISC/RWF - TO UPDATE THE VERSION NUMBER ;09 Apr 2003 8:24 am

 ;;7.3;TOOLKIT;**20,39,70**;Apr 25, 1995

GO W !!,"THIS ROUTINE WILL UPDATE THE VERSION NUMBER OR PATCH LIST"

 W !,"IN THE ROUTINES SELECTED"

 ;XTV(2)=New Version or Patch, 3=Version #, 4=Package Name, 5=Clear patch

 ;6=Date

 N BLDA,XTV,XTVPCH,DIC,DIR,Y,X K ^UTILITY($J)

 S XTV(5)=0,XTV(2)=0

 S DIR(0)="SM^F:Free Form;B:Build File",DIR("A")="Build from" D ^DIR K DIR Q:X[U

 S XTV=Y G PKG:Y="F",BUILD:Y="B" Q

PKG W !,"Will only update the Version number.",!

 X ^%ZOSF("RSEL") G EXIT:$O(^UTILITY($J,0))="",BLD

BUILD W !!,"This will use the BUILD file for the list of routines to update."

 W !,"It will update the Patch number of the patch list."

 S DIC="^XPD(9.6,",DIC(0)="AEMQZ" D ^DIC G EXIT:Y'>0 S BLDA=+Y

 S X=$P(Y,"^",2),XTV(4)=$$PKG^XPDUTL(X),XTV(3)=$$VER^XPDUTL(X)

 I X["*" D

 . S XTV(3)=$P(X,"*",2),XTVPCH=$P(X,"*",3),XTV(4)=$$GET1^DIQ(9.6,BLDA_",",1),XTV(5)=0,XTV(2)=1

 . S XTV(99)="S Y=(T?.E1P1"""_XTVPCH_"""1P.E)"

. Q

 D RTN^XTRUTL1(BLDA)

 G EXIT:$O(^UTILITY($J,""))=""

G 3

BLD K DIR

 S DIR(0)="FA^1:8^K:'(X?1.2N1"".""1.2N.1(1""T"",1""V"").2N) X",DIR("A")="WHAT IS THE VERSION NUMBER: ",DIR("?")="Enter a number of the form nn.nn[Tnn or Vnn]"

 D ^DIR G EXIT:$D(DIRUT) S XTV(3)=X

2 K DIR

 S DIR(0)="F^1:30^K:X[U X",DIR("A")="Package Name",DIR("?")="The package name will go into the 4th piece of the second line."

 D ^DIR G EXIT:$D(DTOUT)!$D(DUOUT) S:X]"" XTV(4)=X

3 I XTV(2) W !,"This date is only used if building a new second line."

 K DIR S DIR(0)="D",DIR("A")="Enter the Version Date",DIR("?")="The DATE of this Version"

 D ^DIR G EXIT:$D(DIRUT) S XTV(6)=$$FMTE^XLFDT(Y,1) W "  ",XTV(6)

 K DIR S DIR(0)="Y",DIR("A")="Clear the 'Patch List'",DIR("B")="YES",DIR("?")="Answer YES to remove the list of patch numbers from the 5th piece of the second line."

 I 'XTV(2) D ^DIR G EXIT:$D(DIRUT) S XTV(5)=Y

OK W "  OK.",!

 K DIR

 S DIR("A",1)=" SETTING "_$S(XTV(2):"Patch",1:"Version")_" number to "_$S(XTV(2):XTVPCH,1:XTV(3)),DIR(0)="Y",DIR("A")=" Are you ready",DIR("B")="NO"

 D ^DIR G:Y'=1 EXIT

 W ! N AQ,CQ,I,SQ,DQ,R,T,T1,TO,TAB

 S AQ="**",CQ=",",SQ=";",DQ=" ",R=0,T1=" ;;"_XTV(3)_SQ_XTV(4)_";;"_XTV(6)

 ;DoIt

 F I=0:0 S R=$O(^UTILITY($J,R)) Q:'$L(R)  D XTV(R) W $J(R,9),?15,T,!

 W !,"DONE",!

EXIT K ^UTILITY($J),^TMP($J)

XTV(RN) ;

 N DIF,XCNP,DIE,XCN,IX,P

 K ^TMP($J) S DIF="^TMP($J,",XCNP=0,X=RN X ^%ZOSF("LOAD")

 S IX=2,(T,TO)=^TMP($J,IX,0)

 S:T?.8E1" ;"1N.E $P(T,SQ)=$P(T,SQ)_SQ I T'?.8E1" ;;"1N.E S T=T1,IX=1.5,^TMP($J,IX,0)=T1

 I 'XTV(2) S $P(T,SQ,3,4)=XTV(3)_SQ_XTV(4) S:XTV(5) $P(T,SQ,5)="" S $P(T,SQ,6)=XTV(6)

 I XTV(2) X XTV(99) I 'Y S P=$P($P(T,SQ,5),AQ,2),P=AQ_$S($L(P):P_CQ_XTVPCH,1:XTVPCH)_AQ,$P(T,SQ,5)=P

 I T'=TO S ^TMP($J,IX,0)=T

 S DIE=DIF,XCN=0,X=RN X ^%ZOSF("SAVE")

 ;old code

 ;X XTV(11),XTV(10):'XTV(2),XTV(12):XTV(2),XTV(15) W $J(R,9),?15,T,!"

 ;ZR +2 ZI T ZS @R"

XTVNUM    ;SF-ISC/RWF - TO UPDATE THE VERSION NUMBER ;09 Apr 2003 8:24 am

 +1       ;;7.3;TOOLKIT;**20,39,70**;Apr 25, 1995

GO         WRITE !!,"THIS ROUTINE WILL UPDATE THE VERSION NUMBER OR PATCH LIST"

 +1        WRITE !,"IN THE ROUTINES SELECTED"

 +2       ;XTV(2)=New Version or Patch, 3=Version #, 4=Package Name, 5=Clear patch

 +3       ;6=Date

 +4        NEW BLDA,XTV,XTVPCH,DIC,DIR,Y,X

           KILL ^UTILITY($JOB)

 +5        SET XTV(5)=0

           SET XTV(2)=0

 +6        SET DIR(0)="SM^F:Free Form;B:Build File"

           SET DIR("A")="Build from"

           DO ^DIR

           KILL DIR

           IF X[U

               QUIT

 +7        SET XTV=Y

           IF Y="F"

               GOTO PKG

           IF Y="B"

               GOTO BUILD

           QUIT

 +8       ;

PKG        WRITE !,"Will only update the Version number.",!

 +1        XECUTE ^%ZOSF("RSEL")

           IF $ORDER(^UTILITY($JOB,0))=""

               GOTO EXIT

           GOTO BLD

 +2       ;

BUILD      WRITE !!,"This will use the BUILD file for the list of routines to update."

 +1        WRITE !,"It will update the Patch number of the patch list."

 +2        SET DIC="^XPD(9.6,"

           SET DIC(0)="AEMQZ"

           DO ^DIC

           IF Y'>0

               GOTO EXIT

           SET BLDA=+Y

 +3        SET X=$PIECE(Y,"^",2)

           SET XTV(4)=$$PKG^XPDUTL(X)

           SET XTV(3)=$$VER^XPDUTL(X)

 +4        IF X["*"

               Begin DoDot:1

 +5                SET XTV(3)=$PIECE(X,"*",2)

                   SET XTVPCH=$PIECE(X,"*",3)

                   SET XTV(4)=$$GET1^DIQ(9.6,BLDA_",",1)

                   SET XTV(5)=0

                   SET XTV(2)=1

 +6                SET XTV(99)="S Y=(T?.E1P1"""_XTVPCH_"""1P.E)"

 +7                QUIT

               End DoDot:1

 +8        DO RTN^XTRUTL1(BLDA)

 +9        IF $ORDER(^UTILITY($JOB,""))=""

               GOTO EXIT

 +10       GOTO 3

 +11      ;

BLD        KILL DIR

 +1        SET DIR(0)="FA^1:8^K:'(X?1.2N1"".""1.2N.1(1""T"",1""V"").2N) X"

           SET DIR("A")="WHAT IS THE VERSION NUMBER: "

           SET DIR("?")="Enter a number of the form nn.nn[Tnn or Vnn]"

 +2        DO ^DIR

           IF $DATA(DIRUT)

               GOTO EXIT

           SET XTV(3)=X

 +3       ;

2          KILL DIR

 +1        SET DIR(0)="F^1:30^K:X[U X"

           SET DIR("A")="Package Name"

           SET DIR("?")="The package name will go into the 4th piece of the second line."

 +2        DO ^DIR

           IF $DATA(DTOUT)!$DATA(DUOUT)

               GOTO EXIT

           IF X]""

               SET XTV(4)=X

 +3       ;

3          IF XTV(2)

               WRITE !,"This date is only used if building a new second line."

 +1        KILL DIR

           SET DIR(0)="D"

           SET DIR("A")="Enter the Version Date"

           SET DIR("?")="The DATE of this Version"

 +2        DO ^DIR

           IF $DATA(DIRUT)

               GOTO EXIT

           SET XTV(6)=$$FMTE^XLFDT(Y,1)

           WRITE "  ",XTV(6)

 +3       ;

 +4        KILL DIR

           SET DIR(0)="Y"

           SET DIR("A")="Clear the 'Patch List'"

           SET DIR("B")="YES"

           SET DIR("?")="Answer YES to remove the list of patch numbers from the 5th piece of the second line."

 +5        IF 'XTV(2)

               DO ^DIR

               IF $DATA(DIRUT)

                   GOTO EXIT

               SET XTV(5)=Y

 +6       ;

OK         WRITE "  OK.",!

 +1        KILL DIR

 +2        SET DIR("A",1)=" SETTING "_$SELECT(XTV(2):"Patch",1:"Version")_" number to "_$SELECT(XTV(2):XTVPCH,1:XTV(3))

           SET DIR(0)="Y"

           SET DIR("A")=" Are you ready"

           SET DIR("B")="NO"

 +3        DO ^DIR

           IF Y'=1

               GOTO EXIT

 +4        WRITE !

           NEW AQ,CQ,I,SQ,DQ,R,T,T1,TO,TAB

 +5        SET AQ="**"

           SET CQ=","

           SET SQ=";"

           SET DQ=" "

           SET R=0

           SET T1=" ;;"_XTV(3)_SQ_XTV(4)_";;"_XTV(6)

 +6       ;DoIt

 +7        FOR I=0:0

               SET R=$ORDER(^UTILITY($JOB,R))

               IF '$LENGTH(R)

                   QUIT

               DO XTV(R)

               WRITE $JUSTIFY(R,9),?15,T,!

 +8        WRITE !,"DONE",!

EXIT       KILL ^UTILITY($JOB),^TMP($JOB)

 +1        QUIT

 +2       ;

XTV(RN)   ;

 +1        NEW DIF,XCNP,DIE,XCN,IX,P

 +2        KILL ^TMP($JOB)

           SET DIF="^TMP($J,"

           SET XCNP=0

           SET X=RN

           XECUTE ^%ZOSF("LOAD")

 +3        SET IX=2

           SET (T,TO)=^TMP($JOB,IX,0)

 +4        IF T?.8E1" ;"1N.E

               SET $PIECE(T,SQ)=$PIECE(T,SQ)_SQ

           IF T'?.8E1" ;;"1N.E

               SET T=T1

               SET IX=1.5

               SET ^TMP($JOB,IX,0)=T1

 +5        IF 'XTV(2)

               SET $PIECE(T,SQ,3,4)=XTV(3)_SQ_XTV(4)

               IF XTV(5)

                   SET $PIECE(T,SQ,5)=""

               SET $PIECE(T,SQ,6)=XTV(6)

 +6        IF XTV(2)

               XECUTE XTV(99)

               IF 'Y

                   SET P=$PIECE($PIECE(T,SQ,5),AQ,2)

                   SET P=AQ_$SELECT($LENGTH(P):P_CQ_XTVPCH,1:XTVPCH)_AQ

                   SET $PIECE(T,SQ,5)=P

 +7        IF T'=TO

               SET ^TMP($JOB,IX,0)=T

 +8        SET DIE=DIF

           SET XCN=0

           SET X=RN

           XECUTE ^%ZOSF("SAVE")

 +9        QUIT

 +10      ;old code

 +11      ;X XTV(11),XTV(10):'XTV(2),XTV(12):XTV(2),XTV(15) W $J(R,9),?15,T,!"

 +12      ;ZR +2 ZI T ZS @R"

XTVNUM.m