- 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 Feb 18, 2025@23:41:09 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 ;
