source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSESR.m@ 1800

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

initial load of WorldVistAEHR

File size: 732 bytes
Line 
1YSESR ;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
6E S OPT="",ESDBP="^YS(628,",DIC=ESDBP,ESDBP1=ESDBP_"""B"","
7MEN 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
Note: See TracBrowser for help on using the repository browser.