| 1 | VEPEDOM ;RED/DAOU ; 5/13/05 11:51am
|
|---|
| 2 | ;;1.0;Reset Kernel System Parameters;;;Build 1
|
|---|
| 3 | ;
|
|---|
| 4 | DIC N NUM,SEL,ANS S (SEL,NUM)=0
|
|---|
| 5 | W !!,"First I will print out existing entries for you to select from",!
|
|---|
| 6 | F S NUM=$O(^DIC(4.2,NUM)) Q:NUM<1 W !,NUM,?5,$P(^DIC(4.2,NUM,0),"^")
|
|---|
| 7 | SEL R !,"Please select a number from above: ",SEL:DTIME Q:SEL=""
|
|---|
| 8 | I '$D(^DIC(4.2,SEL)) W !,"Incorrect selection, try again",# G DIC
|
|---|
| 9 | W !!!,"You have selected '",$P(^DIC(4.2,SEL,0),"^"),"' is this correct? " R ANS:DTIME I ANS'="Y"&(ANS'="y") W !,"Quitting" Q
|
|---|
| 10 | W !!,"Okay, changing Kernel System Parameters to: ",$P(^DIC(4.2,SEL,0),"^")
|
|---|
| 11 | W !,"completed"
|
|---|
| 12 | ;Q
|
|---|
| 13 | N IEN,DATA S IEN=0,IEN=$O(^XTV(8989.3,IEN)) Q:IEN=""
|
|---|
| 14 | S DATA=^XTV(8989.3,IEN,0),$P(DATA,"^")=SEL
|
|---|
| 15 | W !,DATA
|
|---|
| 16 | ;K ^XTV(8989.3,"B")
|
|---|
| 17 | ;S ^XTV(8989.3,"B",SEL)=""
|
|---|
| 18 | ;S $P(^XTV(8989.3,IEN,0),"^")=SEL
|
|---|
| 19 | Q
|
|---|
