Routine: MDHL7U3

Information

MDHL7U3 ;HOIFO/WAA - Utilities for CP to process HL7 messages ;02/17/10 15:59

Source file <MDHL7U3.m>

Name	Comments	DBIA/ICR reference
HL7CHK(MDD702)	; Check to see of there is an entry in 703.1 for a patient.
XVERT(MDA,MDB)	; Strip out blank Lines
PURGE(MDD7031)	; ; This sub-routine will delete HL7 772 Message text after a message ; been processed by Imaging.
PHY(X,MDIEN)	; Add the doc who did the exam to the report
CPTICD(X,MDIEN)	; Break out CPT and ICD9 codes
FILECD(MDIEN,CODE,TYPE)	; fILE THE DATA
ADD(MDIEN,TYPE,LINE,CNT)	; ; Create an entry in the .1 node
MSGIEN(MDHLIENS,MDHLREST)	; Return the message as definded in MDHLIENS to the array in MDHLREST ; Only TCP type messages ; input: MDHLIENS= the intern entry number of the message in ^HLMA ; MDHLREST = the return array that will contain the whole HL7 message ; output: return "1^Message complete" if message was successful, "0^reason" if failed.
CICNV(MDIEN,RETURN)	; This subroutine will read the data in 703.1 and return the results
PROCESS(MDIEN,NODE,TYPE,ARRAY)	; This will process the data for each
NOTICE(SUBJECT,TXT,DEVIEN,DUZ)	; This will fire off a mail message to the Indicated mail group saying that a study was deleted
ALERT(MDSIEN)	; This is to send an e-mail to the main device mail group that a study has been deleted