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

TIULADR.m

Go to the documentation of this file.
  1. TIULADR ; SLC/JER - Adverse Reactions/Allergies ;01/29/04
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**46,175**;Jun 20, 1997
  1. MAIN(DFN,DISPLAY,TARGET,LINE) ; Control branching
  1. N TIUI,TIUJ,GMRAL,TIUY
  1. I +$G(DISPLAY) W !,"Gathering Allergy Data."
  1. D EN1^GMRADPT ; DBIA #10099
  1. I $D(GMRAL)'>9 D G ADRX
  1. . S LINE=+$G(LINE)+1
  1. . I $D(GMRAL),GMRAL=0 S @TARGET@(LINE,0)="Patient has answered NKA"
  1. . E S @TARGET@(LINE,0)="No Allergy Assessment" ; **175**
  1. S TIUI=0,TIUY=""
  1. F S TIUI=$O(GMRAL(TIUI)) Q:+TIUI'>0 D
  1. . N X,Y,TIUX
  1. . S TIUX=$P($G(GMRAL(TIUI)),U,2)
  1. . S TIUY=$$FILL^TIULS(TIUX,TIUY,79)
  1. . I TIUY=TIUX S LINE=+$G(LINE)+1
  1. . S @TARGET@(LINE,0)=TIUY
  1. . I +$G(DISPLAY) W "."
  1. ADRX Q "~@"_$NA(@TARGET)