BPXRMALL ;IHS/CIA/MGH - Handle Allergy findings. ;18-Apr-2014 15:23;DU
Source file <BPXRMALL.m>
| Package | Total | Call Graph | 
|---|---|---|
| Adverse Reaction Tracking | 2 | $$INACTIVE^GMRADSP6 $$NKA^GMRANKA | 
| IHS Mods To Patient Care Encounter | 1 | ALLER^BPXRMAL1 | 
| VA Fileman | 1 | $$FIND1^DIC | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ALLWARF(DFN,TEST,DATE,VALUE,TEXT) | ;Return TEST=1 if allergy to ANTICOAGULANTS found | |
| ALLTETA(DFN,TEST,DATE,VALUE,TEXT) | ;Computed finding to return a 1 if Tetanus vaccine allergy is found. | |
| ALLERGY | ;******************************ALLERGIES******************************* | |
| ALLPNEU(DFN,TEST,DATE,VALUE,TEXT) | ;Computed finding to return a 1 if Pneumonia vaccine allergy is found. | |
| ALLTHRM(DFN,TEST,DATE,VALUE,TEXT) | ;Computed finding to return a 1 if Thimerosal allergy is found. | |
| ALL1(DFN,TEST,DATE,VALUE,TEXT) | ;Computed finding to return a 1 if Adverse Reaction entry is not found. | |
| ALLARB(PSODFN,TEST,DATE,VALUE,TEXT) | ;Return TEST=1 if allergy to  ARBS | |
| ALLASP(DFN,TEST,DATE,VALUE,TEXT) | ;Return TEST=1 if allergy to ASPIRIN found | |
| ALLBETA(PSODFN,TEST,DATE,VALUE,TEXT) | ;Return TEST=1 if allergy to  BETA BLOCKERS/RELATED found | |
| ALLCLOP(DFN,TEST,DATE,VALUE,TEXT) | ;Computed finding to return a 1 if plavix allergy is found. | |
| ALLINFL(DFN,TEST,DATE,VALUE,TEXT) | ;Computed finding to return a 1 if Influenza vaccine allergy is found. | |
| ALLEGG(DFN,TEST,DATE,VALUE,TEXT) | ;Computed finding to return a 1 if EGG allergy is found. | |
| ALLACE(PSODFN,TEST,DATE,VALUE,TEXT) | ;Return TEST=1 if allergy to  ACE INHIBITORS found | |
| ALL(DFN,TEST,DATE,VALUE,TEXT) | ;Return whether or not a patient has an allergy assessment | 
| FileNo | Call Tags | 
|---|---|
| ^PS(50.605 - [#50.605] | FIND1^DIC | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZOSF("UPPERCASE" | ALLEGG+8, ALLTHRM+9, ALLINFL+9, ALLPNEU+9, ALLTETA+9, ALLCLOP+9, ALLWARF+9, ALLASP+9, ALLASP+16 | 
| ^GMR(120.8 - [#120.8] | ALLEGG+3, ALLEGG+4, ALLEGG+6, ALLEGG+8, ALLTHRM+3, ALLTHRM+4, ALLTHRM+6, ALLTHRM+9, ALLINFL+3, ALLINFL+4 , ALLINFL+6, ALLINFL+9, ALLPNEU+3, ALLPNEU+4, ALLPNEU+6, ALLPNEU+9, ALLTETA+3, ALLTETA+4, ALLTETA+6, ALLTETA+9 , ALLCLOP+3, ALLCLOP+4, ALLCLOP+6, ALLCLOP+9, ALLWARF+3, ALLWARF+4, ALLWARF+6, ALLWARF+9, ALLWARF+12, ALLASP+3 , ALLASP+4, ALLASP+6, ALLASP+9, ALLASP+14 | 
| ^GMR(120.86 - [#120.86] | ALL1+3 | 
| ^PS(50.416 - [#50.416] | ALLASP+15, ALLASP+16 | 
| ^PS(50.605 - [#50.605] | ALLWARF+13 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| AA | ALLEGG+1~, ALLEGG+2*, ALLEGG+4*, ALLEGG+6, ALLEGG+8, ALLEGG+9, ALLEGG+12!, ALLTHRM+1~, ALLTHRM+2*, ALLTHRM+4* , ALLTHRM+6, ALLTHRM+7, ALLTHRM+9, ALLTHRM+11!, ALLINFL+1~, ALLINFL+2*, ALLINFL+4*, ALLINFL+6, ALLINFL+7, ALLINFL+9 , ALLINFL+11!, ALLPNEU+1~, ALLPNEU+2*, ALLPNEU+4*, ALLPNEU+6, ALLPNEU+7, ALLPNEU+9, ALLPNEU+11!, ALLTETA+1~, ALLTETA+2* , ALLTETA+4*, ALLTETA+6, ALLTETA+7, ALLTETA+9, ALLTETA+11!, ALLCLOP+1~, ALLCLOP+2*, ALLCLOP+4*, ALLCLOP+6, ALLCLOP+7 , ALLCLOP+9, ALLCLOP+11!, ALLWARF+1~, ALLWARF+2*, ALLWARF+4*, ALLWARF+6, ALLWARF+7, ALLWARF+9, ALLWARF+12, ALLWARF+14! , ALLASP+1~, ALLASP+2*, ALLASP+4*, ALLASP+6, ALLASP+7, ALLASP+9, ALLASP+14, ALLASP+18! | 
| AJEY | ALL+5~, ALL+6*, ALL+8 | 
| BB | ALLWARF+1~, ALLWARF+11*, ALLWARF+12*, ALLWARF+13, ALLWARF+14!, ALLASP+1~, ALLASP+13*, ALLASP+14*, ALLASP+15, ALLASP+16 , ALLASP+18! | 
| CHECK | ALLBETA+2~*, ALLBETA+3*, ALLBETA+4*, ALLBETA+5, ALLBETA+6, ALLACE+2~*, ALLACE+3*, ALLACE+4*, ALLACE+5, ALLACE+6 , ALLARB+2~*, ALLARB+3*, ALLARB+4*, ALLARB+5, ALLARB+6 | 
| DATE | ALL1~, ALL1+1*, ALLEGG~, ALLEGG+11*, ALLTHRM~, ALLTHRM+10*, ALLINFL~, ALLINFL+10*, ALLPNEU~, ALLPNEU+10* , ALLTETA~, ALLTETA+10*, ALLCLOP~, ALLCLOP+10*, ALLWARF~, ALLWARF+10*, ALLASP~, ALLASP+10*, ALLASP+17*, ALLBETA~ , ALLBETA+1*, ALLACE~, ALLACE+1*, ALLARB~, ALLARB+1*, ALL~, ALL+7*, ALL+8* | 
| DFN | ALL1~, ALL1+3, ALLEGG~, ALLEGG+3, ALLEGG+4, ALLTHRM~, ALLTHRM+3, ALLTHRM+4, ALLINFL~, ALLINFL+3 , ALLINFL+4, ALLPNEU~, ALLPNEU+3, ALLPNEU+4, ALLTETA~, ALLTETA+3, ALLTETA+4, ALLCLOP~, ALLCLOP+3, ALLCLOP+4 , ALLWARF~, ALLWARF+3, ALLWARF+4, ALLASP~, ALLASP+3, ALLASP+4, ALL~, ALL+6 | 
| DT | ALL1+1, ALLEGG+11, ALLTHRM+10, ALLINFL+10, ALLPNEU+10, ALLTETA+10, ALLCLOP+10, ALLWARF+10, ALLASP+10, ALLASP+17 , ALLBETA+1, ALLACE+1, ALLARB+1, ALL+7 | 
| I | ALLBETA+2~, ALLBETA+3*, ALLACE+2~, ALLACE+3*, ALLARB+2~, ALLARB+3* | 
| INAC | ALLEGG+1~, ALLEGG+9*, ALLEGG+10, ALLTHRM+1~, ALLTHRM+7*, ALLTHRM+8, ALLINFL+1~, ALLINFL+7*, ALLINFL+8, ALLPNEU+1~ , ALLPNEU+7*, ALLPNEU+8, ALLTETA+1~, ALLTETA+7*, ALLTETA+8, ALLCLOP+1~, ALLCLOP+7*, ALLCLOP+8, ALLWARF+1~, ALLWARF+7* , ALLWARF+8, ALLASP+1~, ALLASP+7*, ALLASP+8 | 
| PSODFN | ALLBETA~, ALLBETA+6, ALLACE~, ALLACE+6, ALLARB~, ALLARB+6 | 
| TEST | ALL1~, ALL1+2*, ALL1+3*, ALLEGG~, ALLEGG+2*, ALLEGG+11*, ALLTHRM~, ALLTHRM+2*, ALLTHRM+10*, ALLINFL~ , ALLINFL+2*, ALLINFL+10*, ALLPNEU~, ALLPNEU+2*, ALLPNEU+10*, ALLTETA~, ALLTETA+2*, ALLTETA+10*, ALLCLOP~, ALLCLOP+2* , ALLCLOP+10*, ALLWARF~, ALLWARF+2*, ALLWARF+10*, ALLWARF+13*, ALLASP~, ALLASP+2*, ALLASP+10*, ALLASP+17*, ALLBETA~ , ALLBETA+5*, ALLBETA+6, ALLACE~, ALLACE+5*, ALLACE+6, ALLARB~, ALLARB+5*, ALLARB+6, ALL~, ALL+7* , ALL+8* | 
| TESTI | ALLEGG+1~, ALLEGG+12!, ALLTHRM+1~, ALLTHRM+11!, ALLINFL+1~, ALLINFL+11!, ALLPNEU+1~, ALLPNEU+11!, ALLTETA+1~, ALLTETA+11! , ALLCLOP+1~, ALLCLOP+11!, ALLWARF+1~, ALLWARF+14!, ALLASP+1~, ALLASP+18! | 
| TEXT | ALL1~, ALLEGG~, ALLEGG+2*, ALLEGG+11*, ALLTHRM~, ALLTHRM+2*, ALLTHRM+10*, ALLINFL~, ALLINFL+2*, ALLINFL+10* , ALLPNEU~, ALLPNEU+2*, ALLPNEU+10*, ALLTETA~, ALLTETA+2*, ALLTETA+10*, ALLCLOP~, ALLCLOP+2*, ALLCLOP+10*, ALLWARF~ , ALLWARF+2*, ALLWARF+10*, ALLWARF+13*, ALLASP~, ALLASP+2*, ALLASP+10*, ALLASP+17*, ALLBETA~, ALLBETA+5*, ALLBETA+6 , ALLACE~, ALLACE+5*, ALLACE+6, ALLARB~, ALLARB+5*, ALLARB+6, ALL~ | 
| VALUE | ALL1~, ALLEGG~, ALLTHRM~, ALLINFL~, ALLPNEU~, ALLTETA~, ALLCLOP~, ALLWARF~, ALLASP~, ALLBETA~ , ALLBETA+1*, ALLACE~, ALLACE+1*, ALLARB~, ALLARB+1*, ALL~ | 
| X | ALLEGG+1~, ALLEGG+8*, ALLEGG+12!, ALLTHRM+1~, ALLTHRM+9*, ALLTHRM+11!, ALLINFL+1~, ALLINFL+9*, ALLINFL+11!, ALLPNEU+1~ , ALLPNEU+9*, ALLPNEU+11!, ALLTETA+1~, ALLTETA+9*, ALLTETA+11!, ALLCLOP+1~, ALLCLOP+9*, ALLCLOP+11!, ALLWARF+1~, ALLWARF+9* , ALLWARF+14!, ALLASP+1~, ALLASP+9*, ALLASP+16*, ALLASP+18! | 
| Y | ALLEGG+1~, ALLEGG+11, ALLEGG+12!, ALLTHRM+1~, ALLTHRM+10, ALLTHRM+11!, ALLINFL+1~, ALLINFL+10, ALLINFL+11!, ALLPNEU+1~ , ALLPNEU+10, ALLPNEU+11!, ALLTETA+1~, ALLTETA+10, ALLTETA+11!, ALLCLOP+1~, ALLCLOP+10, ALLCLOP+11!, ALLWARF+1~, ALLWARF+10 , ALLWARF+14!, ALLASP+1~, ALLASP+10, ALLASP+17, ALLASP+18! |