DIEQ1.m

DIEQ1 ;SFISC/XAK,YJK-HELP WRITE ;5/27/94  7:29 AM

 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 ;

T S A1="T" F DG=2:1 S X=$T(T+DG) Q:X=""  S DST=$E(X,4,99) D DS^DIEQ

 K A1,DST Q

 ;;If you simply enter a name then the system will search each of

 ;;the above files for the name you have entered. If a match is

 ;;found the system will ask you if it is the entry that you desire.

 ;;

 ;;However, if you know the file the entry should be in, then you can

 ;;speed processing by using the following syntax to select an entry:

 ;;      <Prefix>.<entry name>

 ;;                or

 ;;      <Message>.<entry name>

 ;;                or

 ;;      <File Name>.<entry name>

 ;;

 ;;Also, you do NOT need to enter the entire file name or message

 ;;to direct the look up. Using the first few characters will suffice.

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DIEQ1   1082     printed  Apr 09, 2024@21:50:41                                                                                                                                                                                                       Page 2

DIEQ1     ;SFISC/XAK,YJK-HELP WRITE ;5/27/94  7:29 AM

 +1       ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;

T          SET A1="T"

           FOR DG=2:1

               SET X=$TEXT(T+DG)

               if X=""

                   QUIT 

               SET DST=$EXTRACT(X,4,99)

               DO DS^DIEQ

 +1        KILL A1,DST

           QUIT 

 +2       ;;If you simply enter a name then the system will search each of

 +3       ;;the above files for the name you have entered. If a match is

 +4       ;;found the system will ask you if it is the entry that you desire.

 +5       ;;

 +6       ;;However, if you know the file the entry should be in, then you can

 +7       ;;speed processing by using the following syntax to select an entry:

 +8       ;;      <Prefix>.<entry name>

 +9       ;;                or

 +10      ;;      <Message>.<entry name>

 +11      ;;                or

 +12      ;;      <File Name>.<entry name>

 +13      ;;

 +14      ;;Also, you do NOT need to enter the entire file name or message

 +15      ;;to direct the look up. Using the first few characters will suffice.