source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSESN.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: 1.1 KB
RevLine 
[613]1YSESN ;SLC/DCM-ROUTINE TO PROCESS A JUMP TO NEW A ALGORITHM ; 10/18/88 16:55 ;
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 YSESD
6E G EN:ESP?1"<".E1">",EN:ESP?1"[".E1"]",EN1:ESP?.E1"<".E1"[".E1"]"1">",EN2:ESP?.E1"{".E1"<".E1"[".E1"]"1">"1"}",EN2:ESP?1"{".E1"<".E1">"1"}"
7PR W !!!?TB,"<< ",A5ALG_" ALGORITHM >>" Q
8EN S ESDBP=A5AS(1)_GN_",1,",ESDBP1=ESDBP_"""B"",",A5ALG=$P($P(ESP,"<",2),">")
9 S GN1=$O(@(ESDBP1_Q_A5ALG_Q_",0)")) I 'GN1 Q
10 S A5AND=@(ESDBP_GN1_",1)"),ESDBP=ESDBP_GN1_",2,",ESDBP1=ESDBP_"""B"",",GN2=$O(@(ESDBP1_Q_A5AND_Q_",0)")) I GN2<1 S GN1=-1
11 D:GN1>0 PR Q
12 Q
13EN1 S ESDBP=A5AS(1)_GN_",1,",ESDBP1=ESDBP_"""B"",",A5ALG=$P($P(ESP,"<",2),">"),A5AND=$P($P(A5ALG,"[",2),"]"),A5ALG=$P(A5ALG,"[")
14 S GN1=$O(@(ESDBP1_Q_A5ALG_Q_",0)")) I GN1<1 Q
15 S ESDBP=ESDBP_GN1_",2,",ESDBP1=ESDBP_"""B"",",GN2=$O(@(ESDBP1_Q_A5AND_Q_",0)")) I GN2'>0 S GN1=-1
16 D:GN1>0 PR Q
17 Q
18EN2 S ESDBP=A5AS(1),ESDBP1=ESDBP_"""B"",",A5ASYS=$P($P(ESP,"{",2),"<"),GN=$O(@(ESDBP1_Q_A5ASYS_Q_",0)")) I GN'>0 S GN1=-1 Q
19 I $P($P(ESP,"{",2),"}")?.E1"<".E1"[".E1"]"1">" D EN1 Q
20 D EN Q
Note: See TracBrowser for help on using the repository browser.