©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
GMRCISEG ;SLC/JFR - CREATE IFC HL7 SEGMENTS ; 7/26/01 22:15
Source file <GMRCISEG.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | $$FMTHL7^XLFDT $$STA^XUAF4 $$KSP^XUPARAM |
| Consult Request Tracking | 2 | $$BUILD^GMRCISEG ($$HLNAME,$$URG)^GMRCIUTL |
| Health Level Seven | 1 | $$HLPHONE^HLFNC |
| Medicine | 1 | $$SINGLE^MCAPI |
| Registration | 1 | $$SITE^VASITE |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OBXTZ() | ;build and return an OBX with the current TIME ZONE encoded
|
|
| OBXWP(GMRCO,GMRCOC,GMRCACT,GMRCSEG) | ; return a WP field in OBX segs
; Input: ; GMRCO = ; GMRCOC = ; GMRCACT = activity in 40 mult triggering msg ; GMRCSEG = GLOBAL array to return results in |
|
| ORC(GMRCO,GMRCOC,GMRCOS,GMRCACT) | ||
| OBXSF(GMRCO) | ; build OBX seg for Sig. Find.
; Input: ; GMRCO = ien from file 123 |
|
| OBXRSLT(GMRCO,GMRCACT) | ; build an OBX segment to send a TIU doc reference
; Input: ; GMRCO = ien from file 123 ; GMRCACT = activity entry in 40 multiple |
|
| BUILD(SEG,PCS) | ;create any segment from array in PCS using |^&/~
; SEG = ORC,OBR,etc. ; PCS = array of data elements to be combined into the segement ; array is numbered by the "|" piece |
|
| NTE(GMRCO,GMRCACT,GMRCAR) | ;format an NTE seg with DC comment
; Input: ; GMRCO = ien from file 123 ; GMRCACT = activity entry in 40 multiple ; GMRCAR = array in which to pass back NTE segs |
|
| MSA(GMRCAC,GMRCMSG,GMRCERR) | ; build MSA for response to placer activity
; Input: ; GMRCAC = acknowledgment code (AA or AR) ; GMRCMSG = message number from incoming msg being responded to ; GMRCERR = error message if can't accept the activity |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | ORC+28, ORC+29, OBXTZ+11 |
| $$BUILD^GMRCISEG | ORC+49, OBXWP+19, OBXWP+31, OBXRSLT+23, NTE+15, MSA+13, OBXTZ+12, OBXSF+12 |
| $$HLNAME^GMRCIUTL | ORC+24, ORC+26 |
| $$URG^GMRCIUTL | ORC+22 |
| $$HLPHONE^HLFNC | ORC+30 |
| $$SINGLE^MCAPI | OBXRSLT+19 |
| $$SITE^VASITE | ORC+47 |
| $$FMTHL7^XLFDT | ORC+23, ORC+31 |
| $$STA^XUAF4 | ORC+14, ORC+15, ORC+18, ORC+20, OBXRSLT+17, OBXRSLT+21 |
| $$KSP^XUPARAM | ORC+14, ORC+20, OBXRSLT+17, OBXRSLT+21 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^XMB(1 - [#4.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | ORC+13, ORC+15, ORC+17, ORC+18, ORC+23, ORC+24, ORC+25, ORC+31, ORC+34, ORC+42 , OBXWP+15, OBXWP+18, OBXWP+23, OBXWP+25, OBXWP+26, OBXWP+29, OBXRSLT+9, OBXRSLT+13, OBXRSLT+14, NTE+10 , NTE+12, NTE+14, OBXSF+8, OBXSF+11 |
| ^TMP("GMRCWP" | OBXWP+11!, OBXWP+19*, OBXWP+20, OBXWP+21!, OBXWP+31*, OBXWP+32, OBXWP+33! |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ORC+15, ORC+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTVT | ORC+42~*, ORC+43, ORC+44, ORC+45, OBXWP+24~, OBXWP+25*, OBXWP+30 |
| ARR | BUILD+4~, BUILD+5*, BUILD+6*, BUILD+7 |
| CMT | OBXWP+24~, OBXWP+25*, OBXWP+26*, OBXWP+28, OBXWP+29, OBXWP+31, NTE+11~*, NTE+12*, NTE+13, NTE+14 , NTE+15 |
| GMRCAC | MSA~, MSA+10 |
| GMRCACT | ORC~, ORC+10, ORC+23, ORC+24, ORC+25, ORC+31, ORC+34, ORC+42, OBXWP~, OBXWP+23 , OBXWP+25, OBXWP+26, OBXWP+29, OBXRSLT~, OBXRSLT+9, OBXRSLT+13, OBXRSLT+14, NTE~, NTE+10, NTE+12 , NTE+14 |
| GMRCACTV | OBXRSLT+10~, OBXRSLT+13*, OBXRSLT+22 |
| GMRCAR | NTE~ |
| GMRCAR( | NTE+15* |
| GMRCERR | MSA~, MSA+12 |
| GMRCMSG | MSA~, MSA+11 |
| GMRCO | ORC~, ORC+10, ORC+13, ORC+14, ORC+15, ORC+17, ORC+18, ORC+20, ORC+22, ORC+23 , ORC+24, ORC+25, ORC+31, ORC+34, ORC+42, OBXWP~, OBXWP+15, OBXWP+18, OBXWP+23, OBXWP+25 , OBXWP+26, OBXWP+29, OBXRSLT~, OBXRSLT+9, OBXRSLT+13, OBXRSLT+14, NTE~, NTE+10, NTE+12, NTE+14 , OBXSF~, OBXSF+8, OBXSF+11 |
| GMRCOC | ORC~, ORC+10, ORC+12, ORC+22, ORC+32, ORC+33, ORC+37, ORC+38, ORC+41, OBXWP~ , OBXWP+13 |
| GMRCOS | ORC~, ORC+21, ORC+39, ORC+40 |
| GMRCPAG | ORC+27~, ORC+29*, ORC+30 |
| GMRCPCS | ORC+11~, ORC+49, OBXWP+12~, OBXWP+19, OBXWP+31, OBXRSLT+10~, OBXRSLT+23, NTE+11~, NTE+15, MSA+9~ , MSA+13, OBXTZ+8~, OBXTZ+12, OBXSF+9~, OBXSF+12 |
| GMRCPCS(1 | ORC+12*, OBXWP+16*, OBXWP+27*, OBXRSLT+11*, NTE+13*, MSA+10*, OBXTZ+9*, OBXSF+10* |
| GMRCPCS(10 | ORC+24* |
| GMRCPCS(11 | OBXWP+18*, OBXWP+30*, OBXRSLT+22*, OBXSF+11* |
| GMRCPCS(12 | ORC+26* |
| GMRCPCS(14 | ORC+30* |
| GMRCPCS(15 | ORC+31* |
| GMRCPCS(16 | ORC+35*, ORC+36*, ORC+37*, ORC+39*, ORC+40*, ORC+43*, ORC+44*, ORC+45* |
| GMRCPCS(17 | ORC+48* |
| GMRCPCS(2 | ORC+14*, ORC+18*, ORC+19*, OBXWP+16*, OBXWP+27*, OBXRSLT+11*, NTE+13*, MSA+11*, OBXTZ+9*, OBXSF+10* |
| GMRCPCS(3 | ORC+15*, ORC+16*, ORC+20*, OBXWP+17*, OBXWP+28*, OBXRSLT+16*, OBXRSLT+20*, NTE+14*, MSA+12*, OBXTZ+10* , OBXSF+10* |
| GMRCPCS(4 | OBXWP+17*, OBXWP+28*, OBXRSLT+12*, OBXTZ+10*, OBXSF+11* |
| GMRCPCS(5 | ORC+21*, OBXWP+18*, OBXWP+29*, OBXRSLT+17*, OBXRSLT+21*, OBXTZ+11*, OBXSF+11* |
| GMRCPCS(7 | ORC+22* |
| GMRCPCS(9 | ORC+23* |
| GMRCPHN | ORC+27~, ORC+28*, ORC+30 |
| GMRCRP | ORC+11~, ORC+25*, ORC+26, ORC+28, ORC+29 |
| GMRCSEG | OBXWP~, OBXWP+20, OBXWP+32 |
| MCPRNM | OBXRSLT+19~*, OBXRSLT+21 |
| PCS | BUILD~ |
| PCS( | BUILD+6, BUILD+7 |
| RSLT | OBXRSLT+10~, OBXRSLT+14*, OBXRSLT+15, OBXRSLT+17, OBXRSLT+18, OBXRSLT+19, OBXRSLT+20, OBXRSLT+21 |
| SEG | BUILD~, BUILD+9 |
| SEGMNT | BUILD+4~, BUILD+5*, BUILD+7*, BUILD+9 |
| SITE | ORC+11~, ORC+47*, ORC+48 |
| SUBS | OBXWP+14~*, OBXWP+15*, OBXWP+17, OBXWP+18, OBXWP+19 |
| U | ORC+13, ORC+14, ORC+15, ORC+17, ORC+18, ORC+20, ORC+22, ORC+23, ORC+24, ORC+25 , ORC+31, ORC+34, ORC+42, ORC+48, OBXWP+25, OBXRSLT+13, OBXRSLT+14, OBXRSLT+19, OBXRSLT+21, OBXSF+8 , OBXSF+11 |