Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.0 KB
|
Rev | Line | |
---|
[613] | 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.