- IBDE1B ; ALB/ISC - ENCOUNTER FORM UTILITIES - INSTRUCTIONS FOR EXECUTING INITS ;AUG 16, 1993
- ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
- MSG() ;QUIT is returned
- N COUNT,LINE,QUIT
- S (QUIT,COUNT)=0
- W @IOF
- F S LINE=$P($T(LINES+COUNT),";;",2) Q:QUIT!(LINE="") D
- .S COUNT=COUNT+1
- .W !,LINE
- .I $Y>(IOSL-5) W !! D PAUSE
- I 'QUIT W !! D PAUSE
- Q QUIT
- PAUSE ;
- K DIR S DIR(0)="E" D ^DIR K DIR S QUIT=$S(+Y:0,1:1)
- W:'QUIT @IOF
- Q
- ;
- LINES ;;***********************************************************************
- ;;
- ;; First the files contained in the inits will be listed.
- ;; THEN ....
- ;; You must enter these parameters to the prompts generated by INITS:
- ;;
- ;;***********************************************************************
- ;;
- ;;
- ;;SHALL I WRITE OVER FILE SECURITY CODES? NO// NO
- ;;ARE YOU SURE EVERYTHING'S OK? NO// YES
- ;;
- ;;
- ;;***********************************************************************
- ;;
- ;; Now to execute the inits!
- ;;
- ;;***********************************************************************
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDE1B 1098 printed Dec 13, 2024@01:38:48 Page 2
- IBDE1B ; ALB/ISC - ENCOUNTER FORM UTILITIES - INSTRUCTIONS FOR EXECUTING INITS ;AUG 16, 1993
- +1 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
- MSG() ;QUIT is returned
- +1 NEW COUNT,LINE,QUIT
- +2 SET (QUIT,COUNT)=0
- +3 WRITE @IOF
- +4 FOR
- SET LINE=$PIECE($TEXT(LINES+COUNT),";;",2)
- if QUIT!(LINE="")
- QUIT
- Begin DoDot:1
- +5 SET COUNT=COUNT+1
- +6 WRITE !,LINE
- +7 IF $Y>(IOSL-5)
- WRITE !!
- DO PAUSE
- End DoDot:1
- +8 IF 'QUIT
- WRITE !!
- DO PAUSE
- +9 QUIT QUIT
- PAUSE ;
- +1 KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- SET QUIT=$SELECT(+Y:0,1:1)
- +2 if 'QUIT
- WRITE @IOF
- +3 QUIT
- +4 ;
- LINES ;;***********************************************************************
- +1 ;;
- +2 ;; First the files contained in the inits will be listed.
- +3 ;; THEN ....
- +4 ;; You must enter these parameters to the prompts generated by INITS:
- +5 ;;
- +6 ;;***********************************************************************
- +7 ;;
- +8 ;;
- +9 ;;SHALL I WRITE OVER FILE SECURITY CODES? NO// NO
- +10 ;;ARE YOU SURE EVERYTHING'S OK? NO// YES
- +11 ;;
- +12 ;;
- +13 ;;***********************************************************************
- +14 ;;
- +15 ;; Now to execute the inits!
- +16 ;;
- +17 ;;***********************************************************************