- GMRAXENV ;HIRMFO/RM-ENVIRONMENT CHECK ROUTINE ; 12/6/95
- ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
- I '$G(DUZ)!'$D(DUZ(0)) D S XPDQUIT=2 Q
- . W !?5,"DUZ and DUZ(0) must be defined as an active user to initialize"
- . W !?5,"the ADVERSE REACTION TRACKING v",$P($T(+2),";",3)," software."
- . W $C(7)
- . Q
- I DUZ(0)'="@" D S XPDQUIT=2 Q
- . W !?5,"You must have programmer access, i.e., DUZ(0)=@ to continue."
- . W $C(7)
- . Q
- I +$$VERSION^XPDUTL("GMRP")>0,$T(PN^GMRPART)']"" D
- . W !?5,"You have the Progress Notes package installed, but you are"
- . W !?5,"missing the GMRPART routine. Please make certain that"
- . W !?5,"GMRP*2.5*32 is installed."
- . Q
- I +$$VERSION^XPDUTL("DG")<5.3 D S XPDQUIT=2 Q
- . W !?5,"You need MAS/PIMS v5.3 or greater to install ADVERSE REACTION"
- . W !?5,"TRACKING v",$P($T(+2),";",3),$C(7)
- . Q
- I +$$VERSION^XPDUTL("PSN")<2 D S XPDQUIT=2 Q
- . W !?5,"You need NATIONAL DRUG FILE v2.0 or greater to install ADVERSE"
- . W !?5,"REACTION TRACKING v",$P($T(+2),";",3),$C(7)
- . Q
- N GMRAVER S GMRAVER=+$$VERSION^XPDUTL("GMRA")
- I 'GMRAVER,$D(^GMRD(120.84)) D S XPDQUIT=2 Q
- . W !?5,"Bad entry in VERSION node of Package file, call your IRM"
- . W !?5,"Field Office for assistance."
- . Q
- Q:'GMRAVER ; quit if this is a virgin install
- I GMRAVER<3 D Q:$G(XPDQUIT)=2
- . Q:$T(GMRARAD1^GMRARAD1)]""
- . W !?5,"You must have installed ALLERGY TRACKING SYSTEM v3.0 prior to"
- . W !?5,"installing ADVERSE REACTION TRACKING v",$P($T(+2),";",3),$C(7)
- . S XPDQUIT=2
- . Q
- I $T(GMRARAD1^GMRARAD1)']"" D S XPDQUIT=2 Q
- . W !?5,"You must install patch GMRA*3*13 prior to installing"
- . W !?5,"ADVERSE REACTION TRACKING v",$P($T(+2),";",3),$C(7)
- . Q
- D FIND^DIC(9.4,,,"X","GMRA",,"C",,,"GMRAIEN","GMRAERR")
- I +$G(GMRAERR("DIERR")) D S XPDQUIT=2 Q
- . W !?5,"Error trying to find ADVERSE REACTION TRACKING Package file"
- . W !?5,"entry, notify your IRM Field Office.",$C(7)
- . Q
- S (DA,SEQ)=0 F S SEQ=$O(GMRAIEN("DILIST",1,SEQ)) Q:SEQ'>0 D Q:DA<0
- . S NAME=$G(GMRAIEN("DILIST",1,SEQ)) Q:NAME=""
- . I NAME="ADVERSE REACTION TRACKING" S DA=-1 Q
- . I NAME="GEN. MED. REC. - ALLERGIES" S DA=$G(GMRAIEN("DILIST",2,SEQ)) Q
- . I 'DA S DA=$G(GMRAIEN("DILIST",2,SEQ))
- . Q
- I DA>0 D
- .S GMRAHLD=DA
- .S DIE="^DIC(9.4,"
- .S DR=".01////ADVERSE REACTION TRACKING"
- .S DR=DR_";2///Adverse Reaction Tracking package"
- .D ^DIE K DA,DIE,DR
- .S DIE="^DIC(9.4,"
- .S DA=GMRAHLD
- .S DR="3///This package permits clinical users to track and report patient allergies and adverse reactions. The intended users are physicians, nurses, other clinicians and clerks."
- .D ^DIE K DA,DIE,DR
- .Q
- K GMRAIEN,GMRAERR,NAME,SEQ
- Q:'$D(GMRAHLD)
- D FIND^DIC(9.4,,,"X","GMRA",,"C",,,"GMRAIEN","GMRAERR")
- I +$G(GMRAERR("DIERR")) K GMRAIEN,GMRAERR Q
- S (DA,SEQ)=0
- F S SEQ=$O(GMRAIEN("DILIST",1,SEQ)) Q:SEQ'>0 D
- . S NAME=$G(GMRAIEN("DILIST",1,SEQ)) Q:NAME=""
- . I NAME="ADVERSE REACTION TRACKING" Q
- . S DA=$G(GMRAIEN("DILIST",2,SEQ))
- . I DA S DIK="^DIC(9.4," D ^DIK
- . Q
- K DA,DIK,GMRAERR,GMRAIEN,GMRAHLD,NAME,SEQ
- Q
- GMRAXENV ;HIRMFO/RM-ENVIRONMENT CHECK ROUTINE ; 12/6/95
- +1 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
- +2 IF '$GET(DUZ)!'$DATA(DUZ(0))
- Begin DoDot:1
- +3 WRITE !?5,"DUZ and DUZ(0) must be defined as an active user to initialize"
- +4 WRITE !?5,"the ADVERSE REACTION TRACKING v",$PIECE($TEXT(+2),";",3)," software."
- +5 WRITE $CHAR(7)
- +6 QUIT
- End DoDot:1
- SET XPDQUIT=2
- QUIT
- +7 IF DUZ(0)'="@"
- Begin DoDot:1
- +8 WRITE !?5,"You must have programmer access, i.e., DUZ(0)=@ to continue."
- +9 WRITE $CHAR(7)
- +10 QUIT
- End DoDot:1
- SET XPDQUIT=2
- QUIT
- +11 IF +$$VERSION^XPDUTL("GMRP")>0
- IF $TEXT(PN^GMRPART)']""
- Begin DoDot:1
- +12 WRITE !?5,"You have the Progress Notes package installed, but you are"
- +13 WRITE !?5,"missing the GMRPART routine. Please make certain that"
- +14 WRITE !?5,"GMRP*2.5*32 is installed."
- +15 QUIT
- End DoDot:1
- +16 IF +$$VERSION^XPDUTL("DG")<5.3
- Begin DoDot:1
- +17 WRITE !?5,"You need MAS/PIMS v5.3 or greater to install ADVERSE REACTION"
- +18 WRITE !?5,"TRACKING v",$PIECE($TEXT(+2),";",3),$CHAR(7)
- +19 QUIT
- End DoDot:1
- SET XPDQUIT=2
- QUIT
- +20 IF +$$VERSION^XPDUTL("PSN")<2
- Begin DoDot:1
- +21 WRITE !?5,"You need NATIONAL DRUG FILE v2.0 or greater to install ADVERSE"
- +22 WRITE !?5,"REACTION TRACKING v",$PIECE($TEXT(+2),";",3),$CHAR(7)
- +23 QUIT
- End DoDot:1
- SET XPDQUIT=2
- QUIT
- +24 NEW GMRAVER
- SET GMRAVER=+$$VERSION^XPDUTL("GMRA")
- +25 IF 'GMRAVER
- IF $DATA(^GMRD(120.84))
- Begin DoDot:1
- +26 WRITE !?5,"Bad entry in VERSION node of Package file, call your IRM"
- +27 WRITE !?5,"Field Office for assistance."
- +28 QUIT
- End DoDot:1
- SET XPDQUIT=2
- QUIT
- +29 ; quit if this is a virgin install
- IF 'GMRAVER
- QUIT
- +30 IF GMRAVER<3
- Begin DoDot:1
- +31 IF $TEXT(GMRARAD1^GMRARAD1)]""
- QUIT
- +32 WRITE !?5,"You must have installed ALLERGY TRACKING SYSTEM v3.0 prior to"
- +33 WRITE !?5,"installing ADVERSE REACTION TRACKING v",$PIECE($TEXT(+2),";",3),$CHAR(7)
- +34 SET XPDQUIT=2
- +35 QUIT
- End DoDot:1
- IF $GET(XPDQUIT)=2
- QUIT
- +36 IF $TEXT(GMRARAD1^GMRARAD1)']""
- Begin DoDot:1
- +37 WRITE !?5,"You must install patch GMRA*3*13 prior to installing"
- +38 WRITE !?5,"ADVERSE REACTION TRACKING v",$PIECE($TEXT(+2),";",3),$CHAR(7)
- +39 QUIT
- End DoDot:1
- SET XPDQUIT=2
- QUIT
- +40 DO FIND^DIC(9.4,,,"X","GMRA",,"C",,,"GMRAIEN","GMRAERR")
- +41 IF +$GET(GMRAERR("DIERR"))
- Begin DoDot:1
- +42 WRITE !?5,"Error trying to find ADVERSE REACTION TRACKING Package file"
- +43 WRITE !?5,"entry, notify your IRM Field Office.",$CHAR(7)
- +44 QUIT
- End DoDot:1
- SET XPDQUIT=2
- QUIT
- +45 SET (DA,SEQ)=0
- FOR
- SET SEQ=$ORDER(GMRAIEN("DILIST",1,SEQ))
- IF SEQ'>0
- QUIT
- Begin DoDot:1
- +46 SET NAME=$GET(GMRAIEN("DILIST",1,SEQ))
- IF NAME=""
- QUIT
- +47 IF NAME="ADVERSE REACTION TRACKING"
- SET DA=-1
- QUIT
- +48 IF NAME="GEN. MED. REC. - ALLERGIES"
- SET DA=$GET(GMRAIEN("DILIST",2,SEQ))
- QUIT
- +49 IF 'DA
- SET DA=$GET(GMRAIEN("DILIST",2,SEQ))
- +50 QUIT
- End DoDot:1
- IF DA<0
- QUIT
- +51 IF DA>0
- Begin DoDot:1
- +52 SET GMRAHLD=DA
- +53 SET DIE="^DIC(9.4,"
- +54 SET DR=".01////ADVERSE REACTION TRACKING"
- +55 SET DR=DR_";2///Adverse Reaction Tracking package"
- +56 DO ^DIE
- KILL DA,DIE,DR
- +57 SET DIE="^DIC(9.4,"
- +58 SET DA=GMRAHLD
- +59 SET DR="3///This package permits clinical users to track and report patient allergies and adverse reactions. The intended users are physicians, nurses, other clinicians and clerks."
- +60 DO ^DIE
- KILL DA,DIE,DR
- +61 QUIT
- End DoDot:1
- +62 KILL GMRAIEN,GMRAERR,NAME,SEQ
- +63 IF '$DATA(GMRAHLD)
- QUIT
- +64 DO FIND^DIC(9.4,,,"X","GMRA",,"C",,,"GMRAIEN","GMRAERR")
- +65 IF +$GET(GMRAERR("DIERR"))
- KILL GMRAIEN,GMRAERR
- QUIT
- +66 SET (DA,SEQ)=0
- +67 FOR
- SET SEQ=$ORDER(GMRAIEN("DILIST",1,SEQ))
- IF SEQ'>0
- QUIT
- Begin DoDot:1
- +68 SET NAME=$GET(GMRAIEN("DILIST",1,SEQ))
- IF NAME=""
- QUIT
- +69 IF NAME="ADVERSE REACTION TRACKING"
- QUIT
- +70 SET DA=$GET(GMRAIEN("DILIST",2,SEQ))
- +71 IF DA
- SET DIK="^DIC(9.4,"
- DO ^DIK
- +72 QUIT
- End DoDot:1
- +73 KILL DA,DIK,GMRAERR,GMRAIEN,GMRAHLD,NAME,SEQ
- +74 QUIT