©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
GMRAWORD ;HIRMFO/YMP,RM,WAA- WORD DATA TO HISTORICAL STORAGE ;12/1/95 13:45
Source file <GMRAWORD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DISP1(GMRAPA,GMRAKIND,WID) | ;Display comments and reaction for a reaction
; Input variables: ; GMRAPA = Reaction IEN in 120.8 ; GMRAKIND = Kind of comment to display ; O is Originator ; V is Verifier ; E is Entered in Error ; WID = Width of the array |
|
| WORD(GMRAPA,COMM,WID) | ; PASS THE DATA TO AN ARRAY
; Input variables: ; GMRAPA = Reaction IEN in 120.8 ; COMM = Kind of comment to display ; O is Originator ; V is Verifier ; E is Entered in Error ; ARRAY = Merge arrat for the text ; WID = Width of the array |
|
| BLD | ; BUILD THE DATA
|
| Name | Field # of Occurrence |
|---|---|
| ^DIWP | BLD+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(120.8 - [#120.8] | DISP1+8, DISP1+9, DISP1+10, BLD+2, BLD+5 |
| ^TMP($J | WORD+13*, WORD+14* |
| ^UTILITY($J | WORD+11!, WORD+13, WORD+14, BLD+4! |
| Name | Line Occurrences |
|---|---|
| BLD | DISP1+11 |
| DISP1 | WORD+12 |
| Name | Field # of Occurrence |
|---|---|
| ^( | BLD+5 |
| ^(0 | DISP1+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COMM | WORD~, WORD+11, WORD+12, WORD+13 |
| >> DIWF | BLD+3* |
| DIWL | WORD+9~, WORD+12, WORD+13, WORD+14, BLD+3*, BLD+4 |
| >> DIWR | BLD+3* |
| GMRACNT | WORD+9~, WORD+10*, WORD+13*, WORD+14* |
| GMRAKIND | DISP1~, DISP1+8, DISP1+9 |
| >> GMRAOUT | DISP1+9 |
| GMRAPA | WORD~, WORD+12, DISP1~, DISP1+8, DISP1+9, DISP1+10, BLD+2, BLD+5 |
| GMRAT | BLD+1~* |
| >> GMRAX | DISP1+9*, DISP1+10, BLD+2, BLD+5 |
| >> GMRAXX | BLD+5* |
| >> GMRAY | DISP1+10* |
| GMRAYY | WORD+9~, WORD+11*, WORD+12, WORD+13 |
| >> GMRAZ | DISP1+10* |
| GMRAZN | BLD+1~* |
| U | DISP1+10 |
| WID | WORD~, WORD+12, DISP1~, BLD+3 |
| >> X | BLD+5* |
| Y | WORD+9~, WORD+14* |