GMRCISEG ;SLC/JFR - CREATE IFC HL7 SEGMENTS ; Jan 27, 2025@06:03:57
Source file <GMRCISEG.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 5 | $$ENCODE^GMRCHL7E $$CNVTD^GMRCIEVT SETTCH2^GMRCIMSG $$BUILD^GMRCISEG ($$HLNAME,$$URG)^GMRCIUTL |
| Kernel | 3 | ($$FMTE,$$FMTHL7)^XLFDT $$STA^XUAF4 $$KSP^XUPARAM |
| Health Level Seven | 1 | $$HLPHONE^HLFNC |
| Medicine | 1 | $$SINGLE^MCAPI |
| Registration | 1 | $$SITE^VASITE |
| VA FileMan | 1 | $$GET1^DIQ |
| 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 |
|---|---|---|
| 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 |
|
| ORC(GMRCO,GMRCOC,GMRCOS,GMRCACT) | ||
| 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 |
|
| 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 |
|
| 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 |
|
| OBXTZ() | ;build and return an OBX with the current TIME ZONE encoded
|
|
| OBXSF(GMRCO) | ; build OBX seg for Sig. Find.
; Input: ; GMRCO = ien from file 123 |
|
| OBXPOST | ;build OBX for Post Other or Post Complete Actions
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | ORC+30, ORC+31, OBXTZ+10, OBXPOST+15 |
| $$ENCODE^GMRCHL7E | OBXWP+19, OBXWP+44, NTE+15, OBXPOST+13, OBXPOST+25 |
| $$CNVTD^GMRCIEVT | ORC+42, OBXWP+35 |
| SETTCH2^GMRCIMSG | OBXWP+13, NTE+12 |
| $$BUILD^GMRCISEG | ORC+51, OBXWP+20, OBXWP+46, OBXRSLT+23, NTE+16, MSA+13, OBXTZ+11, OBXSF+12, OBXPOST+14, OBXPOST+16 , OBXPOST+18, OBXPOST+20, OBXPOST+26 |
| $$HLNAME^GMRCIUTL | ORC+26, ORC+28 |
| $$URG^GMRCIUTL | ORC+24 |
| $$HLPHONE^HLFNC | ORC+32 |
| $$SINGLE^MCAPI | OBXRSLT+19 |
| $$SITE^VASITE | ORC+49 |
| $$FMTE^XLFDT | OBXPOST+17 |
| $$FMTHL7^XLFDT | ORC+23, ORC+25, ORC+33 |
| $$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+25, ORC+26, ORC+27, ORC+33, ORC+35 , ORC+37, OBXWP+16, OBXWP+19, OBXWP+24, OBXWP+26, OBXWP+36, OBXWP+41, OBXWP+44, OBXRSLT+9, OBXRSLT+13 , OBXRSLT+14, NTE+10, NTE+13, NTE+15, OBXSF+8, OBXSF+11, OBXPOST+10, OBXPOST+13, OBXPOST+15, OBXPOST+17 , OBXPOST+22, OBXPOST+25 |
| ^TMP("GMRCWP" | OBXWP+11!, OBXWP+20*, OBXWP+21, OBXWP+22!, OBXWP+46*, OBXWP+48, OBXWP+49!, OBXPOST+14*, OBXPOST+16*, OBXPOST+18* , OBXPOST+20*, OBXPOST+26*, OBXPOST+28, OBXPOST+29! |
| Name | Line Occurrences |
|---|---|
| OBXPOST | OBXWP+38 |
| Name | Field # of Occurrence |
|---|---|
| ^( | OBXWP+36 |
| ^(0 | ORC+15, ORC+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTVT | ORC+35~*, ORC+42, ORC+45, ORC+46, ORC+47, OBXWP+25~, OBXWP+26*, OBXWP+31, OBXWP+38 |
| ARR | BUILD+4~, BUILD+5*, BUILD+6*, BUILD+7 |
| CMT | OBXWP+25~, OBXWP+26*, OBXWP+41*, OBXWP+43, OBXWP+44, OBXWP+46, NTE+11~*, NTE+13*, NTE+14, NTE+15 , NTE+16 |
| GMRCAC | MSA~, MSA+10 |
| GMRCACT | ORC~, ORC+10, ORC+25, ORC+26, ORC+27, ORC+33, ORC+35, ORC+37, OBXWP~, OBXWP+24 , OBXWP+26, OBXWP+36, OBXWP+41, OBXWP+44, OBXRSLT~, OBXRSLT+9, OBXRSLT+13, OBXRSLT+14, NTE~, NTE+10 , NTE+13, NTE+15, OBXPOST+10, OBXPOST+13, OBXPOST+15, OBXPOST+17 |
| GMRCACT1 | OBXWP+36~* |
| GMRCACTV | OBXRSLT+10~, OBXRSLT+13*, OBXRSLT+22 |
| GMRCAR | NTE~ |
| GMRCAR( | NTE+16* |
| GMRCCMT | OBXPOST+5~, OBXPOST+6*, OBXPOST+10*, OBXPOST+13 |
| GMRCCMT1 | OBXPOST+5~, OBXPOST+6*, OBXPOST+11*, OBXPOST+12, OBXPOST+14, OBXPOST+15*, OBXPOST+16, OBXPOST+17*, OBXPOST+18, OBXPOST+19* , OBXPOST+20, OBXPOST+23*, OBXPOST+24, OBXPOST+26 |
| 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+23, ORC+24 , ORC+25, ORC+26, ORC+27, ORC+33, ORC+35, ORC+37, ORC+42, OBXWP~, OBXWP+16, OBXWP+19 , OBXWP+24, OBXWP+26, OBXWP+35, OBXWP+36, OBXWP+41, OBXWP+44, OBXRSLT~, OBXRSLT+9, OBXRSLT+13, OBXRSLT+14 , NTE~, NTE+10, NTE+13, NTE+15, OBXSF~, OBXSF+8, OBXSF+11, OBXPOST+10, OBXPOST+13, OBXPOST+15 , OBXPOST+17, OBXPOST+22, OBXPOST+25 |
| GMRCOC | ORC~, ORC+10, ORC+12, ORC+22, ORC+34, ORC+36, ORC+40, ORC+41, ORC+44, OBXWP~ , OBXWP+14 |
| GMRCOS | ORC~, ORC+21, ORC+42, ORC+43 |
| GMRCPAG | ORC+29~, ORC+31*, ORC+32 |
| GMRCPCS | ORC+11~, ORC+51, OBXWP+12~, OBXWP+20, OBXWP+46, OBXRSLT+10~, OBXRSLT+23, NTE+11~, NTE+16, MSA+9~ , MSA+13, OBXTZ+7~, OBXTZ+11, OBXSF+9~, OBXSF+12, OBXPOST+5~, OBXPOST+14, OBXPOST+16, OBXPOST+18, OBXPOST+20 , OBXPOST+26 |
| GMRCPCS(1 | ORC+12*, OBXWP+17*, OBXWP+42*, OBXRSLT+11*, NTE+14*, MSA+10*, OBXTZ+8*, OBXSF+10*, OBXPOST+7* |
| GMRCPCS(10 | ORC+26* |
| GMRCPCS(11 | OBXWP+19*, OBXWP+45*, OBXRSLT+22*, OBXSF+11*, OBXPOST+8* |
| GMRCPCS(12 | ORC+28* |
| GMRCPCS(14 | ORC+32* |
| GMRCPCS(15 | ORC+33* |
| GMRCPCS(16 | ORC+38*, ORC+39*, ORC+40*, ORC+42*, ORC+43*, ORC+45*, ORC+46*, ORC+47* |
| GMRCPCS(17 | ORC+50* |
| GMRCPCS(2 | ORC+14*, ORC+18*, ORC+19*, OBXWP+17*, OBXWP+42*, OBXRSLT+11*, NTE+14*, MSA+11*, OBXTZ+8*, OBXSF+10* , OBXPOST+7* |
| GMRCPCS(3 | ORC+15*, ORC+16*, ORC+20*, OBXWP+18*, OBXWP+43*, OBXRSLT+16*, OBXRSLT+20*, NTE+15*, MSA+12*, OBXTZ+9* , OBXSF+10*, OBXPOST+7* |
| GMRCPCS(4 | OBXWP+18*, OBXWP+43*, OBXRSLT+12*, OBXTZ+9*, OBXSF+11*, OBXPOST+12*, OBXPOST+15*, OBXPOST+17*, OBXPOST+19*, OBXPOST+24* |
| GMRCPCS(5 | ORC+21*, OBXWP+19*, OBXWP+44*, OBXRSLT+17*, OBXRSLT+21*, OBXTZ+10*, OBXSF+11*, OBXPOST+13*, OBXPOST+15*, OBXPOST+17* , OBXPOST+19*, OBXPOST+25* |
| GMRCPCS(7 | ORC+23*, ORC+24* |
| GMRCPCS(9 | ORC+25* |
| GMRCPHN | ORC+29~, ORC+30*, ORC+32 |
| GMRCRP | ORC+11~, ORC+27*, ORC+28, ORC+30, ORC+31 |
| GMRCSEG | OBXWP~, OBXWP+21, OBXWP+48, OBXPOST+28 |
| GMRCSUBS | OBXPOST+5~, OBXPOST+6*, OBXPOST+22*, OBXPOST+25 |
| MCPRNM | OBXRSLT+19~*, OBXRSLT+21 |
| OBX11 | OBXWP+12~, OBXWP+31*, OBXWP+36*, OBXWP+45, OBXPOST+8 |
| PCS | BUILD~ |
| PCS( | BUILD+6, BUILD+7 |
| >> PROSTHCS | OBXWP+38 |
| 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+49*, ORC+50 |
| SUBS | OBXWP+15~*, OBXWP+16*, OBXWP+18, OBXWP+19, OBXWP+20 |
| TCH | OBXWP+12~, OBXWP+19, OBXWP+44, NTE+11~, NTE+15, OBXPOST+13, OBXPOST+25 |
| U | ORC+13, ORC+14, ORC+15, ORC+17, ORC+18, ORC+20, ORC+23, ORC+24, ORC+25, ORC+26 , ORC+27, ORC+33, ORC+35, ORC+37, ORC+50, OBXWP+26, OBXWP+36, OBXRSLT+13, OBXRSLT+14, OBXRSLT+19 , OBXRSLT+21, OBXSF+8, OBXSF+11 |
