FBAAESP.m

FBAAESP ;AISC/GRR-ENTER SITE PARAMETERS ;08JUN88

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

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

RD W !! S DIC("A")="Select Site: ",DIC="^FBAA(161.4,",DIC(0)="AELQ",DLAYGO=161.4 D ^DIC K DIC("A") G END:X=""!(X="^"),RD:Y<0 S DA=+Y

 S DIE=DIC,DR="[FBAA SITE PARAMETERS]" D ^DIE G RD

END K DIC,DLAYGO,Y,X,DIE,V,W,Z,DR,DA Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBAAESP   378     printed  Apr 09, 2024@21:05:54                                                                                                                                                                                                      Page 2

FBAAESP   ;AISC/GRR-ENTER SITE PARAMETERS ;08JUN88

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

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

RD         WRITE !!

           SET DIC("A")="Select Site: "

           SET DIC="^FBAA(161.4,"

           SET DIC(0)="AELQ"

           SET DLAYGO=161.4

           DO ^DIC

           KILL DIC("A")

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

               GOTO END

           if Y<0

               GOTO RD

           SET DA=+Y

 +1        SET DIE=DIC

           SET DR="[FBAA SITE PARAMETERS]"

           DO ^DIE

           GOTO RD

END        KILL DIC,DLAYGO,Y,X,DIE,V,W,Z,DR,DA

           QUIT