| 1 | DMSQE ;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.
|
|---|
| 4 | MAIN ; main driver
|
|---|
| 5 | N DMF,DMFI,DMFE,DMFNM,DMFINM,DMQ
|
|---|
| 6 | S DMQ=""
|
|---|
| 7 | D CHK,PRT:'DMQ
|
|---|
| 8 | Q
|
|---|
| 9 | CHK ; 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
|
|---|
| 14 | PRT ; 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
|
|---|
