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 ---[H[J[2J[HFBAAESP 378 printed Oct 16, 2024@17:56:14 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
