DIAXF.m

DIAXF ;SFISC/DCM-FILE EXTRACTED DATA ;5/13/96  14:01

 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 ;

EN ;

 Q:'$D(^TMP("DIAX",$J))

 N DIAXDAZ

 S DIAXDAZ="^TMP(""DIAXDAZ"",$J)" K @DIAXDAZ

 D UPDATE^DIE("E","^TMP(""DIAX"",$J)",DIAXDAZ,DIAXERR)

 I $G(DIERR) D  Q

 . K ^TMP("DIAX",$J) I $D(@DIAXDAZ) D  Q

 . . N NODE,DA,DIK S NODE=$Q(@(DIAXDAZ))

 . . S DA=@NODE,DIK=DIAXDFRT

 . . D ^DIK K @DIAXDAZ Q

 S DIAXDA=@($Q(@DIAXDAZ)) K @DIAXDAZ

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DIAXF   710     printed  Apr 09, 2024@21:55:55                                                                                                                                                                                                        Page 2

DIAXF     ;SFISC/DCM-FILE EXTRACTED DATA ;5/13/96  14:01

 +1       ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;

EN        ;

 +1        if '$DATA(^TMP("DIAX",$JOB))

               QUIT 

 +2        NEW DIAXDAZ

 +3        SET DIAXDAZ="^TMP(""DIAXDAZ"",$J)"

           KILL @DIAXDAZ

 +4        DO UPDATE^DIE("E","^TMP(""DIAX"",$J)",DIAXDAZ,DIAXERR)

 +5        IF $GET(DIERR)

               Begin DoDot:1

 +6                KILL ^TMP("DIAX",$JOB)

                   IF $DATA(@DIAXDAZ)

                       Begin DoDot:2

 +7                        NEW NODE,DA,DIK

                           SET NODE=$QUERY(@(DIAXDAZ))

 +8                        SET DA=@NODE

                           SET DIK=DIAXDFRT

 +9                        DO ^DIK

                           KILL @DIAXDAZ

                           QUIT 

                       End DoDot:2

                       QUIT 

               End DoDot:1

               QUIT 

 +10       SET DIAXDA=@($QUERY(@DIAXDAZ))

           KILL @DIAXDAZ

 +11       QUIT