©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
GMRADSP0 ;HIRMFO/WAA-DISPLAY ALLERGY ;9/6/95 11:06
Source file <GMRADSP0.m>
| Package | Total | Call Graph |
|---|---|---|
| Adverse Reaction Tracking | 2 | DISBLD^GMRADSP1 (DISPLAY,HEAD)^GMRADSP8 |
| Kernel | 1 | (T0,T1)^%ZOSV |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(GMRAL) | ; This routine will print all the reaction in the GMRAL array
; for the given DFN. ; Input variables: ; GMRAL = An array of all the patient allergies. |
|
| EXIT | ;Exit
|
|
| ALLTYP | ;Loop through the list created by the sort subroutine and print.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(120.8 - [#120.8] | EN1+14, EN1+15 |
| ^TMP($J | EN1+5!, EN1+16*, ALLTYP+2, ALLTYP+3, ALLTYP+4, EXIT+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| GMALN | ALLTYP+5~, ALLTYP+6, ALLTYP+7 |
| GMRAL | EN1~, EN1+13 |
| GMRAL( | EN1+13 |
| GMRALN | EN1+6~ |
| GMRANAME | EN1+6~, ALLTYP+3*, ALLTYP+4 |
| >> GMRAOSOF | EN1+8* |
| >> GMRAOUT | EN1+8*, ALLTYP+2, ALLTYP+3, ALLTYP+4, ALLTYP+7, ALLTYP+11*, EXIT+2* |
| GMRAPA | EN1+6~, EN1+13*, EN1+14, EN1+15, EN1+16, ALLTYP+4*, ALLTYP+6 |
| GMRAPA(0 | EN1+15*, EN1+16 |
| GMRATYPE | EN1+6~, ALLTYP+2*, ALLTYP+3, ALLTYP+4 |
| U | EN1+16 |
| >> XRT0 | EN1+9 |
| >> XRTL | EN1+7 |
| >> XRTN | EN1+9* |
| Name | Field # of Occurrence |
|---|---|
| $T( | EN1+9 |