| 1 | YSESN ;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
|
|---|
| 6 | E 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"}"
|
|---|
| 7 | PR W !!!?TB,"<< ",A5ALG_" ALGORITHM >>" Q
|
|---|
| 8 | EN 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
|
|---|
| 13 | EN1 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
|
|---|
| 18 | EN2 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
|
|---|
