Routine: VAFHLZEN

Information

VAFHLZEN ;ALB/KCL - Create generic HL7 Enrollment (ZEN) segment ; 12-SEPTEMBER-1997

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Registration	3	($$FINDCUR,$$GET)^DGENA $$PREF^DGENPTA $$STATION^VAFHLFNC
Health Level Seven	1	$$HLDATE^HLFNC

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Registration	5	DGRUGA01 DGRUGA08 VAFCA04 VAFCADT2 VAFCMSG3
Scheduling	1	SCDXMSG1

Entry Points

Name	Comments	DBIA/ICR reference
ENQ
EN(DFN,VAFSTR,VAFNUM,VAFHLQ,VAFHLFS)	; -- ; Entry point for creating HL7 Enrollment (ZEN) segment. ; ; Input(s): ; DFN - internal entry number of Patient (#2) file ; VAFSTR - (optional) string of fields requested, separated by ; commas. If not passed, return all data fields. ; VAFNUM - (optional) sequential number for SET ID (default=1) ; VAFHLQ - (optional) HL7 null variable. ; VAFHLFS - (optional) HL7 field separator.	ICR #5537 Status: Pending Usage: Private

Name

Comments

DBIA/ICR reference

ENQ

EN(DFN,VAFSTR,VAFNUM,VAFHLQ,VAFHLFS)

; --
; Entry point for creating HL7 Enrollment (ZEN) segment.
;
; Input(s):
; DFN - internal entry number of Patient (#2) file
; VAFSTR - (optional) string of fields requested, separated by
; commas. If not passed, return all data fields.
; VAFNUM - (optional) sequential number for SET ID (default=1)
; VAFHLQ - (optional) HL7 null variable.
; VAFHLFS - (optional) HL7 field separator.

ICR #5537

Status: Pending

Usage: Private

External References

Name	Field # of Occurrence
$$FINDCUR^DGENA	EN+30
$$GET^DGENA	EN+35
$$PREF^DGENPTA	EN+53
$$HLDATE^HLFNC	EN+46, EN+55, EN+56, EN+57
$$STATION^VAFHLFNC	EN+52, EN+53

Label References

Name	Line Occurrences
ENQ	EN+23, EN+31, EN+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN~, EN+23, EN+30, EN+53
>> HLFS	EN+17
>> HLQ	EN+17
SEQ	EN+14~, EN+26*
VAFENR	EN+14~, EN+35
VAFENR("APP"	EN+46, EN+56
VAFENR("EFFDATE"	EN+55
VAFENR("END"	EN+57
VAFENR("FACREC"	EN+52
VAFENR("PRIORITY"	EN+54
VAFENR("REASON"	EN+50
VAFENR("REMARKS"	EN+51
VAFENR("SOURCE"	EN+48
VAFENR("STATUS"	EN+49
VAFENR("SUBGRP"	EN+58
VAFHLFS	EN~, EN+17*, EN+38, EN+41, EN+46, EN+48, EN+49, EN+50, EN+51, EN+52 , EN+53, EN+54, EN+55, EN+56, EN+57, EN+58, ENQ
VAFHLQ	EN~, EN+17*, EN+46, EN+48, EN+49, EN+50, EN+51, EN+52, EN+53, EN+54 , EN+55, EN+56, EN+57, EN+58
VAFIEN	EN+14~, EN+30*, EN+31, EN+35
VAFNUM	EN~, EN+20*, EN+41
VAFPREF	EN+14~
VAFSTR	EN~, EN+26, EN+38, EN+46, EN+48, EN+49, EN+50, EN+51, EN+52, EN+53 , EN+54, EN+55, EN+56, EN+57, EN+58
VAFY	EN+14~, EN+23, EN+31, EN+35, EN+38, EN+41, EN+46, EN+48, EN+49, EN+50* , EN+51, EN+52, EN+53, EN+54, EN+55, EN+56, EN+57, EN+58, ENQ
>> X	EN+52, EN+53

Customize PDF page

Package: Registration