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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HAFJXWCLI 263 printed Nov 22, 2024@17:28:02 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