DICATTD0.m

DICATTD0 ;GFT;01:06 PM  9 Jan 1999

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

WORD(DICT) ;DICT=21 or 23  for DESCRIPTION and TECHNICAL DESCRIPTION

 N DIC,DUOUT,DTOUT,DICR,DIWETXT

 D DICR

 I $D(@DICR)=0 M @DICR=^DD(DICATTA,DICATTF,DICT) S DICATTDW(DICT)=1 I $D(@DICR)=0 S @DICR@(0)=0

 S DIWETXT="Editing '"_$P(^DD(DICATTA,DICATTF,0),U)_"' "_$P(^DD(0,DICT,0),U)

 S DIC=$P(DICR,")")_"," D EN^DIWE

 I $D(DUOUT)!$D(DTOUT) K @DICR,DICATTDW(DICT) W $$EZBLD^DIALOG(8077)

 S DDSCHG=1 Q

 ;

DICR S DICR="^UTILITY(""DICATTD"",$J,DICT)" Q

 ;

 ;

FILEWORD ;when we're done

 N DICT,DICR

 D DICR

 F DICT=21,23 D

 .I $D(DICATTDW(DICT)) K ^DD(DICATTA,DICATTF,DICT) M ^DD(DICATTA,DICATTF,DICT)=@DICR

 Q

DICATTD0  ;GFT;01:06 PM  9 Jan 1999

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

WORD(DICT) ;DICT=21 or 23  for DESCRIPTION and TECHNICAL DESCRIPTION

 +1        NEW DIC,DUOUT,DTOUT,DICR,DIWETXT

 +2        DO DICR

 +3        IF $DATA(@DICR)=0

               MERGE @DICR=^DD(DICATTA,DICATTF,DICT)

               SET DICATTDW(DICT)=1

               IF $DATA(@DICR)=0

                   SET @DICR@(0)=0

 +4        SET DIWETXT="Editing '"_$PIECE(^DD(DICATTA,DICATTF,0),U)_"' "_$PIECE(^DD(0,DICT,0),U)

 +5        SET DIC=$PIECE(DICR,")")_","

           DO EN^DIWE

 +6        IF $DATA(DUOUT)!$DATA(DTOUT)

               KILL @DICR,DICATTDW(DICT)

               WRITE $$EZBLD^DIALOG(8077)

 +7        SET DDSCHG=1

           QUIT 

 +8       ;

DICR       SET DICR="^UTILITY(""DICATTD"",$J,DICT)"

           QUIT 

 +1       ;

 +2       ;

FILEWORD  ;when we're done

 +1        NEW DICT,DICR

 +2        DO DICR

 +3        FOR DICT=21,23

               Begin DoDot:1

 +4                IF $DATA(DICATTDW(DICT))

                       KILL ^DD(DICATTA,DICATTF,DICT)

                       MERGE ^DD(DICATTA,DICATTF,DICT)=@DICR

               End DoDot:1

 +5        QUIT