|
Last change
on this file since 703 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
695 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
