FBAAELT.m

FBAAELT ;AISC/GRR-ENTER/EDIT LETTERS ;22APR86

 ;;3.5;FEE BASIS;;JAN 30, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

RD W !! S DLAYGO=161.3,DIC="^FBAA(161.3,",DIC(0)="AEQL" D ^DIC G Q:X=""!(X="^"),RD:Y<0 S DA=+Y,DIE=DIC,DR="[FBAA LETTERS]" D ^DIE G RD

Q K DIC,DIE,DA,DR,X,Y,D0,DWLW,I,J,X1,Z,DLAYGO Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBAAELT   334     printed  Apr 09, 2024@21:03:13                                                                                                                                                                                                      Page 2

FBAAELT   ;AISC/GRR-ENTER/EDIT LETTERS ;22APR86

 +1       ;;3.5;FEE BASIS;;JAN 30, 1995

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

RD         WRITE !!

           SET DLAYGO=161.3

           SET DIC="^FBAA(161.3,"

           SET DIC(0)="AEQL"

           DO ^DIC

           if X=""!(X="^")

               GOTO Q

           if Y<0

               GOTO RD

           SET DA=+Y

           SET DIE=DIC

           SET DR="[FBAA LETTERS]"

           DO ^DIE

           GOTO RD

Q          KILL DIC,DIE,DA,DR,X,Y,D0,DWLW,I,J,X1,Z,DLAYGO

           QUIT