- 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 Dec 13, 2024@01:55:24 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