MAGT7SSA ;WOIFO/MLH/PMK - telepathology - create HL7 message to DPS - segment build - set up OBXs for each SPM ; 03 Jul 2013 4:08 PM
Source file <MAGT7SSA.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 |
---|---|---|
SPMANC(MSG,FILE,IENSX,LRSS,IX) | ; FUNCTION - main entry point - create ancillary OBX segments
|
|
BLOCK(MSG,FILE,LRSS,BLOCKNAME,BLOCKSS2) | ; output the block information
|
|
STAIN(MSG,FILE,LRSS,STAINFILE,STAINSS2) | ; output the stain/procedure information
|
|
FIELDS | ; fields to output
|
FileNo | Call Tags |
---|---|
^LAB(60 - [#60] | GET1^DIQ |
Name | Line Occurrences |
---|---|
$$BLOCK | SPMANC+28 |
$$STAIN | BLOCK+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BLKTYPSTG | SPMANC+2~ |
BLKTYPSTGIX | SPMANC+3~ |
BLKTYPSTGSTR | SPMANC+1~ |
BLOCKDATA | SPMANC+4~, SPMANC+16 |
BLOCKDATA( | SPMANC+13*, SPMANC+25, SPMANC+27 |
BLOCKFILE | SPMANC+5~, SPMANC+11*, SPMANC+12, BLOCK+1~, BLOCK+9*, BLOCK+14, BLOCK+15 |
BLOCKNAME | SPMANC+6~, SPMANC+9*, SPMANC+10*, SPMANC+11, SPMANC+13, SPMANC+24*, SPMANC+25*, SPMANC+27, SPMANC+28, BLOCK~ , BLOCK+9, BLOCK+10, BLOCK+11, BLOCK+13 |
BLOCKSS2 | SPMANC+7~, SPMANC+12*, SPMANC+13, SPMANC+26*, SPMANC+27*, SPMANC+28, BLOCK~, BLOCK+14, BLOCK+15, BLOCK+19 |
DATATYPE | STAIN+1~, STAIN+20*, STAIN+25 |
DTTMEXAM | STAIN+9~, STAIN+15*, STAIN+24 |
DTTMPRMADE | STAIN+10~, STAIN+16* |
DTTMSTNPREP | STAIN+8~, STAIN+14*, STAIN+24 |
ERRSTAT | SPMANC+8~*, SPMANC+16, SPMANC+20, SPMANC+21*, SPMANC+23, SPMANC+27, SPMANC+28*, SPMANC+33, BLOCK+7~*, BLOCK+12 , BLOCK+13*, BLOCK+16*, BLOCK+18, BLOCK+19, BLOCK+20*, BLOCK+24, STAIN+12~*, STAIN+17, STAIN+25*, STAIN+27 |
FIELDNUMBER | STAIN+2~, STAIN+19*, STAIN+21 |
FILE | SPMANC~, SPMANC+28, BLOCK~, BLOCK+20, STAIN~ |
FILE("NAME" | SPMANC+21 |
FILE("SPECIMEN" | SPMANC+10, SPMANC+11, BLOCK+9, BLOCK+10, BLOCK+11 |
I | STAIN+11~, STAIN+17* |
IENSX | SPMANC~, SPMANC+13 |
IX | SPMANC~ |
>> LABDATA | SPMANC+11, SPMANC+12, BLOCK+14, BLOCK+15, BLOCK+18, STAIN+14, STAIN+15, STAIN+16, STAIN+21 |
LABSECTION | STAIN+3~, STAIN+18* |
LRSS | SPMANC~, SPMANC+28, BLOCK~, BLOCK+20, STAIN~, STAIN+18 |
MSG | SPMANC~, SPMANC+21, SPMANC+28, BLOCK~, BLOCK+13, BLOCK+16, BLOCK+20, STAIN~, STAIN+25 |
NAME | STAIN+4~, STAIN+20*, STAIN+25 |
PTRFLAG | STAIN+5~, STAIN+19*, STAIN+22 |
STAINFILE | BLOCK+3~, BLOCK+11*, BLOCK+18, BLOCK+20, STAIN~, STAIN+14, STAIN+15, STAIN+16, STAIN+21 |
STAINNAME | BLOCK+4~, BLOCK+10*, BLOCK+11 |
STAINSS2 | BLOCK+5~, BLOCK+17*, BLOCK+18*, BLOCK+19, BLOCK+20, STAIN~, STAIN+14, STAIN+15, STAIN+16, STAIN+21 |
TIMESTAMP | BLOCK+2~, BLOCK+15*, BLOCK+16, STAIN+7~, STAIN+20*, STAIN+24*, STAIN+25 |
VALUE | BLOCK+6~, BLOCK+14*, BLOCK+16, STAIN+6~, STAIN+21*, STAIN+22*, STAIN+23, STAIN+25 |
X | STAIN+11~, STAIN+17*, STAIN+18, STAIN+19, STAIN+20 |
Name | Field # of Occurrence |
---|---|
$T(FIELDS+I | STAIN+17 |