Routine: VAFCQRY1

Package	Total	Call Graph
Registration	4	KVA^VADPT NAME^VAFCPID2 CONT^VAFCQRY3 $$SITE^VASITE
Kernel	2	$$HLNAME^XLFNAME $$LKUP^XUAF4
Health Level Seven	1	$$HLDATE^HLFNC
Master Patient Index VistA	1	$$MPINODE^MPIFAPI
VA FileMan	1	GETS^DIQ

Package	Total	Caller Graph
Registration	3	VAFCQRY VAFCQRY3 VAFHLZTA
Income Verification Match	1	IVMPTRN8

Entry Points

Name	Comments	DBIA/ICR reference
BLDPID(DFN,CNT,SEQ,PID,HL,ERR)	;build PID from File #2 ; Variable list ; DFN - internal PATIENT (#2) number ; CNT - value to be place in PID seq#1 (SET ID) ; SEQ - variable consisting of sequence numbers delimited by commas ; that will be used to build the message (default is ALL) ; PID (passed by reference) - array location to place PID segment ; result, the array can have existing values when passed. ; HL - array that contains the necessary HL variables (init^hlsub) ; ERR - array that is used to return an error
ALTID	;**874 MVI_3035 (elz) alternate ID
NAMEPID	;patient name (last^first^middle^suffix^prefix^^"L" for legal)
PREFNAME
ALIAS
MOTHER	;mother's maiden name (last^first^middle^suffix^prefix^^"M" for maiden name)
HL7TXT(HL7STRG,HL,HLES)	; Replace occurrences of embedded HL7 delimiters with ; HL7 escape sequence
ADDLINE(NXT,LVL,REF,REP)	; Prepend REP to NXT and add it to the @REF ; array, starting at subscript LVL. If appending NXT causes the node ; to exceed 245 chars in length, add as much of NXT as possible to the ; current level, and the remaining at the next level. ; In: ; NXT = string to add to the @REF array ; .LVL = current subscript level (passed by referenced) ; REF = array reference string ; REP = repetition character (e.g., \|) ; **837,MVI_879: Created this subroutine to aid in adding TIN and FIN to PID-3.

