GMRAIAL1 ;BPOIFO/JG - BUILD HL7 ORU^R01 MESSAGE FOR ALLERGIES - PART 1 ; 17 Mar 2006 11:07 AM
Source file <GMRAIAL1.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 |
|---|---|---|
| VALID | ;;VDEF HL7 MESSAGE BUILDER
; Creates HL7 V2.4 ORU^R01 message for allergy updates & assessments |
|
| EN(EVIEN,KEY,VFLAG,OUT,MSHP) | ; Entry point
|
|
| PID | ||
| OBR | ||
| ENT | ||
| VER | ||
| ERR | ||
| IDBM | ||
| CHRT | ||
| OBR1 | ||
| OBRX | ||
| CALL | ||
| EXIT | ||
| SAVE | ||
| HL7RC(X) | ||
| GETVUID(GMRAFILE,GMRAFLD,GMRADATA,GMRAFLSW) | ;
; Input parameters: ; GMRAFILE - VistA File # ; GMRAFLD - Field # in GMRAFILE ; GMRADATA - Reference value to look up VUID for ; GMRAFLSW - (Optional) Use 8985.1 if nil, else use GMRAFILE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | EN+38, EN+43 |
| ^GMR(120.8 - [#120.8] | EN+34, EN+36, IDBM, IDBM+1, IDBM+2, CHRT, CHRT+1, CHRT+2 |
| ^GMR(120.86 - [#120.86] | EN+40 |
| ^TMP("HLS" | EN+19!, SAVE+9!* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADD | EN+13~, SAVE+2!*, SAVE+4, SAVE+11! |
| ADD( | SAVE+3* |
| ALRDATA | EN+13~, EN+34*, EN+35, EN+36, EN+40*, EN+41, EN+42, OBR+8, OBR+11, ENT , ENT+4, VER, VER+1, VER+4, OBR1+3, OBRX+4 |
| ALTYPE | EN+13~, EN+23*, EN+33, EN+39, OBR+1, OBR+2, OBR+11, OBR+16, OBRX+4 |
| ARRAY | EN+15~, EN+19*, SAVE+5, SAVE+10* |
| CMP | EN+15~ |
| DATA | EN+14~ |
| DFN | EN+13~, EN+36*, EN+38, EN+42*, EN+43, PID+1 |
| ENTERR | EN+14~, EN+36*, EN+37, EN+40*, EN+41*, EN+42, OBR+5, ERR, ERR+1, ERR+4 |
| EVIEN | EN~ |
| GMRADATA | GETVUID~, GETVUID+12 |
| GMRAFILE | EN+16~, GETVUID~, GETVUID+12, GETVUID+13, GETVUID+14 |
| GMRAFLD | GETVUID~, GETVUID+12 |
| GMRAFLSW | GETVUID~, GETVUID+12*, GETVUID+13 |
| GMRAHL | EN+15~, EN+20*, PID+1 |
| GMRAHL("ECH" | EN+26 |
| GMRAHL("FS" | EN+27 |
| GMRAHL("Q" | EN+27 |
| GMRAIENS | EN+16~ |
| GMRAPID | EN+14~, PID!, PID+1, PID+3! |
| GMRAPID( | PID+2! |
| GMRAPID(1 | PID+2*, PID+3 |
| GMRAVUID | EN+16~, OBR1+3*, OBR1+4, OBR1+5 |
| HL7RC | EN+14~, EN+27*, HL7RC+2 |
| HLCM | EN+13~, EN+26*, EN+27, OBR+1, OBR+2, OBR+13, ENT+1, ENT+4, VER+1, VER+4 , ERR+1, ERR+4, IDBM+3, IDBM+6, CHRT+3, CHRT+6, OBR1+4, OBR1+5 |
| HLES | EN+13~, EN+26*, EN+27, HL7RC+4 |
| HLFS | EN+13~, EN+27*, OBR, OBR+1, OBR+2, OBR+5, OBR+8, OBR+15, OBR1, OBR1+6 , OBRX, SAVE+1 |
| HLQ | EN+13~, EN+27* |
| HLRP | EN+13~, EN+26*, EN+27, VER+4, ERR+4, IDBM+6, CHRT+6 |
| HLSC | EN+13~, EN+26*, EN+27, OBR+13, ENT+1, ENT+3, VER+1, VER+3, ERR+1, ERR+3 , IDBM+3, IDBM+5, CHRT+3, CHRT+5 |
| I | EN+14~, PID+2*, SAVE~, SAVE+3*, HL7RC~, HL7RC+4* |
| IEN | EN+14~ |
| IEN1 | EN+14~, IDBM+1*, IDBM+2, CHRT+1*, CHRT+2 |
| >> II | OBR+14*, ENT+2*, VER+2*, ERR+2*, IDBM+4*, CHRT+4* |
| KEY | EN~, EN+34, EN+35, EN+36, EN+40, EN+42, OBR+1, IDBM, IDBM+1, IDBM+2 , CHRT, CHRT+1, CHRT+2 |
| MSHP | EN~, EN+23 |
| OCHR | HL7RC~, HL7RC+2*, HL7RC+3, HL7RC+4 |
| OUT | EN~ |
| OUT("HLS" | SAVE+9! |
| OUTX | EN+14~, PID*, PID+3*, OBR*, OBR+1*, OBR+2*, OBR+5*, OBR+8*, OBR+15*, OBR1* , OBR1+6*, OBRX*, SAVE+1, SAVE+2*, SAVE+3*, SAVE+4!*, SAVE+5, SAVE+11! |
| RCHR | HL7RC~, HL7RC+2*, HL7RC+4 |
| RCHRI | HL7RC~, HL7RC+1*, HL7RC+2 |
| RSLTSTA | EN+15~, EN+37* |
| S | EN+14~, EN+19*, PID*, OBR* |
| SEPC | EN+15~ |
| SEPE | EN+15~ |
| SEPF | EN+15~ |
| SEPR | EN+15~ |
| SEPS | EN+15~, OBR+14, ENT+2, VER+2, ERR+2, IDBM+4, CHRT+4 |
| SEQ | EN+15~, PID*, PID+1 |
| >> SITEPARM | OBR+1, GETVUID+14 |
| >> TARGET | EN+19*, EXIT, SAVE+8, SAVE+10* |
| TYPE | HL7RC~*, HL7RC+1 |
| U | EN+36, EN+41, EN+42, OBR+1, OBR+8, OBR+11, ENT, ENT+4, VER, VER+1 , VER+4, ERR+1, ERR+4, IDBM+3, IDBM+6, CHRT+3, CHRT+6, OBR1+3, OBR1+4, OBR1+5 , OBRX+4, SAVE+8, SAVE+10, GETVUID+13, GETVUID+14 |
| VAL | EN+14~, ENT+3*, VER+3*, ERR+3*, IDBM+5*, CHRT+5*, OBR1+4*, OBR1+5*, OBR1+6 |
| >> VDEFHL | EN+20 |
| VFLAG | EN~ |
| X | EN+14~, OBR+21*, ENT+4*, VER+4*, ERR+4*, IDBM+6*, CHRT+6*, OBR1, OBR1+3*, OBR1+4 , HL7RC~, HL7RC+3, HL7RC+4*, HL7RC+5, GETVUID+12~*, GETVUID+13*, GETVUID+14*, GETVUID+15 |
| X1 | EN+14~, IDBM+2*, IDBM+3, IDBM+6, CHRT+2*, CHRT+3, CHRT+6 |
| XX | EN+13~, OBR+11*, OBR+12, OBR+13*, OBR+14*, OBR+15, ENT*, ENT+1*, ENT+2*, ENT+3 , VER+1*, VER+2*, VER+3, ERR*, ERR+1*, ERR+2*, ERR+3, IDBM+3*, IDBM+4*, IDBM+5 , CHRT+3*, CHRT+4*, CHRT+5 |
| Y | EN+14~, OBR+21*, IDBM+5, CHRT+5 |
| Z | EN+14~, OBR+21*, ENT+3*, ENT+4*, VER+3*, VER+4*, ERR+3*, ERR+4*, IDBM+5*, IDBM+6* , CHRT+5*, CHRT+6* |
| >> ZTSTOP | EN+33, EN+35*, EN+38*, EN+39, EN+43*, OBRX+4* |
