ADEHELP.m

ADEHELP ; IHS/HQT/MJL  - ADA CODE INFORMATION ;10:38 PM  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

 ;

 N DIC,Y,DA,DR

 ;W !!,"Enter an ADA code if you want more information about the use of a specific code."

 W !!!

START S DIC="^AUTTADA(",DIC(0)="AEMQ",DIC("A")="For help about a specific ADA Code, enter the 4-digit code number:  " D ^DIC

 I Y<0 G XIT

 I '$D(^AUTTADA(+Y,11,0)) W !,"Additional information is not available for this ADA code." G START

DIQ S DA=+Y,DIC="^AUTTADA(",DR=11 D EN^DIQ

 W !!

 G START

XIT ;

 K DIC,DR,DA,Y

 Q

ADEHELP   ; IHS/HQT/MJL  - ADA CODE INFORMATION ;10:38 PM  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

 +2       ;

 +3        NEW DIC,Y,DA,DR

 +4       ;W !!,"Enter an ADA code if you want more information about the use of a specific code."

 +5        WRITE !!!

START      SET DIC="^AUTTADA("

           SET DIC(0)="AEMQ"

           SET DIC("A")="For help about a specific ADA Code, enter the 4-digit code number:  "

           DO ^DIC

 +1        IF Y<0

               GOTO XIT

 +2        IF '$DATA(^AUTTADA(+Y,11,0))

               WRITE !,"Additional information is not available for this ADA code."

               GOTO START

DIQ        SET DA=+Y

           SET DIC="^AUTTADA("

           SET DR=11

           DO EN^DIQ

 +1        WRITE !!

 +2        GOTO START

XIT       ;

 +1        KILL DIC,DR,DA,Y

 +2        QUIT