Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
627 bytes
|
Rev | Line | |
---|
[628] | 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.