source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDE1B.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1IBDE1B ; ALB/ISC - ENCOUNTER FORM UTILITIES - INSTRUCTIONS FOR EXECUTING INITS ;AUG 16, 1993
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3MSG() ;QUIT is returned
4 N COUNT,LINE,QUIT
5 S (QUIT,COUNT)=0
6 W @IOF
7 F S LINE=$P($T(LINES+COUNT),";;",2) Q:QUIT!(LINE="") D
8 .S COUNT=COUNT+1
9 .W !,LINE
10 .I $Y>(IOSL-5) W !! D PAUSE
11 I 'QUIT W !! D PAUSE
12 Q QUIT
13PAUSE ;
14 K DIR S DIR(0)="E" D ^DIR K DIR S QUIT=$S(+Y:0,1:1)
15 W:'QUIT @IOF
16 Q
17 ;
18LINES ;;***********************************************************************
19 ;;
20 ;; First the files contained in the inits will be listed.
21 ;; THEN ....
22 ;; You must enter these parameters to the prompts generated by INITS:
23 ;;
24 ;;***********************************************************************
25 ;;
26 ;;
27 ;;SHALL I WRITE OVER FILE SECURITY CODES? NO// NO
28 ;;ARE YOU SURE EVERYTHING'S OK? NO// YES
29 ;;
30 ;;
31 ;;***********************************************************************
32 ;;
33 ;; Now to execute the inits!
34 ;;
35 ;;***********************************************************************
Note: See TracBrowser for help on using the repository browser.