DGPFHLT2 ;SHRPE/YMG - PRF HL7 QBP/RSP PROCESSING ; 05/02/18
Source file <DGPFHLT2.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(DGMERR,DATA) | ; entry point
; DATA - Array of values to file (see tag EN^DGPFHLT1) ; DGMERR - error message to include in MSA segment |
|
| QAK() | ; create QAK segment
|
|
| QPD() | ; create QPD segment
|
|
| NTE() | ; create NTE segment
|
| FileNo | Call Tags |
|---|---|
| ^DGPF(26.15 - [#26.15] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPF(26.22 - [#26.22] | SEND+22 |
| ^TMP("HLS" | SEND+6!, SEND+41! |
| Name | Line Occurrences |
|---|---|
| $$NTE | SEND+16 |
| $$QAK | SEND+14 |
| $$QPD | SEND+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATA | SEND~ |
| DATA("DFN" | SEND+40 |
| DATA("FLAG" | SEND+40, QPD+5 |
| DATA("ICN" | QPD+4 |
| DATA("MSGID" | SEND+28 |
| DATA("ORIGOWN" | NTE+6 |
| DATA("QOK" | QAK+3 |
| DATA("REQDTM" | SEND+22 |
| DATA("REQID" | QAK+2, QPD+3 |
| DATA("REVBY" | QPD+7 |
| DATA("REVCMT" | NTE+3 |
| DATA("REVDTM" | SEND+40, QPD+8 |
| DATA("REVRES" | NTE+3 |
| DATA("SENDTO" | SEND+8 |
| DGERR | SEND+4~, SEND+31 |
| DGERR("DIERR" | SEND+34, SEND+35 |
| DGFDA | SEND+4~ |
| DGFDA( | SEND+23*, SEND+24* |
| DGHLRSLT | SEND+4~, SEND+18, SEND+19, SEND+24, SEND+29, SEND+30, SEND+37 |
| DGMERR | SEND~ |
| ERTXT | SEND+4~, SEND+37 |
| ERTXT(1 | SEND+27* |
| ERTXT(2 | SEND+28* |
| ERTXT(3 | SEND+29* |
| ERTXT(4 | SEND+30* |
| ERTXT(5 | SEND+32* |
| ERTXT(6 | SEND+33* |
| ERTXT(7 | SEND+34* |
| ERTXT(8 | SEND+35* |
| HL | SEND+5~, SEND+10 |
| HL("ECH" | SEND+11 |
| HL("FS" | SEND+11 |
| HLCMP | SEND+5~, SEND+11*, QAK+4, QPD+2, NTE+6 |
| HLECH | SEND+5~, SEND+11* |
| HLFS | SEND+5~, SEND+11*, QAK+2, QAK+3, QAK+4, QAK+5, QPD+2, QPD+3, QPD+4, QPD+6 , QPD+7, QPD+8, QPD+9, NTE+2, NTE+4, NTE+5, NTE+7, NTE+8 |
| HLL | SEND+5~ |
| HLL("LINKS" | SEND+8* |
| HLREP | SEND+5~, SEND+11*, NTE+3 |
| HLSCMP | SEND+5~, SEND+11*, NTE+6 |
| IENS | SEND+4~, SEND+22*, SEND+23, SEND+24, QPD+1~, QPD+5*, QPD+6 |
| NAME | NTE+1~ |
| SEG | QAK+1~, QAK+2*, QAK+3*, QAK+4*, QAK+5*, QAK+6, QPD+1~, QPD+2*, QPD+3*, QPD+4* , QPD+6*, QPD+7*, QPD+8*, QPD+9*, QPD+10, NTE+1~, NTE+2*, NTE+4*, NTE+5*, NTE+7* , NTE+8*, NTE+9 |
| SEGCNT | SEND+4~, SEND+13*, SEND+14*, SEND+15*, SEND+16* |
| U | SEND+8, SEND+19, SEND+24, SEND+29, SEND+30, SEND+37 |
| Z | NTE+1~, NTE+3*, NTE+4, NTE+6*, NTE+7 |