DGPFHLT ;SHRPE/YMG - PRF HL7 QBP/RSP PROCESSING ; 05/02/18
Source file <DGPFHLT.m>
| 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 |
| 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
|
| Name | Field # of Occurrence |
|---|---|
| NORESP^DGPFHLT1 | SEND+56 |
| $$ENCHL7^DGPFHLUT | QPD+5, NTE+3, NTE+5 |
| $$GETLINK^DGPFHLUT | SEND+21 |
| $$MPIOK^DGPFUT | SEND+19 |
| UPDATE^DIE | SEND+51 |
| $$GET1^DIQ | SEND+24, QPD+5 |
| $$HLDATE^HLFNC | NTE+9 |
| $$HLNAME^HLFNC | NTE+6 |
| INIT^HLFNC2 | SEND+29 |
| GENERATE^HLMA | SEND+38 |
| $$NOW^XLFDT | SEND+25 |
| $$STA^XUAF4 | SEND+22, NTE+7, GENQID+7 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DGPF(26.15 - [#26.15] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPF(26.22 - [#26.22] | GENQID+8 |
| ^TMP("HLS" | SEND+31!, SEND+53!, SAVESEG+5* |
| Name | Line Occurrences |
|---|---|
| $$GENQID | SEND+26 |
| $$NTE | SEND+35 |
| $$QPD | SEND+34 |
| $$RCP | SEND+36 |
| $$SAVESEG | SEND+34, SEND+35, SEND+36 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | SEND~, SEND+17, SEND+19, SEND+44, SEND+56 |
| DGDTM | SEND+15~, SEND+25*, SEND+26, SEND+42, NTE+9, GENQID~, GENQID+7 |
| DGERR | SEND+15~, SEND+54 |
| DGERR("DIERR" | SEND+54 |
| DGFAC | SEND+15~ |
| DGFDA | SEND+15~ |
| DGFDA( | SEND+42*, SEND+43*, SEND+44*, SEND+45*, SEND+46*, SEND+47*, SEND+48*, SEND+49*, SEND+50* |
| DGHLLNK | SEND+15~, SEND+21*, SEND+22, SEND+27 |
| DGHLRSLT | SEND+15~, SEND+38, SEND+40, SEND+48, SEND+58 |
| DGICN | SEND+15~, SEND+19, QPD+4 |
| DUZ | SEND+24 |
| DUZ(2 | SEND+49, NTE+7, GENQID+7 |
| FCLTY | SEND~, SEND+21, SEND+22 |
| FLAG | SEND~, SEND+45, SEND+56, QPD+5 |
| HL | SEND+14~, SEND+29 |
| HL("ECH" | SEND+30 |
| HL("FS" | SEND+30 |
| HLCMP | SEND+14~, SEND+30*, QPD+2, NTE+7, RCP+3 |
| HLECH | SEND+14~, SEND+30*, NTE+6 |
| HLFS | SEND+14~, SEND+30*, QPD+2, QPD+3, QPD+4, QPD+5, QPD+6, NTE+2, NTE+3, NTE+4 , NTE+8, NTE+9, NTE+10, RCP+2, RCP+3, RCP+4, RCP+5 |
| HLL | SEND+14~ |
| HLL("LINKS" | SEND+27* |
| HLSCMP | SEND+14~, SEND+30*, NTE+7 |
| NAME | NTE+1~, NTE+5*, NTE+6 |
| QID | GENQID+6~, GENQID+7*, GENQID+8, GENQID+9 |
| REASON | SEND~, SEND+50, NTE+3 |
| REQBY | SEND+15~, SEND+24*, SEND+43, NTE+5 |
| REQID | SEND+15~, SEND+26*, SEND+47, QPD+3 |
| SEG | QPD+1~, QPD+2*, QPD+3*, QPD+4*, QPD+5*, QPD+6*, QPD+7, NTE+1~, NTE+2*, NTE+3* , NTE+4*, NTE+8*, NTE+9*, NTE+10*, NTE+11, RCP+1~, RCP+2*, RCP+3*, RCP+4*, RCP+5* , RCP+6, SAVESEG~, SAVESEG+5 |
| SEGCNT | SEND+15~, SEND+33*, SEND+34*, SEND+35*, SEND+36*, SAVESEG~, SAVESEG+4*, SAVESEG+5, SAVESEG+6 |
| SEQ | GENQID+6~, GENQID+8*, GENQID+9 |
| STOP | GENQID+6~, GENQID+8* |
| U | SEND+27, SEND+40, SEND+48, SEND+54, SEND+58 |
| Z | NTE+1~, NTE+6*, NTE+7*, NTE+8 |
