File:  [Coherent Logic Development] / freem_fileman / USER / DIEQ1.m
Revision 1.1: download - view: text, annotated - select for diffs
Mon Apr 28 14:13:20 2025 UTC (3 months ago) by snw
Branches: MAIN
CVS tags: HEAD
Restructure repository

    1: DIEQ1	;SFISC/XAK,YJK-HELP WRITE ;5/27/94  7:29 AM
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: T	S A1="T" F DG=2:1 S X=$T(T+DG) Q:X=""  S DST=$E(X,4,99) D DS^DIEQ
    5: 	K A1,DST Q
    6: 	;;If you simply enter a name then the system will search each of
    7: 	;;the above files for the name you have entered. If a match is
    8: 	;;found the system will ask you if it is the entry that you desire.
    9: 	;;
   10: 	;;However, if you know the file the entry should be in, then you can
   11: 	;;speed processing by using the following syntax to select an entry:
   12: 	;;      <Prefix>.<entry name>
   13: 	;;                or
   14: 	;;      <Message>.<entry name>
   15: 	;;                or
   16: 	;;      <File Name>.<entry name>
   17: 	;;
   18: 	;;Also, you do NOT need to enter the entire file name or message
   19: 	;;to direct the look up. Using the first few characters will suffice.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>