source: WorldVistAEHR/trunk/r/VISTA_OFFICE_EHR-VEPE/VEPEDOM.m@ 648

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

initial load of WorldVistAEHR

File size: 815 bytes
Line 
1VEPEDOM ;RED/DAOU ; 5/13/05 11:51am
2 ;;1.0;Reset Kernel System Parameters;;;Build 1
3 ;
4DIC 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),"^")
7SEL 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
Note: See TracBrowser for help on using the repository browser.