source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPRE00.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 745 bytes
Line 
1MCPRE00 ;HIRMFO/DAD-PRE INSTALLATION DRIVER ;8/2/96 11:04
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N MCDEL,MCPRE,MCVER
5 S MCVER=$P(^XTMP("MC","VER"),U)
6 S MCDEL=$P(^XTMP("MC","DEL"),U)
7 ;
8 I MCVER]"",MCVER<2 D
9 . I MCDEL=1 D
10 .. S MCPRE=$$NEWCP^XPDUTL("PRE0Z","^MCPRE0Z")
11 .. Q
12 . E D
13 .. S XPDABORT=2
14 .. Q
15 . Q
16 ;
17 I MCVER'<2 D
18 . S MCPRE=$$NEWCP^XPDUTL("PRE01","^MCPRE01")
19 . S MCPRE=$$NEWCP^XPDUTL("PRE02","^MCPRE02")
20 . S MCPRE=$$NEWCP^XPDUTL("PRE03","^MCPRE03")
21 . S MCPRE=$$NEWCP^XPDUTL("PRE04","^MCPRE04")
22 . S MCPRE=$$NEWCP^XPDUTL("PRE05","^MCPRE05")
23 . S MCPRE=$$NEWCP^XPDUTL("PRE06","^MCPRE06")
24 . S MCPRE=$$NEWCP^XPDUTL("PRE07","^MCPRE07")
25 . S MCPRE=$$NEWCP^XPDUTL("PRE08","^MCPRE08")
26 . S MCPRE=$$NEWCP^XPDUTL("PRE0Z","^MCPRE0Z")
27 . Q
28 Q
Note: See TracBrowser for help on using the repository browser.