DICATTD0.m

DICATTD0 ;O-OIFO/GFT - CREATE WORD-PROCESSING ATTRIBUTES IN SCREENMAN ;29AUG2015

 ;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 ;;GFT;**1053**;

 ;

 ;

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

 ;

 ;

WPLUS(DICT) ;FROM PAGE 1 OF 'DICATT' FORM    DICT=21 OR 23  DESCRIPTION OR TECHNICAL DESCRIPTION

 D DICR I $O(@DICR@(0)) Q "+" ;IF THERE IS TEXT IN THE TEMPORARY GLOBAL

 I $O(^DD(DICATTA,DICATTF,DICT,0)) Q "+" ;IF THERE IS TEXT IN THE FIELD ITSELF

 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

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DICATTD0   1317     printed  Mar 13, 2025@21:50:22                                                                                                                                                                                                    Page 2

DICATTD0  ;O-OIFO/GFT - CREATE WORD-PROCESSING ATTRIBUTES IN SCREENMAN ;29AUG2015

 +1       ;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;;GFT;**1053**;

 +7       ;

 +8       ;

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       ;

WPLUS(DICT) ;FROM PAGE 1 OF 'DICATT' FORM    DICT=21 OR 23  DESCRIPTION OR TECHNICAL DESCRIPTION

 +1       ;IF THERE IS TEXT IN THE TEMPORARY GLOBAL

           DO DICR

           IF $ORDER(@DICR@(0))

               QUIT "+"

 +2       ;IF THERE IS TEXT IN THE FIELD ITSELF

           IF $ORDER(^DD(DICATTA,DICATTF,DICT,0))

               QUIT "+"

 +3        QUIT ""

 +4       ;

 +5       ;

 +6       ;

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 

 +6       ;