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

GMRAOR9.m

Go to the documentation of this file.
  1. GMRAOR9 ;HIRMFO/RM,WAA,FPT-Stuff Drug Ingredients/Classes ; 1/9/08 5:18am
  1. ;;4.0;Adverse Reaction Tracking;**4,13,41**;Mar 29, 1996;Build 8
  1. ; <Copied from GMRAPES1>
  1. EN1 ; Auto stuff Ingredients and VA Drug Classes
  1. ; GMRAING() will have all the ingredients for the reaction
  1. ; GMRADRCL() will have all the drug classes for the reaction.
  1. ;
  1. K GMRADRCL,GMRAING
  1. ; If the Reactant is a Drug Ingredient
  1. I GMRAAR[50.416 S GMRAING(+GMRAAR)="" G STING
  1. ;If the Reactant is a Drug Class
  1. I GMRAAR[50.605 S GMRADRCL(+GMRAAR)=""
  1. ;If the Reactant is an entry in the GMR ALLERGY file
  1. I GMRAAR[120.82 D
  1. .S Y=0 F S Y=$O(^GMRD(120.82,+GMRAAR,"ING",Y)) Q:Y'>0 I $D(^GMRD(120.82,+GMRAAR,"ING",Y,0)),+^(0)>0 S GMRAING(+^(0))=""
  1. .S Y=0 F S Y=$O(^GMRD(120.82,+GMRAAR,"CLASS",Y)) Q:Y'>0 I $D(^GMRD(120.82,+GMRAAR,"CLASS",Y,0)),+^(0)>0 S GMRADRCL(+^(0))=""
  1. .Q
  1. ;I GMRAAR["PSDRUG" D
  1. ;.N PSODA
  1. ;.S PSODA=+GMRAAR K ^TMP("PSO",$J) D ^PSONGR F Y=0:0 S Y=$O(^TMP("PSO",$J,Y)) Q:Y'>0 S GMRAING(Y)=""
  1. ;.N GMRAX,GMRAY
  1. ;.;S GMRAX=$P($G(^PSDRUG(+GMRAAR,"ND")),U,6) S:GMRAX>0 GMRADRCL(GMRAX)="" Q
  1. ;.S GMRAX=$$DRP2CLP^GMRAPENC(GMRAAR) S:GMRAX>0 GMRADRCL(GMRAX)="" Q
  1. ;.;S GMRAX=$P($G(^PSDRUG(+GMRAAR,0)),U,2) Q:GMRAX=""
  1. ;.S GMRAX=$$DRP2CODE^GMRAPENC(GMRAAR) Q:GMRAX=""
  1. ;.;S GMRAY=$O(^PS(50.605,"B",GMRAX,"")) S:GMRAY>0 GMRADRCL(GMRAY)=""
  1. ;.S GMRAY=$$CODE2CLP^GMRAPENC(GMRAX) S:GMRAY>0 GMRADRCL(GMRAY)=""
  1. ;.Q
  1. I GMRAAR["PSNDF" D
  1. .N PSNDA
  1. .S PSNDA=+GMRAAR K ^TMP("PSN",$J) D ^PSNNGR F Y=0:0 S Y=$O(^TMP("PSN",$J,Y)) Q:Y'>0 S GMRAING(Y)=""
  1. .; all classes for NDF entry returned in GMRADRCL
  1. .N CLASS
  1. .S CLASS=$$CLIST^PSNAPIS(+GMRAAR,.GMRADRCL)
  1. K ^TMP("PSO",$J),^TMP("PSN",$J),PSODA,PSNID
  1. STING ;Stuffing Drug Ing & VA Drug Classes into file 120.8
  1. I $D(GMRAING) D
  1. .S DA(1)=+GMRAPA,DIC="^GMR(120.8,"_+GMRAPA_",2,",DLAYGO=120.8,DIC(0)="L",DIC("P")="120.802PA"
  1. .F X=0:0 S X=$O(GMRAING(X)) Q:X'>0 I '$D(^GMR(120.8,GMRAPA,2,"B",X)) K DD,DO,DINUM D FILE^DICN
  1. .K DIC,DLAYGO
  1. .Q
  1. I $D(GMRADRCL) D
  1. .S DA(1)=+GMRAPA,DIC="^GMR(120.8,"_+GMRAPA_",3,",DIC(0)="L",DIC("P")="120.803PA"
  1. .F X=0:0 S X=$O(GMRADRCL(X)) Q:X'>0 I '$D(^GMR(120.8,GMRAPA,3,"B",X)) K DD,DO,DINUM D FILE^DICN
  1. .K DIC
  1. .Q
  1. K GMRADRCL,GMRAING
  1. Q