21 lines
755 B
Mathematica
21 lines
755 B
Mathematica
ENCTMES2 ;(WASH ISC)/RGY-Bar Code Label Help Text ;1-11-90
|
|
;;7.0;ENGINEERING;;Aug 17, 1993
|
|
;Copy of PRCTMES2 ;DH-WASH ISC
|
|
S ;
|
|
W ! F ENCTHLP=1:1 S ENCTHLP1=$P($T(@MES+ENCTHLP),";",3) Q:ENCTHLP1="" W !,ENCTHLP1
|
|
W ! K MES,ENCTHLP1,ENCTHLP Q
|
|
;
|
|
SP S MES="SP" G S
|
|
;;Since you have assoicated a file for this label, you must specify if
|
|
;;you want to SEARCH the file specified before SORTING or you just
|
|
;;want to SORT from the file.
|
|
;;
|
|
NOFIL S MES="NOFIL" G S
|
|
;; Opps, you have defined this parameter as TYPE of FIELD but you have
|
|
;; not defined the FILE for this label. Before you can input an actual
|
|
;; FIELD to print you need to define the FILE.
|
|
;;
|
|
COPY S MES="COPY" G S
|
|
;;Enter the number of copies that you want to print from 1-1000.
|
|
;;
|