source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCTMES1.m@ 623

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1PRCTMES1 ;WISC@ALTOONA/RGY-MESSAGE TEXT ;12.9.97
2 ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4S ;
5 W ! F PRCTHLP=1:1 S PRCTHLP1=$P($T(@MES+PRCTHLP),";",3) Q:PRCTHLP1="" W !,PRCTHLP1
6 W ! K MES,PRCTHLP1,PRCTHLP Q
7 ;
8REC S MES="REC" G S
9 ;;*** Error, number of records read from barcode reader does not
10 ;; equal the number transmitted. Please re-transmit the data.
11 ;;
12COM S MES="COM" G S
13 ;;If you want to line up all comment lines (::) in you BARCODE program
14 ;;at a certain column, enter the column you wish all comments to begin.
15 ;;For example: If some of your comments begin at column 37 in some lines
16 ;;and some comments begin at column 40 in other lines, you may want to
17 ;;have all comments begin at column 35 for readability.
18 ;;Valid choices are 30, 35, 40 and 45.
19 ;;
20WARN S MES="WARN" G S
21 ;;### WARNING: When a program is sent to the barcode reader, ALL DATA
22 ;;stored on the barcode reader will be LOST! Make sure that previous
23 ;;users of this barcode reader have no need for data, if any, that
24 ;;might exist on the reader.
25 ;;
26 ;;Please follow these steps:
27 ;;
28 ;;1) If you have not already done so, you may now connect the
29 ;; barcode reader to the output device.
30 ;;
31 ;;2) After you have connected the barcode reader to the device, clear
32 ;; the barcode reader by turning the reader off and back on.
33 ;;
34 ;;3) After you have completed the above steps, press the <RETURN>
35 ;; key to start sending the IRL program to the bar code reader.
36 ;; If you want to escape this option, enter a '^' and <RETURN>.
37 ;;
38 ;;OK, you must now enter either <RETURN> ...
39 ;; ... or '^'<RETURN>:
40 ;;
41NODEV S MES="NODEV" G S
42 ;;If you do NOT select a device for this data to be processed on, it will
43 ;;not be processed.
44 ;;
45YN S MES="YN" G S
46 ;;Anwer with a 1 for YES or 2 for NO.
47 ;;
48NONID S MES="NONID" G S
49 ;;*** Data processor has NOT been tasked. Identifier is non-existent.
50 ;;Please contact COMPUTER SYSTEMS MANAGER.
51 ;;
52NOTI S MES="NOTI" G S
53 ;;*** Data processor has NOT been tasked. DATE/TIME OF DATA UPLOAD is
54 ;;non-existent. Please contact COMPUTER SYSTEMS MANAGER.
55 ;;
56NORTN S MES="NORTN" G S
57 ;;*** Data cannot be processed because a ROUTINE is non-existent.
58 ;;Please contact COMPUTER SYSTEMS MANAGER.
59 ;;
60COM1 S MES="COM1" G S
61 ;;*** Please key in the first line no. from which you want to align the
62 ;;comments.
63 ;;
64COM2 S MES="COM2" G S
65 ;;*** Please key in the last line no. to which you want to align the
66 ;;comments.
67 ;;
Note: See TracBrowser for help on using the repository browser.