VAFEDOHL ;ALB/JLU/CAW;generates the HL7 message to be sent;6/29/93
Source file <VAFEDOHL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ||
| DATE | ;this subroutine gets the date to start from.
|
|
| CHK(VAFEDDT) | ;this subroutine checks for the existance of data in the 391.51
|
|
| HL | ;this subroutine sets up HL7 variables.
|
|
| SETUP | ;starts the looping to get the info from the 391.51 file.
|
|
| SET | ;second layer of the loop.
|
|
| BUILD | ;this subroutine builds the HL7 messages segments
|
|
| LOG | ;sets the HL7 string into the TMP global
|
|
| SEND | ;sends the HL7 message
|
|
| DELETE | ;deletes entries that were sent.
|
|
| DSTR | ;builds diagnosis string
|
