source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSESE.m@ 1446

YSESE ;SLC/DCM-MENU DRIVER FOR OPTIONS INVOLVED WITH EDITING A DECISION SUPPORT SYSTEM ; 6/27/89  11:45 ;
 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
 ;DECISION EXPERT SYSTEM (VERSION 1.0) FOR MENTAL HEALTH PACKAGE - DWIGHT MCDANIEL / REGION 5 ISC, SLC
E G EN
PUSH S ST=ST+1,SDIC(ST)=DIC,SDIC0(ST)=DIC(0),ESDBP(ST)=ESDBP,ESDBP1(ST)=ESDBP1 Q
 Q
POP S DIC=SDIC(ST),DIC(0)=SDIC0(ST),ESDBP=ESDBP(ST),ESDBP1=ESDBP1(ST) K SDIC(ST),ESDBP(ST),ESDBP1(ST) S ST=ST-1 Q
 Q
EN S ST=0,OPT="",ESDBP="^YS(628,",DIC=ESDBP,ESDBP1=ESDBP_"""B"","
MEN W @IOF,!?4,$E(STR,1,18),"  EDIT A DECISION SUPPORT ALGORITHM  ",$E(STR,1,18),!?4,"**",?75,"**",!?4
 S ESI="" W ?4,"** " F ESJ=0:1 S ESI=$O(@(ESDBP1_Q_ESI_Q_")")) Q:ESI=""  W ESI,?40 W:ESJ#2 ?75,"**",!?4,"** "
 W ?75,"**",!?4,$E(STR,1,17),"  AVAILABLE DECISION SUPPORT SYSTEMS   ",$E(STR,1,17),!
 S DLAYGO=628,DIC(0)="AELMQZ",DIC("A")="Select a Decision Support System: " D ^DIC G:Y=-1 END S GN=$P(Y,U),A5ASYS=$P(Y(0),U)
 G:Y=-1 END D PUSH
MEN1 D PUSH S ESDBP=ESDBP_GN_",",ESDBP1=ESDBP_"1,"_"""B"",",NODE1="^628.02^^0"
 S TB=(80-($L(A5ASYS)+17))\2,TC=(80-($L(A5ASYS)+24))\2 W @IOF,!!,$E(STR,1,TC),?TB,A5ASYS_" MAJOR SYMPTOM",?(80-TC-1),$E(STR,1,TC),!,"**",?77,"**",!,"** "
 S ESI="" F ESJ=0:1 S ESI=$O(@(ESDBP1_Q_ESI_Q_")")) Q:ESI=""  W ESI,?41 W:ESJ#2 ?77,"**",!,"** "
 W ?77,"**",!,STR,!!
 S ESDBP=ESDBP_"1,",DIC=ESDBP,DIC("A")="Select a Decision Support Major Symptom: ",DA(1)=GN,ESDBP1=ESDBP_"2,"_"""B"",",TB=($L(A5ASYS)\2)+7
 I '$D(@(DIC_"0)")) S @(DIC_"0)")=NODE1
 D ^DIC S YSTOUT=$D(DTOUT) Q:YSTOUT  S GN1=$P(Y,U),A5ALG=$P(Y,U,2)
 I Y'>0 D POP G MEN
 S DA=GN1,DA(1)=GN,DR=2,DR(1,628.02)=2,DIE=DIC D ^DIE S YSTOUT=$D(DTOUT) Q:YSTOUT
F S ESDBP1=ESDBP_GN1_",2,""B""," D ED^YSESED
 D POP G MEN1
END K ESDBP(ST),ESDBP1(ST),A5ASYS,NODE1,LND G ^YSESM