source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNEHLO.m@ 1259

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

initial load of WorldVistAEHR

File size: 736 bytes
Line 
1IBCNEHLO ;DAOU/ALA - Outgoing HL7 messages ;17-JUN-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 ;**Program Description**
6 ; This program passes the HL7 protocol (variable IBCNHLP - defined by
7 ; the calling routine) to INIT^HLFNC2, which loads protocol specific
8 ; variables needed to generate an HL7 message into the HL array.
9 ; In addition, the protocol IEN is set using the extrinsic function,
10 ; $$HLP^IBCNEHLU.
11 ;
12 ; Input Parameters
13 ; IBCNHLP = Protocol Name
14 ;
15 ;
16INIT ; Initialization for HL7
17 D INIT^HLFNC2(IBCNHLP,.HL)
18 S HLFS=HL("FS"),HLECH=$E(HL("ECH"),1),HL("SAF")=$P($$SITE^VASITE,U,2,3)
19 ; S HLEID=$$HLP^IBCNEHLU(IBCNHLP)
20 Q
21 ;
Note: See TracBrowser for help on using the repository browser.