Routine: ZUSET

ZUSET ;ISF/RWF - Used to rename the correct routine to ZU ;06/03/2002  14:30

 ;;8.0;KERNEL;**162,170,225,275**;Jul 10, 1995

 N RTN

 W !,"This routine will rename the correct routine to ZU for you."

 S RTN=$$CHK() I '$L(RTN) W !,"Don't know what to do." Q

 W !!,"Rename ",RTN," to ZU, OK? No//" R X:$G(DTIME,60) S:'$L(X) X="N"

 I "yY"'[$E(X) D BMES^XPDUTL("No routine renamed") Q

 D DO(RTN),BMES^XPDUTL("Routine "_RTN_" was renamed to ZU")

CHK() ;Check what routine to use

 N % S %=^%ZOSF("OS")

 I %["DSM" Q "ZUVXD"

 I %["OpenM" Q "ZUONT"

 I %["MSM" Q "ZUMSM"

 I %["GT.M" Q "ZUGTM"

 Q ""

DO(%) ;Do the rename

 N DIF,XCNT,X

 K ^TMP($J)

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

 S DIE="^TMP($J,",XCN=0,X="ZU" X ^%ZOSF("SAVE")

 K ^TMP($J)

POST ;Called as a post init

 N RTN S RTN=$$CHK()

 I '$L(RTN) D BMES^XPDUTL("No routine renamed") Q

 D DO(RTN),BMES^XPDUTL("Routine "_RTN_" was renamed to ZU")

ZUSET     ;ISF/RWF - Used to rename the correct routine to ZU ;06/03/2002  14:30

 +1       ;;8.0;KERNEL;**162,170,225,275**;Jul 10, 1995

 +2        NEW RTN

 +3        WRITE !,"This routine will rename the correct routine to ZU for you."

 +4        SET RTN=$$CHK()

           IF '$LENGTH(RTN)

               WRITE !,"Don't know what to do."

               QUIT

 +5        WRITE !!,"Rename ",RTN," to ZU, OK? No//"

           READ X:$GET(DTIME,60)

           IF '$LENGTH(X)

               SET X="N"

 +6        IF "yY"'[$EXTRACT(X)

               DO BMES^XPDUTL("No routine renamed")

               QUIT

 +7        DO DO(RTN)

           DO BMES^XPDUTL("Routine "_RTN_" was renamed to ZU")

 +8        QUIT

CHK()     ;Check what routine to use

 +1        NEW %

           SET %=^%ZOSF("OS")

 +2        IF %["DSM"

               QUIT "ZUVXD"

 +3        IF %["OpenM"

               QUIT "ZUONT"

 +4        IF %["MSM"

               QUIT "ZUMSM"

 +5        IF %["GT.M"

               QUIT "ZUGTM"

 +6        QUIT ""

DO(%)     ;Do the rename

 +1        NEW DIF,XCNT,X

 +2        KILL ^TMP($JOB)

 +3        SET DIF="^TMP($J,"

           SET XCNP=0

           SET X=%

           XECUTE ^%ZOSF("LOAD")

 +4        SET DIE="^TMP($J,"

           SET XCN=0

           SET X="ZU"

           XECUTE ^%ZOSF("SAVE")

 +5        KILL ^TMP($JOB)

 +6        QUIT

POST      ;Called as a post init

 +1        NEW RTN

           SET RTN=$$CHK()

 +2        IF '$LENGTH(RTN)

               DO BMES^XPDUTL("No routine renamed")

               QUIT

 +3        DO DO(RTN)

           DO BMES^XPDUTL("Routine "_RTN_" was renamed to ZU")

 +4        QUIT

ZUSET.m