Routine: VAFCPID

Information

VAFCPID ;ALB/MLI,PKE-Create generic PID segment ; 21 Nov 2002 3:13 PM

Source Information

Source file <VAFCPID.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Registration	4	(4,KVA)^VADPT (SEQ10,SEQ22)^VAFHLPI1 SEQ11^VAFHLPI2 MAKEIT^VAFHLU
Health Level Seven	1	($$HLDATE,$$HLPHONE,$$M10)^HLFNC
Kernel	1	$$HLNAME^XLFNAME
Uncategorized	1	$$GETICN^MPIF001
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 17

Package	Total	Caller Graph
Registration	13	DGRUGA01 DGRUGA02 DGRUGA03 DGRUGA08 DGRUGA11 DGRUGA12 DGRUGA13 DGRUGA21 DGRUGA22 VAFCA04 VAFCADT2 VAFCCOPT VAFCMSG3
Consult Request Tracking	3	GMRCIBKG GMRCIEV1 GMRCIEVT
Scheduling	1	SCMCHLS

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
ADDR(VAFADDR,VAFCOUNT)	;Return HL7 address ; Input - VAFADDR as address in format: ; line1^line2^line3^city^state^zip+4 ; VAFCOUNT as internal value of county (optional) ; Output - HL7 v2.3 formatted Address_HLFS_County Code
EN(DFN,VAFSTR,VAFNUM)	; returns PID segment ; Input - DFN as internal entry number of the PATIENT file ; VAFSTR as string of fields requested separated by commas ; VAFNUM as sequential number for SET ID (default=1)	ICR #3015 Status: Active Usage: Controlled Subscription

External References

Name	Field # of Occurrence
$$GET1^DIQ	EN+77, EN+78
$$HLDATE^HLFNC	EN+40, EN+82
$$HLPHONE^HLFNC	EN+59, EN+61
$$M10^HLFNC	EN+29
$$GETICN^MPIF001	EN+27
4^VADPT	EN+21
KVA^VADPT	QUIT
SEQ10^VAFHLPI1	EN+48
SEQ22^VAFHLPI1	EN+73
SEQ11^VAFHLPI2	EN+54
MAKEIT^VAFHLU	QUIT+1
$$HLNAME^XLFNAME	EN+34, EN+38

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(11 - [#11]	EN+63
^DIC(13 - [#13]	EN+65
^DIC(5 - [#5]	EN+56, ADDR+17, ADDR+23
^DPT - [#2]	EN+57

Label References

Name	Line Occurrences
QUIT	EN+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN~, EN+18*, EN+19, EN+27, EN+29, EN+33, EN+37, EN+57, EN+77, EN+78
DGBC	EN+76~, EN+77*, EN+79
DGBS	EN+76~, EN+78*, EN+79
DGMMN	EN+16~, EN+38
DGMMN("FIELD"	EN+37*
DGMMN("FILE"	EN+37*
DGMMN("IENS"	EN+37*
DGNAME	EN+16~, EN+34
DGNAME("FIELD"	EN+33*
DGNAME("FILE"	EN+33*
DGNAME("IENS"	EN+33*
>> HLECH	EN+34, EN+38, ADDR+9
>> HLFS	ADDR+26
>> HLQ	EN+27, EN+31, EN+34, EN+38, EN+48, EN+54, EN+56, EN+59, EN+61, EN+63 , EN+67, EN+73, ADDR+24
HOW	EN+45~, EN+47, EN+48, EN+51~, EN+53, EN+54, EN+70~, EN+72*, EN+73
I	EN+16~
OUTPUT	EN+16~, QUIT+1, QUIT+2
VA	EN+16~
VA("BID"	EN+31
VADM	EN+16~
VADM(10	EN+63
VADM(2	EN+67
VADM(3	EN+40
VADM(5	EN+42
VADM(6	EN+81
VADM(9	EN+65
VAFADDR	ADDR~, ADDR+11, ADDR+13, ADDR+15, ADDR+17, ADDR+19, ADDR+21, ADDR+23
VAFCOUNT	ADDR~, ADDR+23, ADDR+25
VAFNUM	EN~, EN+25
>> VAFPID	QUIT+1
VAFSTR	EN~, EN+17, EN+22, EN+25, EN+31, EN+36, EN+40, EN+42, EN+44, EN+46 , EN+47, EN+50, EN+52, EN+53, EN+56, EN+59, EN+61, EN+63, EN+65, EN+67 , EN+69, EN+71, EN+72, EN+75
VAFY	EN+16~, EN+23!, QUIT+1
VAFY(1	EN+25*
VAFY(12	EN+56*
VAFY(13	EN+59*
VAFY(14	EN+61*
VAFY(16	EN+63*
VAFY(17	EN+65*
VAFY(19	EN+67*
VAFY(2	EN+27*
VAFY(23	EN+79*
VAFY(29	EN+82*
VAFY(3	EN+29*
VAFY(30	EN+83*
VAFY(4	EN+31*
VAFY(5	EN+34*
VAFY(6	EN+38*
VAFY(7	EN+40*
VAFY(8	EN+42*
VAPA	EN+16~
VAPA("P"	EN+21*
VAPA(5	EN+56
VAPA(7	EN+56
X	EN+16~, EN+27, EN+31, EN+34, EN+38, EN+42, EN+57, EN+59, EN+61, EN+63* , EN+65, EN+67, EN+81, EN+82, ADDR+9~, ADDR+11, ADDR+13, ADDR+15, ADDR+17, ADDR+19 , ADDR+21, ADDR+23, ADDR+24, ADDR+26
X1	EN+16~, EN+56, EN+59, EN+61*
Y	EN+16~, EN+46, EN+47, EN+52, EN+53, EN+71, EN+72, ADDR+9~, ADDR+11, ADDR+13* , ADDR+15, ADDR+17, ADDR+19, ADDR+21, ADDR+23, ADDR+24, ADDR+26*, ADDR+27
Z	ADDR+9~, ADDR+24*

Customize PDF page

Package: Registration

Routine: VAFCPID

Call Graph Total: 8

Caller Graph Total: 17