Last change
on this file since 1535 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
908 bytes
|
Line | |
---|
1 | ZUSET ;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
|
---|
10 | CHK() ;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 ""
|
---|
17 | DO(%) ;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
|
---|
24 | POST ;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.