LA7HL7 ;DALISC/JRR - Main Driver for incoming HL7 messages ; 12/3/1997
Source file <LA7HL7.m>
| Package | Total | Call Graph | 
|---|---|---|
| Automated Lab Instruments | 1 | CREATE^LA7LOG | 
| Kernel | 1 | $$NOW^XLFDT | 
| VA Fileman | 1 | FILE^DICN | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| REJECT(LA7AR) | ;build a reject segment if the incoming message | |
| Z | ;LA7HL7 ;DALISC/JRR - Main Driver for incoming HL7 message | |
| ORU | ;Process incoming ORU | |
| EXIT | ||
| ORUPUT | ;store incoming message in ^LAHM(62.49, | 
| FileNo | Call Tags | 
|---|---|
| ^LAHM(62.49 - [#62.49] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZOSF("LPC" | ORU+8 | 
| ^HL(772 - [#772] | ORU+3, ORUPUT+19, ORUPUT+21 | 
| ^LAHM(62.48 - [#62.48] | ORU+9, ORU+12, ORUPUT+26, ORUPUT+27 | 
| ^LAHM(62.49 - [#62.49] | ORUPUT+3, ORUPUT+4, ORUPUT+6, ORUPUT+13, ORUPUT+16*, ORUPUT+21*, ORUPUT+22*, ORUPUT+23 | 
| Name | Line Occurrences | 
|---|---|
| EXIT | ORU+4, ORU+10, ORU+12 | 
| REJECT | ORU+4, ORU+11, ORU+13 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(1 | ORUPUT+27 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | EXIT! | 
| %H | EXIT! | 
| %I | EXIT! | 
| DD | ORUPUT+7! | 
| DIC | ORUPUT+8*, EXIT! | 
| DIC("DR" | ORUPUT+10*, ORUPUT+11* | 
| DIC(0 | ORUPUT+8* | 
| DINUM | ORUPUT+9*, EXIT! | 
| DO | ORUPUT+7! | 
| DT | ORUPUT+22 | 
| DTOUT | EXIT! | 
| DUOUT | EXIT! | 
| >> HLDA | ORU+3, ORUPUT+19, ORUPUT+21 | 
| >> HLFS | ORUPUT+24, REJECT+7 | 
| >> HLMID | ORUPUT+24, REJECT+7 | 
| >> HLSDATA(2 | ORUPUT+24*, REJECT+7* | 
| LA7 | ORU+7*, ORUPUT+19*, ORUPUT+20, ORUPUT+21, EXIT! | 
| LA71 | ORUPUT+18*, ORUPUT+20*, ORUPUT+22, EXIT! | 
| LA76248 | ORU+9*, ORU+10, ORU+12, ORUPUT+10, ORUPUT+26, ORUPUT+27, EXIT! | 
| LA76249 | ORUPUT+5*, ORUPUT+6, ORUPUT+16, ORUPUT+21, ORUPUT+22, ORUPUT+23, EXIT! | 
| LA7AR | EXIT!, REJECT~, REJECT+7 | 
| LA7CFIG | ORU+6*, ORU+7*, ORU+8, ORU+9, EXIT+1! | 
| LA7DTIM | ORUPUT+1*, ORUPUT+10, EXIT+1! | 
| LA7FS | ORU+5*, ORU+7, ORUPUT+15, EXIT+1! | 
| LA7MSH | ORU+3*, ORU+4, ORU+5, ORU+7, ORUPUT+15*, ORUPUT+16, EXIT+1! | 
| LA7TYPE | ORU+2*, EXIT+1! | 
| X | ORU+1~, ORU+8*, ORUPUT+4*, ORUPUT+5, ORUPUT+9, EXIT+1! | 
| Y | ORU+1~, ORU+9, EXIT+1! |