MAGDGMRC ;WOIFO/PMK,EdM,MLH,DAC - Read a DICOM image file ; Nov 08, 2019@10:50:30
Source file <MAGDGMRC.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ANYREQ(DFN) | ; check if any GMRC requests are present for the patient
|
|
| TIULAST(GMRCIEN) | ; find the ien of the most recent TIU note for this request
|
|
| TIUALL(GMRCIEN,RESULT) | ; find all IENs for the TIU notes for this request
|
|
| FWDFROM(GMRCIEN) | ; for a forwarded request, determine the FORWARD FROM service
|
|
| UNSIGNED(GMRCIEN) | ; check if there are any unsigned TIU notes for the request
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | FIND^DIC |
| 123.02 | LIST^DIC |
| 123.03 | LIST^DIC |
| ^TIU(8925 - [#8925] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAGV(2005.61 - [#2005.61] | TIUALL+23, TIUALL+24 |
| ^MAGV(2005.62 - [#2005.62] | TIUALL+26 |
| ^TIU(8925.91 - [#8925.91] | TIUALL+14, TIUALL+15 |
| ^TMP("MAG" | ANYREQ+7, TIULAST+6, TIUALL+5, FWDFROM+4, UNSIGNED+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADFN | ANYREQ+1~, ANYREQ+9 |
| ADFN(1 | ANYREQ+8* |
| DFN | ANYREQ~, ANYREQ+8, ANYREQ+15 |
| FHIT | ANYREQ+4~, ANYREQ+14, ANYREQ+15*, ANYREQ+18 |
| FWDFROM | FWDFROM+1~, FWDFROM+7*, FWDFROM+11*, FWDFROM+15 |
| GMRCIEN | TIULAST~, TIULAST+4, TIULAST+7, TIUALL~, TIUALL+6, TIUALL+18, TIUALL+28, FWDFROM~, FWDFROM+5, FWDFROM+8 , UNSIGNED~, UNSIGNED+5 |
| I | FWDFROM+1~, FWDFROM+9*, FWDFROM+10, FWDFROM+11 |
| IX | ANYREQ+3~, ANYREQ+13*, ANYREQ+14*, ANYREQ+15 |
| MAGIEN | TIUALL+1~, TIUALL+16*, TIUALL+18, TIUALL+25*, TIUALL+26*, TIUALL+28 |
| NRESULTS | UNSIGNED+1~ |
| RESULT | TIUALL~, TIUALL+3!, TIUALL+8*, TIUALL+17*, TIUALL+18, TIUALL+27*, TIUALL+28 |
| RESULT( | TIUALL+18*, TIUALL+28* |
| TIUIEN | TIULAST+1~, TIULAST+3*, TIULAST+11, TIULAST+12*, TIULAST+13*, TIULAST+17, TIUALL+1~, TIUALL+10*, TIUALL+11, TIUALL+12* , TIUALL+14, TIUALL+18, TIUALL+23, TIUALL+28 |
| TIUPTR | TIULAST+9~, TIULAST+10*, TIULAST+11*, TIULAST+12, TIUALL+1~, TIUALL+8*, TIUALL+9*, TIUALL+10, UNSIGNED+1~, UNSIGNED+6* , UNSIGNED+8*, UNSIGNED+9 |
| TIUSTAT | UNSIGNED+1~, UNSIGNED+13*, UNSIGNED+14 |
| TIUXIEN | TIUALL+1~, TIUALL+13*, TIUALL+14*, TIUALL+15, TIUALL+21*, TIUALL+23*, TIUALL+24, TIUALL+26 |
| UNSIGNED | UNSIGNED+1~, UNSIGNED+6*, UNSIGNED+8, UNSIGNED+14*, UNSIGNED+18 |
| WRK | ANYREQ+2~, ANYREQ+7*, ANYREQ+9, ANYREQ+14, ANYREQ+15, ANYREQ+17, TIULAST+2~, TIULAST+6*, TIULAST+7, TIULAST+11 , TIULAST+12, TIULAST+16, TIUALL+2~, TIUALL+5*, TIUALL+6, TIUALL+9, TIUALL+10, TIUALL+32, FWDFROM+2~, FWDFROM+4* , FWDFROM+5, FWDFROM+9, FWDFROM+11, FWDFROM+14, UNSIGNED+2~, UNSIGNED+4*, UNSIGNED+5, UNSIGNED+8, UNSIGNED+9, UNSIGNED+17 |
| X | UNSIGNED+1~, UNSIGNED+9*, UNSIGNED+11, UNSIGNED+13 |
| Y | TIUALL+1~, TIUALL+15*, TIUALL+16, TIUALL+24* |
| Name | Field # of Occurrence |
|---|---|
| $T( | ANYREQ+7, TIULAST+6, TIUALL+5, FWDFROM+4, UNSIGNED+4 |
