source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSESED.m@ 1006

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

initial load of WorldVistAEHR

File size: 959 bytes
RevLine 
[613]1YSESED ;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
4PUSH ;
5 S ST=ST+1,SDIC(ST)=DIC,SDIC0(ST)=DIC(0),ESDBP(ST)=ESDBP,ESDBP1(ST)=ESDBP1 Q
6POP ;
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 ;
9ED ; 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," >>",!!
12ED1 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
Note: See TracBrowser for help on using the repository browser.