Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDE1A

IBDE1A.m

Go to the documentation of this file.
  1. IBDE1A ; ALB/ISC - ENCOUNTER FORM UTILITIES - INSTRUCTIONS FOR EXECUTING DIFROM ;AUG 16, 1993
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
  1. MSG() ;QUIT is an output
  1. N COUNT,LINE,QUIT
  1. S (QUIT,COUNT)=0
  1. W @IOF
  1. F S LINE=$P($T(LINES+COUNT),";;",2) Q:QUIT!(LINE="") D
  1. .S COUNT=COUNT+1
  1. .W !,LINE
  1. .I $Y>(IOSL-5) W !! D PAUSE
  1. I 'QUIT W !! D PAUSE
  1. Q QUIT
  1. PAUSE ;
  1. K DIR S DIR(0)="E" D ^DIR K DIR S QUIT=$S(+Y:0,1:1)
  1. W:'QUIT @IOF
  1. Q
  1. ;
  1. LINES ;;===================================================================
  1. ;;You must enter these parameters to the prompts generated by DIFROM:
  1. ;;===================================================================
  1. ;;
  1. ;;
  1. ;;Enter the Name of the Package (2-4 characters): IBDE
  1. ;;I am going to create a routine called 'IBDEINIT'.
  1. ;;but 'IBDEINIT' is ALREADY ON FILE!
  1. ;;Is that OK? YES
  1. ;;Would you like to include Data Dictionaries? YES// YES
  1. ;;Would you like to see the package definition? NO// NO
  1. ;;Do you want to accept the current definition? NO// YES
  1. ;;
  1. ;;===================================================================
  1. ;;{now DIFROM lists the files.....}
  1. ;;===================================================================
  1. ;;
  1. ;;Now you must enter the information that goes on the second line
  1. ;;of the INIT routines.
  1. ;;
  1. ;;Select VERSION: 3.0//
  1. ;;DATE DISTRIBUTED: AUG 3,1993// TODAY
  1. ;;Would you like to include OPTIONS? YES// NO
  1. ;;Would you like to include BULLETINS? YES// NO
  1. ;;Would you like to include SECURITY KEYS? YES// NO
  1. ;;Would you like to include FUNCTIONS? YES// NO
  1. ;;Would you like to include HELP FRAMES? YES// NO
  1. ;;Would you like security codes sent along: NO// NO
  1. ;;Would you like this sent via the network: NO// NO
  1. ;;Maximum Routine Size (2000 - 9999) : 4000// 4000
  1. ;;
  1. ;;===================================================================
  1. ;; OKAY, READY TO RUN DIFROM!
  1. ;;===================================================================