source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DMSQE.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1DMSQE ;SFISC/EZ-DISPLAY ERRORS ;11/26/97 13:57
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4MAIN ; main driver
5 N DMF,DMFI,DMFE,DMFNM,DMFINM,DMQ
6 S DMQ=""
7 D CHK,PRT:'DMQ
8 Q
9CHK ; check for existence of SQLI data in DMSQ global
10 I '$O(^DMSQ("S",0)) W !?5,"Sorry, SQLI files are empty.",! S DMQ=1 Q
11 I $$WAIT^DMSQT1 D S DMQ=1 Q
12 . W !?5,"Try later. SQLI is being re-built right now."
13 Q
14PRT ; print errors along with file/subfile/field number/name
15 S DIC=1.52192,L=0,BY="3",(FR,TO)=""
16 S DMF="$P($G(^DMSQ(""EX"",D0,0)),U,1)"
17 S DMFI="$P($G(^DMSQ(""EX"",D0,0)),U,2)"
18 ;S DMFE="$P($G(^DMSQ(""EX"",D0,0)),U,5)"
19 ;can include Dialog file codes/text at a later time, when SQLI does
20 ;a better job of keeping hold of the error from DBS calls to the
21 ;Updater, Filer, DD Retriver, etc.
22 S DMFNM="$O(^DD("_DMF_",0,""NM"",0))"
23 ; use NM node for files & subfiles
24 S DMFINM="$S("_DMFI_":$P($G(^DD("_DMF_","_DMFI_",0)),U,1),1:"""")"
25 S DHIT="W ?11,@DMFNM,"" "",?40,@DMFI,"" "",?50,@DMFINM,!"
26 S FLDS="INTERNAL(#.01);""FILE"";S,"" "";X,2;C12;"""""
27 D EN1^DIP Q
Note: See TracBrowser for help on using the repository browser.