IBDE1B.m

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!

 ;;  

 ;;***********************************************************************

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      ;;***********************************************************************