©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
DGQEHLUT ;ALB/RPM - VIC REPLACEMENT HL7 UTILITIES ; 10/6/03
Source file <DGQEHLUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NXTSEG(DGROOT,DGCURR,DGFS,DGFLD) | ;retrieves next sequential segment
; This function retrieves the next segment in the work global, returns ; an array of field values and the segment's work global index. If ; the next segment does not exist, then the function returns a zero. |
|
| BLDSEG(DGTYP,DGVAL,DGHL) | ;generic segment builder
|
|
| CKSTR(DGFLDS,DGSTR) | ;validate comma-delimited HL7 field string
|
|
| HLEID(DGPROT) | ;return IEN of HL7 protocol
|
|
| INIT(DGPROT,DGHL) | ;Kernel HL7 INIT wrapper
|
|
| GETFLDS(DGSEG,DGFS,DGFLD) | ;retrieve HL7 segment fields into an array
|
|
| ADD(DGVAL,DGSEP,DGSEG) | ;append a value onto segment
|
| Name | Field # of Occurrence |
|---|---|
| INIT^HLFNC2 | INIT+16 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101 - [#101] | HLEID+9 |
| Name | Line Occurrences |
|---|---|
| $$HLEID | INIT+14 |
| ADD | BLDSEG+36, BLDSEG+40, BLDSEG+44, BLDSEG+48 |
| GETFLDS | NXTSEG+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGCMP | BLDSEG+11~, BLDSEG+41*, BLDSEG+42, BLDSEG+43, BLDSEG+45, BLDSEG+46 |
| DGCMPVAL | BLDSEG+12~, BLDSEG+42*, BLDSEG+44 |
| DGCS | BLDSEG+20~, BLDSEG+30*, BLDSEG+43 |
| DGCURR | NXTSEG~, NXTSEG+16*, NXTSEG+17, NXTSEG+21*, NXTSEG+22 |
| DGFLD | NXTSEG~, NXTSEG+19, GETFLDS~, BLDSEG+13~, BLDSEG+34*, BLDSEG+35, BLDSEG+37, BLDSEG+38, BLDSEG+41, BLDSEG+42 , BLDSEG+45, BLDSEG+46 |
| DGFLD( | GETFLDS+18* |
| DGFLD("TYPE" | GETFLDS+16*, GETFLDS+18 |
| DGFLDS | CKSTR~, CKSTR+13, CKSTR+15 |
| DGFLDVAL | BLDSEG+14~, BLDSEG+35*, BLDSEG+36 |
| DGFS | NXTSEG~, NXTSEG+19, GETFLDS~, GETFLDS+16, GETFLDS+17, GETFLDS+18, BLDSEG+19~, BLDSEG+29*, BLDSEG+35 |
| DGHL | INIT~, INIT+16, BLDSEG~ |
| DGHL("" | INIT+17 |
| DGHL("ECH" | BLDSEG+30, BLDSEG+31, BLDSEG+32 |
| DGHL("FS" | BLDSEG+29 |
| DGHLEID | INIT+12~, INIT+13*, INIT+14*, INIT+15, INIT+16, INIT+17*, INIT+18 |
| DGI | GETFLDS+14~, GETFLDS+17*, GETFLDS+18, CKSTR+10~, CKSTR+15* |
| DGPROT | INIT~, INIT+14, HLEID~, HLEID+8, HLEID+9 |
| DGREP | BLDSEG+15~, BLDSEG+37*, BLDSEG+38, BLDSEG+39, BLDSEG+41, BLDSEG+42, BLDSEG+45, BLDSEG+46 |
| DGREPVAL | BLDSEG+16~, BLDSEG+38*, BLDSEG+40 |
| DGREQ | CKSTR+11~, CKSTR+15*, CKSTR+16 |
| DGROOT | NXTSEG~, NXTSEG+17 |
| DGRS | BLDSEG+21~, BLDSEG+31*, BLDSEG+39 |
| DGSEG | GETFLDS~, GETFLDS+16, GETFLDS+17, GETFLDS+18, BLDSEG+23~, BLDSEG+28*, BLDSEG+36, BLDSEG+40, BLDSEG+44, BLDSEG+48 , BLDSEG+49, ADD~, ADD+11* |
| DGSEP | BLDSEG+24~, BLDSEG+35*, BLDSEG+36, BLDSEG+39*, BLDSEG+40, BLDSEG+43*, BLDSEG+44, BLDSEG+47*, BLDSEG+48, ADD~ , ADD+9*, ADD+11 |
| DGSS | BLDSEG+22~, BLDSEG+32*, BLDSEG+47 |
| DGSTR | CKSTR~, CKSTR+14*, CKSTR+16*, CKSTR+17 |
| DGSUB | BLDSEG+17~, BLDSEG+45*, BLDSEG+46, BLDSEG+47 |
| DGSUBVAL | BLDSEG+18~, BLDSEG+46*, BLDSEG+48 |
| DGTYP | BLDSEG~, BLDSEG+26, BLDSEG+28 |
| DGVAL | BLDSEG~, ADD~, ADD+10*, ADD+11 |
| DGVAL( | BLDSEG+35, BLDSEG+37, BLDSEG+38, BLDSEG+41, BLDSEG+42, BLDSEG+45, BLDSEG+46 |
| DGVAL("" | BLDSEG+34 |
| NXTSEG | NXTSEG+14~, NXTSEG+17*, NXTSEG+18, NXTSEG+19 |