AZXE393.m

AZXE393 ;TUC/MHL;393 test routine; [ 04/02/92  9:17 AM ]

 ;;1.0;

 D ^AZXE393S

 S MHLY=0

 F  D CALLDIC Q:MHLY=-1

 K MHLY,DA,DR,DIE Q

CALLDIC ;

 S DIC=1991004,DIC(0)="AEMLQ" D ^DIC K DIC

 I Y=-1 S MHLY=-1 Q

 S DIE=1991004,DA=$P(Y,U,1),DR="1:11" D ^DIE 

 W:$D(IOF) @IOF

 Q

AZXE393   ;TUC/MHL;393 test routine; [ 04/02/92  9:17 AM ]

 +1       ;;1.0;

 +2        DO ^AZXE393S

 +3        SET MHLY=0

 +4        FOR 

               DO CALLDIC

               IF MHLY=-1

                   QUIT 

 +5        KILL MHLY,DA,DR,DIE

           QUIT 

CALLDIC   ;

 +1        SET DIC=1991004

           SET DIC(0)="AEMLQ"

           DO ^DIC

           KILL DIC

 +2        IF Y=-1

               SET MHLY=-1

               QUIT 

 +3        SET DIE=1991004

           SET DA=$PIECE(Y,U,1)

           SET DR="1:11"

           DO ^DIE

 +4        IF $DATA(IOF)

               WRITE @IOF

 +5        QUIT