|
Last change
on this file since 794 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
908 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
