GMRCCCR1 ;COG/PB - Receive HL7 Message for HCP ;3/21/18 09:00
Source file <GMRCCCR1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETADD(INSP) | ;
; INSP contains internal value of insurance plan for this patient (IN1 segment) |
|
| CLRADD(ADDRESS) | ;
; patch 146 - take any address field that contains only spaces and change to null |
|
| MESSAGE(MSGID,ERRARY) | ; Send a MailMan Message with the errors
; moved here for patch 112 |
|
| MESSAGE2(MSGID,ABORT,CONID) | ; Send a MailMan Message with the errors
|
|
| CCONTROL(GMRCDA) | ; patch 112
; remove control characters from data before building OBR segment |
|
| ANAK(NAKMSG,USERMAIL,ICN,DFN,CONID,GMRCDT) | ; Application Error, send NAK back
|
|
| TIUC(X) | ; Check each segment of the TIU notes for HL7 control characters
|
|
| ADDEND | ; moved from ADDEND^GMRCCCRA routine for space ; patch 146 ; MJ
; returns 0 if value not found |
|
| AUTHDTTM | ;
|
|
| ACK | ;
|
|
| EDIPI(DFN,GMRCP) | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | GET1^DIQ |
| 123.02 | GET1^DIQ |
| 123.03 | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
