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 Dec 13, 2024@01:38:47 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 ;;===================================================================
