- 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 Jan 18, 2025@02:42:18 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