Last change
on this file since 846 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
744 bytes
|
Line | |
---|
1 | DICATTD0 ;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 | ;
|
---|
5 | WORD(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 | ;
|
---|
14 | DICR S DICR="^UTILITY(""DICATTD"",$J,DICT)" Q
|
---|
15 | ;
|
---|
16 | ;
|
---|
17 | FILEWORD ;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.