Routine: MDHL7U2

Information

MDHL7U2 ; HOIFO/WAA -Utilities for CP PROCESSING OBX text ; 7/26/00

Source file <MDHL7U2.m>

Name	Comments	DBIA/ICR reference
GET123(MDD702)	; return the IEN for an entry in 123 based on the 702 ; This subroutine will return -1 if no entry is found
GETREF(CONSULT)	; Return the physician and pointer to 200 ; in the format pointer200^last^first
MG(MG)	; This function is to validate that a mailgroup ; and that there is someone in it
INST(DEV,X)	; Process Device and determine if the device Functioning ; DEV = Name of the device from the .01 field ; X = 1 is true that the device cleared to process ; 0 is false the device is not allowed to process ; X(0) = The device name^IEN^Print name if one^ ; Processing routine^Routine Checksum^Patch Level ; X(I) = The reasons why it is OR is not allowed to process
VALRTN(RTN)	; Function to check Validity
TEXT	;;PROCESS TEXT;.302
SAVE(TEXT)	; Save the data to the file 703.1
PROCESS(TEXT)	; Long lines
FTOHL7(DATE)	; This subroutine will make a file manager date an HL7 date