DIAXF.m

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

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

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

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

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

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