MAGT7SB ;WOIFO/MLH/PMK - telepathology - create HL7 message to DPS - segment build - OBR ; 24 Jul 2013 8:23 PM
Source file <MAGT7SB.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 2 | SET^HLOAPI SETCE^HLOAPI4 |
| Imaging | 2 | $$NPNAME^MAG7UNM $$CALLBACK^MAGT7SO |
| VA FileMan | 1 | $$GET1^DIQ |
| 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 |
|---|---|---|
| OBRSEG(SEGELTS,FILE,LRSS,IENS,ACNUMB) | ; FUNCTION - main entry point - create an OBR segment
|
|
| TESTLKUP(LABDATA,LABTEST) | ; lookup the test - called by MAGVIM02 as well
|
|
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| TESTLKUP | OBRSEG+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACNUMB | OBRSEG~, OBRSEG+22, OBRSEG+53 |
| COLLECTOR | OBRSEG+30~, OBRSEG+34*, OBRSEG+35 |
| ERRSTAT | OBRSEG+12~*, OBRSEG+18, OBRSEG+21, OBRSEG+24, OBRSEG+29, OBRSEG+37, OBRSEG+40*, OBRSEG+41, OBRSEG+48, OBRSEG+49* , OBRSEG+51, OBRSEG+61 |
| FILE | OBRSEG~ |
| FILE("0" | OBRSEG+34 |
| FILE("ORDERED | TEST" , TESTLKUP+2, TESTLKUP+4 |
| FILE("PROCEDU | RE IEN" , TESTLKUP+11, RE NAME" , TESTLKUP+12 |
| FILE(0 | OBRSEG+38 |
| FLDCALBKPHN | OBRSEG+8~*, OBRSEG+49 |
| FLDCOLLECTOR | OBRSEG+6~*, OBRSEG+35 |
| FLDDXSERVID | OBRSEG+9~*, OBRSEG+57 |
| FLDORDPVDR | OBRSEG+7~*, OBRSEG+39, OBRSEG+42, OBRSEG+43, OBRSEG+44, OBRSEG+45 |
| FLDPLORDNO | OBRSEG+4~*, OBRSEG+22 |
| FLDSETID | OBRSEG+3~*, OBRSEG+19 |
| FLDUNIVSVCID | OBRSEG+5~*, OBRSEG+27 |
| ID | OBRSEG+52~, OBRSEG+53*, OBRSEG+57 |
| IENS | OBRSEG~, OBRSEG+34, OBRSEG+38, TESTLKUP+1~, TESTLKUP+2*, TESTLKUP+3, TESTLKUP+4 |
| LABDATA | OBRSEG+25, OBRSEG+34, TESTLKUP~, TESTLKUP+2, TESTLKUP+4 |
| LABTEST | OBRSEG+1~, OBRSEG+25, OBRSEG+27, TESTLKUP~, TESTLKUP+4*, TESTLKUP+5, TESTLKUP+6, TESTLKUP+7 |
| LABTEST("ID" | TESTLKUP+6*, TESTLKUP+10, TESTLKUP+11* |
| LABTEST("SYSTEM" | OBRSEG+26* |
| LABTEST("TEXT" | TESTLKUP+7*, TESTLKUP+12* |
| LRSS | OBRSEG~ |
| ORDPVDRNAM | OBRSEG+11~, OBRSEG+40 |
| ORDPVDRNAM("FAMILY" | OBRSEG+43 |
| ORDPVDRNAM("GIVEN" | OBRSEG+44 |
| ORDPVDRNAM("MIDDLE" | OBRSEG+45 |
| ORDPVDRNO | OBRSEG+10~, OBRSEG+38*, OBRSEG+39, OBRSEG+40, OBRSEG+42, OBRSEG+49 |
| SEGELTS | OBRSEG~, OBRSEG+14!, OBRSEG+16, OBRSEG+19, OBRSEG+22, OBRSEG+27, OBRSEG+35, OBRSEG+39, OBRSEG+42, OBRSEG+43 , OBRSEG+44, OBRSEG+45, OBRSEG+49, OBRSEG+57 |
| SETID | OBRSEG+2~*, OBRSEG+19 |