©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
BHLZP2I ; cmi/sitka/maw - BHL Process Inbound ZP2 Segment ;
Source file <BHLZP2I.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROCESS | ;-- process the segment
|
|
| REGUP | ;EP - update registration dates call from BHLPIDI if no ZP2 seg
|
|
| MAIN | ;-- this is the main routine driver
|
|
| EOJ | ;-- kill variables
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | PROCESS+23 |
| Name | Line Occurrences |
|---|---|
| EOJ | MAIN+1 |
| PROCESS | MAIN+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BHLABED | PROCESS+12*, PROCESS+44, EOJ+3! |
| BHLABOD | PROCESS+11*, PROCESS+43, EOJ+2! |
| BHLBCN | PROCESS+17*, PROCESS+47, EOJ+3! |
| BHLBPC | PROCESS+15*, PROCESS+65, EOJ+3! |
| BHLBPS | PROCESS+16*, PROCESS+66, EOJ+3! |
| BHLBT | PROCESS+9*, PROCESS+41, EOJ+2! |
| BHLCB | PROCESS+21*, PROCESS+51, EOJ+4! |
| BHLCC | PROCESS+25*, PROCESS+55, EOJ+4! |
| BHLCHS | PROCESS+8*, PROCESS+40, EOJ+2! |
| BHLCRD | PROCESS+22*, PROCESS+52, EOJ+4! |
| BHLDA | PROCESS+2*, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11 , PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21 , PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29, PROCESS+30, PROCESS+31 , PROCESS+32, PROCESS+33, PROCESS+34, EOJ+5! |
| BHLDCN | PROCESS+24*, PROCESS+54, EOJ+4! |
| BHLDE | PROCESS+3*, PROCESS+36, EOJ+2! |
| BHLDED | PROCESS+28*, PROCESS+58, EOJ+4! |
| >> BHLDIE | PROCESS+36, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+40, PROCESS+41, PROCESS+42, PROCESS+43, PROCESS+44, PROCESS+45 , PROCESS+46, PROCESS+47, PROCESS+48, PROCESS+49, PROCESS+50, PROCESS+51, PROCESS+52, PROCESS+53, PROCESS+54, PROCESS+55 , PROCESS+56, PROCESS+57, PROCESS+58, PROCESS+59, PROCESS+60, PROCESS+61, PROCESS+62, PROCESS+63, PROCESS+65, PROCESS+66 , PROCESS+67, REGUP+4, REGUP+5 |
| BHLDLRU | PROCESS+4*, PROCESS+37, REGUP+3*, REGUP+4, EOJ+2! |
| BHLDLU | PROCESS+10*, PROCESS+42, REGUP+3*, REGUP+5, EOJ+2! |
| BHLEMC | PROCESS+29*, PROCESS+59, EOJ+4! |
| BHLFBPC | PROCESS+31*, PROCESS+60, EOJ+5! |
| BHLFBPS | PROCESS+32*, PROCESS+61, EOJ+5! |
| BHLFL | PROCESS+35*, PROCESS+64*, REGUP+1~, REGUP+2*, EOJ+5! |
| BHLFLD | PROCESS+36*, PROCESS+37*, PROCESS+38*, PROCESS+39*, PROCESS+40*, PROCESS+41*, PROCESS+42*, PROCESS+43*, PROCESS+44*, PROCESS+45* , PROCESS+46*, PROCESS+47*, PROCESS+48*, PROCESS+49*, PROCESS+50*, PROCESS+51*, PROCESS+52*, PROCESS+53*, PROCESS+54*, PROCESS+55* , PROCESS+56*, PROCESS+57*, PROCESS+58*, PROCESS+59*, PROCESS+60*, PROCESS+61*, PROCESS+62*, PROCESS+63*, PROCESS+65*, PROCESS+66* , PROCESS+67*, REGUP+4*, REGUP+5*, EOJ+5! |
| BHLFN | PROCESS+30*, PROCESS+67, EOJ+5! |
| BHLIBQ | PROCESS+20*, PROCESS+50, EOJ+3! |
| BHLMBPC | PROCESS+33*, PROCESS+62, EOJ+5! |
| BHLMBPS | PROCESS+34*, PROCESS+63, EOJ+5! |
| BHLMRRD | PROCESS+5*, PROCESS+38, EOJ+2! |
| BHLMRVD | PROCESS+6*, PROCESS+39, EOJ+2! |
| >> BHLPAT | PROCESS+35, REGUP+2 |
| BHLRVF | PROCESS+27*, PROCESS+57, EOJ+4! |
| BHLSOD | PROCESS+23*, PROCESS+53, EOJ+4! |
| BHLSSN | PROCESS+13*, PROCESS+45, EOJ+3! |
| BHLSSNR | PROCESS+14*, PROCESS+46, EOJ+3! |
| BHLTEN | PROCESS+7*, EOJ+2! |
| >> BHLTMP | PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10 , PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20 , PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29, PROCESS+30 , PROCESS+31, PROCESS+32, PROCESS+33, PROCESS+34, EOJ+1 |
| BHLTMVF | PROCESS+26*, PROCESS+56, EOJ+4! |
| BHLTOM | PROCESS+18*, PROCESS+48, EOJ+3! |
| BHLTQ | PROCESS+19*, PROCESS+49, EOJ+3! |
| BHLVAL | PROCESS+36*, PROCESS+37*, PROCESS+38*, PROCESS+39*, PROCESS+40*, PROCESS+41*, PROCESS+42*, PROCESS+43*, PROCESS+44*, PROCESS+45* , PROCESS+46*, PROCESS+47*, PROCESS+48*, PROCESS+49*, PROCESS+50*, PROCESS+51*, PROCESS+52*, PROCESS+53*, PROCESS+54*, PROCESS+55* , PROCESS+56*, PROCESS+57*, PROCESS+58*, PROCESS+59*, PROCESS+60*, PROCESS+61*, PROCESS+62*, PROCESS+63*, PROCESS+65*, PROCESS+66* , PROCESS+67*, REGUP+4*, REGUP+5*, EOJ+5! |
| BHLX | PROCESS+35*, REGUP+2*, EOJ+6! |
| >> CS | PROCESS+8, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+21, PROCESS+26, PROCESS+29, PROCESS+31 , PROCESS+32, PROCESS+33, PROCESS+34 |
| DT | REGUP+3 |