DGENUPL1 ;ALB/CJM,ISA,KWP,CKN,LBD,LMD,TDM,TGH,DJS,HM,JAM,KUM - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ;30 Oct 2017 7:32PM
Source file <DGENUPL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARSE(MSGIEN,MSGID,CURLINE,ERRCOUNT,DGPAT,DGELG,DGENR,DGCDIS,DGOEIF,DGSEC,DGNTR,DGMST,DGNMSE,DGHBP,DGOTH,DGZHF) | ;
|
|
| CONVERT(VAL,DATATYPE,ERROR) | ;
|
|
| MAP(VALUE) | ;
|
|
| ACCEPT(MSGID) | ;
|
|
| MVERRORS | ;
|
|
| CHKNXT(DGNVAL,DGNSEG) | ; Check the SEG in the next segment manually
; DGNVAL = CURLINE or CURLINE+1 ; DGNSEG = SEG (3 character SEG) ; Returns 1 if there is a match or 0 if there is no match |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
