source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPEM3.m@ 699

Last change on this file since 699 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1GMRAPEM3 ;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
3UPOUT ; 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
8ERR ; 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
15SIGNED ; If the reaction is already signed
16 D CLEAN
17 Q
18UPDATE ; 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
22CLEAN ; 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
Note: See TracBrowser for help on using the repository browser.