Line | |
---|
1 | GMRAXPRE ;HIRMFO/RM-PREINIT ROUTINE FOR A/AR TRACKING ;12/14/95 14:31
|
---|
2 | ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
---|
3 | EN1 ; 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
|
---|
8 | IXKILL ; 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.