Routine: ACDWCAT

ACDWCAT ;IHS/ADC/EDE/KML - ENTER/EDIT GARS REPORT CATEGORY FILES;

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

;;

EN ;EP

 ;//[ACD SUPER6]

DIR ;EP;Display menu

 K ACDQUIT

 S DIR(0)="S^4:State Categories;3:Tribe Categories;6:Area Categories;7:Service Unit Categories;8:Facility Categories",DIR("A")="ENTER/EDIT" D ^DIR I X["^"!($D(DTOUT)) S ACDQUIT=1 G K

 S DIC=9002174_"."_Y,ACDDIC=DIC,DLAYGO=DIC,DIC(0)="AEQML" D DIC^ACDFMC G:Y<0 K

 S DIE=ACDDIC,DA=+Y,DR=".01:99" D DIE^ACDFMC

K ;

 I '$D(ACDQUIT) G DIR

 K DIR,X,Y,DIC,DIE,DA,DR,ACDDIC,ACDQUIT,DLAYGO

ACDWCAT   ;IHS/ADC/EDE/KML - ENTER/EDIT GARS REPORT CATEGORY FILES;

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2       ;;

EN        ;EP

 +1       ;//[ACD SUPER6]

DIR       ;EP;Display menu

 +1        KILL ACDQUIT

 +2        SET DIR(0)="S^4:State Categories;3:Tribe Categories;6:Area Categories;7:Service Unit Categories;8:Facility Categories"

           SET DIR("A")="ENTER/EDIT"

           DO ^DIR

           IF X["^"!($DATA(DTOUT))

               SET ACDQUIT=1

               GOTO K

 +3        SET DIC=9002174_"."_Y

           SET ACDDIC=DIC

           SET DLAYGO=DIC

           SET DIC(0)="AEQML"

           DO DIC^ACDFMC

           IF Y<0

               GOTO K

 +4        SET DIE=ACDDIC

           SET DA=+Y

           SET DR=".01:99"

           DO DIE^ACDFMC

K         ;

 +1        IF '$DATA(ACDQUIT)

               GOTO DIR

 +2        KILL DIR,X,Y,DIC,DIE,DA,DR,ACDDIC,ACDQUIT,DLAYGO

 +3        QUIT

ACDWCAT.m