| 1 | YSESM ;SLC/DCM-MAIN MENU DRIVER/ACCESS ROUTINE FOR DECISION EXPERT SYSTEM ;7/24/89 09:59 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ; Called by routines YSESE,YSESR
|
|---|
| 4 | ; Called from the top by MENU option YSDECTREES-R
|
|---|
| 5 | ;
|
|---|
| 6 | ;DECISION EXPERT SYSTEM (VERSION 1.0) FOR MENTAL HEALTH PACKAGE - DWIGHT MCDANIEL / REGION 5 ISC, SLC
|
|---|
| 7 | E I '$D(DUZ)!('$D(DUZ(0))) W $C(7),!!!,"****** YOU MUST SET UP YOUR SECURITY PARAMETERS TO RUN THIS PROGRAM ******",!,"******",?20,"'DUZ' AND 'DUZ(0)' MUST BE DEFINED",?70,"******",!!! H 2 Q
|
|---|
| 8 | EN I '$D(IOF) D HOME^%ZIS
|
|---|
| 9 | S YSTIME=DTIME,DTIME=$S('$D(DTIME):600,DTIME<600:600,1:DTIME)
|
|---|
| 10 | S Q="""",UU="",$P(UU," ",20)="",STR="",$P(STR,"*",80)="",ST=0,A5ASP=0 K A5AFL
|
|---|
| 11 | MEN W @IOF,!?13,"****** DECISION SUPPORT SYSTEM MAIN MENU ******",!!
|
|---|
| 12 | F YSESI=1:1 S YSOPT=$P($P($T(@(YSESI)),";;",2),U) Q:YSOPT="" W ?15,YSESI,". ",YSOPT,!
|
|---|
| 13 | MEN1 W !!?15,"Select Option: (1-",YSESI-1,"): " R A5AX:DTIME G:A5AX["?" QUES1 I A5AX]"",A5AX<0!(A5AX>(YSESI-1))!(A5AX?.P) W $C(7) G MEN
|
|---|
| 14 | I A5AX["^"!(A5AX="")!(A5AX=3) G END
|
|---|
| 15 | I A5AX?1A.A.E S YSOPT=$S("Rr"[$E(A5AX):"^YSESR","Aa"[$E(A5AX):"^YSESE","Ee"[$E(A5AX):"END",1:"") G:A5AX="END" END I A5AX="" W $C(7)," ??" G EN
|
|---|
| 16 | I A5AX?1N S YSOPT=$P($P($T(@(A5AX)),";;",2),U,2) S YSOPT="^"_YSOPT I YSOPT=""!(YSOPT?.P) W $C(7) G EN
|
|---|
| 17 | G @YSOPT,MEN
|
|---|
| 18 | QUES1 ;Response to ? on Main Menu (MEN+2)
|
|---|
| 19 | W !!,"""Running a Decision Support Algorithm"" will allow the individual to follow a",!,"decision tree to its logical conclusion as determined by the data base.",!
|
|---|
| 20 | W !,"""Add Nodes, etc."" permits qualified personnel to enter information into the",!,"decision support data base. Use of this option requires detailed knowledge",!,"of data entry material and special access to the system.",!
|
|---|
| 21 | W !,"""Exit"" will return user to preceding menu.",!
|
|---|
| 22 | K A5AX G MEN1
|
|---|
| 23 | END K C,P,Q,X,Y,DA,DR,GN,ST,TB,TC,UU,ANS,DIC,DIE,ESI,ESJ,GN1,GN2,STR,A5AI,A5AJ,A5AS,A5AX,SDIC,A5AGN,A5ALG,A5ASP,SDIC0,ESDBP,YSESI,YSOPT,XCODE,A5ARES,A5ASYS,ESDBP1,PROMPT
|
|---|
| 24 | K X,Y,D0,DQ I $D(YSTIME) S:YSTIME>0 DTIME=YSTIME K YSTIME
|
|---|
| 25 | W @IOF Q
|
|---|
| 26 | ;;5.0;Mental Health System;January 1992
|
|---|
| 27 | ;;
|
|---|
| 28 | 1 ;;Run a Decision Support Algorithm.^YSESR
|
|---|
| 29 | 2 ;;Add Nodes to/Edit Nodes in a Decision Support Algorithm.^YSESE
|
|---|
| 30 | 3 ;;Exit.^END
|
|---|
