©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
GMRANKA ;HIRMFO/WAA-ALLERGY/ADVERSE REACTION PATIENT NKA DRIVE ;01-Aug-2013 16:39;DU
Source file <GMRANKA.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | ^DIC ^DIE ^DIK ^DIR |
| Adverse Reaction Tracking | 2 | WRITE^GMRADSP8 ($$NKA,CLN)^GMRANKA |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INFO | ; Info string
|
|
| NKAASK(DFN,GMRAOUT) | ; Ask a Patient if patient has any known allergens
; Input Variables ; DFN = Patient Internal entry number ; GMRAOUT = Up Caret or time out flag |
|
| CLN | ; Clean out entries that have not been answered.
|
|
| NKASCR(DFN) | ; Is Patient NKA (No Known Allergy)
; Input Variable: ; DFN = Patient DFN in Patient file |
|
| DELNKA | ;Remove assessment of NKA for a selected patient
|
|
| NKA(DFN) | ;See if patient has reaction on file
; Input Variables: ; DFN = Patient Internal Entry Number |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^GMR(120.86 - [#120.86] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(120.8 - [#120.8] | NKASCR+12, NKASCR+13 |
| ^GMR(120.86 - [#120.86] | NKA+9, NKAASK+7, NKAASK+10 |
| Name | Line Occurrences |
|---|---|
| CLN | NKAASK+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | NKAASK+20~, NKAASK+23*, CLN+1*! |
| DFN | NKA~, NKA+9, NKAASK~, NKAASK+7, NKAASK+10, NKAASK+23, NKAASK+24, CLN+1, NKASCR~, NKASCR+12 , DELNKA+1~, DELNKA+3*, DELNKA+5 |
| DIC | DELNKA+1~, DELNKA+2* |
| DIC("A" | DELNKA+2* |
| DIC(0 | DELNKA+2* |
| DIE | NKAASK+20~, NKAASK+23* |
| DIK | CLN+1*! |
| DIR | NKAASK+6~, DELNKA+1~ |
| DIR("?" | NKAASK+11*, DELNKA+7* |
| DIR("A" | NKAASK+9*, DELNKA+6* |
| DIR("B" | NKAASK+10*!, DELNKA+6* |
| DIR(0 | NKAASK+8*, DELNKA+6* |
| DIROUT | NKAASK+6~, NKAASK+14 |
| DIRUT | NKAASK+6~ |
| DR | NKAASK+20~, NKAASK+24* |
| DTOUT | NKAASK+6~, NKAASK+14 |
| DUOUT | NKAASK+6~, NKAASK+15 |
| DUZ | NKAASK+24 |
| >> GMA | NKA+8*, NKA+9*, NKA+10, NKASCR+9*, NKASCR+12, NKASCR+14*, NKASCR+16 |
| GMAOLD | NKAASK+6~, NKAASK+7*, NKAASK+11, NKAASK+13, NKAASK+17, NKAASK+18, NKAASK+24 |
| GMASTR | INFO+1~, INFO+8 |
| GMASTR(1 | INFO+2* |
| GMASTR(2 | INFO+3* |
| GMASTR(3 | INFO+4* |
| GMASTR(4 | INFO+5* |
| GMASTR(5 | INFO+6* |
| GMAX | NKASCR+10~, NKASCR+11*, NKASCR+12*, NKASCR+13 |
| GMRAOUT | NKAASK~, NKAASK+14*, NKAASK+15* |
| SNOMED | NKAASK+6~, NKAASK+21*, NKAASK+22*, NKAASK+24 |
| U | NKA+9, NKAASK+7, NKAASK+10 |
| >> X | NKAASK+13 |
| Y | NKAASK+6~, NKAASK+17, NKAASK+18, NKAASK+21, NKAASK+22, NKAASK+24, DELNKA+1~, DELNKA+2, DELNKA+3, DELNKA+9 |
| Y(0 | DELNKA+6 |