GMRAY18.m

GMRAY18 ;SLC/DAN - Patch 18 Post-install ;12/20/04  14:54

 ;;4.0;Adverse Reaction Tracking;**18**;Mar 29, 1996

 ;This post-install will set up the cross references

 ;for sending data to the HDR when data is added or edited

 ;in files 120.8, 120.85, and 120.86.

 ;

 ;DBIA 2916 allows for calls to DDMOD that's used in all of the post-install routines for this patch.

 ;

 ;

 ;Set up cross references for file 120.8

 D ^GMRAY18A,^GMRAY18B,^GMRAY18C,^GMRAY18D,^GMRAY18E,^GMRAY18F,^GMRAY18G

 ;

 ;Set up cross references for file 120.86

 D ^GMRAY18H

 ;

 ;Set up cross references for file 120.85

 D ^GMRAY18I,^GMRAY18J,^GMRAY18K,^GMRAY18L,^GMRAY18M,^GMRAY18N,^GMRAY18P

 Q

GMRAY18   ;SLC/DAN - Patch 18 Post-install ;12/20/04  14:54

 +1       ;;4.0;Adverse Reaction Tracking;**18**;Mar 29, 1996

 +2       ;This post-install will set up the cross references

 +3       ;for sending data to the HDR when data is added or edited

 +4       ;in files 120.8, 120.85, and 120.86.

 +5       ;

 +6       ;DBIA 2916 allows for calls to DDMOD that's used in all of the post-install routines for this patch.

 +7       ;

 +8       ;

 +9       ;Set up cross references for file 120.8

 +10       DO ^GMRAY18A

           DO ^GMRAY18B

           DO ^GMRAY18C

           DO ^GMRAY18D

           DO ^GMRAY18E

           DO ^GMRAY18F

           DO ^GMRAY18G

 +11      ;

 +12      ;Set up cross references for file 120.86

 +13       DO ^GMRAY18H

 +14      ;

 +15      ;Set up cross references for file 120.85

 +16       DO ^GMRAY18I

           DO ^GMRAY18J

           DO ^GMRAY18K

           DO ^GMRAY18L

           DO ^GMRAY18M

           DO ^GMRAY18N

           DO ^GMRAY18P

 +17       QUIT