source: FOIAVistA/trunk/r/FEE_BASIS-FB/FBAAESP.m@ 1288

Last change on this file since 1288 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 372 bytes
Line 
1FBAAESP ;AISC/GRR-ENTER SITE PARAMETERS ;08JUN88
2 ;;3.5;FEE BASIS;;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4RD 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
5 S DIE=DIC,DR="[FBAA SITE PARAMETERS]" D ^DIE G RD
6END K DIC,DLAYGO,Y,X,DIE,V,W,Z,DR,DA Q
Note: See TracBrowser for help on using the repository browser.