BHLZP1I ; cmi/sitka/maw - BHL File Incoming ZP1 segment ;
Source file <BHLZP1I.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 2 | ^DIC ^DIE | 
| IHS Support HL7 Interfaces | 1 | CHKPAT^BHLPIDI | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PROCESS | ;-- process and file the data | |
| CHKPAT | ;-- this will get the HRCN and lookup to find the patient | |
| MAIN | ;-- this is the main routine driver | |
| EOJ | ;-- end of job kill variables | 
| FileNo | Call Tags | 
|---|---|
| ^AUPNPAT - [#9000001] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^BHLS("B" | CHKPAT+3 | 
| Name | Line Occurrences | 
|---|---|
| EOJ | MAIN+1 | 
| PROCESS | MAIN+1 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> BHLDA | PROCESS+1*, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, CHKPAT+4*, CHKPAT+5, CHKPAT+6, CHKPAT+7 | 
| >> BHLDFN | CHKPAT+10* | 
| >> BHLDI | PROCESS+4*, PROCESS+14 | 
| >> BHLDIEM | PROCESS+14, PROCESS+15, PROCESS+16 | 
| BHLDR | EOJ+2! | 
| >> BHLDUZ2 | CHKPAT+8* | 
| >> BHLERCD | PROCESS+11* | 
| >> BHLERR | PROCESS+11 | 
| BHLFL | PROCESS+12*, EOJ+2! | 
| BHLFL2 | PROCESS+12*, EOJ+2! | 
| BHLFLD | PROCESS+14*, PROCESS+15*, PROCESS+16*, EOJ+2! | 
| BHLFLD2 | EOJ+3! | 
| BHLHRCN | PROCESS+2*, PROCESS+9, CHKPAT+5*, CHKPAT+9, EOJ+2! | 
| BHLHRFAC | PROCESS+3*, PROCESS+8, PROCESS+13, CHKPAT+6*, CHKPAT+8, EOJ+2! | 
| >> BHLPAT | PROCESS+8, PROCESS+12, CHKPAT+4, CHKPAT+12 | 
| BHLR | CHKPAT+2~, CHKPAT+3* | 
| BHLRD | PROCESS+5*, PROCESS+15, EOJ+2! | 
| >> BHLRS | PROCESS+6*, PROCESS+16 | 
| >> BHLSGIEN | CHKPAT+3* | 
| >> BHLTMP | PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, CHKPAT+4, CHKPAT+5, CHKPAT+6, CHKPAT+7 , EOJ+1 | 
| BHLVAL | PROCESS+13*, EOJ+2! | 
| BHLVAL2 | PROCESS+14*, PROCESS+15*, PROCESS+16*, EOJ+3! | 
| BHLX | PROCESS+12*, EOJ+3! | 
| DA | PROCESS+7!, PROCESS+8* | 
| DIC | CHKPAT+9!*, CHKPAT+13! | 
| DIC(0 | CHKPAT+9* | 
| DIE | PROCESS+7!, PROCESS+8* | 
| DR | PROCESS+7!, PROCESS+8* | 
| DR(2 | PROCESS+9* | 
| DUZ(2 | CHKPAT+8* | 
| U | PROCESS+3, CHKPAT+6 | 
| >> X | CHKPAT+9* | 
| >> Y | PROCESS+11, CHKPAT+10 |