source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPOS00.m@ 619

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

initial load of WorldVistAEHR

File size: 917 bytes
Line 
1MCPOS00 ;HIRMFO/DAD-POST INSTALLATION DRIVER ;8/19/96 10:10
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N MCPOS,VERSION
5 S VERSION=+^XTMP("MC","VER")
6 ;
7 I VERSION'<2 D
8 . I VERSION<2.3 S MCPOS=$$NEWCP^XPDUTL("POS01","^MCPOS01")
9 . I VERSION=2 D
10 .. S MCPOS=$$NEWCP^XPDUTL("POS02","^MCPOS02")
11 .. S MCPOS=$$NEWCP^XPDUTL("POS03","^MCPOS03")
12 .. Q
13 . S MCPOS=$$NEWCP^XPDUTL("POS04","^MCPOS04")
14 . S MCPOS=$$NEWCP^XPDUTL("POS05","^MCPOS05")
15 . S MCPOS=$$NEWCP^XPDUTL("POS06","^MCPOS06")
16 . S MCPOS=$$NEWCP^XPDUTL("POS07","^MCPOS07")
17 . S MCPOS=$$NEWCP^XPDUTL("POS08","^MCPOS08")
18 . I VERSION=2 D
19 .. S MCPOS=$$NEWCP^XPDUTL("POS09","^MCPOS09")
20 .. Q
21 . S MCPOS=$$NEWCP^XPDUTL("POS0A","^MCPOS0A")
22 . S MCPOS=$$NEWCP^XPDUTL("POS0B","^MCPOS0B")
23 . S MCPOS=$$NEWCP^XPDUTL("POS0C","^MCPOS0C")
24 . S MCPOS=$$NEWCP^XPDUTL("POS0D","^MCPOS0D")
25 . S MCPOS=$$NEWCP^XPDUTL("POS0E","^MCPOS0E")
26 . Q
27 S MCPOS=$$NEWCP^XPDUTL("POS0Z","^MCPOS0Z")
28 Q
Note: See TracBrowser for help on using the repository browser.