©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGENEGT2 ;ALB/KCL - PROCESS INCOMING MFN TYPE HL7 MSGS; 04-MAY-1999 ; 3/7/01 9:14am
Source file <DGENEGT2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MFNZEG(MSGIEN,MSGID,CURLINE,ERRCOUNT) | ;
; Description: This procedure is used to process a MFN~ZEG msg. ; ; Input: ; MSGIEN - the internal entry number of the HL7 message in the ; HL7 MESSAGE TEXT (#772) file ; MSGID - message control id of HL7 msg in the MSH segment ; CURLINE - the subscript of the MSH segment of the current message ; (pass by reference) |
|
| PARSE(MSGIEN,MSGID,CURLINE,ERRCOUNT,DGEGT,DGMFI,DGMFE) | ;
; Description: This function is used to parse the HL7 segments of the message. |
|
| ACCEPT(MSGID,DGMFI,DGMFE) | ;
; Description - This procedure writes an MFK - Application Accept (AA) ; to the global that is used in the transmission of the 'MFK' msg. |
|
| EGT(MSGIEN,MSGID) | ;
; Description: This procedure is used to process an MFN~ZEG message. ; It uploads the enrollment group threshold (EGT) data. An HL7 ; Master File Acknowledgement (MFK) will be returned. |
|
| MFN | ; Description: This entry point is the handler for incoming MFN type
; HL7 messages. This entry point is called from the PROCESSING ROUTINE ; field of the HL7 MESSAGE (multiple) field of the #771 file entry. |
|
| ADDERROR(MSGID,ERRMSG,ERRCOUNT,DGMFI,DGMFE) | ;
; Description - This procedure writes an MFK - Application Error (AE) ; to the global that is used in the transmission of the 'MFK' msg. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101 - [#101] | MFN+49, MFN+51 |
| ^TMP("HLA" | EGT+16!, ADDERROR+23*, ADDERROR+26*, ADDERROR+29*, ACCEPT+23*, ACCEPT+27*, ACCEPT+31* |
| ^TMP($J | MFN+39!, MFN+42*, MFN+44*, MFN+61! |
| Name | Line Occurrences |
|---|---|
| $$PARSE | MFNZEG+20 |
| ACCEPT | MFNZEG+37 |
| ADDERROR | MFNZEG+31, PARSE+30 |
| EGT | MFN+59 |
| MFNZEG | EGT+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | MFN+35~, MFN+41*, MFN+42, MFN+43*, MFN+44 |
| CURLINE | EGT+12~, EGT+20*, EGT+23, MFNZEG~, MFNZEG+20, PARSE~, PARSE+26 |
| DGCOUNT | ACCEPT+18~, ACCEPT+19*, ACCEPT+22*, ACCEPT+23, ACCEPT+26*, ACCEPT+27, ACCEPT+30*, ACCEPT+31 |
| DGEGT | MFNZEG+15~, MFNZEG+20, MFNZEG+30, MFNZEG+34, MFNZEG+40, PARSE~, PARSE+22! |
| DGEGT("ENTDATE" | MFNZEG+26* |
| DGEGT("SOURCE" | MFNZEG+27* |
| DGMFE | MFNZEG+15~, MFNZEG+20, MFNZEG+31, MFNZEG+37, PARSE~, PARSE+22!, PARSE+23*, PARSE+30, ADDERROR~, ACCEPT~ |
| DGMFE("CNTRLNUM" | ADDERROR+29, ACCEPT+31 |
| DGMFE("PRIMKEY" | ADDERROR+29, ACCEPT+31 |
| DGMFE("RECEVNT" | ADDERROR+29, ACCEPT+31 |
| DGMFI | MFNZEG+15~, MFNZEG+20, MFNZEG+31, MFNZEG+37, PARSE~, PARSE+22!, PARSE+23*, PARSE+30, ADDERROR~, ACCEPT~ |
| DGMFI("EVENT" | ADDERROR+26, ACCEPT+27 |
| DGMFI("MASTERID" | ADDERROR+26, ACCEPT+27 |
| ERRCOUNT | EGT+12~, EGT+19*, EGT+23, EGT+26, MFNZEG~, MFNZEG+20, MFNZEG+31, PARSE~, PARSE+30, ADDERROR~ , ADDERROR+20*, ADDERROR+23, ADDERROR+26, ADDERROR+29, ADDERROR+30* |
| ERRMSG | MFNZEG+15~, MFNZEG+30, MFNZEG+31, ADDERROR~, ADDERROR+23 |
| ERROR | PARSE+19~, PARSE+20*, PARSE+25, PARSE+31*, PARSE+33 |
| EVENT | MFN+34~, MFN+55*, MFN+57 |
| HL | MFN+35~, MFN+50 |
| >> HLARYTYP | EGT+27*, EGT+28 |
| >> HLDA | MFN+45*, MFN+53, MFN+59 |
| >> HLECH | MFN+55 |
| >> HLEID | MFN+48*, MFN+49*, MFN+50, MFN+51, EGT+28 |
| >> HLEIDS | MFN+51*, EGT+28 |
| >> HLEVN | EGT+26* |
| >> HLFORMAT | EGT+27*, EGT+28 |
| >> HLFS | ADDERROR+23, ADDERROR+26, ADDERROR+29, ACCEPT+23, ACCEPT+27, ACCEPT+31 |
| >> HLMTIEN | MFN+45 |
| >> HLMTIENS | EGT+28 |
| >> HLNEXT | MFN+40 |
| >> HLNODE | MFN+42 |
| >> HLNODE( | MFN+43, MFN+44 |
| >> HLQUIT | MFN+40 |
| >> HLRESLTA | EGT+28 |
| >> HLSDT | EGT+15* |
| IVMRTN | MFN+35~, MFN+38*, MFN+39, MFN+42, MFN+44, MFN+61 |
| MSGID | MFN+34~, MFN+58*, MFN+59, EGT~, EGT+23, MFNZEG~, MFNZEG+20, MFNZEG+31, MFNZEG+37, PARSE~ , PARSE+30, ADDERROR~, ADDERROR+23, ACCEPT~, ACCEPT+23 |
| MSGIEN | EGT~, EGT+23, MFNZEG~, MFNZEG+20, PARSE~, PARSE+26 |
| OLDEGT | MFNZEG+15~, MFNZEG+23, MFNZEG+40 |
| SEG | MFN+34~, MFN+53, EGT+12~, PARSE+19~, PARSE+25*, PARSE+26, PARSE+27, PARSE+28, PARSE+30 |
| SEG("TYPE" | MFN+54, PARSE+27 |
| SEG(10 | MFN+58 |
| SEG(9 | MFN+55 |
| SEGCNT | MFN+35~, MFN+40*, MFN+42, MFN+44 |