source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNEHLK.m@ 1757

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 
1IBCNEHLK ;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 ;
5MFK ; 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.