Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.0 KB
|
Line | |
---|
1 | IBDE1B ; ALB/ISC - ENCOUNTER FORM UTILITIES - INSTRUCTIONS FOR EXECUTING INITS ;AUG 16, 1993
|
---|
2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
---|
3 | MSG() ;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
|
---|
13 | PAUSE ;
|
---|
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 | ;
|
---|
18 | LINES ;;***********************************************************************
|
---|
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.