source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSJHLI.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1BPSJHLI ;BHAM ISC/LJF - Incoming HL7 E-PHARM messages ;21-NOV-2003
2 ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ;**Program Description**
6 ; This program processes incoming HL7 message.
7 ;
8EN ; Starting point - put message into a TMP global
9 N SEGCNT,CNT,SEGMT,EVENT,MSG,MCT,FSHLI
10 ;
11 K ^TMP($J,"BPSJHLI") S MCT=0
12 F SEGCNT=1:1 X HLNEXT Q:HLQUIT'>0 D
13 . S CNT=0,^TMP($J,"BPSJHLI",SEGCNT,CNT)=HLNODE
14 . F S CNT=$O(HLNODE(CNT)) Q:'CNT D
15 .. S ^TMP($J,"BPSJHLI",SEGCNT,CNT)=HLNODE(CNT)
16 ;
17 ; Check MSH seg
18 S SEGMT=$G(^TMP($J,"BPSJHLI",1,0))
19 S FSHLI=$G(HL("FS")) I FSHLI="" S (FS,FSHLI)=$E(SEGMT,4)
20 ;
21 I $E(SEGMT,1,3)'="MSH" D D MSG^BPSJUTL(.MSG,"BPSJHLI") G EXIT
22 . S MCT=MCT+1,MSG(MCT)="MSH Segment is not the first segment found"
23 ;
24 S EVENT=$P(SEGMT,FSHLI,9)
25 ;
26 ; Acknowledgement Processing
27 I EVENT="MFK^M01" D EN^BPSJACK(.HL) G EXIT
28 ;
29 ; Table Update Processing for Payer Sheets
30 I EVENT="MFN^M01" D
31 . S HL("HLMTIENS")=$G(HLMTIENS)
32 . D EN^BPSJHLT(.HL)
33 ;
34EXIT ;
35 K ^TMP($J,"BPSJHLI"),SEGCNT,CNT,HL,HLREC,HLNEXT,HLNODE
36 Q
Note: See TracBrowser for help on using the repository browser.