ACDGLOSS.m

ACDGLOSS ;IHS/ADC/EDE/KML - GLOSSARY DEC 12 1920;

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

EN ;EP

 S DIC(0)="AEQLM",(DIC,DLAYGO)=9002173.9 D DIC^ACDFMC I Y<0 D K Q

 S DA=+Y,DIE=9002173.9,DR=".01:99999" D DIE^ACDFMC

K ;

 K DR,DA,DIC,DIE,X,Y

ACDGLOSS  ;IHS/ADC/EDE/KML - GLOSSARY DEC 12 1920;

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

EN        ;EP

 +1        SET DIC(0)="AEQLM"

           SET (DIC,DLAYGO)=9002173.9

           DO DIC^ACDFMC

           IF Y<0

               DO K

               QUIT 

 +2        SET DA=+Y

           SET DIE=9002173.9

           SET DR=".01:99999"

           DO DIE^ACDFMC

K         ;

 +1        KILL DR,DA,DIC,DIE,X,Y