GMRVXENV.m

GMRVXENV ;HIRMFO/RM-ENVIRONMENT CHECK FOR VITALS ;7/18/96

 ;;4.0;Vitals/Measurements;;Apr 25, 1997

EN1 ; environment check for the vitals package

 N GMRV

 S GMRV=+$$VERSION^XPDUTL("REGISTRATION") I GMRV<5.3 W !!,"PIMS (MAS) V5.3 OR GREATER IS REQUIRED - INSTALL ABORTED!" S XPDABORT=2 Q

 S GMRV=+$$VERSION^XPDUTL("GMRV") I GMRV>0,GMRV<3 W !!,"GEN. MED. REC. - VITALS V3.0 is required",!,"prior to the installation of V4.0 - INSTALL ABORTED!" S XPDABORT=2 Q

 I GMRV=3,+$$PATCH^XPDUTL("GMRV*3.0*3")=0 W !!,"GMRV*3*3 is required prior to the installation of v4.0 - Install aborted!" S XPDABORT=2 Q

 ;

 Q:+$$VERSION^XPDUTL("GMRV")'>0  ;quit if virgin install

 K GMRVIEN,GMRVERR

 ; how many V/M entries in Package File (#9.4)

 D FIND^DIC(9.4,"","","X","GMRV","","C","","","GMRVIEN","GMRVERR")

 ; quit if FileMan lookup errors out

 I +$G(GMRVERR("DIERR")) D  S GMRVSTOP=1 D KILL Q

 .K GMRVMSG

 .S GMRVMSG(1)="Error trying to lookup Vitals/Measurements in the PACKAGE (#9.4) file."

 .S GMRVMSG(2)="Halting."

 .D BMES^XPDUTL(.GMRVMSG)

 .Q

 ; delete duplicates

 ; keep GEN. MED. REC. - VITALS entry

 S GMRVSEQ=0

 F  S GMRVSEQ=$O(GMRVIEN("DILIST",1,GMRVSEQ)) Q:GMRVSEQ'>0  D

 . S GMRVNAME=$G(GMRVIEN("DILIST",1,GMRVSEQ)) Q:GMRVNAME=""

 . I GMRVNAME="GEN. MED. REC. - VITALS" Q

 . S DA=$G(GMRVIEN("DILIST",2,GMRVSEQ))

 . I DA S DIK="^DIC(9.4," D ^DIK

 . Q

KILL ;

 S:$G(GMRVSTOP) XPDABORT=2 ;don't install transport global/leave in ^XTMP

 K DA,DIK,GMRVERR,GMRVIEN,GMRVMSG,GMRVNAME,GMRVSEQ,X,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRVXENV   1516     printed  Apr 23, 2025@18:12:25                                                                                                                                                                                                    Page 2

GMRVXENV  ;HIRMFO/RM-ENVIRONMENT CHECK FOR VITALS ;7/18/96

 +1       ;;4.0;Vitals/Measurements;;Apr 25, 1997

EN1       ; environment check for the vitals package

 +1        NEW GMRV

 +2        SET GMRV=+$$VERSION^XPDUTL("REGISTRATION")

           IF GMRV<5.3

               WRITE !!,"PIMS (MAS) V5.3 OR GREATER IS REQUIRED - INSTALL ABORTED!"

               SET XPDABORT=2

               QUIT 

 +3        SET GMRV=+$$VERSION^XPDUTL("GMRV")

           IF GMRV>0

               IF GMRV<3

                   WRITE !!,"GEN. MED. REC. - VITALS V3.0 is required",!,"prior to the installation of V4.0 - INSTALL ABORTED!"

                   SET XPDABORT=2

                   QUIT 

 +4        IF GMRV=3

               IF +$$PATCH^XPDUTL("GMRV*3.0*3")=0

                   WRITE !!,"GMRV*3*3 is required prior to the installation of v4.0 - Install aborted!"

                   SET XPDABORT=2

                   QUIT 

 +5       ;

 +6       ;quit if virgin install

           if +$$VERSION^XPDUTL("GMRV")'>0

               QUIT 

 +7        KILL GMRVIEN,GMRVERR

 +8       ; how many V/M entries in Package File (#9.4)

 +9        DO FIND^DIC(9.4,"","","X","GMRV","","C","","","GMRVIEN","GMRVERR")

 +10      ; quit if FileMan lookup errors out

 +11       IF +$GET(GMRVERR("DIERR"))

               Begin DoDot:1

 +12               KILL GMRVMSG

 +13               SET GMRVMSG(1)="Error trying to lookup Vitals/Measurements in the PACKAGE (#9.4) file."

 +14               SET GMRVMSG(2)="Halting."

 +15               DO BMES^XPDUTL(.GMRVMSG)

 +16               QUIT 

               End DoDot:1

               SET GMRVSTOP=1

               DO KILL

               QUIT 

 +17      ; delete duplicates

 +18      ; keep GEN. MED. REC. - VITALS entry

 +19       SET GMRVSEQ=0

 +20       FOR 

               SET GMRVSEQ=$ORDER(GMRVIEN("DILIST",1,GMRVSEQ))

               if GMRVSEQ'>0

                   QUIT 

               Begin DoDot:1

 +21               SET GMRVNAME=$GET(GMRVIEN("DILIST",1,GMRVSEQ))

                   if GMRVNAME=""

                       QUIT 

 +22               IF GMRVNAME="GEN. MED. REC. - VITALS"

                       QUIT 

 +23               SET DA=$GET(GMRVIEN("DILIST",2,GMRVSEQ))

 +24               IF DA

                       SET DIK="^DIC(9.4,"

                       DO ^DIK

 +25               QUIT 

               End DoDot:1

KILL      ;

 +1       ;don't install transport global/leave in ^XTMP

           if $GET(GMRVSTOP)

               SET XPDABORT=2

 +2        KILL DA,DIK,GMRVERR,GMRVIEN,GMRVMSG,GMRVNAME,GMRVSEQ,X,Y

 +3        QUIT