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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HAFJXWCLI   263     printed  Dec 13, 2024@02:17:57                                                                                                                                                                                                     Page 2

AFJXWCLI  ;FJ/CWS;INQUIRE TO NETWORK HEALTH EXCHANGE;11/8/95

 +1       ;;5.1;Network Health Exchange;;Jan 23, 1996

BEGIN      KILL DA,DIC,Y,X,DIC(0)

           WRITE @IOF

           SET DIC="^AFJ(537000,"

           SET DIC(0)="AEMQ"

           DO ^DIC

           if Y<0

               QUIT

           SET DA=+Y

 +1        DO EN^DIQ

           READ !,"Press Return to continue ",X:DTIME

 +2        GOTO BEGIN

 +3        QUIT