©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
DGROHLUT ;DJH/AMA - ROM HL7 UTILITIES ; 24 Jun 2003 3:53 PM
Source file <DGROHLUT.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 2 | INIT^HLFNC2 LINK^HLUTIL3 |
| VA Fileman | 1 | $$FIND1^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NXTSEG(DGROOT,DGCURR,DGFS,DGFLD) | ;retrieves next sequential segment
|
|
| GETLINK(DGINST) | ;retrieve a single link for a given institution
|
|
| GETFLDS(DGSEG,DGFS,DGFLD) | ;retrieve HL7 segment fields into an array
|
|
| 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
|
|
| STRIPTS(DGSTR) | ;Strip trailing spaces from a line of text
|
|
| ADD(DGVAL,DGSEP,DGSEG) | ;append a value onto segment
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| Name | Line Occurrences |
|---|---|
| $$HLEID | INIT+14 |
| ADD | BLDSEG+35, BLDSEG+39, BLDSEG+43, BLDSEG+47 |
| GETFLDS | NXTSEG+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGCMP | BLDSEG+11~, BLDSEG+40*, BLDSEG+41, BLDSEG+42, BLDSEG+44, BLDSEG+45 |
| DGCMPVAL | BLDSEG+12~, BLDSEG+41*, BLDSEG+43 |
| DGCS | BLDSEG+20~, BLDSEG+29*, BLDSEG+42 |
| DGCURR | NXTSEG~, NXTSEG+18*, NXTSEG+19, NXTSEG+23*, NXTSEG+24 |
| DGFLD | NXTSEG~, NXTSEG+21, GETFLDS~, BLDSEG+13~, BLDSEG+33*, BLDSEG+34, BLDSEG+36, BLDSEG+37, BLDSEG+40, BLDSEG+41 , BLDSEG+44, BLDSEG+45 |
| DGFLD( | GETFLDS+18* |
| DGFLD("TYPE" | GETFLDS+16*, GETFLDS+18 |
| DGFLDS | CKSTR~, CKSTR+13, CKSTR+15 |
| DGFLDVAL | BLDSEG+14~, BLDSEG+34*, BLDSEG+35 |
| DGFS | NXTSEG~, NXTSEG+21, GETFLDS~, GETFLDS+16, GETFLDS+17, GETFLDS+18, BLDSEG+19~, BLDSEG+28*, BLDSEG+34 |
| DGHL | INIT~, INIT+16, BLDSEG~ |
| DGHL("" | INIT+17 |
| DGHL("ECH" | BLDSEG+29, BLDSEG+30, BLDSEG+31 |
| DGHL("FS" | BLDSEG+28 |
| DGHLEID | INIT+13~, INIT+14*, INIT+15, INIT+16, INIT+17*, INIT+18 |
| DGI | GETFLDS+14~, GETFLDS+17*, GETFLDS+18, CKSTR+10~, CKSTR+15* |
| DGINST | GETLINK~, GETLINK+15, GETLINK+16 |
| DGLINKS | GETLINK+12~, GETLINK+16 |
| DGLINKS( | GETLINK+18 |
| DGLINKS(0 | GETLINK+17 |
| DGLNK | GETLINK+12~, GETLINK+17*, GETLINK+18 |
| DGPROT | INIT~, INIT+14, HLEID~, HLEID+8, HLEID+9 |
| DGREP | BLDSEG+15~, BLDSEG+36*, BLDSEG+37, BLDSEG+38, BLDSEG+40, BLDSEG+41, BLDSEG+44, BLDSEG+45 |
| DGREPVAL | BLDSEG+16~, BLDSEG+37*, BLDSEG+39 |
| DGREQ | CKSTR+11~, CKSTR+15*, CKSTR+16 |
| DGROOT | NXTSEG~, NXTSEG+19 |
| DGRS | BLDSEG+21~, BLDSEG+30*, BLDSEG+38 |
| DGRSLT | GETLINK+12~, GETLINK+14*, GETLINK+18*, GETLINK+19 |
| DGSEG | GETFLDS~, GETFLDS+16, GETFLDS+17, GETFLDS+18, BLDSEG+23~, BLDSEG+27*, BLDSEG+35, BLDSEG+39, BLDSEG+43, BLDSEG+47 , BLDSEG+48, ADD~, ADD+11* |
| DGSEP | BLDSEG+23~, BLDSEG+34*, BLDSEG+35, BLDSEG+38*, BLDSEG+39, BLDSEG+42*, BLDSEG+43, BLDSEG+46*, BLDSEG+47, ADD~ , ADD+9*, ADD+11 |
| DGSS | BLDSEG+22~, BLDSEG+31*, BLDSEG+46 |
| DGSTR | STRIPTS~, STRIPTS+10*, STRIPTS+11, CKSTR~, CKSTR+14*, CKSTR+16*, CKSTR+17 |
| DGSUB | BLDSEG+17~, BLDSEG+44*, BLDSEG+45, BLDSEG+46 |
| DGSUBVAL | BLDSEG+18~, BLDSEG+45*, BLDSEG+47 |
| DGTYP | BLDSEG~, BLDSEG+25, BLDSEG+27 |
| DGVAL | BLDSEG~, ADD~, ADD+10*, ADD+11 |
| DGVAL( | BLDSEG+34, BLDSEG+36, BLDSEG+37, BLDSEG+40, BLDSEG+41, BLDSEG+44, BLDSEG+45 |
| DGVAL("" | BLDSEG+33 |
| NXTSEG | NXTSEG+16~, NXTSEG+19*, NXTSEG+20, NXTSEG+21 |
| SPACE | STRIPTS+8~, STRIPTS+9*, STRIPTS+10 |