| 1 | GMRAPEM3 ;HIRMFO/WAA-ALLERGY/ADVERSE REACTION PATIENT EDIT DRIVER ;3/20/06 14:55
|
|---|
| 2 | ;;4.0;Adverse Reaction Tracking;**36**;Mar 29, 1996;Build 9
|
|---|
| 3 | UPOUT ; If the user uparrows out of the process
|
|---|
| 4 | I GMRAOUT S GMRAOUT=2-GMRAOUT D:GMRAOUT&($D(^TMP($J,"GMRASF"))) ALERT^GMRASIGN K ^TMP($J,"GMRASF"),GMRACNT,GMRANAM,GMRAPA
|
|---|
| 5 | K GMRANAM,GMRAPA
|
|---|
| 6 | D CLEAN
|
|---|
| 7 | Q
|
|---|
| 8 | ERR ; If the reaction that is entered in error
|
|---|
| 9 | D UNLOCK^GMRAUTL(120.8,GMRAPA)
|
|---|
| 10 | N GMRACNT Q:'$D(^TMP($J,"GMRASF","B",GMRAPA))
|
|---|
| 11 | S GMRACNT=0 S GMRACNT=$O(^TMP($J,"GMRASF","B",GMRAPA,GMRACNT)) Q:GMRACNT<1
|
|---|
| 12 | K ^TMP($J,"GMRASF",GMRACNT,GMRAPA),^TMP($J,"GMRASF","B",GMRAPA,GMRACNT)
|
|---|
| 13 | D CLEAN
|
|---|
| 14 | Q
|
|---|
| 15 | SIGNED ; If the reaction is already signed
|
|---|
| 16 | D CLEAN
|
|---|
| 17 | Q
|
|---|
| 18 | UPDATE ; Unlock global and prep for next allergy
|
|---|
| 19 | I '$G(GMRAVER,0),'$D(^TMP($J,"GMRASF","B",GMRAPA)) S ^TMP($J,"GMRASF","B",GMRAPA,GMRACNT)=$G(GMRANEW),^TMP($J,"GMRASF",GMRACNT,GMRAPA)=$G(GMRANEW) ;36
|
|---|
| 20 | D CLEAN
|
|---|
| 21 | Q
|
|---|
| 22 | CLEAN ; Clean the account for the next reaction.
|
|---|
| 23 | K %,DA,DIC,DIE,DIK,DR,GMRACHC,GMRAERR,GMRADRUG,GMRAIV,GMRANEW,GMRAOTH,GMRAPG,GMRAPRNT,GMRAREQ,GMRASEX,GMRASWH,GMRATYPE,GMRAVEDT,X,Y,GMRAVER
|
|---|
| 24 | Q
|
|---|
