Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRAPEM3

GMRAPEM3.m

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