source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULADR.m@ 1078

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

initial load of WorldVistAEHR

File size: 695 bytes
Line 
1TIULADR ; SLC/JER - Adverse Reactions/Allergies ;01/29/04
2 ;;1.0;TEXT INTEGRATION UTILITIES;**46,175**;Jun 20, 1997
3MAIN(DFN,DISPLAY,TARGET,LINE) ; Control branching
4 N TIUI,TIUJ,GMRAL,TIUY
5 I +$G(DISPLAY) W !,"Gathering Allergy Data."
6 D EN1^GMRADPT ; DBIA #10099
7 I $D(GMRAL)'>9 D G ADRX
8 . S LINE=+$G(LINE)+1
9 . I $D(GMRAL),GMRAL=0 S @TARGET@(LINE,0)="Patient has answered NKA"
10 . E S @TARGET@(LINE,0)="No Allergy Assessment" ; **175**
11 S TIUI=0,TIUY=""
12 F S TIUI=$O(GMRAL(TIUI)) Q:+TIUI'>0 D
13 . N X,Y,TIUX
14 . S TIUX=$P($G(GMRAL(TIUI)),U,2)
15 . S TIUY=$$FILL^TIULS(TIUX,TIUY,79)
16 . I TIUY=TIUX S LINE=+$G(LINE)+1
17 . S @TARGET@(LINE,0)=TIUY
18 . I +$G(DISPLAY) W "."
19ADRX Q "~@"_$NA(@TARGET)
Note: See TracBrowser for help on using the repository browser.