Routine: IVMPRECA

Package	Total	Call Graph
Income Verification Match	6	$$AUTODOD^IVMLDEMD ACK^IVMPREC BLDPID^IVMPREC6 ($$CHKEMAIL,$$CNTRCONV)^IVMPREC8 ($$AUTOLANG,$$AUTORINC,$$LANGCK,STORE)^IVMPREC9 ($$MATCH,PARSPID3)^IVMUFNC
Registration	3	$$CODE2PTR^DGUTL4 DEM^VADPT ZIPIN^VAFADDR
Kernel	2	$$FIPSCHK^XIPUTIL $$NOW^XLFDT
VA FileMan	2	$$FIND1^DIC GETS^DIQ
Health Level Seven	1	($$FMDATE,$$FMNAME)^HLFNC

Package	Total	Caller Graph
Income Verification Match	4	IVMCMC IVMPREC3 IVMPREC6 IVMPREC8
Enrollment Application System	1	EASPREC6
Registration	1	DGENUPL

Entry Points

Name	Comments	DBIA/ICR reference
EN	; - Entry point to create temp array and perform msg consistency checks
ENQ	; - send acknowledgement (ACK) 'AE' msg to the IVM Center
ADDRCHK	; - validate address fields sent by IVM Center
NEXT	; - get the next HL7 segment in the message from HL7 Transmission (#772) file
PID10	; Perform consistency checks for seq. 10 ; Get all Race data from seq. 10 of PID segment
PID11	; Perform consistency check for seq. 11
PID13	; Perform consistency checks for seq. 13
CLEARF(NODE,DEL,IGNORE)	; ; Input: NODE - SEGMENT/SEQ. ; DEL - Delimiter (optional - default is ^) ; IGNORE - String of seq # to avoid (optional)
ZPDPA	; compare ZPD with DHCP ; IVM2.0215 - Moved ZPD tag from IVMPREC8 and renamed it to ZPDPA tag to fix size error ; ZPD tag in IVMPREC8 now calls ZPDPA
ZGDPA	; compare ZGD with DHCP ; IVM2.0219 - Moved ZGD tag from IVMPREC8 and renamed it to ZGDPA tag to fix size error ; ZGD tag in IVMPREC8 now calls ZGDPA
DODCK(DFN)	;this will check if Date of Death needs to be uploaded or not. ; IVM2.0215 - Moved DODCK tag from IVMPREC8 to fix size error

Name	Field # of Occurrence
$$CODE2PTR^DGUTL4	PID10+20, PID10+21
$$FIND1^DIC	EN+78
GETS^DIQ	DODCK+20
$$FMDATE^HLFNC	EN+50, EN+74, ZPDPA+15, ZGDPA+15
$$FMNAME^HLFNC	ZPDPA+18
$$AUTODOD^IVMLDEMD	ZPDPA+28
ACK^IVMPREC	ENQ+1
BLDPID^IVMPREC6	EN+17
$$CHKEMAIL^IVMPREC8	PID13+18
$$CNTRCONV^IVMPREC8	ADDRCHK+10
$$AUTOLANG^IVMPREC9	ZPDPA+30
$$AUTORINC^IVMPREC9	ZPDPA+27
$$LANGCK^IVMPREC9	ZPDPA+8
STORE^IVMPREC9	ZPDPA+24, ZPDPA+26, ZGDPA+19
$$MATCH^IVMUFNC	EN+46
PARSPID3^IVMUFNC	EN+43
DEM^VADPT	ZPDPA+21
ZIPIN^VAFADDR	ADDRCHK+37, ZGDPA+13
$$FIPSCHK^XIPUTIL	ADDRCHK+35
$$NOW^XLFDT	EN+74

FileNo	Call Tags
^DI(.85 - [#.85]	FIND1^DIC
^DPT - [#2]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(10.2 - [#10.2]	EN+61
^DIC(13 - [#13]	EN+58
^DIC(5 - [#5]	ADDRCHK+29, ADDRCHK+31, ZGDPA+12
^DPT - [#2]	EN+74
^IVM(301.92 - [#301.92]	ZPDPA+23, ZGDPA+17
^TMP($J	NEXT+1

Name	Line Occurrences
$$CLEARF	EN+22, EN+23
$$DODCK	ZPDPA+6
ADDRCHK	PID11+29
ENQ	EN+11, EN+25, EN+29, EN+31, EN+39, EN+46, EN+50, EN+52, EN+55, EN+56 , EN+58, EN+61, EN+62, EN+70, EN+74, EN+78, EN+83, EN+84, EN+85
NEXT	EN+11, EN+15, EN+29, EN+34, EN+36
PID10	EN+68
PID11	EN+67
PID13	EN+69

Name	Field # of Occurrence
^(	NEXT+1
^(1	ZPDPA+23, ZGDPA+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDRESS	PID11+28
>> ADDRESS(	PID11+10, PID11+21, PID11+29
>> ADDRESS("CA"	PID11+13, PID11+23
ADDRTYPE	EN+3~, ADDRCHK+8, ADDRCHK+21, ADDRCHK+22, ADDRCHK+23, ADDRCHK+25, ADDRCHK+30, ADDRCHK+36, ADDRCHK+37, PID11+6* , PID11+7, PID11+9, PID11+10, PID11+12, PID11+14, PID11+17, PID11+18, PID11+20, PID11+21, PID11+22 , PID11+24, PID11+29
ADDSEQ	EN+3~, PID11+4*, PID11+5, PID11+6, PID11+10, PID11+13
>> CKDEL	DODCK+17*
CNTR	EN+3~, EN+12, EN+16, EN+19*, EN+20, EN+21, EN+22, EN+23, EN+24
CNTR2	EN+3~, EN+21*, EN+22
>> CNTRY	ADDRCHK+9*, ADDRCHK+10, ADDRCHK+11
COMMTYPE	EN+3~, PID13+15*, PID13+16, PID13+17
COMP	EN+3~
>> CONFADCT	PID11+1, PID11+14, PID11+15, PID11+24*, PID11+25
>> CONFADCT(	PID11+15, PID11+25
DEL	CLEARF~, CLEARF+5*, CLEARF+6, CLEARF+8
DFN	EN+2~, EN+44*, EN+46, EN+47, EN+74, ZPDPA+6, ZPDPA+8, ZPDPA+27, ZPDPA+28, ZPDPA+30 , DODCK~, DODCK+20, DODCK+21
>> DOD	DODCK+21*, DODCK+22, DODCK+23, DODCK+24
DODARRAY	DODCK+15~
DODARRAY(2	DODCK+21
>> DODSEG	EN+7, EN+28, EN+66
DT	EN+50
>> ERRMSG	EN+46
>> FORFLG	ADDRCHK+11*, ADDRCHK+16, ADDRCHK+17, ADDRCHK+18, ADDRCHK+28
>> GUARSEG	EN+8, EN+27, EN+66
>> HLECH	EN+22, EN+23, EN+61, ADDRCHK+9, ADDRCHK+12, ADDRCHK+13, ADDRCHK+16, ADDRCHK+17, ADDRCHK+19, ADDRCHK+21 , ADDRCHK+22, ADDRCHK+23, ADDRCHK+25, ADDRCHK+29, ADDRCHK+37, PID10+8, PID10+12, PID10+13, PID11+6, PID11+17 , PID13+7, PID13+8, PID13+10, PID13+11, PID13+17, ZPDPA+18, ZGDPA+11
>> HLERR	EN+11, EN+25, EN+29, EN+31, EN+39, EN+46, EN+50, EN+52, EN+56, EN+59 , EN+62, EN+67, EN+68, EN+70, EN+74, EN+78, EN+83, EN+84, EN+85, ENQ+1 , ADDRCHK+9, ADDRCHK+10, ADDRCHK+12, ADDRCHK+13, ADDRCHK+16, ADDRCHK+17, ADDRCHK+18, ADDRCHK+20, ADDRCHK+21, ADDRCHK+22* , ADDRCHK+23, ADDRCHK+25, ADDRCHK+28, ADDRCHK+30, ADDRCHK+31, ADDRCHK+36, ADDRCHK+37, PID10+6, PID10+9, PID10+12* , PID10+14, PID10+16, PID10+19, PID10+22, PID11+4, PID11+5, PID11+7, PID11+16, PID11+18, PID11+26 , PID11+28, PID11+29, PID13+5, PID13+7, PID13+10, PID13+12, PID13+15, PID13+18
HLERRDEF	ADDRCHK+1~, ADDRCHK+8*, ADDRCHK+9, ADDRCHK+10, ADDRCHK+12, ADDRCHK+13, ADDRCHK+16, ADDRCHK+17, ADDRCHK+20
>> HLFS	EN+12, EN+26, EN+27, EN+28, EN+32, EN+40, EN+74, EN+76, EN+81, EN+82 , CLEARF+5, ZPDPA+10, ZPDPA+12, ZGDPA+5, ZGDPA+7, ZGDPA+10
>> HLQ	EN+24, EN+83, EN+85, CLEARF+8
I	EN+14, CLEARF+4~, CLEARF+6, CLEARF+7, CLEARF+8
>> ICN	EN+44*, EN+46
IGNORE	CLEARF~, CLEARF+7
>> IVMADDR	ZGDPA+10*, ZGDPA+11
>> IVMADFLG	ZGDPA+3, ZGDPA+7, ZGDPA+11
>> IVMALADT(	PID11+9, PID11+10, PID11+12, PID11+14, PID11+20, PID11+21, PID11+22, PID11+24
IVMCNTY	EN+2~, ADDRCHK+19*, ADDRCHK+20, ADDRCHK+31, ADDRCHK+35
IVMCR	EN+2~
>> IVMDA	EN+6
>> IVMDEMDA	ZPDPA+23, ZGDPA+17
>> IVMDFN	EN+47*
>> IVMDHCP	ZPDPA+23, ZPDPA+24, ZGDPA+17, ZGDPA+19
IVMEG	EN+2~
IVMFLAG	EN+2~
IVMFLD	EN+2~, ZPDPA+12, ZPDPA+15, ZPDPA+18, ZPDPA+24, ZGDPA+7, ZGDPA+11, ZGDPA+12, ZGDPA+13, ZGDPA+15 , ZGDPA+19
IVMNUM	EN+2~, EN+6, NEXT+1
>> IVMPID	EN+17
>> IVMPID(	EN+19, EN+20, EN+21, EN+22, EN+23, EN+24*
>> IVMPID(10	PID10+4, PID10+5, PID10+6, PID10+7, PID10+8, PID10+10, PID10+11, PID10+12, PID10+13, PID10+15
>> IVMPID(11	PID11+2, PID11+3, PID11+4, PID11+5, PID11+6, PID11+10, PID11+13, PID11+16, PID11+17, PID11+21 , PID11+23
>> IVMPID(13	PID13+3, PID13+4, PID13+5, PID13+6, PID13+7, PID13+8, PID13+9, PID13+10, PID13+11
>> IVMPID(16	EN+55
>> IVMPID(17	EN+58
>> IVMPID(22	EN+61
>> IVMPID(3	EN+43
>> IVMPID(7	EN+50
>> IVMPID(8	EN+52
>> IVMPIECE	ZPDPA+5, ZPDPA+10, ZPDPA+12, ZPDPA+25, ZGDPA+4, ZGDPA+5, ZGDPA+7, ZGDPA+10*, ZGDPA+11, ZGDPA+12 , ZGDPA+13
IVMRACE	EN+5!
IVMRACE(1	PID10+10, PID10+15, PID10+19, PID10+23
IVMRACE(2	PID10+23*
>> IVMRTN	NEXT+1
IVMSEG	EN+2~, EN+35*, ZPDPA+10, ZPDPA+12, ZPDPA+25, ZGDPA+5, ZGDPA+7, ZGDPA+10, DODCK+19, DODCK+23 , DODCK+24
IVMSTPTR	EN+2~, ADDRCHK+29*, ADDRCHK+30, ADDRCHK+31, ADDRCHK+33
IVMSTR	EN+2~, EN+11, EN+12, EN+15, EN+16, EN+25, EN+26, EN+29, EN+31, EN+32 , EN+35, EN+39, EN+40, NEXT+1*
IVMSTR("ZGD"	EN+40*, EN+81, EN+82
IVMSTR("ZPD"	EN+26*, EN+27, EN+28, EN+74, EN+76
IVMSTR("ZTA"	EN+32*
>> IVMXREF	ZPDPA+5, ZPDPA+6, ZPDPA+8, ZPDPA+15, ZPDPA+18, ZPDPA+26, ZPDPA+27, ZPDPA+28, ZPDPA+30, ZGDPA+4 , ZGDPA+9, ZGDPA+15
MULTDONE	EN+4~
NODE	CLEARF~, CLEARF+6, CLEARF+8*, CLEARF+9
NOPID	EN+3~, EN+12, EN+14, EN+15
PID3ARRY	EN+3~
PID3ARY	EN+43, EN+45!
PID3ARY("NI"	EN+44
PID3ARY("PI"	EN+44
>> PIDSTR	EN+17
>> PIDSTR(	EN+12, EN+16
QUIT	DODCK+15~, DODCK+17, DODCK+23, DODCK+24*, DODCK+26
RACEDA	PID10+2~, PID10+20, PID10+21, PID10+22, PID10+23
RACEFLG	PID10+2~, PID10+3, PID10+6, PID10+7, PID10+11*, PID10+18
RACESQ	PID10+2~, PID10+6*, PID10+7, PID10+8, PID10+10
RACEVAL	PID10+2~, PID10+8, PID10+9, PID10+10, PID10+13, PID10+14, PID10+15, PID10+19*, PID10+20, PID10+21 , PID10+23
STFIPS	ADDRCHK+32~, ADDRCHK+33, ADDRCHK+34, ADDRCHK+35
STFLG	ZPDPA+3~, ZPDPA+4, ZPDPA+24, ZPDPA+27
TCFLG	EN+3~, PID13+2, PID13+5, PID13+6, PID13+9*, PID13+14
>> TELECOM(	PID13+8, PID13+11, PID13+15, PID13+17
TELESEQ	EN+3~, PID13+5*, PID13+6, PID13+7, PID13+8
TMPARRY	EN+3~, EN+43, EN+45!
TMPARRY(3	EN+43*
X	EN+2~, EN+50, EN+52, EN+55, EN+58, EN+61, EN+74, EN+76, EN+77, EN+78 , EN+82, EN+83, EN+84, EN+85, ADDRCHK+9, ADDRCHK+12, ADDRCHK+13, ADDRCHK+16, ADDRCHK+17, ADDRCHK+19 , ADDRCHK+21, ADDRCHK+22, ADDRCHK+23, ADDRCHK+25, ADDRCHK+29, ADDRCHK+37, PID11+29, PID13+17, PID13+18, ZGDPA+13*
>> Y	ZPDPA+23, ZGDPA+17
ZGD3	EN+80~, EN+81*, EN+85

Customize PDF page

Package: Income Verification Match

Routine: IVMPRECA

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: