DGPFHLT4 ;SHRPE/YMG - PRF HL7 QBP/RSP PROCESSING ; 05/02/18
Source file <DGPFHLT4.m>
Package | Total | Call Graph |
---|---|---|
Health Level Seven | 1 | GENACK^HLMA1 |
Registration | 1 | $$ENCHL7^DGPFHLUT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Registration | 2 | DGPFHLT1 DGPFHLT3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SEND(MSGID,DGMERR) | ; entry point
; MSGID - HL7 message id to send ACK for ; DGMERR - error message to include in MSA segment |
|
MSA() | ; create MSA segment
|
|
SAVESEG(SEGCNT,SEG) | ; save created segment in ^TMP global
; SEGCNT - current segment count ; SEG - segment to save |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("HLA" | SEND+5!, SEND+11!, SAVESEG+5* |
Name | Line Occurrences |
---|---|
$$MSA | SEND+8 |
$$SAVESEG | SEND+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DGHLRSLT | SEND+4~, SEND+10 |
DGMERR | SEND~, MSA+2, MSA+4 |
>> HL("EID" | SEND+10 |
>> HL("EIDS" | SEND+10 |
>> HLFS | MSA+2, MSA+3, MSA+4, MSA+5 |
>> HLMTIENS | SEND+10 |
MSGID | SEND~, MSA+3 |
SEG | MSA+1~, MSA+2*, MSA+3*, MSA+4*, MSA+5*, MSA+6, SAVESEG~, SAVESEG+5 |
SEGCNT | SEND+4~, SEND+7*, SEND+8*, SAVESEG~, SAVESEG+4*, SAVESEG+5, SAVESEG+6 |