©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
GMRADPT ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;18-Mar-2011 10:56;MGH
Source file <GMRADPT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHK(GMRAIEN) | ;IHS/MSC/MGH Check to see if this allergy is inactive
|
|
| EN1 | ; ENTRY TO GATHER PATIENT A/AR DATA
|
|
| SETAL | ;
|
|
| DPT | ;
|
|
| PASS(GMRAREC,GMRAL) | ; Data filer
; This subroutine will store all the patient date for a reaction is an ; array. ; Input: ; GMRAREC = The IEN for the entry in 120.8 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(120.8 - [#120.8] | DPT+5, SETAL+3, PASS+9, PASS+10, PASS+11, PASS+13, PASS+19, PASS+21, PASS+22, PASS+24 , PASS+25, CHK+4, CHK+5, CHK+6 |
| ^GMR(120.86 - [#120.86] | DPT+2 |
| ^GMRD(120.83 - [#120.83] | PASS+20, PASS+23 |
| Name | Line Occurrences |
|---|---|
| $$CHK | SETAL+4 |
| PASS | SETAL+16 |
| SETAL | DPT+5 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | DPT+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SETAL+1~, SETAL+14*, PASS+14*, PASS+15, PASS+16 |
| CHK | SETAL+1~, SETAL+4*, SETAL+5 |
| >> DFN | EN1+64, DPT+2, DPT+5 |
| GMRA | EN1+64*, DPT+7!, SETAL+8, SETAL+9, SETAL+12, SETAL+14, CHK+3 |
| >> GMRAERR | SETAL+3 |
| GMRAI | SETAL+1~, SETAL+7*, SETAL+8*, SETAL+9*, SETAL+10*, SETAL+11, SETAL+13*, SETAL+14*, SETAL+15 |
| GMRAIEN | CHK~, CHK+4, CHK+5, CHK+6 |
| GMRAIN | PASS+8~ |
| GMRAL | EN1+64!, DPT+2*, DPT+4, DPT+6*, SETAL+6*, SETAL+16, PASS~ |
| GMRAL( | PASS+15*, PASS+16*, PASS+17*, PASS+18*, PASS+21* |
| GMRAL(0 | DPT+6 |
| GMRANODE | DPT+5*, DPT+7!, SETAL+9, SETAL+10, SETAL+12, SETAL+14, PASS+8~, PASS+9*, PASS+14, PASS+15 , PASS+16, PASS+17 |
| GMRAOSOF | DPT+7! |
| GMRAOTH | EN1+63~, PASS+20*, PASS+23 |
| GMRAREC | DPT+5*, DPT+7!, SETAL+3, SETAL+4, SETAL+16, PASS~, PASS+9, PASS+10, PASS+11, PASS+13 , PASS+15, PASS+16, PASS+17, PASS+18, PASS+19, PASS+21, PASS+22, PASS+24, PASS+25 |
| GMRASIGN | SETAL+1~ |
| GMRASNO | PASS+8~, PASS+11*, PASS+18 |
| GMRASRC | PASS+8~, PASS+10*, PASS+18 |
| GMRATCNT | DPT+7! |
| GMRAX | PASS+8~, PASS+21*, PASS+22, PASS+24, PASS+25 |
| GMRAY | PASS+8~, PASS+21* |
| GMRAY2 | PASS+8~ |
| GMRAZ | PASS+8~, PASS+21, PASS+22*, PASS+23 |
| GMRAZ(1 | PASS+21, PASS+23*, PASS+26* |
| GMRAZ2 | PASS+8~ |
| GMRAZSRC | PASS+8~, PASS+24*, PASS+26 |
| GMRAZT | PASS+8~, PASS+25*, PASS+26 |
| GMRINODE | PASS+8~, PASS+13* |
| GMTAZT | PASS+8~ |
| INACT | CHK+1~, CHK+5*, CHK+7 |
| INZ | CHK+1~, CHK+2*, CHK+7*, CHK+8 |
| REACT | CHK+1~, CHK+6*, CHK+7 |
| U | DPT+2, PASS+10, PASS+11, PASS+23, PASS+24, PASS+25, PASS+26, CHK+3, CHK+5, CHK+6 |
| Z | CHK+1~, CHK+4*, CHK+5, CHK+6 |