Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRAXENV

GMRAXENV.m

Go to the documentation of this file.
  1. GMRAXENV ;HIRMFO/RM-ENVIRONMENT CHECK ROUTINE ; 12/6/95
  1. ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
  1. I '$G(DUZ)!'$D(DUZ(0)) D S XPDQUIT=2 Q
  1. . W !?5,"DUZ and DUZ(0) must be defined as an active user to initialize"
  1. . W !?5,"the ADVERSE REACTION TRACKING v",$P($T(+2),";",3)," software."
  1. . W $C(7)
  1. . Q
  1. I DUZ(0)'="@" D S XPDQUIT=2 Q
  1. . W !?5,"You must have programmer access, i.e., DUZ(0)=@ to continue."
  1. . W $C(7)
  1. . Q
  1. I +$$VERSION^XPDUTL("GMRP")>0,$T(PN^GMRPART)']"" D
  1. . W !?5,"You have the Progress Notes package installed, but you are"
  1. . W !?5,"missing the GMRPART routine. Please make certain that"
  1. . W !?5,"GMRP*2.5*32 is installed."
  1. . Q
  1. I +$$VERSION^XPDUTL("DG")<5.3 D S XPDQUIT=2 Q
  1. . W !?5,"You need MAS/PIMS v5.3 or greater to install ADVERSE REACTION"
  1. . W !?5,"TRACKING v",$P($T(+2),";",3),$C(7)
  1. . Q
  1. I +$$VERSION^XPDUTL("PSN")<2 D S XPDQUIT=2 Q
  1. . W !?5,"You need NATIONAL DRUG FILE v2.0 or greater to install ADVERSE"
  1. . W !?5,"REACTION TRACKING v",$P($T(+2),";",3),$C(7)
  1. . Q
  1. N GMRAVER S GMRAVER=+$$VERSION^XPDUTL("GMRA")
  1. I 'GMRAVER,$D(^GMRD(120.84)) D S XPDQUIT=2 Q
  1. . W !?5,"Bad entry in VERSION node of Package file, call your IRM"
  1. . W !?5,"Field Office for assistance."
  1. . Q
  1. Q:'GMRAVER ; quit if this is a virgin install
  1. I GMRAVER<3 D Q:$G(XPDQUIT)=2
  1. . Q:$T(GMRARAD1^GMRARAD1)]""
  1. . W !?5,"You must have installed ALLERGY TRACKING SYSTEM v3.0 prior to"
  1. . W !?5,"installing ADVERSE REACTION TRACKING v",$P($T(+2),";",3),$C(7)
  1. . S XPDQUIT=2
  1. . Q
  1. I $T(GMRARAD1^GMRARAD1)']"" D S XPDQUIT=2 Q
  1. . W !?5,"You must install patch GMRA*3*13 prior to installing"
  1. . W !?5,"ADVERSE REACTION TRACKING v",$P($T(+2),";",3),$C(7)
  1. . Q
  1. D FIND^DIC(9.4,,,"X","GMRA",,"C",,,"GMRAIEN","GMRAERR")
  1. I +$G(GMRAERR("DIERR")) D S XPDQUIT=2 Q
  1. . W !?5,"Error trying to find ADVERSE REACTION TRACKING Package file"
  1. . W !?5,"entry, notify your IRM Field Office.",$C(7)
  1. . Q
  1. S (DA,SEQ)=0 F S SEQ=$O(GMRAIEN("DILIST",1,SEQ)) Q:SEQ'>0 D Q:DA<0
  1. . S NAME=$G(GMRAIEN("DILIST",1,SEQ)) Q:NAME=""
  1. . I NAME="ADVERSE REACTION TRACKING" S DA=-1 Q
  1. . I NAME="GEN. MED. REC. - ALLERGIES" S DA=$G(GMRAIEN("DILIST",2,SEQ)) Q
  1. . I 'DA S DA=$G(GMRAIEN("DILIST",2,SEQ))
  1. . Q
  1. I DA>0 D
  1. .S GMRAHLD=DA
  1. .S DIE="^DIC(9.4,"
  1. .S DR=".01////ADVERSE REACTION TRACKING"
  1. .S DR=DR_";2///Adverse Reaction Tracking package"
  1. .D ^DIE K DA,DIE,DR
  1. .S DIE="^DIC(9.4,"
  1. .S DA=GMRAHLD
  1. .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."
  1. .D ^DIE K DA,DIE,DR
  1. .Q
  1. K GMRAIEN,GMRAERR,NAME,SEQ
  1. Q:'$D(GMRAHLD)
  1. D FIND^DIC(9.4,,,"X","GMRA",,"C",,,"GMRAIEN","GMRAERR")
  1. I +$G(GMRAERR("DIERR")) K GMRAIEN,GMRAERR Q
  1. S (DA,SEQ)=0
  1. F S SEQ=$O(GMRAIEN("DILIST",1,SEQ)) Q:SEQ'>0 D
  1. . S NAME=$G(GMRAIEN("DILIST",1,SEQ)) Q:NAME=""
  1. . I NAME="ADVERSE REACTION TRACKING" Q
  1. . S DA=$G(GMRAIEN("DILIST",2,SEQ))
  1. . I DA S DIK="^DIC(9.4," D ^DIK
  1. . Q
  1. K DA,DIK,GMRAERR,GMRAIEN,GMRAHLD,NAME,SEQ
  1. Q