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 |