1 | GMRAOR9 ;HIRMFO/RM,WAA,FPT-Stuff Drug Ingredients/Classes ;7/21/96 16:31
|
---|
2 | ;;4.0;Adverse Reaction Tracking;**4,13**;Mar 29, 1996
|
---|
3 | ; <Copied from GMRAPES1>
|
---|
4 | EN1 ; Auto stuff Ingredients and VA Drug Classes
|
---|
5 | ; GMRAING() will have all the ingredients for the reaction
|
---|
6 | ; GMRADRCL() will have all the drug classes for the reaction.
|
---|
7 | ;
|
---|
8 | K GMRADRCL,GMRAING
|
---|
9 | ; If the Reactant is a Drug Ingredient
|
---|
10 | I GMRAAR[50.416 S GMRAING(+GMRAAR)="" G STING
|
---|
11 | ;If the Reactant is a Drug Class
|
---|
12 | I GMRAAR[50.605 S GMRADRCL(+GMRAAR)=""
|
---|
13 | ;If the Reactant is an entry in the GMR ALLERGY file
|
---|
14 | I GMRAAR[120.82 D
|
---|
15 | .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))=""
|
---|
16 | .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))=""
|
---|
17 | .Q
|
---|
18 | I GMRAAR["PSDRUG" D
|
---|
19 | .N PSODA
|
---|
20 | .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)=""
|
---|
21 | .N GMRAX,GMRAY
|
---|
22 | .S GMRAX=$P($G(^PSDRUG(+GMRAAR,"ND")),U,6) S:GMRAX>0 GMRADRCL(GMRAX)="" Q
|
---|
23 | .S GMRAX=$P($G(^PSDRUG(+GMRAAR,0)),U,2) Q:GMRAX=""
|
---|
24 | .S GMRAY=$O(^PS(50.605,"B",GMRAX,"")) S:GMRAY>0 GMRADRCL(GMRAY)=""
|
---|
25 | .Q
|
---|
26 | I GMRAAR["PSNDF" D
|
---|
27 | .N PSNDA
|
---|
28 | .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)=""
|
---|
29 | .; all classes for NDF entry returned in GMRADRCL
|
---|
30 | .N CLASS
|
---|
31 | .S CLASS=$$CLIST^PSNAPIS(+GMRAAR,.GMRADRCL)
|
---|
32 | K ^TMP("PSO",$J),^TMP("PSN",$J),PSODA,PSNID
|
---|
33 | STING ;Stuffing Drug Ing & VA Drug Classes into file 120.8
|
---|
34 | I $D(GMRAING) D
|
---|
35 | .S DA(1)=+GMRAPA,DIC="^GMR(120.8,"_+GMRAPA_",2,",DLAYGO=120.8,DIC(0)="L",DIC("P")="120.802PA"
|
---|
36 | .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
|
---|
37 | .K DIC,DLAYGO
|
---|
38 | .Q
|
---|
39 | I $D(GMRADRCL) D
|
---|
40 | .S DA(1)=+GMRAPA,DIC="^GMR(120.8,"_+GMRAPA_",3,",DIC(0)="L",DIC("P")="120.803PA"
|
---|
41 | .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
|
---|
42 | .K DIC
|
---|
43 | .Q
|
---|
44 | K GMRADRCL,GMRAING
|
---|
45 | Q
|
---|