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 ---[H[J[2J[HDIEQ1 1082 printed Oct 16, 2024@18:47:50 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.
