MCPOS00.m

MCPOS00 ;HIRMFO/DAD-POST INSTALLATION DRIVER ;8/19/96  10:10

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

 ;

 N MCPOS,VERSION

 S VERSION=+^XTMP("MC","VER")

 ;

 I VERSION'<2 D

 . I VERSION<2.3 S MCPOS=$$NEWCP^XPDUTL("POS01","^MCPOS01")

 . I VERSION=2 D

 .. S MCPOS=$$NEWCP^XPDUTL("POS02","^MCPOS02")

 .. S MCPOS=$$NEWCP^XPDUTL("POS03","^MCPOS03")

 .. Q

 . S MCPOS=$$NEWCP^XPDUTL("POS04","^MCPOS04")

 . S MCPOS=$$NEWCP^XPDUTL("POS05","^MCPOS05")

 . S MCPOS=$$NEWCP^XPDUTL("POS06","^MCPOS06")

 . S MCPOS=$$NEWCP^XPDUTL("POS07","^MCPOS07")

 . S MCPOS=$$NEWCP^XPDUTL("POS08","^MCPOS08")

 . I VERSION=2 D

 .. S MCPOS=$$NEWCP^XPDUTL("POS09","^MCPOS09")

 .. Q

 . S MCPOS=$$NEWCP^XPDUTL("POS0A","^MCPOS0A")

 . S MCPOS=$$NEWCP^XPDUTL("POS0B","^MCPOS0B")

 . S MCPOS=$$NEWCP^XPDUTL("POS0C","^MCPOS0C")

 . S MCPOS=$$NEWCP^XPDUTL("POS0D","^MCPOS0D")

 . S MCPOS=$$NEWCP^XPDUTL("POS0E","^MCPOS0E")

 . Q

 S MCPOS=$$NEWCP^XPDUTL("POS0Z","^MCPOS0Z")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCPOS00   945     printed  Dec 13, 2024@02:16:14                                                                                                                                                                                                      Page 2

MCPOS00   ;HIRMFO/DAD-POST INSTALLATION DRIVER ;8/19/96  10:10

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

 +2       ;

 +3        NEW MCPOS,VERSION

 +4        SET VERSION=+^XTMP("MC","VER")

 +5       ;

 +6        IF VERSION'<2

               Begin DoDot:1

 +7                IF VERSION<2.3

                       SET MCPOS=$$NEWCP^XPDUTL("POS01","^MCPOS01")

 +8                IF VERSION=2

                       Begin DoDot:2

 +9                        SET MCPOS=$$NEWCP^XPDUTL("POS02","^MCPOS02")

 +10                       SET MCPOS=$$NEWCP^XPDUTL("POS03","^MCPOS03")

 +11                       QUIT 

                       End DoDot:2

 +12               SET MCPOS=$$NEWCP^XPDUTL("POS04","^MCPOS04")

 +13               SET MCPOS=$$NEWCP^XPDUTL("POS05","^MCPOS05")

 +14               SET MCPOS=$$NEWCP^XPDUTL("POS06","^MCPOS06")

 +15               SET MCPOS=$$NEWCP^XPDUTL("POS07","^MCPOS07")

 +16               SET MCPOS=$$NEWCP^XPDUTL("POS08","^MCPOS08")

 +17               IF VERSION=2

                       Begin DoDot:2

 +18                       SET MCPOS=$$NEWCP^XPDUTL("POS09","^MCPOS09")

 +19                       QUIT 

                       End DoDot:2

 +20               SET MCPOS=$$NEWCP^XPDUTL("POS0A","^MCPOS0A")

 +21               SET MCPOS=$$NEWCP^XPDUTL("POS0B","^MCPOS0B")

 +22               SET MCPOS=$$NEWCP^XPDUTL("POS0C","^MCPOS0C")

 +23               SET MCPOS=$$NEWCP^XPDUTL("POS0D","^MCPOS0D")

 +24               SET MCPOS=$$NEWCP^XPDUTL("POS0E","^MCPOS0E")

 +25               QUIT 

               End DoDot:1

 +26       SET MCPOS=$$NEWCP^XPDUTL("POS0Z","^MCPOS0Z")

 +27       QUIT