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 |
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 |
---|---|---|
INIT(DGPROT,DGHL) | ;Kernel HL7 INIT wrapper
|
|
HLEID(DGPROT) | ;return IEN of HL7 protocol
|
|
GETLINK(DGINST) | ;retrieve a single link for a given institution
|
|
NXTSEG(DGROOT,DGCURR,DGFS,DGFLD) | ;retrieves next sequential segment
|
|
GETFLDS(DGSEG,DGFS,DGFLD) | ;retrieve HL7 segment fields into an array
|
|
STRIPTS(DGSTR) | ;Strip trailing spaces from a line of text
|
|
BLDSEG(DGTYP,DGVAL,DGHL) | ;generic segment builder
|
|
ADD(DGVAL,DGSEP,DGSEG) | ;append a value onto segment
|
|
CKSTR(DGFLDS,DGSTR) | ;validate comma-delimited HL7 field string
|
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 |