|
Last change
on this file since 1538 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
736 bytes
|
| Line | |
|---|
| 1 | IBCNEHLO ;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 | ;
|
|---|
| 16 | INIT ; 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.
