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

IBDE1B.m

Go to the documentation of this file.
  1. IBDE1B ; ALB/ISC - ENCOUNTER FORM UTILITIES - INSTRUCTIONS FOR EXECUTING INITS ;AUG 16, 1993
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
  1. MSG() ;QUIT is returned
  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. ;;
  1. ;; First the files contained in the inits will be listed.
  1. ;; THEN ....
  1. ;; You must enter these parameters to the prompts generated by INITS:
  1. ;;
  1. ;;***********************************************************************
  1. ;;
  1. ;;
  1. ;;SHALL I WRITE OVER FILE SECURITY CODES? NO// NO
  1. ;;ARE YOU SURE EVERYTHING'S OK? NO// YES
  1. ;;
  1. ;;
  1. ;;***********************************************************************
  1. ;;
  1. ;; Now to execute the inits!
  1. ;;
  1. ;;***********************************************************************