IBDE1A.m

IBDE1A ; ALB/ISC - ENCOUNTER FORM UTILITIES - INSTRUCTIONS FOR EXECUTING DIFROM ;AUG 16, 1993

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

MSG() ;QUIT is an output

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

 ;;You must enter these parameters to the prompts generated by DIFROM:

 ;;===================================================================

 ;;     

 ;;  

 ;;Enter the Name of the Package (2-4 characters): IBDE

 ;;I am going to create a routine called 'IBDEINIT'.

 ;;but 'IBDEINIT' is ALREADY ON FILE!

 ;;Is that OK? YES

 ;;Would you like to include Data Dictionaries? YES// YES

 ;;Would you like to see the package definition? NO// NO

 ;;Do you want to accept the current definition? NO// YES

 ;;    

 ;;===================================================================

 ;;{now DIFROM lists the files.....}

 ;;===================================================================

 ;;  

 ;;Now you must enter the information that goes on the second line

 ;;of the INIT routines.

 ;;  

 ;;Select VERSION: 3.0// 

 ;;DATE DISTRIBUTED: AUG 3,1993// TODAY

 ;;Would you like to include OPTIONS?       YES// NO

 ;;Would you like to include BULLETINS?     YES// NO

 ;;Would you like to include SECURITY KEYS? YES// NO

 ;;Would you like to include FUNCTIONS?     YES// NO

 ;;Would you like to include HELP FRAMES?   YES// NO

 ;;Would you like security codes sent along: NO// NO

 ;;Would you like this sent via the network: NO// NO

 ;;Maximum Routine Size    (2000 - 9999) : 4000// 4000

 ;;  

 ;;===================================================================

 ;;            OKAY, READY TO RUN DIFROM!

 ;;===================================================================

IBDE1A    ; ALB/ISC - ENCOUNTER FORM UTILITIES - INSTRUCTIONS FOR EXECUTING DIFROM ;AUG 16, 1993

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

MSG()     ;QUIT is an output

 +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       ;;You must enter these parameters to the prompts generated by DIFROM:

 +2       ;;===================================================================

 +3       ;;     

 +4       ;;  

 +5       ;;Enter the Name of the Package (2-4 characters): IBDE

 +6       ;;I am going to create a routine called 'IBDEINIT'.

 +7       ;;but 'IBDEINIT' is ALREADY ON FILE!

 +8       ;;Is that OK? YES

 +9       ;;Would you like to include Data Dictionaries? YES// YES

 +10      ;;Would you like to see the package definition? NO// NO

 +11      ;;Do you want to accept the current definition? NO// YES

 +12      ;;    

 +13      ;;===================================================================

 +14      ;;{now DIFROM lists the files.....}

 +15      ;;===================================================================

 +16      ;;  

 +17      ;;Now you must enter the information that goes on the second line

 +18      ;;of the INIT routines.

 +19      ;;  

 +20      ;;Select VERSION: 3.0// 

 +21      ;;DATE DISTRIBUTED: AUG 3,1993// TODAY

 +22      ;;Would you like to include OPTIONS?       YES// NO

 +23      ;;Would you like to include BULLETINS?     YES// NO

 +24      ;;Would you like to include SECURITY KEYS? YES// NO

 +25      ;;Would you like to include FUNCTIONS?     YES// NO

 +26      ;;Would you like to include HELP FRAMES?   YES// NO

 +27      ;;Would you like security codes sent along: NO// NO

 +28      ;;Would you like this sent via the network: NO// NO

 +29      ;;Maximum Routine Size    (2000 - 9999) : 4000// 4000

 +30      ;;  

 +31      ;;===================================================================

 +32      ;;            OKAY, READY TO RUN DIFROM!

 +33      ;;===================================================================