|
Last change
on this file since 1780 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
597 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
