source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDE1A.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.9 KB
Line 
1IBDE1A ; ALB/ISC - ENCOUNTER FORM UTILITIES - INSTRUCTIONS FOR EXECUTING DIFROM ;AUG 16, 1993
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3MSG() ;QUIT is an output
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 ;;You must enter these parameters to the prompts generated by DIFROM:
20 ;;===================================================================
21 ;;
22 ;;
23 ;;Enter the Name of the Package (2-4 characters): IBDE
24 ;;I am going to create a routine called 'IBDEINIT'.
25 ;;but 'IBDEINIT' is ALREADY ON FILE!
26 ;;Is that OK? YES
27 ;;Would you like to include Data Dictionaries? YES// YES
28 ;;Would you like to see the package definition? NO// NO
29 ;;Do you want to accept the current definition? NO// YES
30 ;;
31 ;;===================================================================
32 ;;{now DIFROM lists the files.....}
33 ;;===================================================================
34 ;;
35 ;;Now you must enter the information that goes on the second line
36 ;;of the INIT routines.
37 ;;
38 ;;Select VERSION: 3.0//
39 ;;DATE DISTRIBUTED: AUG 3,1993// TODAY
40 ;;Would you like to include OPTIONS? YES// NO
41 ;;Would you like to include BULLETINS? YES// NO
42 ;;Would you like to include SECURITY KEYS? YES// NO
43 ;;Would you like to include FUNCTIONS? YES// NO
44 ;;Would you like to include HELP FRAMES? YES// NO
45 ;;Would you like security codes sent along: NO// NO
46 ;;Would you like this sent via the network: NO// NO
47 ;;Maximum Routine Size (2000 - 9999) : 4000// 4000
48 ;;
49 ;;===================================================================
50 ;; OKAY, READY TO RUN DIFROM!
51 ;;===================================================================
Note: See TracBrowser for help on using the repository browser.