Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
627 bytes
|
Line | |
---|
1 | IBCNEHLK ;DAOU/ALA - HL7 Acknowledgement Messages ;08-OCT-2002
|
---|
2 | ;;2.0;INTEGRATED BILLING;**184,300**;21-MAR-94
|
---|
3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | MFK ; MFN Acknowledgement
|
---|
6 | S HCT=1
|
---|
7 | ; Loop through the message and find each segment for processing
|
---|
8 | F S HCT=$O(^TMP($J,"IBCNEHLI",HCT)) Q:HCT="" D
|
---|
9 | . D SPAR^IBCNEHLU
|
---|
10 | . S SEG=$G(IBSEG(1))
|
---|
11 | . ;
|
---|
12 | . I SEG="MSA" D
|
---|
13 | .. S ACK=$G(IBSEG(2)),MSGID=$G(IBSEG(3))
|
---|
14 | .. ;
|
---|
15 | .. I ACK="AE" S VMFN(350.9,"1,",51.22)=0
|
---|
16 | .. I ACK="AA" S VMFN(350.9,"1,",51.22)=1
|
---|
17 | ;
|
---|
18 | D FILE^DIE("I","VMFN")
|
---|
19 | ;
|
---|
20 | K IBSEG,SEG,HCT,ACK,EVENT,HL,IBPRTCL,IDUZ,MSGID,SEGMT,TAG,VMFN
|
---|
21 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.