MCPRE00.m

MCPRE00 ;HIRMFO/DAD-PRE INSTALLATION DRIVER ;8/2/96  11:04

 ;;2.3;Medicine;;09/13/1996

 ;

 N MCDEL,MCPRE,MCVER

 S MCVER=$P(^XTMP("MC","VER"),U)

 S MCDEL=$P(^XTMP("MC","DEL"),U)

 ;

 I MCVER]"",MCVER<2 D

 . I MCDEL=1 D

 .. S MCPRE=$$NEWCP^XPDUTL("PRE0Z","^MCPRE0Z")

 .. Q

 . E  D

 .. S XPDABORT=2

 .. Q

 . Q

 ;

 I MCVER'<2 D

 . S MCPRE=$$NEWCP^XPDUTL("PRE01","^MCPRE01")

 . S MCPRE=$$NEWCP^XPDUTL("PRE02","^MCPRE02")

 . S MCPRE=$$NEWCP^XPDUTL("PRE03","^MCPRE03")

 . S MCPRE=$$NEWCP^XPDUTL("PRE04","^MCPRE04")

 . S MCPRE=$$NEWCP^XPDUTL("PRE05","^MCPRE05")

 . S MCPRE=$$NEWCP^XPDUTL("PRE06","^MCPRE06")

 . S MCPRE=$$NEWCP^XPDUTL("PRE07","^MCPRE07")

 . S MCPRE=$$NEWCP^XPDUTL("PRE08","^MCPRE08")

 . S MCPRE=$$NEWCP^XPDUTL("PRE0Z","^MCPRE0Z")

 . Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCPRE00   773     printed  Apr 09, 2024@21:18:58                                                                                                                                                                                                      Page 2

MCPRE00   ;HIRMFO/DAD-PRE INSTALLATION DRIVER ;8/2/96  11:04

 +1       ;;2.3;Medicine;;09/13/1996

 +2       ;

 +3        NEW MCDEL,MCPRE,MCVER

 +4        SET MCVER=$PIECE(^XTMP("MC","VER"),U)

 +5        SET MCDEL=$PIECE(^XTMP("MC","DEL"),U)

 +6       ;

 +7        IF MCVER]""

               IF MCVER<2

                   Begin DoDot:1

 +8                    IF MCDEL=1

                           Begin DoDot:2

 +9                            SET MCPRE=$$NEWCP^XPDUTL("PRE0Z","^MCPRE0Z")

 +10                           QUIT 

                           End DoDot:2

 +11                  IF '$TEST

                           Begin DoDot:2

 +12                           SET XPDABORT=2

 +13                           QUIT 

                           End DoDot:2

 +14                   QUIT 

                   End DoDot:1

 +15      ;

 +16       IF MCVER'<2

               Begin DoDot:1

 +17               SET MCPRE=$$NEWCP^XPDUTL("PRE01","^MCPRE01")

 +18               SET MCPRE=$$NEWCP^XPDUTL("PRE02","^MCPRE02")

 +19               SET MCPRE=$$NEWCP^XPDUTL("PRE03","^MCPRE03")

 +20               SET MCPRE=$$NEWCP^XPDUTL("PRE04","^MCPRE04")

 +21               SET MCPRE=$$NEWCP^XPDUTL("PRE05","^MCPRE05")

 +22               SET MCPRE=$$NEWCP^XPDUTL("PRE06","^MCPRE06")

 +23               SET MCPRE=$$NEWCP^XPDUTL("PRE07","^MCPRE07")

 +24               SET MCPRE=$$NEWCP^XPDUTL("PRE08","^MCPRE08")

 +25               SET MCPRE=$$NEWCP^XPDUTL("PRE0Z","^MCPRE0Z")

 +26               QUIT 

               End DoDot:1

 +27       QUIT