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 ---[H[J[2J[HMCPRE00 773 printed Dec 13, 2024@02:16:36 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
