DMSQE ;SFISC/EZ-DISPLAY ERRORS ;11/26/97 13:57
;;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.
;
MAIN ; main driver
N DMF,DMFI,DMFE,DMFNM,DMFINM,DMQ
S DMQ=""
D CHK,PRT:'DMQ
Q
CHK ; check for existence of SQLI data in DMSQ global
I '$O(^DMSQ("S",0)) W !?5,"Sorry, SQLI files are empty.",! S DMQ=1 Q
I $$WAIT^DMSQT1 D S DMQ=1 Q
. W !?5,"Try later. SQLI is being re-built right now."
Q
PRT ; print errors along with file/subfile/field number/name
S DIC=1.52192,L=0,BY="3",(FR,TO)=""
S DMF="$P($G(^DMSQ(""EX"",D0,0)),U,1)"
S DMFI="$P($G(^DMSQ(""EX"",D0,0)),U,2)"
;S DMFE="$P($G(^DMSQ(""EX"",D0,0)),U,5)"
;can include Dialog file codes/text at a later time, when SQLI does
;a better job of keeping hold of the error from DBS calls to the
;Updater, Filer, DD Retriver, etc.
S DMFNM="$O(^DD("_DMF_",0,""NM"",0))"
; use NM node for files & subfiles
S DMFINM="$S("_DMFI_":$P($G(^DD("_DMF_","_DMFI_",0)),U,1),1:"""")"
S DHIT="W ?11,@DMFNM,"" "",?40,@DMFI,"" "",?50,@DMFINM,!"
S FLDS="INTERNAL(#.01);""FILE"";S,"" "";X,2;C12;"""""
D EN1^DIP Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDMSQE 1342 printed Nov 22, 2024@18:05:02 Page 2
DMSQE ;SFISC/EZ-DISPLAY ERRORS ;11/26/97 13:57
+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 ;
MAIN ; main driver
+1 NEW DMF,DMFI,DMFE,DMFNM,DMFINM,DMQ
+2 SET DMQ=""
+3 DO CHK
if 'DMQ
DO PRT
+4 QUIT
CHK ; check for existence of SQLI data in DMSQ global
+1 IF '$ORDER(^DMSQ("S",0))
WRITE !?5,"Sorry, SQLI files are empty.",!
SET DMQ=1
QUIT
+2 IF $$WAIT^DMSQT1
Begin DoDot:1
+3 WRITE !?5,"Try later. SQLI is being re-built right now."
End DoDot:1
SET DMQ=1
QUIT
+4 QUIT
PRT ; print errors along with file/subfile/field number/name
+1 SET DIC=1.52192
SET L=0
SET BY="3"
SET (FR,TO)=""
+2 SET DMF="$P($G(^DMSQ(""EX"",D0,0)),U,1)"
+3 SET DMFI="$P($G(^DMSQ(""EX"",D0,0)),U,2)"
+4 ;S DMFE="$P($G(^DMSQ(""EX"",D0,0)),U,5)"
+5 ;can include Dialog file codes/text at a later time, when SQLI does
+6 ;a better job of keeping hold of the error from DBS calls to the
+7 ;Updater, Filer, DD Retriver, etc.
+8 SET DMFNM="$O(^DD("_DMF_",0,""NM"",0))"
+9 ; use NM node for files & subfiles
+10 SET DMFINM="$S("_DMFI_":$P($G(^DD("_DMF_","_DMFI_",0)),U,1),1:"""")"
+11 SET DHIT="W ?11,@DMFNM,"" "",?40,@DMFI,"" "",?50,@DMFINM,!"
+12 SET FLDS="INTERNAL(#.01);""FILE"";S,"" "";X,2;C12;"""""
+13 DO EN1^DIP
QUIT
