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 ---[H[J[2J[HDIAXF 710 printed Dec 13, 2024@02:45:04 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
