Routine: IVMPREC1

Information

IVMPREC1 ;ALB/SEK/BRM - PROCESS INCOMING HL7 (ACK) MESSAGES ; 07/28/2003

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Income Verification Match	3	$$MMN^IVMPTRN4 $$SETSTAT^IVMTLOG MAIL^IVMUFNC
VA FileMan	1	EN^DIQ1

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

Package	Total	Caller Graph
Enrollment Application System	1	EAS EDB ORU-Z09 SERVER
Income Verification Match	1	IVM
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
ACK	; - Receive ACK Message from IVM Center stored in ^TMP("HLR". ; If 1st segment is BHS then set(s) of MSH, MSA(AE) will follow ; indicating error(s) in transmission received by IVM Center ; If 1st segment is MSH than MSA (AA) indicating batch or individual ; query was received ok. MSA (AE) indicates error in transmission of ; individual query. ; ; - When acknowledgment code = "AA" (application accept) ; Stuff 1 into STATUS field (.03) of ^IVM(301.6 indicating IVM Center ; has received transmission.
ACKQ	;
AE	; - When acknowledgment code = "AE" (application error) ; Stuff 3 into STATUS field(.03), error message into ERROR MESSAGE ; field(.04), and 1 (NEW) into the ERROR PROCESSING STATUS field. ; Stuff 1 into STATUS field(.03) for transmissions (no 'AE' code ; received) received by IVM Center.
OTH	; Generate message for errors other than Full/Initial Transmissions.
Z07CHK(CURSEQ,CURMCI,CUREM)	; Function ; ; INPUT ; CURSEQ : Current Sequence # reviewing in batch ; CURMCI : Current Message Control ID reviewing in batch ; CUREM : Current Error Message reviewing in batch
REBLDPID(ARRAY,SEQ)	; Reconnect the pieces of the PID segment ; ARRAY contains the HL7 message reference to be accessed indirectly ; It should look similar in structure to the HL7 message text in ; file 772 ; @ARRAY@(SEQ) should = the first 'PID' segment record text and should ; be 245 characters long
PIDQ

External References

Name	Field # of Occurrence
EN^DIQ1	OTH+7
$$MMN^IVMPTRN4	OTH+27
$$SETSTAT^IVMTLOG	ACK+34, ACK+40, AE+20, AE+23
MAIL^IVMUFNC	OTH+32

Used in HL7 Interface

HL7 Protocol Name	Call Tags
EAS EDB ORU-Z09 SERVER	ACK

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^HL(772 - [#772]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HL(772 - [#772]	OTH+3, OTH+5
^IVM(301.6 - [#301.6]	ACK+34, ACK+39, AE+15, AE+18, AE+23, Z07CHK+19, Z07CHK+20, Z07CHK+22, Z07CHK+24*
^TMP($J	ACK+14!, ACK+16, ACK+18, ACK+22, ACK+30, ACKQ+1!, AE+7, Z07CHK+9, Z07CHK+10

Label References

Name	Line Occurrences
$$REBLDPID	OTH+15
$$Z07CHK	AE+17
ACKQ	ACK+23, ACK+24, ACK+27, ACK+31, ACK+33, ACK+36
AE	ACK+27
OTH	ACK+39, AE+19
PIDQ	REBLDPID+8

Naked Globals

Name	Field # of Occurrence
^(	AE+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	REBLDPID~, REBLDPID+7, REBLDPID+9
CHKSEG	Z07CHK+7~, Z07CHK+10*, Z07CHK+13
CHKSEGN	Z07CHK+7~, Z07CHK+10*, Z07CHK+11
CNT	ACK+11!, ACK+16, ACK+17, ACK+18, ACK+20!
CUREM	Z07CHK~, Z07CHK+23
CURMCI	Z07CHK~, Z07CHK+13, Z07CHK+21, Z07CHK+24
CURSEQ	Z07CHK~, Z07CHK+12
DA	ACKQ+2!, OTH+1~, OTH+6*
DA(	OTH+6*
DIC	OTH+1~, OTH+6*
DIE	ACKQ+2!
DIQ	OTH+1~, OTH+6*
DR	ACKQ+2!, OTH+1~, OTH+6*
DR(	OTH+6*
DUP	Z07CHK+7~, Z07CHK+8, Z07CHK+13, Z07CHK+14
END	Z07CHK+17~
FND	Z07CHK+17~, Z07CHK+18, Z07CHK+19, Z07CHK+21
>> HL("ECH"	ACK+13
>> HL("FS"	ACK+13
>> HL("Q"	ACK+13
HLDA	ACK+19, OTH+1~, OTH+2, OTH+3*, OTH+4, OTH+5, OTH+6, OTH+8, OTH+9, OTH+10 , OTH+15, OTH+16, OTH+18
HLDAT	OTH+1~
HLDAT(772	OTH+8, OTH+9, OTH+10, OTH+15*, OTH+16, OTH+18
>> HLECH	ACK+13*
>> HLFS	ACK+13*, ACK+24, ACK+27, ACK+31, ACK+32, ACK+33, ACK+36, ACK+37, ACK+38, AE+10 , AE+12, AE+13, AE+14
>> HLMTIEN	ACK+19
>> HLNEXT	ACK+15
HLNODE	ACK+11!, ACK+16, ACK+20!
HLNODE(	ACK+17, ACK+18
>> HLQ	ACK+13*
>> HLQUIT	ACK+15
HLSEG	OTH+1~, OTH+8, OTH+9, OTH+10, OTH+11, OTH+13
IEN	Z07CHK+17~, Z07CHK+18, Z07CHK+19, Z07CHK+20, Z07CHK+22, Z07CHK+24
IVMADDT	ACK+32*, ACK+34, ACK+39, ACKQ+2!
IVMCT	ACKQ+2!
IVMDA	ACK+34, ACK+39, ACK+40, ACKQ+2!, AE+15, AE+18, AE+20, AE+23*
IVMEM	ACK+38, ACK+40, ACKQ+2!, AE+14, AE+17, AE+20, OTH+24
IVMI	ACKQ+2!, AE+7*, AE+17
IVMMCI	ACK+37, ACKQ+2!, AE+13, AE+15, AE+17, AE+18, AE+23, OTH+3, OTH+13, OTH+27
IVMMCID	OTH+1~, OTH+10*, OTH+13
IVMNAM	OTH+1~, OTH+2, OTH+16, OTH+17*, OTH+25
IVMNAME	ACKQ+2!
IVMPAT	ACKQ+2!
IVMPID	OTH+1~, OTH+2, OTH+18, OTH+20*, OTH+26
IVMRMM	OTH+1~, OTH+27*, OTH+28
IVMRTN	ACK+11!, ACK+12*, ACK+14, ACK+16, ACK+18, ACK+22, ACK+30, ACKQ+1, ACKQ+2!, AE+7 , Z07CHK+9, Z07CHK+10
IVMSEG	ACK+22, ACK+23, ACK+24, ACK+27, ACK+30, ACK+31, ACK+32, ACK+33, ACK+36, ACK+37 , ACK+38, ACKQ+2!, AE+7*, AE+8, AE+10, AE+12, AE+13, AE+14
IVMSSN	ACKQ+2!
IVMTEXT	ACKQ+2!
IVMTEXT(1	OTH+22*
IVMTEXT(10	OTH+29*
IVMTEXT(11	OTH+30*
IVMTEXT(12	OTH+31*
IVMTEXT(2	OTH+23*
IVMTEXT(3	OTH+24*
IVMTEXT(4	OTH+24*
IVMTEXT(5	OTH+24*
IVMTEXT(6	OTH+25*
IVMTEXT(7	OTH+26*
IVMTEXT(8	OTH+26*
IVMTEXT(9	OTH+28*
IVMTMP	OTH+1~, OTH+2, OTH+8, OTH+9, OTH+10, OTH+15, OTH+16, OTH+18
LOG	Z07CHK+17~, Z07CHK+22*, Z07CHK+23
MCI	Z07CHK+17~, Z07CHK+20*, Z07CHK+21
PID	REBLDPID+6~, REBLDPID+7, REBLDPID+8, REBLDPID+9, PIDQ
RET	Z07CHK+17~, Z07CHK+18, Z07CHK+23, Z07CHK+24*, Z07CHK+25
SEGCNT	ACK+11!, ACK+15*, ACK+16, ACK+18, ACK+20!
SEQ	Z07CHK+7~, Z07CHK+8, Z07CHK+9, Z07CHK+10, Z07CHK+12, REBLDPID~, REBLDPID+7
SEQX	REBLDPID+6~, REBLDPID+7, REBLDPID+9
TMPCTR	Z07CHK+17~, Z07CHK+19*
U	OTH+15
XMSUB	ACKQ+2!, OTH+21*
Z07FLG	AE+6~, AE+10*, AE+11!, AE+16
Z07RET	AE+6~, AE+9, AE+15, AE+17, AE+18

Customize PDF page

Package: Income Verification Match