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 Oct 16, 2024@17:39:40 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 ;;***********************************************************************
