| 1 | GMRAEER0 ;HIRMFO/RM,WAA-ENTER AN ALLERGY RECORD IN ERROR ; 8/20/92
|
|---|
| 2 | ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
|---|
| 3 | EN1 ; ENTRY FROM 'GMRA ENTER A/AR IN ERROR' OPTION
|
|---|
| 4 | W ! S DIC="^DPT(",DIC(0)="AEQM" D ^DIC K DIC,DLAYGO G:+Y'>0 Q1 S DFN=+Y D EN2 G:'GMRAOUT EN1
|
|---|
| 5 | Q1 D KILL^XUSCLEAN
|
|---|
| 6 | Q
|
|---|
| 7 | EN2 ; EDIT A PATIENT A/AR WHERE DFN KNOWN
|
|---|
| 8 | ; INPUT VAR: DFN = PTR TO 2
|
|---|
| 9 | ; OUTPUT VAR: DFN AND GMRAOUT = 0 IF NORMAL EXIT ELSE 1
|
|---|
| 10 | Q:'$D(DFN) D 1^VADPT S GMRALOC=$P(VAIN(4),U,2),GMRANAM=VADM(1),GMRASEX=VADM(5),GMRAOUT=0,GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) D KVAR^VADPT K VA,VAROOT
|
|---|
| 11 | S GMRAER=1 D:'$D(GMRAL) EN1^GMRADPT D EN1^GMRADSP0(.GMRAL) G:GMRAOUT Q2 K GMRAER
|
|---|
| 12 | SELECT S GMRALAGO=0 D EN1^GMRAPES0 W:GMRAPA'>0&'GMRAOUT $C(7)," ??" G Q2:GMRAOUT,EN2:GMRAPA'>0 ; IF HIT RETURN THEN EXIT
|
|---|
| 13 | G:'$$LOCK^GMRAUTL(120.8,GMRAPA,1) SELECT
|
|---|
| 14 | D EN1^GMRAPEE0
|
|---|
| 15 | D UNLOCK^GMRAUTL(120.8,GMRAPA)
|
|---|
| 16 | Q2 ;
|
|---|
| 17 | K GMRADRUG,GMRAER,GMRAERR,GMRAHEAD,GMRALAGO,GMRALOC,GMRANAM,GMRANEW,GMRAOTH,GMRAPA,GMRAPG,GMRAPRNT,GMRASEX,GMRASWH
|
|---|
| 18 | I GMRAOUT S GMRAOUT=2-GMRAOUT
|
|---|
| 19 | Q
|
|---|
