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")
Q
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)
Q
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")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZUSET 936 printed Nov 22, 2024@17:26:52 Page 2
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