MAGDHOW0 ;WOIFO/PMK,DAC - Capture Consult/Request data ; Oct 04, 2021@12:30:55
Source file <MAGDHOW0.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 |
|---|---|---|
| FINDSEG(ARRAY,SEGMENT,I,X) | ; find a specific HL7 segment in an array
; input -- ARRAY ---- an HL7 array ; input -- SEGMENT -- three-letter HL7 segment identifier ; input -- I -------- index of the found segment (or null) ; output - I -------- index of the found segment (or null) ; output - X -------- string of fields sans segment identifier ; return - HIT ------ flag indicating segment found |
|
| NEWTIU(GMRCIEN) | ; check if this is a TIU note to be linked to an image group
; if so, create the cross-linkages now |
|
| TIUXLINK | ; create the cross-linkages to TIU EXTERNAL DATA LINK file
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAG(2005 - [#2005] | NEWTIU+8*, NEWTIU+12, NEWTIU+13, NEWTIU+14*, TIUXLINK+5* |
| ^MAG(2006.5839 - [#2006.5839] | NEWTIU+5, NEWTIU+6, NEWTIU+17!, NEWTIU+18!, NEWTIU+19, NEWTIU+20*, NEWTIU+21 |
| Name | Line Occurrences |
|---|---|
| TIUXLINK | NEWTIU+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | FINDSEG~ |
| ARRAY( | FINDSEG+10, FINDSEG+11 |
| CROSSREF | NEWTIU+2~, NEWTIU+11*, NEWTIU+14 |
| D0 | NEWTIU+2~, NEWTIU+4*, NEWTIU+5*, NEWTIU+6, NEWTIU+17, NEWTIU+18 |
| >> DEL | FINDSEG+10, FINDSEG+11 |
| FILEDATA | NEWTIU+2~ |
| FILEDATA("PAR | ENT FILE PTR" , NEWTIU+11, TIUXLINK+4* |
| GMRCIEN | NEWTIU~, NEWTIU+5, NEWTIU+7, NEWTIU+18 |
| HIT | FINDSEG+8~, FINDSEG+9*, FINDSEG+12*, FINDSEG+14, NEWTIU+2~, NEWTIU+3*, NEWTIU+22*, NEWTIU+24 |
| I | FINDSEG~, FINDSEG+10*, FINDSEG+11 |
| MAGGP | NEWTIU+2~, NEWTIU+6*, NEWTIU+8, NEWTIU+12, NEWTIU+13, TIUXLINK+2, TIUXLINK+5 |
| MAGIEN | NEWTIU+2~, NEWTIU+13*, NEWTIU+14 |
| MSG | TIUXLINK+8~ |
| MSG(1 | TIUXLINK+9* |
| MSG(2 | TIUXLINK+10* |
| MSG(3 | TIUXLINK+11* |
| NIMAGE | NEWTIU+2~, NEWTIU+12*, NEWTIU+13 |
| SEGMENT | FINDSEG~, FINDSEG+10 |
| TIUIEN | NEWTIU+2~, NEWTIU+7*, NEWTIU+8, NEWTIU+11, TIUXLINK+2 |
| TIUXDIEN | TIUXLINK+1~, TIUXLINK+2, TIUXLINK+3, TIUXLINK+4, TIUXLINK+5, TIUXLINK+10 |
| X | FINDSEG~, FINDSEG+11* |
