Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
695 bytes
|
Line | |
---|
1 | TIULADR ; SLC/JER - Adverse Reactions/Allergies ;01/29/04
|
---|
2 | ;;1.0;TEXT INTEGRATION UTILITIES;**46,175**;Jun 20, 1997
|
---|
3 | MAIN(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 "."
|
---|
19 | ADRX Q "~@"_$NA(@TARGET)
|
---|
Note:
See
TracBrowser
for help on using the repository browser.