| 1 | YSESR ;SLC/DCM-MAIN MENU FOR RUNNING A DECISION SUPPORT ALGORITHM ; 12/2/88 14:30 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;DECISION EXPERT SYSTEM (VERSION 1.0) FOR MENTAL HEALTH PACKAGE - DWIGHT MCDANIEL / REGION 5 ISC, SLC
|
|---|
| 4 | ;
|
|---|
| 5 | ; Called by routine YSESL
|
|---|
| 6 | E S OPT="",ESDBP="^YS(628,",DIC=ESDBP,ESDBP1=ESDBP_"""B"","
|
|---|
| 7 | MEN W @IOF,!,$E(STR,1,20)," AVAILABLE DECISION SUPPORT SYSTEMS ",$E(STR,1,20),!,"**",?76,"**",!
|
|---|
| 8 | S ESI="" W "** " F ESJ=0:1 S ESI=$O(@(ESDBP1_Q_ESI_Q_")")) Q:ESI="" W ESI,?41 W:ESJ#2 ?76,"**",!,"** "
|
|---|
| 9 | W ?76,"**",!,$E(STR,1,20)," AVAILABLE DECISION SUPPORT SYSTEMS ",$E(STR,1,20),!
|
|---|
| 10 | S DIC(0)="AEMQZ",DIC("A")="Select an Algorithm: " D ^DIC G:Y=-1 ^YSESM S GN=$P(Y,U),A5ASYS=$P(Y(0),U)
|
|---|
| 11 | G:Y=-1 ^YSESM D ^YSESD
|
|---|
| 12 | G E
|
|---|
