|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
488 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | DIAXF ;SFISC/DCM-FILE EXTRACTED DATA ;5/13/96 14:01
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | EN ;
|
|---|
| 5 | Q:'$D(^TMP("DIAX",$J))
|
|---|
| 6 | N DIAXDAZ
|
|---|
| 7 | S DIAXDAZ="^TMP(""DIAXDAZ"",$J)" K @DIAXDAZ
|
|---|
| 8 | D UPDATE^DIE("E","^TMP(""DIAX"",$J)",DIAXDAZ,DIAXERR)
|
|---|
| 9 | I $G(DIERR) D Q
|
|---|
| 10 | . K ^TMP("DIAX",$J) I $D(@DIAXDAZ) D Q
|
|---|
| 11 | . . N NODE,DA,DIK S NODE=$Q(@(DIAXDAZ))
|
|---|
| 12 | . . S DA=@NODE,DIK=DIAXDFRT
|
|---|
| 13 | . . D ^DIK K @DIAXDAZ Q
|
|---|
| 14 | S DIAXDA=@($Q(@DIAXDAZ)) K @DIAXDAZ
|
|---|
| 15 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
