DGENUPL8 ;ISA/KWP,RTK,PHH,ERC,KUM,JAM - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ;03/11/20 12:41pm
Source file <DGENUPL8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENRUPLD(DGENR,DGPAT) | ;
|
|
| EXIT | ||
| DUP(DGENR1,DGENR2) | ;
|
|
| STOREHIS(DGENR,PRIORTO) | ;
|
|
| OTHUPLD(DFN,DGOTH,DGSSN,PRELIG) | ; uploads OTH data. DG*5.3*952
|
|
| CHKTS(IEN33,DGOTH) | ; check "last edited" timestamps in file 33 DG*5.3*952
|
|
| CHKTSX | ; exit point
|
|
| SORTOTH(DGOTH) | ; re-sort DGOTH array DG*5.3*952
|
| FileNo | Call Tags |
|---|---|
| ^DGOTH(33 - [#33] | GET1^DIQ |
| 33.03 | GET1^DIQ |
| 33.11 | GET1^DIQ |
| ^DIC(8 - [#8] | GET1^DIQ |
