GMRAPC11.m

GMRAPC11 ;SLC-JVS Preinstall for Patch GMAR*4*11 ;8/25/98  09:00

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

 ;

 ;Package file update for patch GMRA*4*10

 ; The above patch was sent out without updating the package file

 ;

 ;

 Q

EN ;

 N GMRAIEN,GMRAY

 S GMRAIEN=$O(^DIC(9.4,"B","ADVERSE REACTION TRACKING",0))

 ;

 S ^TMP($J,"GMRAPC11",1)="See Description in the National Patch Module for Patch GMRA*4*10."

 S GMRAY="10 SEQ #10^"_DT_"^"_DUZ

 S GMRAY(1)="^TMP($J,""GMRAPC11"")"

 S DATA=$$PKGPAT^XPDIP(GMRAIEN,"4.0",.GMRAY)

 K ^TMP($J,"GMRAPC11")

 ;

 ;

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRAPC11   586     printed  Apr 09, 2024@20:45:45                                                                                                                                                                                                     Page 2

GMRAPC11  ;SLC-JVS Preinstall for Patch GMAR*4*11 ;8/25/98  09:00

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

 +2       ;

 +3       ;Package file update for patch GMRA*4*10

 +4       ; The above patch was sent out without updating the package file

 +5       ;

 +6       ;

 +7        QUIT 

EN        ;

 +1        NEW GMRAIEN,GMRAY

 +2        SET GMRAIEN=$ORDER(^DIC(9.4,"B","ADVERSE REACTION TRACKING",0))

 +3       ;

 +4        SET ^TMP($JOB,"GMRAPC11",1)="See Description in the National Patch Module for Patch GMRA*4*10."

 +5        SET GMRAY="10 SEQ #10^"_DT_"^"_DUZ

 +6        SET GMRAY(1)="^TMP($J,""GMRAPC11"")"

 +7        SET DATA=$$PKGPAT^XPDIP(GMRAIEN,"4.0",.GMRAY)

 +8        KILL ^TMP($JOB,"GMRAPC11")

 +9       ;

 +10      ;

 +11      ;

 +12       QUIT