source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSESH.m@ 1710

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

initial load of WorldVistAEHR

File size: 3.2 KB
RevLine 
[613]1YSESH ;SLC/DCM-ADD/EDIT/DELETE LINKS TO NODES IN DECISION SUPPORT SYSTEM ; 10/18/88 16:52 ;
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 ;
5NNODE ; Called by routine YSESL
6 W $C(7),!!!!?8,$E(STR,1,66),!?8,"** No conclusions can be reached with the information given **",!
7 W ?8,"** The branches for this portion of the algorithm do not exist **",!?8,$E(STR,1,66),!!,$C(7)
8 W !!!!!?30,"PRESS ENTER TO CONTINUE" R A5AX:DTIME Q
9 ;
10NRSP ; Called by routine YSESL
11 W $C(7),!!!!?8,$E(STR,1,66),!?8,"** No responses have been defined for this node. Conclusions **",!?8,"** cannot be reached with the information as presently defined **",!
12 W ?8,$E(STR,1,66),!!!?30,"PRESS ENTER TO CONTINUE",! R A5AX:DTIME Q
13 ;
14LST ; Called by routine YSESL
15 S ESI="" W !! ;; LIST THE NODES IN THE ALGORITHM
16 F ESJ=2:1 S ESI=$O(@(ESDBP1_Q_ESI_Q_")")) Q:ESI="" W ESI,?40 W:ESJ#2 ! I 'ESJ#40 W !,"Type '^' to quit or press the <RETURN> key to continue " R Z:DTIME Q:'$T!(Z["^")
17 K Z Q
18 ;
19ERROR ; Called by routine YSESL
20 W $C(7),!!!?6,$E(STR,1,70),!!?6,"****** NO RESPONSES HAVE BEEN DEFINED FOR THIS NODE YOU ******",!?6,"****** CANNOT LINK NODES UNTIL THEY HAVE BEEN DEFINED ******"
21 W !!?6,$E(STR,1,70),! Q
22 ;
23HLP ; Called by routine YSESL
24 W !!,"Type in the name of the node that you wish to have linked to other nodes in the",!,"algorithm. This is the node that other nodes will be linked to, and which sits",!,"directly above the other nodes in the algorithm tree.",!!
25 W !!?10,"TYPE '^' TO STOP, PRESS <ENTER> TO LIST THE DEFINED NODES " R Z:DTIME Q:'$T!(Z="^") D LST Q
26HLP1 W !!?10,"These are the nodes that are to be linked to the first node.",!!,"Enter one of the responses that you have defined and that is listed, followed",!,"by a left bracket '[', followed by the name of the node to be linked to when",!
27 W "this response is typed, followed by a right bracket ']', followed by a comma",!,"(,), follwed by the other nodes that are to be linked, using the same form.",!,"Examples are:",!!?20,"A[NODE1],B[NODE2],C[NODE3]",!!?20,"Y[NODE1],N[NODE2]",!!
28 W "If you wish jump to another algorithm from this node, type in the response",!,"followed by a left angle bracket '<', followed by the new algorithm's name,",!,"followed by a right angle bracket '>',followe by a comma, followed by the other",!
29 W "nodes to be linked in the proper form. Examples are:",!!?20,"Y[NODE1],N<ALGORITHM>",!?20,"A<ALGORITHM1>,B<ALGORITHM2>,C[NODE10]",!!
30 W !?10,"TYPE '^' TO STOP, PRESS <ENTER> TO LIST THE DEFINED NODES " R Z:DTIME Q:'$T!(Z="^") D LST Q
31 ;
32HLP2 ; Called by routine YSESL
33 W !!,"1. Type in the characters that you wish to have replaced and press return.",!!?25,"<< ALTERNATIVELY >>",!!
34 W "2. If you wish to replace from a character position to the end of the",!,"line, type in those characters that you wish to replace, and follow this by",!
35 W "three dots ( ... ); this will delete everything from the first character typed",!,"to the end of the line. TYPE IN ENOUGH CHARACTERS SO THAT YOU HAVE DISTINCTLY",!,"IDENTIFIED WHICH CHARACTERS YOU ARE REPLACING.",! Q
36 ;
37HLP3 ; Called by routine YSESL
38 W !!,"Type in the new characters that you are replacing or substituting.",!!! Q
Note: See TracBrowser for help on using the repository browser.