source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICATTD0.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 744 bytes
Line 
1DICATTD0 ;GFT;01:06 PM 9 Jan 1999
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5WORD(DICT) ;DICT=21 or 23 for DESCRIPTION and TECHNICAL DESCRIPTION
6 N DIC,DUOUT,DTOUT,DICR,DIWETXT
7 D DICR
8 I $D(@DICR)=0 M @DICR=^DD(DICATTA,DICATTF,DICT) S DICATTDW(DICT)=1 I $D(@DICR)=0 S @DICR@(0)=0
9 S DIWETXT="Editing '"_$P(^DD(DICATTA,DICATTF,0),U)_"' "_$P(^DD(0,DICT,0),U)
10 S DIC=$P(DICR,")")_"," D EN^DIWE
11 I $D(DUOUT)!$D(DTOUT) K @DICR,DICATTDW(DICT) W $$EZBLD^DIALOG(8077)
12 S DDSCHG=1 Q
13 ;
14DICR S DICR="^UTILITY(""DICATTD"",$J,DICT)" Q
15 ;
16 ;
17FILEWORD ;when we're done
18 N DICT,DICR
19 D DICR
20 F DICT=21,23 D
21 .I $D(DICATTDW(DICT)) K ^DD(DICATTA,DICATTF,DICT) M ^DD(DICATTA,DICATTF,DICT)=@DICR
22 Q
Note: See TracBrowser for help on using the repository browser.