| 1 | PSJDGAL ;BIR/LC-DRUG/ALLERGY REACTION CHECKING ;21 AUG 97 / 8:51 AM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
|
|---|
| 3 | CHK(DFN,TYP,PTR) ;
|
|---|
| 4 | N APTR
|
|---|
| 5 | K ^TMP("PSJDAI",$J) S PSJACK=$$ORCHK^GMRAOR(DFN,TYP,PTR) D:$G(PSJACK)=1
|
|---|
| 6 | .;Q:$D(^XUSEC("PSJRPH",DUZ))
|
|---|
| 7 | .S ^TMP("PSJDAI",$J,0)=1
|
|---|
| 8 | .S I=0 F S I=$O(GMRAING(I)) Q:'I S ^TMP("PSJDAI",$J,I,0)=GMRAING(I)
|
|---|
| 9 | D:$G(PSJACK)=1 DSPLY
|
|---|
| 10 | K PSJACK,GMRAING,I
|
|---|
| 11 | Q
|
|---|
| 12 | CHK1(DFN) ;
|
|---|
| 13 | K ^TMP("PSJDAI",$J)
|
|---|
| 14 | S GMRA="0^0^001" D EN1^GMRADPT F LP=0:0 S LP=$O(GMRAL(LP)) Q:'LP!($G(PSJACK)) D
|
|---|
| 15 | .S:'$D(PSJACK) APTR=$P(^GMR(120.8,LP,0),"^",3)
|
|---|
| 16 | .I $P(APTR,";",2)="PSDRUG(",$P(APTR,";")=PSJDRUG("IEN") S PSJACK=1
|
|---|
| 17 | .;Q:$D(^XUSEC("PSJRPH",DUZ))
|
|---|
| 18 | .S ^TMP("PSODAI",$J,0)=1
|
|---|
| 19 | D:$G(PSJACK)=1 DSPLY
|
|---|
| 20 | K GMRA,GMRAL,LP,PSOACK
|
|---|
| 21 | Q
|
|---|
| 22 | DSPLY ;
|
|---|
| 23 | W $C(7),!,"A Drug-Allergy Reaction exists for this medication!",!
|
|---|
| 24 | ;I $D(^XUSEC("PSJRPH",DUZ)) D
|
|---|
| 25 | D
|
|---|
| 26 | .W $C(7),!,"***SIGNIFICANT*** Allergy Reaction"
|
|---|
| 27 | .W !,"Drug: "_PSJDRUG("NAME") I $O(GMRAING(0)) W !,?6,"Ingredients: "
|
|---|
| 28 | .S DIR("?",1)="Answer 'YES' if you DO want to enter a reaction for this medication,"
|
|---|
| 29 | .S DIR("?")=" 'NO' if you DON'T want to enter a reaction for this medication,"
|
|---|
| 30 | .W ?19 S I=0 F S I=$O(GMRAING(I)) Q:'I W:$X+$L($G(GMRAING(I)))+2>IOM !?19 W $G(GMRAING(I))_", "
|
|---|
| 31 | .S DIR(0)="SA^1:YES;0:NO",DIR("A")="Do you want to Intervene? ",DIR("B")="Y" W ! D ^DIR
|
|---|
| 32 | .I 'Y K DIR,DTOUT,DIRUT,DIROUT,DUOUT,Y Q
|
|---|
| 33 | .I Y D ^PSJRXI
|
|---|
| 34 | K DIR,DTOUT,DIRUT,DIROUT,DUOUT,Y
|
|---|
| 35 | Q
|
|---|
