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