Name	Field # of Occurrence
GETS^DIQ	BLDPID+29
$$HLDATE^HLFNC	BLDPID+54, BLDPID+71, BLDPID+86, BLDPID+98, MOTHER+7
$$MPINODE^MPIFAPI	BLDPID+23
KVA^VADPT	MOTHER+12
NAME^VAFCPID2	NAMEPID+3
CONT^VAFCQRY3	MOTHER+11
$$SITE^VASITE	BLDPID+38
$$HLNAME^XLFNAME	NAMEPID+3, ALIAS+8, ALIAS+9, MOTHER+4
$$LKUP^XUAF4	ALTID+6

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	BLDPID+23
^DGCN(391.91 - [#391.91]	ALTID+7, ALTID+8
^DPT - [#2]	BLDPID+25, BLDPID+67, BLDPID+79, BLDPID+81, PREFNAME+1, MOTHER+3

Name	Line Occurrences
ADDLINE	BLDPID+61, BLDPID+62, BLDPID+63, BLDPID+65, BLDPID+67, ALTID+10
HL7TXT	PREFNAME+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALIAS	ALIAS+1~, ALIAS+8, ALIAS+9, ALIAS+10, ALIAS+11, ALIAS+13, ALIAS+14, ALIAS+16, ALIAS+17*
ALIEN	ALIAS+1~, ALIAS+2*, ALIAS+5, ALIAS+7, ALIAS+9
APID	BLDPID+13~, MOTHER+11
APID(	BLDPID+39*
APID(2	BLDPID+40*
APID(3	BLDPID+42*
APID(4	BLDPID+45, BLDPID+52, BLDPID+54, BLDPID+55, BLDPID+60, BLDPID+73, BLDPID+74, BLDPID+76, BLDPID+77, BLDPID+82 , BLDPID+88, BLDPID+89, BLDPID+91, BLDPID+92, BLDPID+94, BLDPID+98*
APID(5	ALTID+2
APID(6	NAMEPID+3, PREFNAME+2, ALIAS+13, ALIAS+14, ALIAS+16, ALIAS+17, ALIAS+19*
APID(7	MOTHER+2, MOTHER+4, MOTHER+5, MOTHER+6
APID(8	MOTHER+7*
APID(9	MOTHER+8*
CITY	BLDPID+13~
CLAIM	BLDPID+13~, BLDPID+67*
CNT	BLDPID~, BLDPID+40
COMP	BLDPID+13~, BLDPID+19*, BLDPID+52, BLDPID+54, BLDPID+55, BLDPID+61, BLDPID+62, BLDPID+63, BLDPID+65, BLDPID+67 , BLDPID+71, BLDPID+86, BLDPID+98, ALTID+10, PREFNAME+2, MOTHER+11
CT	BLDPID+31~, BLDPID+32, BLDPID+33, BLDPID+35, BLDPID+36, BLDPID+70*, BLDPID+71
CURREF	ADDLINE+10~, ADDLINE+12*, ADDLINE+13, ADDLINE+14, ADDLINE+15
DFN	BLDPID~, BLDPID+23, BLDPID+25, BLDPID+29, BLDPID+64, BLDPID+65, BLDPID+67, BLDPID+79, BLDPID+81, ALTID+3 , ALTID+7, NAMEPID+3, PREFNAME+1, MOTHER+3, MOTHER+11
DT	BLDPID+54, BLDPID+71, BLDPID+81
EN	BLDPID+18~*
ENT	BLDPID+31~*, BLDPID+33, BLDPID+35, BLDPID+36
ERR	BLDPID~, MOTHER+11
FIN	BLDPID+59~, BLDPID+60*, BLDPID+62
HIST	BLDPID+13~, BLDPID+79~*, BLDPID+81
HISTDT	BLDPID+13~, BLDPID+79, BLDPID+81, BLDPID+86, BLDPID+98
HL	BLDPID~, PREFNAME+2, MOTHER+11, HL7TXT~
HL("COMP"	BLDPID+19, HL7TXT+13, HL7TXT+15
HL("ECH"	BLDPID+19, BLDPID+20, NAMEPID+3, ALIAS+8, ALIAS+9, ALIAS+11, MOTHER+4, MOTHER+5, HL7TXT+13
HL("FS"	BLDPID+19, HL7TXT+15
HL("Q"	BLDPID+19, BLDPID+71, ALIAS+19, MOTHER+2, MOTHER+4, MOTHER+6, MOTHER+7, MOTHER+8
HL("REP"	BLDPID+20, HL7TXT+13, HL7TXT+15
HL("SUBCOMP"	BLDPID+20, HL7TXT+13, HL7TXT+15
HL7STRG	HL7TXT~, HL7TXT+22, HL7TXT+23*
HLECH	BLDPID+13~, BLDPID+19*
HLES	BLDPID+13~, BLDPID+20*, PREFNAME+2, MOTHER+11, HL7TXT~, HL7TXT+15, HL7TXT+23
HLES2	HL7TXT+11~, HL7TXT+15*, HL7TXT+22
HLFS	BLDPID+13~, BLDPID+19*
HLQ	BLDPID+13~, BLDPID+19*, BLDPID+61, BLDPID+62, BLDPID+63
I	HL7TXT+11~, HL7TXT+23*
ITIN	BLDPID+59~, BLDPID+60*, BLDPID+63
LNGTH	BLDPID+13~, BLDPID+74, BLDPID+77, BLDPID+89, BLDPID+92, ALIAS+1~, ALIAS+14, ALIAS+17, ADDLINE+10~, ADDLINE+15*
LVL	BLDPID+13~, BLDPID+56, BLDPID+61, BLDPID+62, BLDPID+63, BLDPID+65, BLDPID+67, BLDPID+72, BLDPID+74, BLDPID+75 , BLDPID+76, BLDPID+77, BLDPID+87, BLDPID+89, BLDPID+90, BLDPID+91, BLDPID+92, ALTID+2, ALTID+10, ADDLINE~ , ADDLINE+11, ADDLINE+12, ADDLINE+13, ADDLINE+15
LVL6	ALIAS+1~, ALIAS+12, ALIAS+14, ALIAS+15, ALIAS+16, ALIAS+17*
NAMEC	ALIAS+6~, ALIAS+8
NAMEC("FIELD"	ALIAS+7*
NAMEC("FILE"	ALIAS+7*
NAMEC("IENS"	ALIAS+7*
NXT	BLDPID+13~, BLDPID+71, BLDPID+73, BLDPID+74, BLDPID+76, BLDPID+77, BLDPID+86, BLDPID+88, BLDPID+89, BLDPID+91 , BLDPID+92, ADDLINE~, ADDLINE+13*, ADDLINE+14, ADDLINE+15
NXTC	BLDPID+13~, BLDPID+56, BLDPID+74, BLDPID+76, BLDPID+78, BLDPID+89, BLDPID+91, BLDPID+93, ALIAS+1~, ALIAS+14* , ALIAS+16, ALIAS+18*
OCHR	HL7TXT+11~, HL7TXT+22*, HL7TXT+23
PID	BLDPID~, MOTHER+11
POS	BLDPID+18~*
PREFNAM	PREFNAME+1~*, PREFNAME+2
RCHR	HL7TXT+11~, HL7TXT+22*, HL7TXT+23
RCHRI	HL7TXT+11~, HL7TXT+19*, HL7TXT+22
REF	BLDPID+59~, BLDPID+60, BLDPID+61, BLDPID+62, BLDPID+63, BLDPID+65, BLDPID+67, ALTID+2, ALTID+10, ADDLINE~ , ADDLINE+12, ADDLINE+15
REP	BLDPID+13~, BLDPID+20*, BLDPID+55, BLDPID+61, BLDPID+62, BLDPID+63, BLDPID+65, BLDPID+67, BLDPID+73, BLDPID+74 , BLDPID+76, BLDPID+77, BLDPID+88, BLDPID+89, BLDPID+91, BLDPID+92, ALTID+10, PREFNAME+2, ALIAS+13, ALIAS+14 , ALIAS+16, ALIAS+17, MOTHER+11, ADDLINE~, ADDLINE+13
SARY	BLDPID+13~, MOTHER+11
SARY(	BLDPID+18*
SARY(2	BLDPID+42
SARY(3	BLDPID+44
SARY(4	ALTID+1
SARY(5	NAMEPID+1
SARY(6	MOTHER+1
SARY(7	MOTHER+7
SARY(8	MOTHER+8
SEQ	BLDPID~, BLDPID+14, BLDPID+15, BLDPID+16, BLDPID+18, BLDPID+42, BLDPID+44, ALTID+1, NAMEPID+1, MOTHER+1 , MOTHER+7, MOTHER+8, MOTHER+11
SITA	BLDPID+13~, BLDPID+48, BLDPID+50, BLDPID+51, BLDPID+52, BLDPID+84, BLDPID+85, BLDPID+86, BLDPID+96, BLDPID+97* , BLDPID+98
SITE	BLDPID+13~, BLDPID+38*
SSN	BLDPID+13~, BLDPID+25*, BLDPID+55, MOTHER+11
STATE	BLDPID+13~
STATEIEN	BLDPID+13~
STN	BLDPID+13~, BLDPID+38*, BLDPID+48, BLDPID+50, BLDPID+51, BLDPID+54, BLDPID+55, BLDPID+61, BLDPID+62, BLDPID+63 , BLDPID+65, BLDPID+67, BLDPID+71, BLDPID+84, BLDPID+85, BLDPID+96, BLDPID+97
SUBCOMP	BLDPID+13~, BLDPID+20*, BLDPID+52, BLDPID+55, BLDPID+61, BLDPID+62, BLDPID+63, BLDPID+65, BLDPID+67, BLDPID+71 , BLDPID+86, BLDPID+98, ALTID+10
TIN	BLDPID+59~, BLDPID+60*, BLDPID+61
TMP	BLDPID+39~*
TYPE	HL7TXT+11~, HL7TXT+18*, HL7TXT+19
VAFCA	BLDPID+29~, BLDPID+31
VAFCA(	BLDPID+31, BLDPID+33, BLDPID+35, BLDPID+36
VAFCA1	BLDPID+29~, BLDPID+68, ALIAS+2
VAFCA1(	BLDPID+33, BLDPID+35, BLDPID+36*, BLDPID+70, BLDPID+71, ALIAS+2, ALIAS+5, ALIAS+7, ALIAS+9
VAFCHMN	BLDPID+13~, BLDPID+79, BLDPID+81, BLDPID+84, BLDPID+85, BLDPID+86, BLDPID+96, BLDPID+97, BLDPID+98
VAFCMMN	BLDPID+13~, MOTHER+3*, MOTHER+4
VAFCMN	BLDPID+13~, BLDPID+22, BLDPID+23, BLDPID+24*, BLDPID+42, BLDPID+47, BLDPID+48, BLDPID+50, BLDPID+51, BLDPID+52 , BLDPID+54, BLDPID+60, MOTHER+11
VAFCZN	BLDPID+13~, BLDPID+25*, NAMEPID+3, MOTHER+7, MOTHER+8
VAVIC	ALTID+5~
VAVIC(	ALTID+8*
VAVIC(0	ALTID+9, ALTID+10
VAVIC(2	ALTID+9, ALTID+10
VAVICF	ALTID+5~, ALTID+6*, ALTID+7
VAVICX	ALTID+5~, ALTID+7*, ALTID+8
X	BLDPID+13~, BLDPID+23~, ALTID+5~, ALTID+8, NAMEPID+3~*

Customize PDF page

Package: Registration

Routine: VAFCQRY1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: