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

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

initial load of WorldVistAEHR

File size: 488 bytes
Line 
1DIAXF ;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.
4EN ;
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.