DMSQE.m

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 ---DMSQE   1342     printed  Apr 09, 2024@21:51:59                                                                                                                                                                                                       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