| [613] | 1 | YSESED ;SLC/DCM-ADD/EDIT/DELETE/LINK DECISION SUPPORT FRAMES ; 6/28/89 10:36 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;DECISION EXPERT SYSTEM (VERSION 1.0) - DWIGHT MCDANIEL / REGION 5 ISC, SLC
|
|---|
| 4 | PUSH ;
|
|---|
| 5 | S ST=ST+1,SDIC(ST)=DIC,SDIC0(ST)=DIC(0),ESDBP(ST)=ESDBP,ESDBP1(ST)=ESDBP1 Q
|
|---|
| 6 | POP ;
|
|---|
| 7 | S DIC=SDIC(ST),DIC(0)=SDIC0(ST),ESDBP=ESDBP(ST),ESDBP1=ESDBP1(ST) K SDIC(ST),SDIC0(ST),ESDBP(ST),ESDBP1(ST) S ST=ST-1 Q
|
|---|
| 8 | ;
|
|---|
| 9 | ED ; Called by routine YSESE
|
|---|
| 10 | S NODE1="^628.23^^0",DR(2,628.02)="1",DR(3,628.23)=".01:4" ; ADD/EDIT/LINK/DELETE AN INTERNAL ALGORITHM NODE
|
|---|
| 11 | W @IOF,!!?18,"ADD/EDIT/LINK/DELETE DECISION ALGORITHM NODE",!?(80-($L(A5ALG)+4)\2),"<< ",A5ALG," >>",!!
|
|---|
| 12 | ED1 S DIC("A")="Select a Node: ",DIC=ESDBP_GN1_",2,",DLAYGO=628,DIC(0)="AELMQZ",DA(1)=GN1,DA(2)=GN,DA=$S($D(@(ESDBP_GN1_",2,0)")):$P(@(ESDBP_GN1_",2,0)"),U,4),1:1)
|
|---|
| 13 | I '$D(@(DIC_"0)")) S @(DIC_"0)")=NODE1,DA=0
|
|---|
| 14 | D ^DIC S DA=$P(Y,U),X=$P(Y,U,2)
|
|---|
| 15 | I Y<1 K DIE,DR,DA,NODE1,Y Q
|
|---|
| 16 | S DR=".01:5",DIE=DIC D ^DIE
|
|---|
| 17 | G ED1
|
|---|
