source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZUSET.m@ 1073

Last change on this file since 1073 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 908 bytes
Line 
1ZUSET ;ISF/RWF - Used to rename the correct routine to ZU ;06/03/2002 14:30
2 ;;8.0;KERNEL;**162,170,225,275**;Jul 10, 1995
3 N RTN
4 W !,"This routine will rename the correct routine to ZU for you."
5 S RTN=$$CHK() I '$L(RTN) W !,"Don't know what to do." Q
6 W !!,"Rename ",RTN," to ZU, OK? No//" R X:$G(DTIME,60) S:'$L(X) X="N"
7 I "yY"'[$E(X) D BMES^XPDUTL("No routine renamed") Q
8 D DO(RTN),BMES^XPDUTL("Routine "_RTN_" was renamed to ZU")
9 Q
10CHK() ;Check what routine to use
11 N % S %=^%ZOSF("OS")
12 I %["DSM" Q "ZUVXD"
13 I %["OpenM" Q "ZUONT"
14 I %["MSM" Q "ZUMSM"
15 I %["GT.M" Q "ZUGTM"
16 Q ""
17DO(%) ;Do the rename
18 N DIF,XCNT,X
19 K ^TMP($J)
20 S DIF="^TMP($J,",XCNP=0,X=% X ^%ZOSF("LOAD")
21 S DIE="^TMP($J,",XCN=0,X="ZU" X ^%ZOSF("SAVE")
22 K ^TMP($J)
23 Q
24POST ;Called as a post init
25 N RTN S RTN=$$CHK()
26 I '$L(RTN) D BMES^XPDUTL("No routine renamed") Q
27 D DO(RTN),BMES^XPDUTL("Routine "_RTN_" was renamed to ZU")
28 Q
Note: See TracBrowser for help on using the repository browser.