Change to fix an undefined variable crash in Export Foreign Format edit.

NO.: 14646                              VERSION: 22.2V2
  TAG: GO+1,EN+6,DON                    ROUTINE NAME OR GLOBAL REF: DIT0
  REPORTER: DON CREAVEN                 DATE CHANGED: FEB 19,2013
  PROGRAMMER: GEORGE TIMSON
  CHANGE: Protect against the leaking and the undefined error for DIT0KILL
  DOCUMENTATION NEEDED: NO              NEW VERSION: <22.2V2>
 LONG DESCRIPTION:
 < DIT0  ;SFISC/GFT,XAK-PREPARE TO XFR ;8AUG2011
 <       ;;22.2T1;VA FILEMAN;;Dec 14, 2012
 ---
 > DIT0 ;SFISC/GFT,XAK-PREPARE TO XFR ;15FEB2013
 >  ;;22.2V1;VA FILEMAN;;Jan 31, 2013
 3a4
 >  ;
 12c13
 <       S DIT=DH D KL^DIT,^DIK:DIT0KILL S DA=DFR K DFR D IX1^DIK ;DELETE
 OLD ENTRY, CONDITIONALLY
 ---
 >  S DIT=DH D KL^DIT,^DIK:$G(DIT0KILL) S DA=DFR K DFR D IX1^DIK ;DELETE
 OLD ENTRY, CONDITIONALLY
 23a25

Type <Enter> to continue or '^' to exit:
 >  N DIT0KILL
 32c34
 < DON   K DRF,DOT S
 DFR(1)=DFR(1)_DB_",",DTO(1)=DTO(1)_DB1_",",DKP=1,DMRG=1,DTO=0,DH=0 G GO
 ---
 > DON K DRF,DOT S
 DFR(1)=DFR(1)_DB_",",DTO(1)=DTO(1)_DB1_",",DKP=1,DMRG=1,DTO=0,DH=0,DIT0KIL
 L=0 G GO
 DETAILED TESTING INSTRUCTIONS:
 This crash shouldn't happen:

 VA FILEMAN 22.2T1

 Select OPTION: OTHER OPTIONS

 Select OTHER OPTION: DATA EXPORT TO FOREIGN FORMAT

 Select DATA EXPORT TO FOREIGN FORMAT OPTION: DEFINE FOREIGN FILE FORMAT

 Select FOREIGN FORMAT: EXCEL

 1   EXCEL (COMMA)             ** DISTRIBUTED BY VA FILEMAN **

 2   EXCEL (DATA PARSE)        ** DISTRIBUTED BY VA FILEMAN **

 3   EXCEL (TAB)               ** DISTRIBUTED BY VA FILEMAN **

 CHOOSE 1-3: 1  EXCEL (COMMA)       ** DISTRIBUTED BY VA FILEMAN **

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

 EXCEL (COMMA) foreign format has been used to create an Export Template.

 Therefore, its definition cannot be changed.

 Do you want to see the contents of EXCEL (COMMA) format? NO//

 Do you want to use EXCEL (COMMA) as the basis for a new format? NO// YES

 Name for new FOREIGN FORMAT: ZZD TEST FORMAT 1

 Are you adding 'ZZD TEST FORMAT 1' as a new FOREIGN FORMAT (the 12TH)?
 No// Y

 (Yes)%GTM-E-UNDEF, Undefined local variable: DIT0KILL

                 At M source location GO+1^DIT0
Improved the display of existence of word processing text in a word processing field in a screenman form.

Now the + sign will show consistently in a screenman word processing field.

This fixes the following bugs reported by Don:
1.       When the cursor is on the w-p field, the + disappears.  This
behavior is not present when the cursor rests on any other fields: the
text under the cursor remains visible.
2.       After navigating away from a w-p field, the + does not return.
The effect is that navigating to the w-p field erases the +.
3.       If a w-p field has text in it (and so displays the +) and you
delete all of the text, the + sign persists when you Refresh the screen.
In other words, the user is told there is text in the field when it is
gone.  If you close the form and re-open it, the + is correctly  not
displayed for the field that had text deleted.

