GMRAY46 ;ISP/RFR - POST INSTALL FOR PATCH 46 ;01/13/2014 09:37
;;4.0;Adverse Reaction Tracking;**46**;Mar 29, 1996;Build 62
Q
POST ;POST INSTALLATION TASKS
;REMOVE ANY REMAINING ORDER CHECK ^XTMP NODES
I $D(^XTMP("GMRAOC")) D
.D BMES^XPDUTL("Deleting ^XTMP(""GMRAOC"") global node...")
.K ^XTMP("GMRAOC")
.D MES^XPDUTL("DONE")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAY46 348 printed Dec 13, 2024@01:41:04 Page 2
GMRAY46 ;ISP/RFR - POST INSTALL FOR PATCH 46 ;01/13/2014 09:37
+1 ;;4.0;Adverse Reaction Tracking;**46**;Mar 29, 1996;Build 62
+2 QUIT
POST ;POST INSTALLATION TASKS
+1 ;REMOVE ANY REMAINING ORDER CHECK ^XTMP NODES
+2 IF $DATA(^XTMP("GMRAOC"))
Begin DoDot:1
+3 DO BMES^XPDUTL("Deleting ^XTMP(""GMRAOC"") global node...")
+4 KILL ^XTMP("GMRAOC")
+5 DO MES^XPDUTL("DONE")
End DoDot:1
+6 QUIT
