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 ---[H[J[2J[HDICATTD0 1317 printed Nov 22, 2024@17:55:33 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 ;
