|
Last change
on this file since 1801 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
744 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
