DGPFHLT ;SHRPE/YMG - PRF HL7 QBP/RSP PROCESSING ; 05/02/18
Source file <DGPFHLT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SEND(DFN,FLAG,FCLTY,REASON) | ; entry point
; DFN - Patient's DFN ; FLAG - PRF flag to transfer (ien in file 26.15) ; FCLTY - Facility to send the message to (ien in file 4) ; REASON - request reason |
|
| QPD() | ; create QPD segment
|
|
| NTE() | ; create NTE segment
|
|
| RCP() | ; create RCP segment
|
|
| SAVESEG(SEGCNT,SEG) | ; save created segment in ^TMP global
; SEGCNT - current segment count ; SEG - segment to save |
|
| GENQID(DGDTM) | ; generate new query ID
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DGPF(26.15 - [#26.15] | GET1^DIQ |
