source: FOIAVistA/trunk/r/CONTROLLED_SUBSTANCES-PSD/PSDTRAK.m@ 1354

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

initial load of FOIAVistA 6/30/08 version

File size: 3.4 KB
Line 
1PSDTRAK ;BIR/DAV-Set up TRAKKER ; 14 Sept 94
2 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
3 W !," "
4 W !,"To set-up the TRAKKER:"
5 W !," "
6 W !,"(1) Turn on the TRAKKER by pressing the [on-off] key."
7 W !," "
8 W !," After the TRAKKER performs a self test the following prompt will"
9 W !," be displayed ""Ready"""
10 W !," "
11 W !,"(2) At this point hold down the [ctrl] key and press [E]."
12 W !," "
13 W !," The words ""CONFIGURATION MENU:"" should appear."
14 W !," "
15 W !,"(3) Press the [Enter] key until you are prompted to ""Select or modify"
16 W !," operating parms.?"" The word NO will appear. Use the space key to"
17 W !," toggle this to a YES and press [Enter]."
18 W !," "
19 W !,"(4) Use the [enter] key to step through the basic operating parameters"
20 W !," "
21 W !," NOTE - in most cases the proper selection can be made using the"
22 W !," [space] key."
23 W !," "
2411 D WAIT G Q:$D(ERR)
25 W !,"a. BEEP VOLUME - low or high"
26 W !,"b. DIPLAY MODE...............BUFFERED"
27 W !,"c. CHARACTER SET.............US-ASCII"
28 W !,"d. CPU RESP REQD MODE........DISABLED"
29 W !,"e. PREAMBLE REQUIRED.........NO"
30 W !,"f. LASER SCANNER MODE........ONE SHOT TRIGGER"
31 W !,"g. APPEND TIME TO DATA.......NO"
32 W !,"h. TIME IS SECONDS...........YES"
33 W !,"i. RESUME IRL PROGRAM........NO"
34 W !,"j. AUTOMATIC SHUT-OFF........10"
35 W !,"k. BACKLIGHT TIMEOUT.........60"
36 W !," "
37 W !,"(5) The next configuration heading is ""Select or modify comm protocol?"""
38 W !," "
39 W !," Use space bar to obtain POINT TO POINT"
40 W !," "
41 W !,"(6) Use the [enter] key to step through the ""comm protocol"""
42 W !," "
4322 D WAIT G Q:$D(ERR)
44 W !,"a. CHECK CTS............NO"
45 W !,"b. XON..................Hold down the [ctrl] key & press [Q], to get DC1"
46 W !,"c. XOFF.................Hold down the [ctrl] key & press [S], to get DC3"
47 W !,"d. BAUD RATE............1200"
48 W !,"e. PARITY...............DISABLED"
49 W !,"f. DATA BITS............8"
50 W !,"g. STOP BITS............1"
51 W !,"h. TIMEOUT DELAY........10 seconds"
52 W !,"i. INTERCHAR DELAY......50 milliseconds"
53 W !,"j. TURNAROUND DELAY.....0 ms."
54 W !," "
55 W !,"At this point you will see ""Select or modify barcodes?"""
56 W !,"Press [alt] then [E] to exit and save changes."
57 W !,"or"
58 W !,"Hold [ctrl] and press [Z] to exit without saving changes."
59 W !," "
6033 D WAIT G Q:$D(ERR)
61 W !," "
62 W !,"TO DOWNLOAD to the TRAKKER or to UPLOAD to DHCP, new entries must be made"
63 W !,"in the TERMINAL TYPE and DEVICE files."
64 W !," "
65 W !,"TERMINAL TYPE"
66 W !,"-------------"
67 W !,"NAME : C-VT420 (9440)"
68 W !,"FORM FEED : #"
69 W !,"OPEN EXECUTE : W $C(0)"
70 W !,"DESCRIPTION : TRAKKER 9440 TO AUX PORT OF VT420"
71 W !,"OPEN PRINTER PORT : W $C(27)_"_"""[5i"""
72 W !,"CLOSE PRINTER PORT : W $C(27)_"_"""4i"""
73 W !,"RIGHT MARGIN : 80"
74 W !,"PAGE LENGTH : 9999"
75 W !," "
7644 D WAIT G Q:$D(ERR)
77 W !,"DEVICE"
78 W !,"-------"
79 W !,"NAME : TRAKKERSL"
80 W !,"LOCATION : SLAVED 9440 FROM VT420 AUX PORT"
81 W !,"MARGIN WIDTH : 80"
82 W !,"PAGE LENGTH : 9999"
83 W !,"MNEMONIC : TRAKKERSL"
84 W !,"FORM FEED : #"
85 W !,"BACK SPACE : $C(8)"
86 W !,"SUB-TYPE : C-VT420 (9440)"
87 W !,"TYPE : TERMINAL"
88 W !,"$I : 0 (zero)"
89 W !," "
90 W !,"---------------------------------------------------------------------"
91Q K AN,ERR Q
92WAIT I $E(IOST)["C" W !,"Press <RET> to continue, or '^' to abort: " R AN:DTIME I AN="^"!('$T) S ERR=1 Q
93 I $E(IOST)["C" W @IOF,"SET UP PROCEDURES",!
94 Q
Note: See TracBrowser for help on using the repository browser.