Routine: IVMPREC5

Package	Total	Call Graph
Income Verification Match	3	ACK^IVMPREC MAIL^IVMUFNC ($$IEN,$$PT)^IVMUFNC4
Health Level Seven	1	$$FMDATE^HLFNC
Registration	1	$$DEM^DGMTU1
VA FileMan	1	FILE^DICN

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point to process SSN messages
SSNCK	; check to make sure the SSN(s) are valid SSA SSNs
STORE	; store the ZIV segment in the (#301.5) file for uploading
STOREQ
ZIVBULL	; build mail message for transmission to IVM mail group notifying them ; that patients with updated SSA/SSN's have been received from the ; IVM Center and may now be uploaded into DHCP.

Name	Field # of Occurrence
$$DEM^DGMTU1	EN+21
FILE^DICN	STORE+8
$$FMDATE^HLFNC	EN+15
ACK^IVMPREC	EN+6, EN+9, EN+11, EN+13, EN+15, EN+18, EN+20, EN+22, EN+25, EN+27 , STORE+4
MAIL^IVMUFNC	EN+31
$$IEN^IVMUFNC4	STORE+3
$$PT^IVMUFNC4	ZIVBULL+14

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN+8, EN+10, EN+17
^IVM(301.5 - [#301.5]	STORE+3, STORE+5
^IVM(301.9 - [#301.9]	STOREQ+4
^TMP($J	EN+2, EN+5, EN+12

Name	Line Occurrences
SSNCK	EN+27
STORE	EN+28

Name	Field # of Occurrence
^(	EN+2, EN+5, EN+12
^(0	STORE+5*

Name	Field # of Occurrence
DA	STOREQ!
DA(1	STORE+3*, STORE+4, STORE+5, STORE+6
DD	STORE+8!
>> DFN	EN+7*, EN+8, EN+10, EN+17, STORE+3, ZIVBULL+14
DIC	STORE+6*, STOREQ!
DIC("DR"	STORE+7*
DIC(0	STORE+6*
DIE	STOREQ!
>> DLAYGO	STORE+6*
DO	STORE+8!
FLAG	SSNCK+2~, SSNCK+3, SSNCK+5, SSNCK+7, SSNCK+8, SSNCK+9, SSNCK+10
>> HLECH	EN+7
HLERR	EN+3!, EN+6, EN+9, EN+11, EN+13, EN+15, EN+18, EN+20, EN+22, EN+25* , EN+27, SSNCK+10, STORE+4
>> HLFS	EN+4, EN+7, EN+10, EN+14
>> HLMID	EN+4*
>> IVMCNTR	EN+31, ZIVBULL+13*, ZIVBULL+15
>> IVMDA	EN+2, EN+5, EN+12*
>> IVMIY	EN+14, EN+15
>> IVMPTID	ZIVBULL+14*, ZIVBULL+15
>> IVMRTN	EN+2, EN+5, EN+12
>> IVMSEG	EN+2, EN+4, EN+5, EN+7, EN+10, EN+12, EN+14, EN+17, EN+19, EN+21 , EN+24, SSNCK+5
>> IVMTEXT(	ZIVBULL+15*
>> IVMTEXT(1	ZIVBULL+5*
>> IVMTEXT(2	ZIVBULL+6*
>> IVMTEXT(3	ZIVBULL+7*
>> IVMTEXT(4	ZIVBULL+8*
>> IVMTEXT(5	ZIVBULL+9*
>> IVMTEXT(6	ZIVBULL+10*
>> IVMTEXT(7	ZIVBULL+11*
>> IVMTEXT(8	ZIVBULL+12*
L	SSNCK+2~, SSNCK+6*, SSNCK+7, SSNCK+8, SSNCK+9
X	SSNCK+2~, SSNCK+5, SSNCK+6, STORE+3, STOREQ!
>> XMSUB	ZIVBULL+4*
Y	STOREQ!