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.
  1. AFJXWCLI ;FJ/CWS;INQUIRE TO NETWORK HEALTH EXCHANGE;11/8/95
  1. ;;5.1;Network Health Exchange;;Jan 23, 1996
  1. 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
  1. D EN^DIQ R !,"Press Return to continue ",X:DTIME
  1. G BEGIN
  1. Q