©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
BHLZ01I ;cmi/sitka/maw - Process Inbound Z01 Event
Source file <BHLZ01I.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | FILE^DICN ^DIE |
| IHS Support HL7 Interfaces | 1 | (,EOJ)^BHLSETI |
| Kernel | 1 | EN^XQOR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MFE | ;-- get data out of MFE segment
|
|
| LOOK | ;-- look up the entry in the drug file
|
|
| MDL | ;-- delete the record (deactivate)
|
|
| ZFD | ;-- get data out of ZFD segment
|
|
| MFI | ;-- get data out of MFI segment
|
|
| ACK | ;-- send the acknowledgement event
|
|
| MDC | ;-- deactivate the record
|
|
| MAIN | ;-- this is the main routine driver
|
|
| MUP | ;-- update the drug file or add if not existent
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSDRUG("ZNDC" | LOOK+1 |
| Name | Line Occurrences |
|---|---|
| @( | MAIN+11 |
| ACK | MAIN+7, MAIN+12 |
| LOOK | MAIN+9 |
| MDC | MDL+1 |
| MFE | MAIN+6 |
| MFI | MAIN+5 |
| ZFD | MAIN+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BHLCHEMO | ZFD+14*, MUP+8, MUP+17 |
| >> BHLDEAS | ZFD+4*, MUP+3, MUP+12 |
| >> BHLDGN | ZFD+1*, MUP+2 |
| >> BHLDIEN | LOOK+1*, MUP+1, MUP+11, MDC+1, MDC+2, ACK+3 |
| >> BHLDU | ZFD+8*, MUP+5, MUP+14 |
| >> BHLDUPOU | ZFD+10*, MUP+6, MUP+15 |
| >> BHLIAD | ZFD+12*, MUP+7, MUP+16, MDC+2 |
| >> BHLMSGE | ZFD+13*, MUP+8, MUP+17 |
| >> BHLMWT | MAIN+11, MFE+3* |
| >> BHLMXD | ZFD+3*, MUP+3, MUP+12 |
| >> BHLNDC | MAIN+7, MFE+6*, LOOK+1 |
| >> BHLNDCE | MFE+4*, MFE+5, MFE+6 |
| >> BHLNF | ZFD+11*, MUP+7, MUP+16 |
| >> BHLOU | ZFD+6*, MUP+4, MUP+13 |
| >> BHLPPDU | ZFD+9*, MUP+6, MUP+15 |
| >> BHLPPOU | ZFD+7*, MUP+5, MUP+14 |
| >> BHLSSIG | ZFD+5*, MUP+3, MUP+12 |
| >> BHLWL | ZFD+2*, MUP+4, MUP+13 |
| >> CS | MFE+4 |
| >> DA | MUP+11*, MDC+2* |
| >> DIC | MUP+2*, ACK+4* |
| >> DIC("DR" | MUP+3*, MUP+4*, MUP+5*, MUP+6*, MUP+7*, MUP+8* |
| >> DIC(0 | MUP+2* |
| >> DIE | MUP+11*, MDC+2* |
| >> DR | MUP+12*, MUP+13*, MUP+14*, MUP+15*, MUP+16*, MUP+17*, MDC+2* |
| >> INA("DORLE" | MFE+1*, MFE+3 |
| >> INA("INORIGID" | ACK+1* |
| >> INA("INSTAT" | ACK+2* |
| >> INA("KTYP" | MAIN+4* |
| >> INA("MCID" | MAIN+3* |
| >> INA("MFAERR" | MAIN+2*, MAIN+7*, MUP+10*, MUP+19*, MDC+4*, ACK+2 |
| >> INA("MFI" | MFI+1* |
| >> INA("PRIMKEY" | MFE+2*, MFE+4 |
| >> INDA | ACK+3* |
| >> INV("MFE1" | MFE+1 |
| >> INV("MFE4" | MFE+2 |
| >> INV("MFI1" | MFI+1 |
| >> INV("MSH10" | MAIN+3, ACK+1 |
| >> INV("ZFD1" | ZFD+1 |
| >> INV("ZFD10" | ZFD+10 |
| >> INV("ZFD11" | ZFD+11 |
| >> INV("ZFD12" | ZFD+12 |
| >> INV("ZFD13" | ZFD+13 |
| >> INV("ZFD14" | ZFD+14 |
| >> INV("ZFD2" | ZFD+2 |
| >> INV("ZFD3" | ZFD+3 |
| >> INV("ZFD4" | ZFD+4 |
| >> INV("ZFD5" | ZFD+5 |
| >> INV("ZFD6" | ZFD+6 |
| >> INV("ZFD7" | ZFD+7 |
| >> INV("ZFD8" | ZFD+8 |
| >> INV("ZFD9" | ZFD+9 |
| >> X | MUP+2*, ACK+4* |
| >> Y | MUP+10, MUP+19, MDC+1*, MDC+4 |
| Name | Field # of Occurrence |
|---|---|
| $T(@BHLMWT | MAIN+10 |