Routine: DGPFHLUT

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

Package	Total	Caller Graph
Registration	18	DGPFHLQ1 DGPFHLQ2 DGPFHLQ3 DGPFHLQ4 DGPFHLR DGPFHLS DGPFHLT DGPFHLT1 DGPFHLT2 DGPFHLT3 DGPFHLT4 DGPFHLU DGPFHLU1 DGPFHLU2 DGPFHLU3 DGPFHLU4 DGPFHLU6 DGPFHLUT

Entry Points

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
BLDTEXT(DGWP,DGHL,DGARR)	;Build HL7 word proc text array
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.
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
CONVMID(DGID)	;convert #772 msgid to #773 msgid
ENCHL7(STR)	; Encode HL7 escape sequences in a string
DECHL7(STR)	; Decode HL7 escape sequences in a string

Name	Field # of Occurrence
$$STRIPTS^DGPFHLUT	BLDTEXT+27
$$GET1^DIQ	CONVMID+24
INIT^HLFNC2	INIT+17
LINK^HLUTIL3	GETLINK+18
$$REPEAT^XLFSTR	BLDTEXT+31

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHR	ENCHL7+14~, ENCHL7+17*, ENCHL7+18, ENCHL7+19, ENCHL7+20
CHRSTR	ENCHL7+14~, ENCHL7+17*, ENCHL7+19
CNT	ENCHL7+14~, ENCHL7+17*, ENCHL7+20
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
ECHARS	DECHL7+17~, DECHL7+20*, DECHL7+21, DECHL7+26, DECHL7+27, DECHL7+30
ECODE	DECHL7+17~, DECHL7+34*, DECHL7+35, DECHL7+37
ESC	ENCHL7+14~, ENCHL7+16, ENCHL7+24, DECHL7+17~, DECHL7+21, DECHL7+23, DECHL7+32, DECHL7+34, DECHL7+35, DECHL7+37 , DECHL7+39
FLG	ENCHL7+14~, ENCHL7+17, ENCHL7+22, ENCHL7+24
>> HLECH	ENCHL7+16, ENCHL7+17, DECHL7+20
>> HLFS	ENCHL7+17, DECHL7+25
LEN	DECHL7+17~, DECHL7+32*, DECHL7+35, DECHL7+37
NEW	ENCHL7+14~, ENCHL7+18, ENCHL7+20, ENCHL7+21
NXTSEG	NXTSEG+14~, NXTSEG+17*, NXTSEG+18, NXTSEG+19
PAT	DECHL7+17~
PCE	DECHL7+17~, DECHL7+32*
REPL	DECHL7+17~
REPL(	DECHL7+35, DECHL7+37
REPL("E"	DECHL7+29*
REPL("F"	DECHL7+25*
REPL("R"	DECHL7+27*
REPL("S"	DECHL7+26*
REPL("T"	DECHL7+30*
RPLC	ENCHL7+14~, ENCHL7+19*, ENCHL7+20
SPACE	STRIPTS+8~, STRIPTS+9*, STRIPTS+10
STR	ENCHL7~, ENCHL7+17, ENCHL7+18, ENCHL7+20, ENCHL7+21, ENCHL7+24, ENCHL7+25, DECHL7~, DECHL7+23, DECHL7+32 , DECHL7+34, DECHL7+35, DECHL7+37, DECHL7+39*, DECHL7+40
Z1	ENCHL7+14~, ENCHL7+17*
Z2	ENCHL7+14~, ENCHL7+20*

Customize PDF page

Package: Registration

Routine: DGPFHLUT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 18

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: