source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSESM.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: 2.1 KB
Line 
1YSESM ;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
7E 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
8EN 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
11MEN 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,!
13MEN1 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
18QUES1 ;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
23END 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 ;;
281 ;;Run a Decision Support Algorithm.^YSESR
292 ;;Add Nodes to/Edit Nodes in a Decision Support Algorithm.^YSESE
303 ;;Exit.^END
Note: See TracBrowser for help on using the repository browser.