IBCNEHLO ;DAOU/ALA - Outgoing HL7 messages ;17-JUN-2002
;;2.0;INTEGRATED BILLING;**184,300**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
;**Program Description**
; This program passes the HL7 protocol (variable IBCNHLP - defined by
; the calling routine) to INIT^HLFNC2, which loads protocol specific
; variables needed to generate an HL7 message into the HL array.
; In addition, the protocol IEN is set using the extrinsic function,
; $$HLP^IBCNEHLU.
;
; Input Parameters
; IBCNHLP = Protocol Name
;
;
INIT ; Initialization for HL7
D INIT^HLFNC2(IBCNHLP,.HL)
S HLFS=HL("FS"),HLECH=$E(HL("ECH"),1),HL("SAF")=$P($$SITE^VASITE,U,2,3)
; S HLEID=$$HLP^IBCNEHLU(IBCNHLP)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNEHLO 757 printed Dec 13, 2024@02:14:45 Page 2
IBCNEHLO ;DAOU/ALA - Outgoing HL7 messages ;17-JUN-2002
+1 ;;2.0;INTEGRATED BILLING;**184,300**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ;**Program Description**
+5 ; This program passes the HL7 protocol (variable IBCNHLP - defined by
+6 ; the calling routine) to INIT^HLFNC2, which loads protocol specific
+7 ; variables needed to generate an HL7 message into the HL array.
+8 ; In addition, the protocol IEN is set using the extrinsic function,
+9 ; $$HLP^IBCNEHLU.
+10 ;
+11 ; Input Parameters
+12 ; IBCNHLP = Protocol Name
+13 ;
+14 ;
INIT ; Initialization for HL7
+1 DO INIT^HLFNC2(IBCNHLP,.HL)
+2 SET HLFS=HL("FS")
SET HLECH=$EXTRACT(HL("ECH"),1)
SET HL("SAF")=$PIECE($$SITE^VASITE,U,2,3)
+3 ; S HLEID=$$HLP^IBCNEHLU(IBCNHLP)
+4 QUIT
+5 ;
