source: FOIAVistA/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAXPRE.m@ 1427

Last change on this file since 1427 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 597 bytes
Line 
1GMRAXPRE ;HIRMFO/RM-PREINIT ROUTINE FOR A/AR TRACKING ;12/14/95 14:31
2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
3EN1 ; Main entry to pre-installation routine for ADVERSE REACTION TRACKING.
4 S DT=$$DT^XLFDT ; supported reference, new SAC
5 S GMRAVER=+$$VERSION^XPDUTL("GMRA")
6 I GMRAVER D IXKILL
7 Q
8IXKILL ; Kill off "ANKA" cross-reference from .01 field.
9 ;** DBIA #1450
10 N GMRAIX
11 S GMRAIX=0 F S GMRAIX=$O(^DD(120.8,.01,1,GMRAIX)) Q:GMRAIX'>0 D
12 . I $P($G(^DD(120.8,.01,1,GMRAIX,0)),"^",2)="ANKA01" D
13 . . K ^DD(120.8,.01,1,GMRAIX),^DD(120.8,0,"IX","ANKA01",120.8,.01)
14 . . Q
15 . Q
16 Q
Note: See TracBrowser for help on using the repository browser.