Routine: IVMPREC7

Information

IVMPREC7 ;ALB/SEK,RTK - ROUTINE TO PROCESS INCOMING (Z06 EVENT TYPE) HL7 MESSAGES ; 31 May 94

Package	Total	Call Graph
Income Verification Match	5	ACK^IVMPREC MAIL^IVMUFNC $$PT^IVMUFNC4 ^IVMUM1 ^IVMUM7
Registration	3	$$UPD^DGENDBS $$LYR^DGMTSCU1 $$LST^DGMTU
Enrollment Application System	1	$$Z06MT^EASPTRN1
Health Level Seven	1	$$FMDATE^HLFNC

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: 15

Package	Total	Caller Graph
Income Verification Match	11	IVMCM IVMCM1 IVMCM2 IVMCM3 IVMCM4 IVMCM5 IVMUM2 IVMUM3 IVMUM4 IVMUM5 IVMUM7
Enrollment Application System	4	EASCM EASUM5 EASUM7 EASUM9

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point to validate Means Test messages
EN1
GET	; get HL7 segment from ^HL
ERRBULL	; build mail message for transmission to IVM mail group notifying site ; of upload error.
ORF	;entry point for Means Test Signature Z06 msgs.

External References

Name	Field # of Occurrence
$$UPD^DGENDBS	ORF+45
$$LYR^DGMTSCU1	EN1+51, ORF+20
$$LST^DGMTU	EN1+52
$$Z06MT^EASPTRN1	ORF+25
$$FMDATE^HLFNC	EN1+50, ORF+19, ORF+44
ACK^IVMPREC	EN1+3, EN1+6, EN1+7, EN1+12, EN1+15, EN1+19, EN1+22, EN1+24, EN1+31, EN1+36 , EN1+38, EN1+40, EN1+61, EN1+63, EN1+69, EN1+70, EN1+72, ORF+8, ORF+11, ORF+12 , ORF+15, ORF+33, ORF+35, ORF+40, ORF+41, ORF+46
MAIL^IVMUFNC	EN1+60, ORF+32
$$PT^IVMUFNC4	ERRBULL+2
^IVMUM1	EN1+71
^IVMUM7	EN1+54

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN1+58, EN1+63, ORF+30, ORF+35
^DGMT(408.31 - [#408.31]	EN1+56, ORF+24, ORF+27, ORF+28
^DPT - [#2]	EN1+5, EN1+7, ORF+10, ORF+12
^TMP($J	EN+2, GET+1, ORF+3

Label References

Name	Line Occurrences
EN1	EN1+44
ERRBULL	EN1+60, ORF+32
GET	EN1+2, EN1+11, EN1+14, EN1+18, EN1+21, EN1+23, EN1+30, EN1+37, EN1+39, ORF+7 , ORF+14

Naked Globals

Name	Field # of Occurrence
^(	EN+2, GET+1, ORF+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DATA	ORF+43~, ORF+45
DATA(	ORF+44*
>> DFN	EN1+4, EN1+5, EN1+7, EN1+52, ERRBULL+2, ORF+9, ORF+10, ORF+12, ORF+24
DGLY	EN1+51, EN1+75!, ORF+20, ORF+49!
DGMTP	EN1+56, EN1+75!, ORF+28, ORF+49!
FMDATE	ORF+49!
>> HLECH	EN1+4, ORF+2*, ORF+9
HLERR	EN+3!, EN1+3, EN1+6, EN1+7, EN1+12, EN1+15, EN1+19, EN1+22, EN1+24, EN1+31* , EN1+36, EN1+38, EN1+40, EN1+61, EN1+63, EN1+69, EN1+70, EN1+72, ORF+4!, ORF+8 , ORF+11, ORF+12, ORF+15, ORF+33, ORF+35, ORF+40, ORF+41*, ORF+46
>> HLFS	EN1, EN1+4, EN1+7, EN1+50, ORF+1*, ORF+5, ORF+9, ORF+12, ORF+19, ORF+27 , ORF+44
>> HLMID	EN1, ORF+5
>> HLQ	EN1+33
>> IVMDA	EN+2, EN1+8, EN1+20, EN1+34, GET+1, ORF+3*, ORF+13
IVMDAP	EN1+8, EN1+75!, ORF+13, ORF+49!
IVMDAS	EN1+20*, EN1+75!, ORF+49!
IVMDAZ	EN1+34*, EN1+75!, ORF+49!
IVMDGLY	EN1+13*, EN1+75!, ORF+49!
IVMERR	EN1+27!, EN1+29, EN1+31, EN1+36, EN1+38, EN1+40, EN1+43
IVMFLG7	EN1+28, EN1+33, EN1+54, EN1+75!, ORF+49!
IVMFLGC	EN1+1, EN1+41, EN1+75!, ORF+6*, ORF+49!
IVMMT31	EN1+56, EN1+57, EN1+63, EN1+68, EN1+70, EN1+75!, ORF+28, ORF+29, ORF+35, ORF+39 , ORF+41, ORF+49!
IVMMTDT	EN1+50, EN1+51, EN1+52, EN1+57, EN1+58, EN1+63, EN1+75!, ORF+19, ORF+20, ORF+23 , ORF+29, ORF+30, ORF+35, ORF+49!
IVMMTIEN	EN1+52, EN1+56, EN1+75!, ORF+23, ORF+24*, ORF+25, ORF+27, ORF+49!
>> IVMPAT	ERRBULL+2*, ERRBULL+7, ERRBULL+8
>> IVMRTN	EN+2, GET+1, ORF+3
IVMSEG	EN+2, EN1, EN1+4, EN1+7, EN1+13, EN1+33, EN1+35, EN1+50, EN1+75!, GET+1 , GET+2, ORF+3*, ORF+5, ORF+9, ORF+12, ORF+19, ORF+27, ORF+44, ORF+49!
IVMSEG1	EN1+2, EN1+11, EN1+14, EN1+18, EN1+21, EN1+23, EN1+29, EN1+30, EN1+32, EN1+37 , EN1+39, EN1+43, EN1+44, EN1+75!, GET+2*, ORF+7, ORF+14, ORF+49!
IVMSTAT	EN1+68, EN1+69, EN1+75!, ORF+39, ORF+40, ORF+49!
IVMTEXT	EN1+75!, ORF+49!
IVMTEXT(1	ERRBULL+4*
IVMTEXT(2	ERRBULL+5*
IVMTEXT(3	ERRBULL+6*
IVMTEXT(4	ERRBULL+7*
IVMTEXT(5	ERRBULL+8*
IVMTEXT(6	EN1+59, ERRBULL+9, ORF+31*
MTDATE	ORF+23*, ORF+24, ORF+49!
>> MTFND	ORF+23, ORF+24, ORF+27
UPMTS	ORF+22~, ORF+27*, ORF+28, ORF+45
XMSUB	EN1+75!, ERRBULL+3*, ORF+49!
>> Y	EN1+58, EN1+59, EN1+63, ORF+30, ORF+31, ORF+35

Customize PDF page

Package: Income Verification Match