GMRAXPRE ;HIRMFO/RM-PREINIT ROUTINE FOR A/AR TRACKING ;12/14/95 14:31
;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
EN1 ; Main entry to pre-installation routine for ADVERSE REACTION TRACKING.
S DT=$$DT^XLFDT ; supported reference, new SAC
S GMRAVER=+$$VERSION^XPDUTL("GMRA")
I GMRAVER D IXKILL
Q
IXKILL ; Kill off "ANKA" cross-reference from .01 field.
;** DBIA #1450
N GMRAIX
S GMRAIX=0 F S GMRAIX=$O(^DD(120.8,.01,1,GMRAIX)) Q:GMRAIX'>0 D
. I $P($G(^DD(120.8,.01,1,GMRAIX,0)),"^",2)="ANKA01" D
. . K ^DD(120.8,.01,1,GMRAIX),^DD(120.8,0,"IX","ANKA01",120.8,.01)
. . Q
. Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAXPRE 613 printed Dec 13, 2024@01:40:49 Page 2
GMRAXPRE ;HIRMFO/RM-PREINIT ROUTINE FOR A/AR TRACKING ;12/14/95 14:31
+1 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
EN1 ; Main entry to pre-installation routine for ADVERSE REACTION TRACKING.
+1 ; supported reference, new SAC
SET DT=$$DT^XLFDT
+2 SET GMRAVER=+$$VERSION^XPDUTL("GMRA")
+3 IF GMRAVER
DO IXKILL
+4 QUIT
IXKILL ; Kill off "ANKA" cross-reference from .01 field.
+1 ;** DBIA #1450
+2 NEW GMRAIX
+3 SET GMRAIX=0
FOR
SET GMRAIX=$ORDER(^DD(120.8,.01,1,GMRAIX))
if GMRAIX'>0
QUIT
Begin DoDot:1
+4 IF $PIECE($GET(^DD(120.8,.01,1,GMRAIX,0)),"^",2)="ANKA01"
Begin DoDot:2
+5 KILL ^DD(120.8,.01,1,GMRAIX),^DD(120.8,0,"IX","ANKA01",120.8,.01)
+6 QUIT
End DoDot:2
+7 QUIT
End DoDot:1
+8 QUIT
