Last change
on this file since 1407 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
488 bytes
|
Line | |
---|
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.