GMRAXPRE.m

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 ---GMRAXPRE   613     printed  Apr 09, 2024@20:44:11                                                                                                                                                                                                     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