- 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 Feb 18, 2025@23:44:23 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