source:
WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBAAESP.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 372 bytes |
Line | |
---|---|
1 | FBAAESP ;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. |
4 | 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 |
5 | S DIE=DIC,DR="[FBAA SITE PARAMETERS]" D ^DIE G RD |
6 | END K DIC,DLAYGO,Y,X,DIE,V,W,Z,DR,DA Q |
Note:
See TracBrowser
for help on using the repository browser.