.: 14647                              VERSION: 22.2V2
  TAG: PAINT+1                          ROUTINE NAME OR GLOBAL REF: DDSR
  REPORTER: DON CREAVEN                 DATE CHANGED: FEB 20,2013
  PROGRAMMER: GEORGE TIMSON
  CHANGE: Improved check for existence of WP text for the + sign
  RELATED CHANGE NUMBERS: 14678         DOCUMENTATION NEEDED: NO
  NEW VERSION: <22.2V2>
 LONG DESCRIPTION:
 < DDSR  ;SFISC/MKO-PAINT ;22DEC2011
 <       ;;22.2V1;VA FILEMAN;;Jan 31, 2013
 ---
 > DDSR ;SFISC/MKO-PAINT ;20FEB2013
 >       ;;22.2V2;VA FILEMAN;;
 126,127c126
 <       .I
 DDS3LEN=1,DDS3DA]"",DDS3FLD,$G(@DDSREFT@(DDS3FN,DDS3DA,DDS3FLD,"M"))?1"0^"
 .E D
 <       ..N WP S WP=$P(^("M"),U,2) I WP["(" S
 WP=U_$$CREF^DILF(WP_0),WP=$P($G(@WP),U,3) I WP S DDSX="+" ;SHOW THAT WP
 FIELD HAS SOME DATA
 ---

Type <Enter> to continue or '^' to exit:
 >       . I DDS3LEN=1 I $$WPLUS^DDSWP(DDS3FN,DDS3DA,DDS3FLD) S DDSX="+"
 ;GO SEE IF WE NEED PLUS SIGN IN WORD-PROCESSING BOX
 132c131
 <       . W $P(DDGLVID,DDGLDEL)_DDSX_$P(DDGLVID,DDGLDEL,10)
 ---
 >       . W $P(DDGLVID,DDGLDEL)_DDSX_$P(DDGLVID,DDGLDEL,10) ;I
 DDSX["^DIZ(600001,""C""," W "<" H 9
 134a134
 >       ;
 DETAILED TESTING INSTRUCTIONS:
 In any screenman form (e.g. KIDS build edit) see if the + sign appears
 correctly if + sign apprears when there are contents in the WP field and
 vice versa.

NO.: 14648                              VERSION: 22.2V2
  TAG: WP+2,WPLUSff                     ROUTINE NAME OR GLOBAL REF: DDSWP
  REPORTER: DON CREAVEN                 DATE CHANGED: FEB 20,2013
  PROGRAMMER: GEORGE TIMSON
  CHANGE: Improved check for existence of WP text for the + sign on Screenman Fo
rms                                     RELATED CHANGE NUMBERS: 14647
  DOCUMENTATION NEEDED: NO              NEW VERSION: <22.2V2>
 LONG DESCRIPTION:
 < DDSWP ;SFISC/MKO-WP ;21AUG2005
 <       ;;22.2V1;VA FILEMAN;;Jan 31, 2013
 ---
 > DDSWP ;SFISC/MKO-WP ;20FEB2013
 >       ;;22.2V2;VA FILEMAN;;Dec 14, 2012

Type <Enter> to continue or '^' to exit:
 30a31
 >       I $$WPLUS("F"_DDP,DDSDA,DDSFLD) S DIR("B")="+" ;WHEN CURSOR IS ON
 FIELD, "+" WILL SHOW IF THERE IS ALREADY W-P DATA THERE
 34a36,48
 >       ;
 > WPLUS(FFILE,DA,FIELD) ;SAYS WHETHER WP FIELD HAS SOME DATA
 >       ;EXAMPLE:
 >       ;^TMP("DDS",4028,181,"F666001","889,",15,"F")=1
 >
 ;^TMP("DDS",4028,181,"F666001","889,",15,"M")="0^DIZ(666001,889,""17"",^66
 6001.0"
 >       N WP
 >       I DA="" Q 0
 >       I 'FIELD Q 0
 >       I $G(@DDSREFT@(FFILE,DA,FIELD,"F"))=1 Q $O(^("D",0))>0 ;IF WE'VE
 EDITED, ARE THERE LINES LEFT?
 >       I $G(@DDSREFT@(FFILE,DA,FIELD,"M"))?1"0^".E S WP=$P(^("M"),U,2) I
 WP["(" S WP=U_$$CREF^DILF(WP_0),WP=$P($G(@WP),U,3) Q ''WP ;IF WE HAVEN'T
 EDITED, LOOK IN THE DATA
 >       Q 0
 >       ;
 >       ;
 DETAILED TESTING INSTRUCTIONS:
 In any screenman form (e.g. KIDS build edit) see if the + sign appears
 correctly if + sign apprears when there are contents in the WP field and
 vice versa.