©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BHLAFIN ; cmi/flag/maw - BHL Auto Create Inbound HL7 Fields ;
Source file <BHLAFIN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SEGADD | ;-- add the field to the segment
|
|
| SEGARRY | ;-- this is the list of segments
|
|
| XARY837 | ;-- x12 array
|
|
| FLDS | ;-- create the fields here for each segment
|
|
| ASK | ;-- ask which version of the HL7 standard
|
|
| X12 | ;-- populate for X12
|
|
| MAIN | ;-- this is the main routine driver
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^INTHL7S - [#4010] | Classic Fileman Calls |
| ^INTHL7F - [#4012] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(4010 | SEGADD+3 |
| Name | Line Occurrences |
|---|---|
| ASK | MAIN+2 |
| FLDS | MAIN+4 |
| SEGADD | FLDS+15 |
| SEGARRY | MAIN+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BHLDA | FLDS+1*, FLDS+2, FLDS+4, FLDS+5, FLDS+10 |
| >> BHLFLDE | FLDS+13* |
| >> BHLFLDS | FLDS+2*, FLDS+8 |
| >> BHLI | FLDS+8*, FLDS+10, SEGADD+7 |
| >> BHLPRE | ASK+12*, ASK+13*, FLDS+4, FLDS+10 |
| >> BHLSEG | FLDS+7*, SEGADD+1, SEGADD+2 |
| >> BHLSEGE | SEGADD+5* |
| >> BHLVER | MAIN+3, ASK+5*, ASK+6*, ASK+7, FLDS+1, FLDS+2 |
| >> DA | SEGADD+7* |
| >> DA(1 | SEGADD+1* |
| DD | FLDS+3!, FLDS+9!, FLDS+14! |
| DIC | FLDS+3!, FLDS+4*, FLDS+9!, FLDS+10*, FLDS+14!, SEGADD+2*, SEGADD+7, SEGADD+9! |
| DIC("DR" | FLDS+5*, FLDS+11* |
| DIC("P" | SEGADD+3* |
| DIC(0 | FLDS+4*, FLDS+10*, SEGADD+2* |
| DIE | SEGADD+6!, SEGADD+7*, SEGADD+9! |
| DIR | ASK+8! |
| DIR("A" | ASK+2*, ASK+9* |
| DIR(0 | ASK+1*, ASK+9* |
| >> DIRUT | ASK+4, ASK+11 |
| DO | FLDS+3!, FLDS+9!, FLDS+14! |
| DR | SEGADD+6!, SEGADD+7*, SEGADD+9! |
| >> VER23("OBR" | SEGARRY+17* |
| >> VER23("OBX" | SEGARRY+18* |
| >> VER23("ORC" | SEGARRY+16* |
| >> VER23("PID" | SEGARRY+4* |
| >> VER23("PV1" | SEGARRY+8* |
| >> VER24("DG1" | SEGARRY+9* |
| >> VER24("EVN" | SEGARRY+2* |
| >> VER24("GT1" | SEGARRY+11* |
| >> VER24("IN1" | SEGARRY+12* |
| >> VER24("IN2" | SEGARRY+13* |
| >> VER24("MRG" | SEGARRY+15* |
| >> VER24("MSH" | SEGARRY+1* |
| >> VER24("NK1" | SEGARRY+6* |
| >> VER24("PD1" | SEGARRY+5* |
| >> VER24("PID" | SEGARRY+3* |
| >> VER24("PR1" | SEGARRY+10* |
| >> VER24("PV1" | SEGARRY+7* |
| >> VER24("ZP2" | SEGARRY+14* |
| >> X | FLDS+4*, FLDS+10* |
| >> X1000A("N2" | XARY837+3* |
| >> X1000A("NM1" | XARY837+2* |
| >> X1000A("PER" | XARY837+4* |
| >> X1000A("REF" | XARY837+1* |
| >> X1000B("N2" | XARY837+6* |
| >> X1000B("NM1" | XARY837+5* |
| >> X2000A("CUR" | XARY837+9* |
| >> X2000A("HL" | XARY837+7* |
| >> X2000A("PRV" | XARY837+8* |
| >> X2000B("HL" | XARY837+22* |
| >> X2000B("PAT" | XARY837+24* |
| >> X2000B("SBR" | XARY837+23* |
| >> X2010AA("N2" | XARY837+11* |
| >> X2010AA("N3" | XARY837+12* |
| >> X2010AA("N4" | XARY837+13* |
| >> X2010AA("NM1" | XARY837+10* |
| >> X2010AA("PER" | XARY837+16* |
| >> X2010AA("REF" | XARY837+14* |
| >> X2010AA("REFCC" | XARY837+15* |
| >> X2010AB("N2" | XARY837+18* |
| >> X2010AB("N3" | XARY837+19* |
| >> X2010AB("N4" | XARY837+20* |
| >> X2010AB("NM1" | XARY837+17* |
| >> X2010AB("REF" | XARY837+21* |
| >> X2010BA("DMG" | XARY837+29* |
| >> X2010BA("N2" | XARY837+26* |
| >> X2010BA("N3" | XARY837+27* |
| >> X2010BA("N4" | XARY837+28* |
| >> X2010BA("NM1" | XARY837+25* |
| >> X2010BA("REF" | XARY837+30* |
| >> X2010BA("REFPC" | XARY837+31* |
| >> X2010BB("N2" | XARY837+33* |
| >> X2010BB("N3" | XARY837+34* |
| >> X2010BB("N4" | XARY837+35* |
| >> X2010BB("NM1" | XARY837+32* |
| >> X2010BB("REF" | XARY837+36* |
| >> X2010BC("N2" | XARY837+38* |
| >> X2010BC("N3" | XARY837+39* |
| >> X2010BC("N4" | XARY837+40* |
| >> X2010BC("NM1" | XARY837+37* |
| >> X2010BD("N2" | XARY837+42* |
| >> X2010BD("NM1" | XARY837+41* |
| >> X2010BD("REF" | XARY837+43* |
| Y | ASK+5, ASK+12, FLDS+3!, FLDS+7, FLDS+9!, FLDS+13, FLDS+14!, SEGADD+5, SEGADD+7 |