- 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!
- ;;===================================================================
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDE1A 2038 printed Jan 18, 2025@02:40:02 Page 2
- 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 ;;===================================================================