AZXEINSF.m

AZXEINSF ;NEW PROGRAM [ 03/31/92  3:58 PM ]

 ;

 S DA=0,DIE="^AUTNINS(",DUZ(0)="@"

 F  S DA=$O(^AUTNINS(DA)) Q:'DA  I $P(^(DA,0),U,6)]"",$P(^(0),U,6)[")-" S DR=".06////"_$P($P(^(0),U,6),")-",1)_")"_$P($P(^(0),U,6),")-",2) W "." D ^DIE

 Q

AZXEINSF  ;NEW PROGRAM [ 03/31/92  3:58 PM ]

 +1       ;

 +2        SET DA=0

           SET DIE="^AUTNINS("

           SET DUZ(0)="@"

 +3        FOR 

               SET DA=$ORDER(^AUTNINS(DA))

               IF 'DA

                   QUIT 

               IF $PIECE(^(DA,0),U,6)]""

                   IF $PIECE(^(0),U,6)[")-"

                       SET DR=".06////"_$PIECE($PIECE(^(0),U,6),")-",1)_")"_$PIECE($PIECE(^(0),U,6),")-",2)

                       WRITE "."

                       DO ^DIE

 +4        QUIT