|
Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
558 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | FHCLN ; HISC/REL - Clinical Dietetics ;2/13/95 14:20
|
|---|
| 2 | ;;5.5;DIETETICS;**8**;Jan 28, 2005;Build 28
|
|---|
| 3 | ALG ; Get Allergies
|
|---|
| 4 | K ^TMP($J,"FHGMRAL") I $G(DFN)="" S ALG="" Q
|
|---|
| 5 | S ALG="",GMRA="1^0^010" D ^GMRADPT
|
|---|
| 6 | G:$O(GMRAL(0))<1 A1 F DA=0:0 S DA=$O(GMRAL(DA)) Q:DA<1 D A3 S:ALG'="" ALG=ALG_", " S GMRA=$P(GMRAL(DA),"^",2) G:$L(ALG)+$L(GMRA)>250 A2 S ALG=ALG_GMRA
|
|---|
| 7 | A1 K GMRA,GMRAL,FHGMNUM,FHGMIEN Q
|
|---|
| 8 | A2 S:$L(ALG)<246 ALG=ALG_"OTHERS" G A1
|
|---|
| 9 | A3 S FHGMNUM=$P(GMRAL(DA),"^",9) I $P(FHGMNUM,";",2)'="GMRD(120.82," Q
|
|---|
| 10 | S FHGMIEN=$P(FHGMNUM,";",1),^TMP($J,"FHGMRAL",FHGMIEN)=""
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
