©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
DGPFHLUT ;ALB/RPM - PRF HL7 UTILITIES ; 5/31/05 3:45pm
Source file <DGPFHLUT.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 2 | INIT^HLFNC2 LINK^HLUTIL3 |
| Kernel | 1 | $$REPEAT^XLFSTR |
| Registration | 1 | $$STRIPTS^DGPFHLUT |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDSEG(DGTYP,DGVAL,DGHL) | ;generic segment builder
|
|
| CONVMID(DGID) | ;convert #772 msgid to #773 msgid
|
|
| 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. |
|
| BLDTEXT(DGWP,DGHL,DGARR) | ;Build HL7 word proc text array
|
|
| STRIPTS(DGSTR) | ;Strip trailing spaces from a line of text
|
|
| GETLINK(DGINST) | ;retrieve a single link for a given institution
|
|
| 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
|
| FileNo | Call Tags |
|---|---|
| ^HLMA - [#773] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HL(772 - [#772] | CONVMID+22 |
| ^HLMA("B" | CONVMID+23 |
| ^ORD(101 - [#101] | HLEID+9 |
| Name | Line Occurrences |
|---|---|
| $$HLEID | INIT+15 |
| ADD | BLDSEG+36, BLDSEG+40, BLDSEG+44, BLDSEG+48 |
| GETFLDS | NXTSEG+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DG772 | CONVMID+17~, CONVMID+22*, CONVMID+23 |
| DG773 | CONVMID+18~, CONVMID+23*, CONVMID+24 |
| DGARR | BLDTEXT~ |
| DGARR( | BLDTEXT+31*, BLDTEXT+33* |
| DGBLK | BLDTEXT+17~, BLDTEXT+22*, BLDTEXT+28*, BLDTEXT+30, BLDTEXT+31, BLDTEXT+32* |
| DGCMP | BLDSEG+11~, BLDSEG+41*, BLDSEG+42, BLDSEG+43, BLDSEG+45, BLDSEG+46 |
| DGCMPVAL | BLDSEG+12~, BLDSEG+42*, BLDSEG+44 |
| DGCNT | BLDTEXT+15~, BLDTEXT+21*, BLDTEXT+29*, BLDTEXT+31, BLDTEXT+33, BLDTEXT+34 |
| DGCS | BLDSEG+20~, BLDSEG+30*, BLDSEG+43 |
| DGCURR | NXTSEG~, NXTSEG+16*, NXTSEG+17, NXTSEG+21*, NXTSEG+22 |
| DGERR | CONVMID+19~, CONVMID+25 |
| 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+17, BLDTEXT~, BLDSEG~ |
| DGHL("" | INIT+18 |
| DGHL("ECH" | BLDTEXT+23, BLDSEG+30, BLDSEG+31, BLDSEG+32 |
| DGHL("FS" | BLDSEG+29 |
| DGHLEID | INIT+13~, INIT+14*, INIT+15*, INIT+16, INIT+17, INIT+18*, INIT+19 |
| DGI | GETFLDS+14~, GETFLDS+17*, GETFLDS+18, CKSTR+10~, CKSTR+15* |
| DGID | CONVMID~, CONVMID+22 |
| DGINST | GETLINK~, GETLINK+17, GETLINK+18 |
| DGLIN | BLDTEXT+14~, BLDTEXT+20*, BLDTEXT+25*, BLDTEXT+26 |
| DGLINKS | GETLINK+12~, GETLINK+18 |
| DGLINKS( | GETLINK+20 |
| DGLINKS(0 | GETLINK+19 |
| DGLNK | GETLINK+13~, GETLINK+19*, GETLINK+20 |
| DGMCID | CONVMID+20~, CONVMID+24*, CONVMID+25 |
| DGPROT | INIT~, INIT+15, HLEID~, HLEID+8, HLEID+9 |
| DGREP | BLDTEXT+18~, BLDTEXT+23*, BLDTEXT+31, 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 |
| DGRSLT | GETLINK+14~, GETLINK+16*, GETLINK+20*, GETLINK+21 |
| 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 | STRIPTS~, STRIPTS+10*, STRIPTS+11, CKSTR~, CKSTR+14*, CKSTR+16*, CKSTR+17 |
| DGSUB | BLDSEG+17~, BLDSEG+45*, BLDSEG+46, BLDSEG+47 |
| DGSUBVAL | BLDSEG+18~, BLDSEG+46*, BLDSEG+48 |
| DGTXT | BLDTEXT+16~, BLDTEXT+26*, BLDTEXT+27*, BLDTEXT+28, BLDTEXT+31, BLDTEXT+33 |
| 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 |
| DGWP | BLDTEXT~, BLDTEXT+25, BLDTEXT+26 |
| NXTSEG | NXTSEG+14~, NXTSEG+17*, NXTSEG+18, NXTSEG+19 |
| SPACE | STRIPTS+8~, STRIPTS+9*, STRIPTS+10 |