©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
BHLNK1I ; cmi/sitka/maw - BHL Process Inbound NK1 Segment ;
Source file <BHLNK1I.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SPOUSE | ;-- file spouse
|
|
| NOK | ;-- file next of kin
|
|
| PROCESS | ;-- let's go through and setup the data by relationship type
|
|
| EOJ | ;-- kill variables and quit
|
|
| SELF | ;-- file self
|
|
| EC | ;-- file emergency contact
|
|
| MAIN | ;-- this is the main routine driver
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | PROCESS+12 |
| Name | Line Occurrences |
|---|---|
| @( | PROCESS+24 |
| EOJ | MAIN+1 |
| PROCESS | MAIN+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BHLCR | PROCESS+2*, PROCESS+3, PROCESS+15, PROCESS+16*, PROCESS+19, PROCESS+21*, PROCESS+22*, PROCESS+24, EOJ+2! |
| BHLCTY | PROCESS+10*, EC+6, NOK+5, EOJ+2! |
| BHLDA | PROCESS+1*, PROCESS+2, PROCESS+4, PROCESS+6, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14 , PROCESS+17, PROCESS+18, PROCESS+20, EOJ+2! |
| >> BHLDIE | EC+2, EC+4, EC+5, EC+6, EC+7, EC+8, EC+9, EC+10, NOK+1, NOK+3 , NOK+4, NOK+5, NOK+6, NOK+7, NOK+8, NOK+9, SELF+1, SELF+2, SPOUSE+1 |
| BHLEN | PROCESS+17*, PROCESS+20*, SELF+1, SPOUSE+1, EOJ+3! |
| BHLES | PROCESS+18*, SELF+2, EOJ+3! |
| BHLFL | EC+2*, EC+10*, NOK+1*, NOK+9*, SELF+1*, SPOUSE+1*, EOJ+3! |
| BHLFLD | EC+2*, EC+4*, EC+5*, EC+6*, EC+7*, EC+8*, EC+9*, EC+10*, NOK+1*, NOK+3* , NOK+4*, NOK+5*, NOK+6*, NOK+7*, NOK+8*, NOK+9*, SELF+1*, SELF+2*, SPOUSE+1*, EOJ+3! |
| BHLNM | PROCESS+4*, PROCESS+5, EC+2, NOK+1, EOJ+2! |
| >> BHLPAT | EC+1, NOK+1, SELF+1, SPOUSE+1 |
| BHLPH | PROCESS+14*, EC+9, NOK+8, EOJ+2! |
| BHLREL | PROCESS+6*, PROCESS+7, EC+10, NOK+9, EOJ+2! |
| BHLST | PROCESS+11*, PROCESS+12*, EC+7, NOK+6, EOJ+2! |
| BHLST1 | PROCESS+8*, EC+4, NOK+3, EOJ+2! |
| BHLST2 | PROCESS+9*, EC+5, NOK+4, EOJ+2! |
| >> BHLTMP | PROCESS+1, PROCESS+2, PROCESS+4, PROCESS+6, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14 , PROCESS+17, PROCESS+18, PROCESS+20, EOJ+1 |
| BHLVAL | EC+2*, EC+4*, EC+5*, EC+6*, EC+7*, EC+8*, EC+9*, EC+10*, NOK+1*, NOK+3* , NOK+4*, NOK+5*, NOK+6*, NOK+7*, NOK+8*, NOK+9*, SELF+1*, SELF+2*, SPOUSE+1*, EOJ+3! |
| BHLX | EC+1*, NOK+1*, SELF+1*, SPOUSE+1*, EOJ+3! |
| BHLZIP | PROCESS+13*, EC+8, NOK+7, EOJ+2! |
| >> CS | PROCESS+2, PROCESS+6, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13 |
| Name | Field # of Occurrence |
|---|---|
| $T(@BHLCR | PROCESS+23 |