©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMRAOR ;HIRMFO/WAA,RM-OERR UTILITIES ;31-Dec-2012 12:12;DU
Source file <GMRAOR.m>
| Package | Total | Call Graph |
|---|---|---|
| National Drug File | 3 | ZERO^PSN50P41 ($$CLASS2,$$CLIST,$$DCLCODE)^PSNAPIS (,DISPDRG)^PSNNGR |
| Adverse Reaction Tracking | 2 | $$SETNODE^GMRAOR1 ($$CLP2CODE,$$CODE2CL)^GMRAPENC |
| Kernel | 2 | ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$VERSION^XPDUTL |
| Toolkit | 2 | $$GET^XPAR GETIREF^XTID |
| Order Entry Results Reporting | 1 | ($$GET,$$HAVEHDR,HAVEHDR)^ORRDI1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDATA(DFN) | ;Obtain local and HDR related allergy data for use in order checking. Section added in patch 26
|
|
| ING(DFN,PTR,REAC,COMM) | ; Subroutine checks for Drug Ingredients, returns:
; If found FLG= 1 with GMRAIEN Array Drug Ingredients ; Not found FLG= 0 |
|
| GETREAC(ALG,GMRAREAC) | ;IHS/MSC/MGH for reactions Patch 1006
|
|
| LOCAL(DFN) | ;
|
|
| PRIMARY(INGIEN) | ;check if INGIEN is a primary ingredient
|
|
| FIND(REACT,ING,DC) | ;If reactant didn't include drug classes and/or ingredients, try and find them locally. Section added in patch 26
|
|
| ACTIVE(ALL) | ;Check allergy to see if it is inactive
|
|
| DRCL(CODE,REAC,COMM) | ;return any rxn's in GMRADRCL(
|
|
| CLASS(DFN,PTR,REAC,COMM) | ; Subroutine checks for Drug Class, returns:
; If found FLG= 1 with GMRAIEN Array Drug Class ; Not found FLG= 0 |
|
| GETCOM(ALG,GMRACOM) | ;IHS/MSC/MGH for comments Patch 1006
|
|
| ORCHK(DFN,TYP,PTR,LOC,REAC,COMM) | ; Given a patient IEN (DFN), this function will
; return 1 (true) if the patient has an allergy to an agent defined ; by TYP and PTR, else it returns 0 (false). See table below. ; The Contrast Media Reaction check will return a null if the patient ; is not in the ART database. Contrast Media checks will also ; return whether the check is from local or remote data as the second ; piece of the flag if LOC is defined as a positive integer |
|
| FAC(NODE) | ;
|
|
| DRUG(DFN,PTR,REAC,COMM) | ; Subroutine checks for Drug Reaction, returns 1 or 0.
|
|
| NDFREF() | ;get version dependent NDF reference
|
|
| REMOTE(DFN) | ;
|
|
| RAD(DFN) | ; Subroutine checks for Contrast Media Reaction, returns 1 or 0.
|
| Name | Field # of Occurrence |
|---|---|
| $$SETNODE^GMRAOR1 | LOCAL+5, LOCAL+17, REMOTE+14, REMOTE+20, REMOTE+22, REMOTE+23 |
| $$CLP2CODE^GMRAPENC | CLASS+5 |
| $$CODE2CL^GMRAPENC | DRCL+10 |
| $$GET^ORRDI1 | REMOTE+4 |
| $$HAVEHDR^ORRDI1 | REMOTE+3 |
| HAVEHDR^ORRDI1 | REMOTE+3 |
| ZERO^PSN50P41 | PRIMARY+5 |
| $$CLASS2^PSNAPIS | FIND+17, FIND+19 |
| $$CLIST^PSNAPIS | DRUG+35, FIND+13 |
| $$DCLCODE^PSNAPIS | DRUG+33 |
| ^PSNNGR | DRUG+19, FIND+10 |
| DISPDRG^PSNNGR | DRUG+7, DRUG+8 |
| $$FMADD^XLFDT | GETDATA+17 |
| $$FMDIFF^XLFDT | GETDATA+10 |
| $$FMTE^XLFDT | GETREAC+9 |
| $$NOW^XLFDT | GETDATA+10, GETDATA+17 |
| $$GET^XPAR | GETDATA+9 |
| $$VERSION^XPDUTL | NDFREF+1 |
| GETIREF^XTID | REMOTE+13, FIND+6 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BEHOAR(90460.05 - [#90460.05] | GETREAC+11 |
| ^GMR(120.8 - [#120.8] | DRUG+11, DRUG+22, DRCL+4, ING+7, ING+8, CLASS+6, LOCAL+2, LOCAL+3, LOCAL+6, LOCAL+14 , LOCAL+15, LOCAL+18, ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6, GETREAC+5, GETREAC+8, GETREAC+10, GETCOM+3 , GETCOM+6, GETCOM+7 |
| ^GMR(120.86 - [#120.86] | RAD+2 |
| ^GMRD(120.82 - [#120.82] | FIND+16, FIND+17 |
| ^GMRD(120.83 - [#120.83] | GETREAC+4, GETREAC+9 |
| ^TMP("GMRAOC" | RAD+2, RAD+4, RAD+5, DRUG+9, DRUG+13, DRUG+20, DRUG+24, DRCL+2, DRCL+11, GETDATA+15! , GETDATA+16* |
| ^TMP("PSN" | DRUG+19!, DRUG+20, DRUG+24, DRUG+27!, FIND+10!, FIND+11, FIND+12! |
| ^TMP("PSNDD" | DRUG+8!, DRUG+9, DRUG+13, DRUG+16! |
| ^TMP($J | PRIMARY+4!, PRIMARY+6 |
| ^XTMP("GMRAOC" | GETDATA+5, GETDATA+11, GETDATA+12, GETDATA+13!, GETDATA+14!, GETDATA+16, GETDATA+17*, GETDATA+18, LOCAL+5*, LOCAL+10* , LOCAL+13*, LOCAL+17*, LOCAL+22*, LOCAL+25*, REMOTE+14*, REMOTE+20*, REMOTE+22*, REMOTE+23*, REMOTE+24, REMOTE+26 , REMOTE+29!, REMOTE+30* |
| ^XTMP("ORRDI" | GETDATA+8, GETDATA+10, REMOTE+5, REMOTE+7, REMOTE+8, REMOTE+10, REMOTE+16, REMOTE+18 |
| Name | Line Occurrences |
|---|---|
| $$ACTIVE | DRUG+12, DRUG+23, DRCL+5, ING+9, CLASS+8, LOCAL+4, LOCAL+16 |
| $$CLASS | ORCHK+23 |
| $$DRUG | ORCHK+21 |
| $$FAC | DRUG+13, DRUG+24, DRCL+11 |
| $$ING | ORCHK+22 |
| $$NDFREF | DRUG+4 |
| $$PRIMARY | REMOTE+28 |
| $$RAD | ORCHK+20 |
| DRCL | DRUG+33, DRUG+36 |
| FIND | REMOTE+21 |
| GETCOM | DRUG+15, DRUG+26, DRCL+13, ING+12, CLASS+11, LOCAL+8, LOCAL+20 |
| GETDATA | ORCHK+19 |
| GETREAC | DRUG+14, DRUG+25, DRCL+12, ING+11, CLASS+10, LOCAL+7, LOCAL+19 |
| LOCAL | GETDATA+13, GETDATA+14 |
| REMOTE | GETDATA+14 |
| Name | Field # of Occurrence |
|---|---|
| ^( | REMOTE+11, REMOTE+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | DRUG+1~, DRUG+9*, DRUG+13*, DRUG+20*, DRUG+24*, GETREAC+5*, GETCOM+3* |
| ACOM | LOCAL+1~, LOCAL+8!, LOCAL+20! |
| ACOM( | LOCAL+11, LOCAL+12, LOCAL+13, LOCAL+23, LOCAL+24, LOCAL+25 |
| ALG | GETREAC~, GETREAC+5, GETREAC+8, GETREAC+10, GETCOM~, GETCOM+3, GETCOM+6, GETCOM+7 |
| ALL | ACTIVE~, ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6 |
| AREAC | LOCAL+7!, LOCAL+19! |
| AREAC( | LOCAL+9, LOCAL+10, LOCAL+21, LOCAL+22 |
| CLASS | DRUG+32~, DRUG+33*, DRUG+34~ |
| CLSFN | DRCL+8~, DRCL+10*, DRCL+11 |
| CNT | GETREAC+1!, GETREAC+3*, GETREAC+7*, GETREAC+9, GETREAC+11, GETCOM+1!, GETCOM+2*, GETCOM+5*, GETCOM+7 |
| CODE | DRCL~, DRCL+2, DRCL+4, DRCL+10, DRCL+11 |
| COMM | ORCHK~, ORCHK+16*, ORCHK+21, ORCHK+22, ORCHK+23, DRUG~, DRUG+15, DRUG+26, DRUG+33, DRUG+36 , DRCL~, DRCL+13, ING~, ING+12, CLASS~, CLASS+11 |
| DA | ORCHK+14~ |
| DC | RAD+1~, RAD+2*, RAD+4, RAD+5, REMOTE+1~, REMOTE+18*, REMOTE+19, FIND~ |
| DC( | FIND+14*, FIND+17*, FIND+19* |
| DCLASS | REMOTE+1~, REMOTE+19*, REMOTE+20 |
| DFN | ORCHK~, ORCHK+17, ORCHK+19, ORCHK+20, ORCHK+21, ORCHK+22, ORCHK+23, RAD~, RAD+2, DRUG~ , DRUG+11, DRUG+22, DRCL+4, ING~, ING+7, ING+8, CLASS~, CLASS+6, GETDATA~, GETDATA+5 , GETDATA+8, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14, GETDATA+16, GETDATA+17, GETDATA+18, LOCAL~ , LOCAL+2, LOCAL+3, LOCAL+5, LOCAL+6, LOCAL+10, LOCAL+13, LOCAL+14, LOCAL+15, LOCAL+17, LOCAL+18 , LOCAL+22, LOCAL+25, REMOTE~, REMOTE+4, REMOTE+5, REMOTE+7, REMOTE+8, REMOTE+10, REMOTE+14, REMOTE+16 , REMOTE+18, REMOTE+20, REMOTE+22, REMOTE+23, REMOTE+24, REMOTE+26, REMOTE+29, REMOTE+30 |
| FAC | FAC+1~, FAC+2*, FAC+3 |
| FILE | REMOTE+1~, REMOTE+11*, REMOTE+12*, REMOTE+13, REMOTE+14, FIND+1~, FIND+4*, FIND+5*, FIND+7*, FIND+8 , FIND+9, FIND+15, FIND+18, FIND+20 |
| FLAG | FIND+1~, FIND+2* |
| FLG | RAD+1~, RAD+2*, RAD+3*, RAD+11, DRUG+1~*, DRUG+13*, DRUG+24*, DRUG+29, DRUG+38, DRCL+14* , ING+4*, ING+10*, ING+14, CLASS+5*, CLASS+9*, CLASS+12, REMOTE+1~, REMOTE+6*, REMOTE+9*, REMOTE+17* |
| GMRAC | DRUG+1~, CLASS+3~, CLASS+5*, CLASS+6 |
| GMRACM | ORCHK+14~, ORCHK+20, RAD+6* |
| GMRACOM | DRUG+2!, DRUG+15, DRUG+26, ING+12, CLASS+11, GETCOM~, GETCOM+1! |
| GMRACOM( | GETCOM+7* |
| GMRADC | REMOTE+1~, REMOTE+21 |
| GMRADC( | REMOTE+23 |
| GMRADR | DRUG+1~ |
| GMRADRCL | DRUG+2!, DRCL+6 |
| GMRADRCL( | DRCL+11* |
| GMRADRCL(999 | DRCL+6 |
| GMRAFLG | ORCHK+14~, ORCHK+15*, ORCHK+17*, ORCHK+20*, ORCHK+21*, ORCHK+22*, ORCHK+23*, ORCHK+25 |
| GMRAI | DRUG+1~, DRUG+9*, DRUG+11, DRUG+13, DRUG+20*, DRUG+22, DRUG+24, ING+8, FIND+1~, FIND+11* |
| GMRAIC | GETCOM+1!, GETCOM+3*, GETCOM+6, GETCOM+7 |
| GMRAIEN | ING+3!, CLASS+3!, FIND+1~, FIND+8*, FIND+10, FIND+13, FIND+16, FIND+17, FIND+19, FIND+21 |
| GMRAIEN( | ING+10*, CLASS+9* |
| GMRAII | GETREAC+1!, GETREAC+5*, GETREAC+8, GETREAC+10 |
| GMRAING | DRUG+2!, REMOTE+1~, REMOTE+21 |
| GMRAING( | DRUG+13*, DRUG+24*, REMOTE+22 |
| GMRALIST | DRUG+34~, DRUG+35*, DRUG+36*, FIND+1~, FIND+13*, FIND+14* |
| GMRALIST( | DRUG+36, FIND+14 |
| GMRAOTH | GETREAC+1!, GETREAC+4*, GETREAC+9 |
| GMRARAY | REMOTE+1~, REMOTE+15!, FIND+1~, FIND+12! |
| GMRARAY( | REMOTE+14, FIND+7, FIND+8 |
| GMRAREAC | DRUG+2!, DRUG+14, DRUG+25, ING+3!, ING+11, CLASS+10, GETREAC~, GETREAC+1! |
| GMRAREAC( | GETREAC+9*, GETREAC+11* |
| GMRAX | ING+3~, ING+5*, ING+7*, ING+10, ING+11, ING+12, CLASS+3~, CLASS+5*, CLASS+6*, CLASS+8 , CLASS+9, CLASS+10, CLASS+11 |
| GMRAZ | GETREAC+6~, GETREAC+8*, GETREAC+9, GETCOM+4~, GETCOM+6* |
| GMRCACHE | GETDATA+6~, GETDATA+9*, GETDATA+10 |
| GMRFRESH | GETDATA+6~, GETDATA+7*, GETDATA+10*, GETDATA+13, GETDATA+14 |
| GMRNEW | GETDATA+6~, GETDATA+7*, GETDATA+12*, GETDATA+13, GETDATA+14 |
| GMRRECDT | GETDATA+6~, GETDATA+8*, GETDATA+10 |
| GMRXTMP | GETDATA+6~, GETDATA+7*, GETDATA+11*, GETDATA+13, GETDATA+14 |
| I | REMOTE+1~, REMOTE+25~, REMOTE+26*, REMOTE+28, REMOTE+29, REMOTE+30* |
| IEN | REMOTE+1~, REMOTE+14* |
| IN | REMOTE+1~, REMOTE+10*, REMOTE+11, ACTIVE+1~, ACTIVE+2*, ACTIVE+3, ACTIVE+7*, ACTIVE+8 |
| INACT | ACTIVE+1~, ACTIVE+5*, ACTIVE+7 |
| ING | FIND~ |
| ING( | FIND+11*, FIND+16*, FIND+21* |
| INGIEN | PRIMARY~, PRIMARY+5, PRIMARY+6 |
| INGLST | REMOTE+1~, REMOTE+25~ |
| INGLST( | REMOTE+29*, REMOTE+30 |
| J | DRUG+1~, DRCL+6~*, DRCL+11, LOCAL+1~, LOCAL+2*, LOCAL+3, LOCAL+5, LOCAL+6, LOCAL+10, LOCAL+13 , LOCAL+14*, LOCAL+15, LOCAL+17, LOCAL+18, LOCAL+22, LOCAL+25, REMOTE+1~, REMOTE+5*, REMOTE+7, REMOTE+8 , REMOTE+10, REMOTE+16, REMOTE+18, FIND+1~ |
| K | LOCAL+1~, LOCAL+6*, LOCAL+7, LOCAL+8, LOCAL+18*, LOCAL+19, LOCAL+20, REMOTE+1~, REMOTE+22*, REMOTE+23* |
| L | LOCAL+1~, LOCAL+9*, LOCAL+10, LOCAL+11*, LOCAL+12, LOCAL+13, LOCAL+21*, LOCAL+22, LOCAL+23*, LOCAL+24 , LOCAL+25 |
| LIST | FIND+1~ |
| LOC | ORCHK~, ORCHK+20 |
| LOCAL | RAD+1~, RAD+4*, RAD+6 |
| M | LOCAL+1~, LOCAL+12*, LOCAL+13, LOCAL+24*, LOCAL+25 |
| NAREAC | LOCAL+1~ |
| NODE | FAC~, FAC+2 |
| PRIM | REMOTE+1~, REMOTE+27~, REMOTE+28*, REMOTE+29 |
| PSNDA | DRUG+1~, DRUG+3*, DRUG+4, DRUG+31*, DRUG+33, DRUG+35, FIND+1~, FIND+10*, FIND+13* |
| PSNVPN | DRUG+1~, DRUG+3*, DRUG+7, DRUG+31*, DRUG+33 |
| PTR | ORCHK~, ORCHK+17, ORCHK+21, ORCHK+22, ORCHK+23, DRUG~, DRUG+3, DRUG+31, ING~, ING+7 , CLASS~, CLASS+5 |
| REAC | ORCHK~, ORCHK+16*, ORCHK+21, ORCHK+22, ORCHK+23, DRUG~, DRUG+14, DRUG+25, DRUG+33, DRUG+36 , DRCL~, DRCL+12, ING~, ING+11, CLASS~, CLASS+10 |
| REACT | REMOTE+1~, REMOTE+7*, REMOTE+21, FIND~, FIND+3, FIND+4, ACTIVE+1~, ACTIVE+6*, ACTIVE+7 |
| REMOTE | RAD+1~, RAD+5*, RAD+6 |
| RETURN | PRIMARY+3~, PRIMARY+6*, PRIMARY+7 |
| SSRC | GETREAC+6~, GETREAC+10*, GETREAC+11 |
| SUB | FIND+1~, FIND+16*, FIND+17* |
| TYP | ORCHK~, ORCHK+17, ORCHK+20, ORCHK+21, ORCHK+22, ORCHK+23 |
| U | RAD+2, DRUG+36, GETDATA+8, GETDATA+10, GETDATA+17, REMOTE+11, REMOTE+19, FIND+3, FIND+4, FIND+14 , FIND+16, FIND+17, FIND+19, ACTIVE+5, ACTIVE+6, GETREAC+9, GETREAC+10, GETREAC+11 |
| VUID | REMOTE+1~, REMOTE+11*, REMOTE+13, FIND+1~, FIND+3*, FIND+6 |
| X1 | DRUG+1~, DRUG+11*, DRUG+12, DRUG+14, DRUG+15, DRUG+22*, DRUG+23, DRUG+25, DRUG+26, DRCL+1~ , DRCL+4*, DRCL+5, DRCL+12, DRCL+13, ING+8*, ING+9, LOCAL+1~, LOCAL+3*, LOCAL+4, LOCAL+15* , LOCAL+16 |
| Z | ACTIVE+1~, ACTIVE+4*, ACTIVE+5, ACTIVE+6 |
| Name | Field # of Occurrence |
|---|---|
| $T(DISPDRG^PSNNGR | DRUG+7 |
| $T(HAVEHDR^ORRDI1 | REMOTE+3 |