Change to fix Search termination when variable pointer is invalid.

Output from what File: VA FILEMAN CHANGE//   (7619 entries)

Select VA FILEMAN CHANGE NO.:    14707  DEC 16,2013
   VARPOINT^DIS1             New DIERR to prevent pre-mature terminat
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NO.: 14707                              VERSION: 22.3T0
  TAG: VARPOINT                         ROUTINE NAME OR GLOBAL REF: DIS1
  REPORTER: CHRISTINE SADDLER           DATE CHANGED: DEC 16,2013
  PROGRAMMER: GEORGE TIMSON
  CHANGE: New DIERR to prevent pre-mature termination of loop if var ptr is wron
g                                       NEW VERSION: <22.3T0>
 LONG DESCRIPTION:
 The problem is caused by having a minimum of just one bad entry, because
 the Search code is constructed to look like this:
 DIS("0")="I
 $$UP^DILIBF($$EXTERNAL^DIDU(8989.5,.01,"",$P($G(^XTV(8989.5,D0,0)),U,1)))[
 "LAB""

 The call to EXTERNAL^DIDU sets the DIERR variable, and that in turn
 causes the end logic (+7^DIO4) to abort prematurely.
 DETAILED TESTING INSTRUCTIONS:
 Make sure you have at least one entry in ENTITY in PARAMETERS that points
 to a non-existent entity.

 Before this change:
 Select OPTION:    SEARCH FILE ENTRIES

Type <Enter> to continue or '^' to exit:

 Output from what File: PARAMETER DEFINITION// PARAMETERS
                                           (1535 entries)

   -A- SEARCH FOR PARAMETERS FIELD: .01  ENTITY
   -A- CONDITION: [  CONTAINS
   -A- CONTAINS: IHS

   -B- SEARCH FOR PARAMETERS FIELD:

 IF: A//     ENTITY CONTAINS (case-insensitive) "IHS"

 STORE RESULTS OF SEARCH IN TEMPLATE:

 Sort by: NUMBER//
 Start with NUMBER: FIRST//
 First Print FIELD:
 Heading (S/C): PARAMETERS Search//
 DEVICE:   TELNET

 After:
 Select OPTION: SEARCH FILE ENTRIES

 Output from what File: PARAMETERS//       (1535 entries)

   -A- SEARCH FOR PARAMETERS FIELD: .01  ENTITY
   -A- CONDITION: [  CONTAINS
   -A- CONTAINS: IHS

Type <Enter> to continue or '^' to exit:

   -B- SEARCH FOR PARAMETERS FIELD:

 IF: A//     ENTITY CONTAINS (case-insensitive) "IHS"

 STORE RESULTS OF SEARCH IN TEMPLATE:

 Sort by: NUMBER//
 Start with NUMBER: FIRST//
 First Print FIELD:
 Heading (S/C): PARAMETERS Search//
 DEVICE:   TELNET
 PARAMETERS Search                                     DEC 27,2013@12:20
 PAGE 1
 --------------------------------------------------------------------------
 ------

            NO MATCHES FOUND