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! |