BPXRMAL1 ;IHS/MSC/MGH - Handle Allergy findings for drugs ;30-Mar-2018 14:29;DU
Source file <BPXRMAL1.m>
| Package | Total | Call Graph | 
|---|---|---|
| Adverse Reaction Tracking | 2 | $$INACTIVE^GMRADSP6 $$NKA^GMRANKA | 
| National Drug File | 2 | $$CLIST^PSNAPIS ^PSNNGR | 
| VA Fileman | 2 | ($$FIND1,LIST)^DIC $$GET1^DIQ | 
| Outpatient Pharmacy | 1 | ^PSONGR | 
| Package | Total | Caller Graph | 
|---|---|---|
| IHS Mods To Patient Care Encounter | 1 | BPXRMALL | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| STATREM(PSODFN,TEST,DATE,VALUE,TEXT) | ;EP Statin computed allergy check added patch 1009 | |
| STING(GMRAAR,GMRAING,GMRADRCL,PSODRUG) | ; | |
| TEMP | ; MAKE YOUR TEMP GLOBAL OF TEMP(PARENT,CHILD)="" | |
| PICK1(ENTRY) | ;Part of expansion | |
| ALLER(PSODFN,CHECK,TEST,TEXT) | ; EP | |
| AAREM(PSODFN,TEST,DATE,VALUE,TEXT) | ; EP ACE/ARB COMPUTED ALLERGY CHECK RETURN TEST=1 IF ALLERGY | |
| TERM(TERM,RETURN) | ;GIVEN REMINDER TERM  RETURN THE STRING TO PASS TO ALLER | |
| PICK3(ENTRY) | ;THIS SHOULD BE EN | |
| PICK2(ENTRY) | ;Part of expansion | |
| REM(PSODFN,TEST,DATE,VALUE,TEXT) | ; EP YOU GIVE THE PSODFN AND THE TERM DEFINDED BELOW | |
| VACLASS(ENTRY,PICK) | ;EXPAND THE CLASSES | |
| TEST(AZOIT) | ;CHECK FOR ERRORS AND VERIFED STATUS | |
| ASAREM(PSODFN,TEST,DATE,VALUE,TEXT) | ; EP ASPIRIN COMPUTED ALLERGY CHECK RETURN TEST=1 IF ALLERGY | 
| FileNo | Call Tags | 
|---|---|
| ^PS(50.605 - [#50.605] | FIND1^DIC | 
| ^PXRMD(811.5 - [#811.5] | FIND1^DIC | 
| 811.52 | LIST^DIC | 
| ^PXD(811.9 - [#811.9] | GET1^DIQ | 
| 811.902 | LIST^DIC | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^GMR(120.8 - [#120.8] | ALLER+17, ALLER+20, ALLER+21, ALLER+24, ALLER+25, ALLER+28, ALLER+29, TEST+3 | 
| ^GMRD(120.82 - [#120.82] | STING+11, STING+12 | 
| ^PS(50.416 - [#50.416] | ALLER+21 | 
| ^PS(50.605 - [#50.605] | ALLER+25, STING+21, TEMP+2, TEMP+4, PICK1+3, PICK2+3, PICK3+2 | 
| ^PSDRUG - [#50] | ALLER+29, STING+15, STING+19, STING+20 | 
| ^TMP("PSN" | STING+25!, STING+30! | 
| ^TMP("PSO" | STING+17!, STING+30! | 
| Name | Line Occurrences | 
|---|---|
| $$TEST | ALLER+18 | 
| ALLER | AAREM+6, AAREM+10, REM+15, REM+21 | 
| PICK1 | VACLASS+6 | 
| PICK2 | PICK1+4 | 
| PICK3 | PICK2+4 | 
| REM | ASAREM+2, STATREM+2 | 
| STING | ALLER+13 | 
| TEMP | VACLASS+2 | 
| TERM | REM+13, REM+19 | 
| VACLASS | STING+8 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(0 | STING+11, STING+12 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| AZOCHECK | TEST+1~, TEST+2*, TEST+3*, TEST+6*, TEST+7 | 
| AZOIT | TEST~, TEST+3, TEST+5 | 
| CHECK | AAREM+2*, AAREM+4*, AAREM+5, AAREM+6, AAREM+8*, AAREM+9, AAREM+10, ALLER~, ALLER+13 | 
| CHILD | VACLASS+3~, VACLASS+4*, VACLASS+5, VACLASS+6, TEMP+1~, TEMP+2*, TEMP+3, TEMP+4, TEMP+6, PICK1+1~ , PICK1+2*, PICK1+3, PICK1+4, PICK2+1~, PICK2+2*, PICK2+3, PICK2+4, PICK3+1~*, PICK3+2 | 
| CLASS | ALLER+12!, ALLER+13, STING+27~, STING+28* | 
| CLASS( | ALLER+25 | 
| CLASSIEN | ALLER+23~, ALLER+24*, ALLER+25 | 
| DATE | ASAREM~, ASAREM+2, STATREM~, STATREM+2, AAREM~, AAREM+2*, REM~, REM+5*, ALLER+21*, ALLER+25* , ALLER+29* | 
| DRUG | ALLER+12!, ALLER+13 | 
| DRUG( | ALLER+29 | 
| DRUGIEN | ALLER+27~, ALLER+28*, ALLER+29 | 
| DT | AAREM+2, REM+5, ALLER+21, ALLER+25, ALLER+29 | 
| ENTRY | VACLASS~, VACLASS+4, VACLASS+6, PICK1~, PICK1+2, PICK1+4, PICK2~, PICK2+2, PICK2+4, PICK3~ , PICK3+1 | 
| FINDINGS | TERM+2~, TERM+7* | 
| FINDINGS( | TERM+8, TERM+10 | 
| GMRAAR | ALLER+13*, STING~, STING+6, STING+8, STING+10, STING+11, STING+12, STING+14, STING+15, STING+17 , STING+19, STING+20, STING+23, STING+25, STING+28 | 
| GMRADRCL | STING~, STING+8, STING+28 | 
| GMRADRCL( | STING+12*, STING+19*, STING+21* | 
| GMRAING | STING~ | 
| GMRAING( | STING+6*, STING+11*, STING+17*, STING+25* | 
| GMRAX | STING+18~, STING+19*, STING+20*, STING+21 | 
| GMRAY | STING+18~, STING+21* | 
| I | AAREM+3*, AAREM+4, AAREM+7*, AAREM+8, REM+6~, REM+10*, REM+12*, ALLER+13* | 
| IEN | TERM+2~, TERM+8*, TERM+10, ALLER+16~, ALLER+17*, ALLER+18, ALLER+20, ALLER+21, ALLER+24, ALLER+25 , ALLER+28, ALLER+29 | 
| INAC | TEST+1~, TEST+5*, TEST+6 | 
| ING | ALLER+12!, ALLER+13 | 
| ING( | ALLER+21 | 
| INGIEN | ALLER+19~, ALLER+20*, ALLER+21 | 
| PARENT | TEMP+1~, TEMP+4*, TEMP+5, TEMP+6 | 
| PICK | VACLASS~ | 
| PICK( | VACLASS+5*, PICK1+3*, PICK2+3*, PICK3+2* | 
| PSNDA | STING+24~, STING+25* | 
| PSNID | STING+30! | 
| PSODA | STING+16~, STING+17* | 
| PSODFN | ASAREM~, ASAREM+2, STATREM~, STATREM+2, AAREM~, AAREM+6, AAREM+10, REM~, REM+15, REM+21 , ALLER~, ALLER+9, ALLER+17 | 
| PSODRUG | STING~ | 
| PSODRUG( | STING+15* | 
| PSOID | STING+30! | 
| >> PXRMITEM | REM+8, REM+11, REM+14 | 
| REACTION | ALLER+7~, ALLER+9*, ALLER+10, ALLER+11 | 
| RESULT | REM+6~ | 
| RETURN | REM+13, REM+14, REM+15, REM+19, REM+20, REM+21, TERM~, TERM+3!, TERM+10*, TERM+11* | 
| TARLONG | TERM+2~ | 
| TARLONG("DILIST" | TERM+7 | 
| TEMP | VACLASS+1~ | 
| TEMP( | VACLASS+4, TEMP+3*, TEMP+6*, PICK1+2, PICK2+2, PICK3+1 | 
| TERM | ASAREM+1*, STATREM+1*, REM+7, REM+12*, REM+13, REM+19, REM+20, TERM~, TERM+4, TERM+5 | 
| TERMIEN | TERM+2~, TERM+4*, TERM+5, TERM+6 | 
| TERMLONG | REM+6~ | 
| TERMLONG("DILIST" | REM+9 | 
| TERMS | REM+6~, REM+9*, REM+11 | 
| TERMS( | REM+10!, REM+12 | 
| TEST | ASAREM~, ASAREM+2, STATREM~, STATREM+2, AAREM~, AAREM+5*, AAREM+9*, AAREM+11*, AAREM+12*, REM~ , REM+11*, REM+12, REM+14*, REM+15, REM+20*, REM+21, TERM+5*, ALLER~, ALLER+8*, ALLER+17 , ALLER+20, ALLER+21*, ALLER+22, ALLER+24, ALLER+25*, ALLER+26, ALLER+29* | 
| TEST1 | AAREM+1~, AAREM+6, AAREM+11 | 
| TEST2 | AAREM+1~, AAREM+10, AAREM+11 | 
| TEXT | ASAREM~, ASAREM+2, STATREM~, STATREM+2, AAREM~, AAREM+5*, AAREM+9*, AAREM+11*, AAREM+12*, REM~ , REM+11*, REM+14*, REM+15, REM+20*, REM+21, TERM+5*, ALLER~, ALLER+8*, ALLER+10*, ALLER+11* , ALLER+21*, ALLER+25*, ALLER+29* | 
| TEXT1 | AAREM+1~, AAREM+6 | 
| TEXT2 | AAREM+1~, AAREM+10 | 
| U | STING+19, STING+20 | 
| VALUE | ASAREM~, ASAREM+2, STATREM~, STATREM+2, AAREM~, AAREM+1~, AAREM+2*, REM~, REM+5* | 
| Y | STING+5~, STING+11*, STING+12*, STING+17*, STING+25* |