source: FOIAVistA/tag/r/ENGINEERING-EN/ENCTMES2.m@ 1778

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

initial load of FOIAVistA 6/30/08 version

File size: 755 bytes
Line 
1ENCTMES2 ;(WASH ISC)/RGY-Bar Code Label Help Text ;1-11-90
2 ;;7.0;ENGINEERING;;Aug 17, 1993
3 ;Copy of PRCTMES2 ;DH-WASH ISC
4S ;
5 W ! F ENCTHLP=1:1 S ENCTHLP1=$P($T(@MES+ENCTHLP),";",3) Q:ENCTHLP1="" W !,ENCTHLP1
6 W ! K MES,ENCTHLP1,ENCTHLP Q
7 ;
8SP S MES="SP" G S
9 ;;Since you have assoicated a file for this label, you must specify if
10 ;;you want to SEARCH the file specified before SORTING or you just
11 ;;want to SORT from the file.
12 ;;
13NOFIL S MES="NOFIL" G S
14 ;; Opps, you have defined this parameter as TYPE of FIELD but you have
15 ;; not defined the FILE for this label. Before you can input an actual
16 ;; FIELD to print you need to define the FILE.
17 ;;
18COPY S MES="COPY" G S
19 ;;Enter the number of copies that you want to print from 1-1000.
20 ;;
Note: See TracBrowser for help on using the repository browser.