RMPRHL7.m

RMPRHL7 ;HINES-CIOFO/HNC - HL7 formatting information;3/13/00

 ;;3.0;PROSTHETICS;**45,54**;Feb 09, 1996

 ;

 ; HNC-10/13/00; Make change to Date/Time for HL7 update.

 ;              call $$HL7TFM^XLFDT(DATE)

 ;              and $$FMTHL7^XLFDT(DATE) per David Naber 10/00

 ;              patch 53 and OR*3*97

 Q

MSH(X) ;Format MSH segment of HL-7 message.

 ;FROM=RMPR PROSTHETICS - sending

 N X

 S X="MSH|^~\&|PROSTHETICS|"_$S(+$G(DUZ(2)):DUZ(2),1:$$SITE^VASITE())_"|||||ORM"

 Q X

 ;

 ;

 Q

HL7DT(DATE) ;Convert Fileman Date to HL-7 Date

 ;

 N X

 S X=$$FMTHL7^XLFDT(DATE)

 Q X

 ;

FMDATE(DATE) ;Convert HL-7 formatted date to a Fileman formatted date

 ;

 ;

 N X

 S X=$$HL7TFM^XLFDT(DATE)

 Q X

 ;

 ;END