DGPFHLT3 ;SHRPE/YMG - PRF HL7 QBP/RSP PROCESSING ; 05/02/18
Source file <DGPFHLT3.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 |
|---|---|---|
| EN | ; entry point
; called from EN^DGPFHLT1, uses ^TMP("DGPFHLT1,$J") work global created there. |
|
| ENX | ; exit point
|
|
| FNDLOG(REQID) | ; find log entry (file 26.22) for a given query id
; REQID - query id to look for ; Returns ien in file 26.22 on success, 0 otherwise |
|
| SENDERR(MSGID,SNDFAC,DGECODE,DGERR) | ; send Mailman notification for an error
|
|
| UPDLOG(IENS,DGERR,DATA,DGFERR) | ; update log entry in file 26.22
; only updates fields .05,.06,.07,and 1 |
|
| NORESPDT(DFN,FLAG,RDT) | ; update review date/time of "NO RESPONSE" entries in file 26.22
; DFN - patient DFN ; FLAG - flag ien in file 26.15 ; RDT - review date/time to use in internal FM format |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | FIND1^DIC |
| ^DGPF(26.15 - [#26.15] | FIND1^DIC |
| ^DGPF(26.22 - [#26.22] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPF(26.22 - [#26.22] | FNDLOG+4, NORESPDT+8, NORESPDT+9 |
| ^TMP("DGPFHLT1" | EN+7, EN+8, ENX+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATA | UPDLOG~ |
| DATA("REVBY" | UPDLOG+12 |
| DATA("REVCMT" | UPDLOG+14 |
| DATA("REVDTM" | UPDLOG+13 |
| DATA("REVRES" | UPDLOG+11 |
| DATE | NORESPDT+5~, NORESPDT+8*, NORESPDT+9 |
| DFN | NORESPDT~, NORESPDT+6, NORESPDT+8, NORESPDT+9 |
| DGECODE | SENDERR~, SENDERR+3 |
| DGERR | EN+3~, EN+5*, EN+19*, EN+20, EN+24*, EN+38*, EN+40, EN+42, EN+43, EN+45 , SENDERR~, SENDERR+4, UPDLOG~, UPDLOG+11, UPDLOG+15 |
| DGFDA | EN+3~, EN+49!, UPDLOG+10~, NORESPDT+5~, NORESPDT+11! |
| DGFDA( | EN+50, EN+51, EN+52, EN+54, EN+55, EN+58, UPDLOG+11*, UPDLOG+12*, UPDLOG+13*, UPDLOG+14* , UPDLOG+15*, NORESPDT+10* |
| DGFERR | EN+3~, EN+42, EN+43, EN+46, UPDLOG~ |
| DGFERR("DIERR" | EN+46 |
| DIERR | NORESPDT+5~ |
| ERTXT | EN+3~, SENDERR+1~, SENDERR+5 |
| ERTXT(1 | SENDERR+2* |
| ERTXT(3 | SENDERR+3* |
| ERTXT(4 | SENDERR+4* |
| FLAG | NORESPDT~, NORESPDT+6, NORESPDT+8, NORESPDT+9 |
| >> HLCMP | EN+12 |
| >> HLFS | EN+9, EN+12, EN+13, EN+17, EN+24, EN+28, EN+29, EN+33, EN+34 |
| >> HLREP | EN+33, EN+34 |
| IEN | NORESPDT+5~, NORESPDT+9*, NORESPDT+10 |
| IENS | EN+3~, EN+23*, EN+42, EN+49, EN+50, EN+51, EN+52, EN+54, EN+55, EN+58 , UPDLOG~, UPDLOG+11, UPDLOG+12, UPDLOG+13, UPDLOG+14, UPDLOG+15 |
| LOGIEN | EN+3~, EN+18*, EN+23 |
| MAILARY | EN+3~, EN+42, EN+56 |
| MAILARY("REQBY" | EN+51* |
| MAILARY("REQCMT" | EN+52* |
| MAILARY("REQDTM" | EN+50* |
| MAILARY("REVBY" | EN+28* |
| MAILARY("REVCMT" | EN+34* |
| MAILARY("REVDTM" | EN+29*, EN+58 |
| MAILARY("REVRES" | EN+33*, EN+37*, EN+38 |
| MAILPFA | EN+3~, EN+56 |
| MAILPFA("DFN" | EN+54* |
| MAILPFA("FLAG" | EN+55* |
| MSGID | EN+3~, EN+13*, EN+20, EN+40, EN+45, EN+46, SENDERR~, SENDERR+5 |
| RDT | NORESPDT~, NORESPDT+10 |
| REQID | EN+3~, EN+17*, EN+18, EN+19, FNDLOG~, FNDLOG+4 |
| RES | FNDLOG+3~, FNDLOG+4*, FNDLOG+5 |
| SEGCNT | EN+3~, EN+7*, EN+8 |
| SEGNM | EN+3~, EN+9*, EN+10, EN+15, EN+26, EN+31 |
| SEGSTR | EN+3~, EN+8*, EN+9, EN+12, EN+13, EN+17, EN+24, EN+28, EN+29, EN+33 , EN+34 |
| SNDFAC | EN+3~, EN+12*, EN+20, EN+45, EN+46, SENDERR~, SENDERR+2 |
| STOP | EN+3~, EN+5*, EN+7, EN+15, EN+21* |
| U | EN+38, EN+54, EN+55 |
