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! |