Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AFJXWCLI

AFJXWCLI.m

Go to the documentation of this file.
AFJXWCLI ;FJ/CWS;INQUIRE TO NETWORK HEALTH EXCHANGE;11/8/95
 ;;5.1;Network Health Exchange;;Jan 23, 1996
BEGIN K DA,DIC,Y,X,DIC(0) W @IOF S DIC="^AFJ(537000,",DIC(0)="AEMQ" D ^DIC Q:Y<0  S DA=+Y
 D EN^DIQ R !,"Press Return to continue ",X:DTIME
 G BEGIN
 Q