Routine: IVMPREC6

Information

IVMPREC6 ;ALB/KCL,BRM,CKN,TDM,PWC,LBD,JAM,KUM - PROCESS INCOMING (Z05 EVENT TYPE) HL7 MESSAGES ;7/22/24 8:06AM

Package	Total	Call Graph
Income Verification Match	6	$$LOG^IVMPLOG ACK^IVMPREC (PID,RF1,ZAV,ZEM,ZGD,ZPD,ZTA)^IVMPREC8 (AUTOAUP,STORE,ZCT)^IVMPREC9 ($$CLEARF,EN)^IVMPRECA $$PT^IVMUFNC4
Health Level Seven	1	$$FMDATE^HLFNC
VA FileMan	1	(,UPDATE)^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 10

Package	Total	Caller Graph
Income Verification Match	8	IVMCMC IVMLDEM6 IVMPREC3 IVMPREC8 IVMPREC9 IVMPRECA IVMPRECZ IVMPTRN8
Enrollment Application System	1	EASPREC6
Registration	1	DGENUPL

Entry Points

Name	Comments	DBIA/ICR reference
EN	; - entry point to process HL7 patient demographic message
ENQ	; - cleanup variables
NEXT	; - get the next HL7 segment in the message from HL7 Transmission (#772) file
COMPARE(IVMSEG)	; - compare incoming HL7 segment/fields with DHCP fields
DEMBULL	; - build mail message for transmission to IVM mail group notifying ; them that patients with updated demographic data has been received ; from the IVM Center and may now be uploaded into DHCP.
INACTIVE(IVMDEMDA)	;Check if field is inactive in Demographic Upload ; Input -- IVMDEMDA IVM Demographic Upload Fields IEN ; Output -- 1=Yes and 0=No
RF1CHK(IVMRTN,IVMDA)	;does an RF1 segment exist in this message?
CKAUTO()	; ; Chect if message qualifies for an auto upload.
BLDPID(PIDTMP,IVMPID)	;Build IVMPID subscripted by sequence number
ADDRCHNG(DFN)	;Store Address Change Date/time, Source and site if necessary
EPCFLDS(EPCFARY,EPCDEL)	;
ZAVA	; compare ZPD with DHCP ; IVM2.0217 - Moved ZAV tag from IVMPREC8 and renamed it to ZAVA tag to fix size error ; ZAV tag in IVMPREC8 now calls ZAVA
AUPBLD(AUPFARY,UPDAUPG)	; Set up array containing fields for auto upload.
AUPLST	; P1;P2 ; P1 = Group Name (treat all entries as this group if present) ; P2 = .01 field(s) from 301.92 separated by '^'

External References

Name	Field # of Occurrence
^DIE	ADDRCHNG+7
UPDATE^DIE	ADDRCHNG+9, ADDRCHNG+12
$$FMDATE^HLFNC	EN+160, EN+162
$$LOG^IVMPLOG	EN+58
ACK^IVMPREC	EN+42, EN+61, EN+69, EN+78, EN+81, EN+92, EN+103, EN+121, EN+135
PID^IVMPREC8	COMPARE+18
RF1^IVMPREC8	COMPARE+28
ZAV^IVMPREC8	COMPARE+22
ZEM^IVMPREC8	COMPARE+27
ZGD^IVMPREC8	COMPARE+24
ZPD^IVMPREC8	COMPARE+19
ZTA^IVMPREC8	COMPARE+20
AUTOAUP^IVMPREC9	EN+166
STORE^IVMPREC9	ZAVA+10
ZCT^IVMPREC9	COMPARE+26
$$CLEARF^IVMPRECA	EN+71, EN+93, EN+97, EN+107, EN+109, EN+152, EN+153
EN^IVMPRECA	EN+35
$$PT^IVMUFNC4	DEMBULL+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CKAUTO+6
^IVM(301.5 - [#301.5]	EN+57
^IVM(301.92 - [#301.92]	COMPARE+13, COMPARE+14, INACTIVE+3, CKAUTO+3, EPCFLDS+4, EPCFLDS+5, EPCFLDS+7, EPCFLDS+8, EPCFLDS+10, EPCFLDS+12 , ZAVA+9, AUPBLD+8
^TMP($J	EN+27, NEXT+2, RF1CHK+2, ADDRCHNG+3, ADDRCHNG+4, ADDRCHNG+5, ADDRCHNG+13!

Label References

Name	Line Occurrences
$$CKAUTO	DEMBULL+5
$$INACTIVE	COMPARE+15
$$RF1CHK	EN+150, EN+156
AUPBLD	EN+39
COMPARE	EN+65, EN+74, EN+86, EN+94, EN+98, EN+110, EN+125, EN+131, EN+136, EN+139 , EN+155
EPCFLDS	EN+38
NEXT	EN+41, EN+44, EN+68, EN+77, EN+90, EN+96, EN+119, EN+127, EN+133, EN+138 , EN+151

Naked Globals

Name	Field # of Occurrence
^(	EN+27, NEXT+2, RF1CHK+3
^(1	ZAVA+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDRESS	ENQ+1!
ADDRESS("CA"	EN+159, EN+161
AUPDA	AUPBLD+3~, AUPBLD+8*, AUPBLD+9
AUPFARY	EN+39, AUPBLD~
AUPFARY(	AUPBLD+9*
AUPFLST	AUPBLD+3~, AUPBLD+5*, AUPBLD+6, AUPBLD+7
AUPGRP	AUPBLD+3~, AUPBLD+5*, AUPBLD+9, AUPBLD+10
AUPPCE	AUPBLD+3~, AUPBLD+6*, AUPBLD+7
AUPSGSQ	AUPBLD+3~, AUPBLD+7*, AUPBLD+8
AUPSTR	AUPBLD+3~, AUPBLD+4*, AUPBLD+5
AUTO	CKAUTO+2~, CKAUTO+3, CKAUTO+5, CKAUTO+7*, CKAUTO+9
C	BLDPID+1~, BLDPID+3*, BLDPID+4, BLDPID+8, BLDPID+10, BLDPID+11
COMP	EN+2~
DA	ENQ+1!, ADDRCHNG+6*, ADDRCHNG+7!
DFN	EN+50*, EN+57, EN+58, EN+166, ENQ+1!, DEMBULL+7, CKAUTO+6, ADDRCHNG~, ADDRCHNG+6, ADDRCHNG+9 , ADDRCHNG+12
DGENUPLD	EN+2~, EN+20, EN+58, ENQ+1!
DGRUGA08	EN+2~
DIE	ADDRCHNG+6*, ADDRCHNG+7!
DOD	CKAUTO+2~, CKAUTO+6*, CKAUTO+7
DODSEG	EN+2~, EN+65, EN+86, EN+94, EN+98, EN+125, EN+131, EN+136, EN+139, ENQ+1! , EPCFLDS+3
DR	ENQ+1!, ADDRCHNG+6*, ADDRCHNG+7!
DT	EN+58
EPCDEL	EN+38, ENQ+1!, EPCFLDS~
EPCDEL("CPH"	EPCFLDS+14*
EPCDEL("EAD"	EPCFLDS+17*
EPCDEL("PHC"	EPCFLDS+16*
EPCDEL("PHW"	EPCFLDS+22*
EPCDEL("PNO"	EPCFLDS+13*
EPCFARY	EN+38, ENQ+1!, EPCFLDS~
EPCFARY("CPH"	EPCFLDS+5*
EPCFARY("EAD"	EPCFLDS+8*
EPCFARY("PHC"	EPCFLDS+7*
EPCFARY("PHH"	EPCFLDS+10*
EPCFARY("PHW"	EPCFLDS+12*
EPCFARY("PNO"	EPCFLDS+4*
>> FDA(2	ADDRCHNG+9, ADDRCHNG+12
GUARSEG	EN+2~, EN+65, EN+86, EN+94, EN+98, EN+125, EN+131, EN+136, EN+139, ENQ+1! , EPCFLDS+3
>> HLECH	EN+109, EN+153
HLERR	EN+28!, EN+35, EN+42, EN+60, EN+65, EN+69, EN+78, EN+81, EN+92, EN+103* , EN+121, EN+135
>> HLFS	EN+32, EN+71, EN+83, EN+93, EN+97, EN+107, EN+109, EN+152, EN+153, EN+154 , COMPARE+7, COMPARE+10, ZAVA+6, ZAVA+7
>> HLMID	EN+32*
>> HLQ	EN+83
>> I	EN+44, EN+150, AUPBLD+4*
>> IVM3015	EN+57, EN+58, EN+59
IVMADDR	ENQ+1!
IVMADFLG	EN+25*, ENQ+1!
IVMALADT	EN+4~
IVMALADT(	EN+11*
IVMALADT("VACAA"	EN+15*
IVMALADT("VACAC"	EN+16*
IVMALADT("VACAE"	EN+14*
IVMALADT("VACAM"	EN+17*
IVMALADT("VACAO"	EN+18*
IVMATYP	ZAVA+3~, ZAVA+5, ZAVA+6, ZAVA+8
IVMCAFG	EN+2~, EN+158*
IVMCAVL	EN+2~, EN+158, EN+165
IVMCEDT	EN+2~, EN+158, EN+161, EN+162*
IVMCMAST	EN+2~
>> IVMCNTR	EN+172, DEMBULL+18*, DEMBULL+19
IVMCSDT	EN+2~, EN+158, EN+159, EN+160*, EN+163
IVMDA	EN+27, EN+68, EN+133, EN+140, EN+150, EN+156, ENQ+1!, NEXT+2*, RF1CHK~, RF1CHK+2
IVMDEMDA	COMPARE+14*, COMPARE+15, INACTIVE~, INACTIVE+3, CKAUTO+4, ZAVA+9
IVMDFN	EN+50, ENQ+1!
IVMDHCP	ENQ+1!, ZAVA+9*, ZAVA+10
IVMFIELD	ADDRCHNG+2~, ADDRCHNG+4*, ADDRCHNG+5, ADDRCHNG+6, ADDRCHNG+9, ADDRCHNG+12
IVMFLAG	ENQ+1!
IVMFLD	ENQ+1!, CKAUTO+5, CKAUTO+7, ZAVA+4, ZAVA+7, ZAVA+10
>> IVMFLG	EN+25, EN+167
IVMI	CKAUTO+2~, CKAUTO+3*, CKAUTO+4
IVMPHDFG	EN+5~*, ENQ+1!
IVMPID	ENQ+1!, BLDPID~
IVMPID(	BLDPID+5, BLDPID+6, BLDPID+9, BLDPID+12, BLDPID+13*
IVMPIECE	ENQ+1!
IVMPMAST	EN+2~, EN+6*, ENQ+1!
>> IVMPTID	DEMBULL+7*, DEMBULL+8, DEMBULL+19
IVMRACE	ENQ+1!
IVMRTN	EN+27, EN+150, EN+156, NEXT+2, RF1CHK~, RF1CHK+2
IVMSEG	EN+27, EN+32, EN+41, EN+44, EN+64, EN+65, EN+68, EN+71, EN+74, EN+77 , EN+80, EN+83, EN+86, EN+91, EN+93, EN+94, EN+96, EN+97, EN+98, EN+102 , EN+107, EN+109, EN+110, EN+120, EN+125, EN+127, EN+131, EN+134, EN+136, EN+138 , EN+139, EN+152, EN+153, EN+154, EN+155, ENQ+1!, NEXT+2, COMPARE~, COMPARE+7, COMPARE+10 , ZAVA+6, ZAVA+7
IVMSTART	ENQ+1!, COMPARE+7*, COMPARE+18, COMPARE+19, COMPARE+20, COMPARE+22, COMPARE+24, COMPARE+26, COMPARE+27, COMPARE+28
IVMTEXT	EN+172!
IVMTEXT(	DEMBULL+19*
IVMTEXT(1	DEMBULL+9*
IVMTEXT(10	DEMBULL+17*
IVMTEXT(2	DEMBULL+10*
IVMTEXT(3	DEMBULL+11*
IVMTEXT(4	DEMBULL+12*
IVMTEXT(5	DEMBULL+13*
IVMTEXT(7	DEMBULL+14*
IVMTEXT(8	DEMBULL+15*
IVMTEXT(9	DEMBULL+16*
IVMTSTPT	EN+29*, ENQ+1!
IVMVALUE	ADDRCHNG+2~, ADDRCHNG+5*, ADDRCHNG+9, ADDRCHNG+12
IVMXREF	ENQ+1!, COMPARE+7, COMPARE+13, COMPARE+14, COMPARE+18, COMPARE+19, COMPARE+20, COMPARE+22, COMPARE+24, COMPARE+26 , COMPARE+27, COMPARE+28, ZAVA+8
L	BLDPID+1~, BLDPID+3*
>> MSGID	EN+32*
>> MULTDONE	EN+95, EN+96, EN+126, EN+127, EN+137, EN+138
MULTIDONE	EN+4~
N	BLDPID+1~, BLDPID+2, BLDPID+3
PIDSTR	ENQ+1!
PIDTMP	BLDPID~
PIDTMP(	BLDPID+3
>> QFLG	EN+150, EN+154, EN+156*
RF1	RF1CHK+1~, RF1CHK+2*, RF1CHK+3
STR	BLDPID+1~, BLDPID+2, BLDPID+5, BLDPID+6, BLDPID+7, BLDPID+9, BLDPID+10, BLDPID+12, BLDPID+13
TELECOM	ENQ+1!
TEXT	BLDPID+1~, BLDPID+3*
U	INACTIVE+3, CKAUTO+6
UPDAUP	EN+166, ENQ+1!
UPDAUPG	EN+39, EN+166, AUPBLD~
UPDAUPG(	AUPBLD+10*
UPDEPC	ENQ+1!
UPDEPC("CPH"	EN+149*
UPDEPC("EAD"	EN+149*
UPDEPC("PHC"	EN+149*
UPDEPC("PHH"	EN+149*
UPDEPC("PHW"	EN+149*
UPDEPC("PNO"	EN+149*
UPDEPC("SAD"	EN+149*
VAFCA08	EN+2~, EN+23*
X1	BLDPID+1~, BLDPID+2, BLDPID+5, BLDPID+6, BLDPID+7, BLDPID+9, BLDPID+12, BLDPID+13
X2	BLDPID+1~, BLDPID+2, BLDPID+5, BLDPID+7, BLDPID+9, BLDPID+12*
XIVMA	EN+4~, EN+11*
XMSUB	EN+172!, DEMBULL+8*
>> XREP	EN+95, EN+126, EN+137*
>> Y	ZAVA+9
ZEMADRUP	EN+28!

Marked Items

Name	Field # of Occurrence
$T(AUPLST+I	AUPBLD+4

Customize PDF page

Package: Income Verification Match